BAB 19

BAB XIX. FILTER

unit UnitBab19;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;
type
  TForm1 = class(TForm)
    TBTRANSB: TTable;
    Dstransb: TDataSource;
    Dbgtransb: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    EDNOFAKL: TEdit;
    EDNOFAKH: TEdit;
    CTAMPIL: TButton;
    CSELESAI: TButton;
    procedure CSELESAIClick(Sender: TObject);
    procedure CTAMPILClick(Sender: TObject);
    procedure EDNOFAKLChange(Sender: TObject);
    procedure EDNOFAKHChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.CTAMPILClick(Sender: TObject);
begin
TBTRANSB.INDEXNAME:='SNOTA';
TBTRANSB.SETRANGE([EDNOFAKL.text], [EDNOFAKH.Text]);
end;
procedure TForm1.EDNOFAKLChange(Sender: TObject);
begin
BTAMPIL.DEFAULT:=TRUE;
end;
procedure TForm1.EDNOFAKHChange(Sender: TObject);
begin
BTAMPIL.DEFAULT:=TRUE;
end;
end.

HASIL PROGRAM:

BAB 18

BAB XVIII. MENGINPUT DATA TABEL HUBUNGAN DUA ATAU LEBIH TABEL

Unit prak18;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label2 : Tlabel;
Label3 : Tlabel;
Label4 : Tlabel;
Label5  : Tlabel;
EDNONOTA : TEdit;
EDKDSUP : TEdit;
EDTGLNOTA : TEdit;
EDNMSUP : TEdit;
DBGSTRANSB : TDGrid;
GroupBox1: TGroupBox;
GroupBox2 : TGroupBox;
Label6 : TLabel;
EDTOTAL : TEdit;
DBGSUPPLIER : TDBGrid;
DBGBARANG : TDBGrid;
CSimpan : TButton;
CBatal : TButton;
CSelesai : TButton;
ENMSUP : TEdit;
Label7 : TLabel;
Label8 : Tlabel;
ENMBRG : TEdit;
TBBARANG : TTable;
DSBARANG : TDataSource;
TBSUPPLIER : TTable;
DSSUPPLIER : TDataSource;
TBNOTA : TTable;
DSNOTA : TDataSource;
TBTRANSB : TTable;
DSTRANSB : TDataSource;
Label1 : TLabel;
Label9 : TLabel;
Image1 : TImage;
procedure FormCreate (sender : Tobject);
procedure EDNONOTAKeyPress (sender : TObject ; var
Key: Char);
procedure EDTGLNOTAKeyPress (Sender : TObject; var key : char);
procedure EDKDSUPKeyPress(sender:Tobject; var key : char);
procedure EDTGLNOTAExit(sender:Tobject);
procedure DBGSTRANSBKeyPress(sender:Tobject; var key : Char);
procedure CSIMPANClick(sender:Tobject);
procedure CBATALClick(sender : Tobejct);
procedure CSELESAIClick (sender : Tobject);
procedure EDKDSUPChange(sender:Tobject);
procedure ENMBRGKeyPress(sender : Tobject; var Key : char);
procedure ENMBRGChange (sender : Tobject);
procedure ENMSUPKeyPress (sender: Tobject ; var key : Char);
procedure ENMSUPChange (sender:Tobject);
procedure EDNMSUPKeyPress(sender : Tobject ; var key : char);
private
{ Private declarations }
public
{public declarations }
end;
var
Form1 : TForm1;
MTOTAL : SINGLE;
implementation
{$R*.DFM}
procedure TForm1.FormCreate(sender : Tobject);
var I : Integer;
begin
EDTOTAL.ENABLED := TRUE;
EDNMSUP.ENABLED := TRUE;
MTOTAL := 0;
EDTOTAL.text := Format ('%20.0m',[MTOTAL]);
EDNONOTA.text:=' ';
EDKDSUP.text :=' ';
EDNMSUP.text:=' ';
EDTGLNOTA.text:=DATATOSTR (NOW);
TBSTRANSB.First;
while not Tbstransb.eof do
begin
Tbstransb.delete;
end;
for I := 1 to 20 do
begin
Tbstransb.append;
Tbstransb['KDBRG']:=' ';
end;
TBstransb.first;
beep;
end;
procedure TForm1.DBGSTRANSBKeyPress (sender : Tobeject; Var Key : Char);
var
ADA:BOOLEAN;
JMLLAMA : SINGLE;
JMLBARU : SINGLE;
begin
IF NOT (key=CHR(13)) then exit;
if DBGSTRANSB.selectedindex>1 then
begin
end;
if DBGSTRANSB.selectedindex=0 then
begin
TBBARANG.indexname:='BARANG';
try
ADA:TBBARANG.FINDKEY ([Uppercase(Tbstransb['NMBRG'])]);
expect
DBGSTRANSb.selectedindex:=1;
exit
end;
if ada then
begin
tbstransb.edit;
tbstransb['kdbrg']:=tbbarang['kdbrg'];
tbstransb['nmbrg']:=tbbarang['nmbrg'];
beep;
dbgstransb.selectedindex:=2;
end
else
dbgstransb.selectedindex:=1;
exit;
end;
if dbgstransb.selectedindex=1 then
begin
tbbarang.indexname:=' ';
try
ADA:=Tbarang.findkey([uppercase(tbstransb['KDBRG'])]);
expect
dbgstransb.selectedindex:=1;
exit
if ADA then
begin
tbstransb.edit;
tbstransb['KDBRG']:=TBbarang['KDBRG'];
tbstransb['NMBRG']:=TBbarang['NMBRG'];
beep;
end
else
begin
dbgstransb.selectedindex:=1;
exit
end;
dbgstransb.selectedindex:=2;
exit
end;
if dbgstransb.selectedindex=2 then
begin
jmlama:=Tbstransb.fields[4].asfloat;
tbstransb['jumlah']:=tbstransb['hrgbeli']*tbstransb ['qtybeli'];
jmlbaru:=tbstransb.field[4].asfloat;
mtotal:=mtotal+(jmlbaru-jmllama);
edtotal.text:=format('%20.2m',[mtotal]);
dbgstransb.selectedindex=3 ;
exit
end;
if dbgstransb.selectindex= 3 then
begin
jmllama:=tbstransb.field[4].asfloat;
tbtransb['jumlah']:=tbstransb['hrgbeli']*tbstransb['qtybeli'];

jmlbaru:=tbstransb.field[4].asfloat;

mtotal:=mtotal+(jmlbaru-jmllama);

edtotal.text:=format('%20.2m',[mtotal]);

dbgstransb.selectedindex:=0;
tbstransb.next;
end;
end;
procedure TForm1.EDNONOTAKeyPress(sender : Tobject; var key : Char);
begin
if key=chr(13) then
EDTGLNOTA.setfocus;
end;
procedure TForm1.EDTGLNOTAKeyPress(sender:Tobject; var key : Char);
begin
if key=chr(13) then
EDKDSUP.setfocus;
end;
procedure TForm1.EDKSDUPKeyPress(sender : Tobject; var key : char);
begin
if key=chr(13) then
dbgstransb.setfocus;
end;
procedure TForm1.EDTGLNotaExit(sender:Tobject);
var
Cektgl:=strtodate(edtglnota.text);
expect
showmessage('format tanggal : DD-MM-YYYY)');
edtglnota.setfocus;
end;
end;
procedure TForm1.CSIMPANClick(sender : Tobject);
var ada : Boolean;
begin
tbstransb.first;
tbbarang.indexname:=' ';
while not tbstranb.eof do
begin
ada:=tbbarag.findkey ([tbstransb['kdbrg']]);
if ada then
try
begin
tbstrans.append;
tbstransb['nonota']:=ednonota.text;
tbstransb['kdbrg']:=tbstransb['kdbrg'];
tbstransb['qtybeli']:=tbstransb{'qtybeli'];
tbstransb['hrgbeli']:=tbstransb['hrgbeli'];
end;
except
showmessage(ednonota.text+','+edtglnota.text+','+tbstransb['kdbrg']+chr(13)+'sudah ada dalam file');
end;
tbstransb.next;
end;
tbstransb.append;
tbstransb['nonota']:=ednonot.text;;
end;
procedure TForm1.CbatalClick(sender:tobject);
begin
formcreate(sender);
end;
procedure TFrom1.CselesaiClick(sender:Tobject);
begin
application.terminate;
end;
end.

BAB 17

BAB XVII. MENCETAK DAN MELIHAT LAYAR DATA TABEL

unit UnitBab17;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    CLAYAR: TButton;
    CPRINTER: TButton;
    CSELESAI: TButton;
    procedure CSELESAIClick(Sender: TObject);
    procedure CLAYARClick(Sender:TObject);
    procedure CPRINTERClick(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.CLAYARClick(Sender:TObejct);
begin
QRBARANG.PREVIEW;
end;
procedure TForm1.CPRINTERClick(Sender:TObejct);
begin
QRBARANG.PRINT;
end;
end.

HASIL PROGRAM:

BAB 16

BAB XVI. MELIHAT DATA TABEL

unit UnitBab16;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    CSELESAI: TButton;
    Gridbarang: TDBGrid;
    DataSource1: TDataSource;
    Tbbarang: TTable;
    Label2: TLabel;
    Label3: TLabel;
    EDNMBRG: TEdit;
    procedure CSELESAIClick(Sender: TObject);
    procedure EDNMBRGChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.EDNMBRGChange(Sender: TObject);
begin
with tbbarang do
BEGIN
INDEXNAME:='NAMABRG';
FINDNEAREST([EDNMBRG.Text]);
end;
end;
end.

HASIL PROGRAM:

BAB 15

BAB XV. MENGHAPUS DATA TABEL

unit UnitBab15;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EDKDBRG: TEdit;
    EDNMBRG: TEdit;
    EDJENIS: TEdit;
    CMBKEMASAN: TComboBox;
    EDUKURAN: TEdit;
    CMBWARNA: TComboBox;
    EDQTY: TEdit;
    EDREORDER: TEdit;
    CHAPUS: TButton;
    CBATAL: TButton;
    CSELESAI: TButton;
    Tbbarang: TTable;
    DataSource1: TDataSource;
    procedure EDKDBRGChange(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure CBATALClick(Sender: TObject);
    procedure CMBKEMASANChange(Sender: TObject);
    procedure CMBWARNAChange(Sender: TObject);
    procedure CHAPUSClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.EDKDBRGChange(Sender: TObject);
var
ADA:BOOLEAN;
MREORDER,MQTY:SINGLE;
begin
if length(EDKDBRG.Text)<20 then
EXIT;
ADA:=TBBARANG.FINDKEY([EDKDBRG.Text]);
if ADA then
begin
BEEP;
EDKDBRG.focused;
EDKDBRG.selectall;
EDNMBRG.Text:=TBBARANG['NMBRG'];
EDJENIS.text:=TBBARANG['JENIS'];
CMBKEMASAN.Text:=TBBARANG['KEMASAN'];
EDUKURAN.Text:=TBBARANG['UKURAN'];
CMBWARNA.Text:=TBBARANG['WARNA'];
MQTY:=TBBARANG['QTY'];
MREORDER:=TBBARANG['REORDER'];
EDQTY.Text:=FORMAT('%4.0n',[MQTY]);
EDREORDER.text:=FORMAT('%4.0n',[MREORDER]);
EDNMBRG.focused;
EDKDBRG.selectall;
END
else
showmessage('DATA BARANG TAK ADA');
EXIT
END;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.CBATALClick(Sender: TObject);
begin
EDKDBRG.setfocus;
end;
procedure TForm1.CMBKEMASANChange(Sender: TObject);
begin
if uppercase(CMBKEMASAN.text)='D' then
CMBKEMASAN.text:='DUZ'
else if uppercase (CMBKEMASAN.text)='K' then
CMBKEMASAN.text:='KALENG'
else if uppercase (CMBKEMASAN.text)='P' then
CMBKEMASAN.Text:='PLASTIK'
else if uppercase (CMBKEMASAN.text)='B' then
CMBKEMASAN.text:='BOTOL'
else
begin
CMBKEMASAN.selectall;
CMBKEMASAN.setfocus;
end;
end;
procedure TForm1.CMBWARNAChange(Sender: TObject);
begin
 if uppercase(CMBWARNA.Text)='H' then
CMBWARNA.text:='HIJAU'
else if uppercase (CMBWARNA.Text)='M' then
CMBWARNA.text:='MERAH'
else if uppercase(CMBWARNA.Text)='K' then
CMBWARNA.Text:='KUNING'
else if uppercase(CMBWARNA.Text)='B' then
CMBWARNA.text:='BIRU'
else if uppercase(CMBWARNA.Text)='C' then
CMBWARNA.Text:='COKLAT'
else
begin
CMBWARNA.selectall;
CMBWARNA.setfocus;
END;
end;
procedure TForm1.CHAPUSClick(Sender: TObject);
begin
TBBARANG.Delete;
CBATALCLICK(SENDER);
end;
end.

HASIL PROGRAM:

BAB 14

BAB XIV. MENGEDIT DATA TABEL

unit UnitBab14;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EDKDBRG: TEdit;
    EDNMBRG: TEdit;
    EDJENIS: TEdit;
    CMBKEMASAN: TComboBox;
    EDUKURAN: TEdit;
    CMBWARNA: TComboBox;
    EDQTY: TEdit;
    EDREORDER: TEdit;
    CSIMPAN: TButton;
    CBATAL: TButton;
    CSELESAI: TButton;
    Tbbarang: TTable;
    DataSource1: TDataSource;
    procedure CSIMPANClick(Sender: TObject);
    procedure CBATALClick(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure CMBKEMASANChange(Sender: TObject);
    procedure CMBWARNAChange(Sender: TObject);
    procedure EDKDBRGChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSIMPANClick(Sender: TObject);
Var
MREORDER,MOQTY,KODE:INTEGER;
begin
val(EDQTY.Text,MOQTY,KODE);
val(EDREORDER.Text,MREORDER,KODE);
TBBARANG.EDIT;
TBBARANG['KDBRG']:=EDKDBRG.text;
TBBARANG['NMBRG']:=EDNMBRG.text;
TBBARANG['JENIS']:=EDJENIS.text;
TBBARANG['KEMASAN']:=CMBKEMASAN.text;
TBBARANG['UKURAN']:=EDUKURAN.text;
TBBARANG['WARNA']:=CMBWARNA.text;
TBBARANG['QTY']:=MOQTY;
TBBARANG['REORDER']:=MREORDER;
CBATALCLICK(SENDER);
end;
procedure TForm1.CBATALClick(Sender: TObject);
begin
EDKDBRG.setfocus;
end;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.CMBKEMASANChange(Sender: TObject);
begin
if uppercase(CMBKEMASAN.text)='D' then
CMBKEMASAN.text:='DUZ'
else if uppercase (CMBKEMASAN.text)='K' then
CMBKEMASAN.text:='KALENG'
else if uppercase (CMBKEMASAN.text)='P' then
CMBKEMASAN.Text:='PLASTIK'
else if uppercase (CMBKEMASAN.text)='B' then
CMBKEMASAN.text:='BOTOL'
else
begin
CMBKEMASAN.selectall;
CMBKEMASAN.setfocus;
end;
end;
procedure TForm1.CMBWARNAChange(Sender: TObject);
begin
 if uppercase(CMBWARNA.Text)='H' then
CMBWARNA.text:='HIJAU'
else if uppercase (CMBWARNA.Text)='M' then
CMBWARNA.text:='MERAH'
else if uppercase(CMBWARNA.Text)='K' then
CMBWARNA.Text:='KUNING'
else if uppercase(CMBWARNA.Text)='B' then
CMBWARNA.text:='BIRU'
else if uppercase(CMBWARNA.Text)='C' then
CMBWARNA.Text:='COKLAT'
else
begin
CMBWARNA.selectall;
CMBWARNA.setfocus;
END;
end;
procedure TForm1.EDKDBRGChange(Sender: TObject);
var
ADA:BOOLEAN;
MREORDER,MQTY:SINGLE;
begin
if length(EDKDBRG.Text)<20 then
EXIT;
ADA:=TBBARANG.FINDKEY([EDKDBRG.Text]);
if ADA then
begin
BEEP;
EDKDBRG.focused;
EDKDBRG.selectall;
EDNMBRG.Text:=TBBARANG['NMBRG'];
EDJENIS.text:=TBBARANG['JENIS'];
CMBKEMASAN.Text:=TBBARANG['KEMASAN'];
EDUKURAN.Text:=TBBARANG['UKURAN'];
CMBWARNA.Text:=TBBARANG['WARNA'];
MQTY:=TBBARANG['QTY'];
MREORDER:=TBBARANG['REORDER'];
EDQTY.Text:=FORMAT('%4.0n',[MQTY]);
EDREORDER.text:=FORMAT('%4.0n',[MREORDER]);
EDNMBRG.focused;
EDKDBRG.selectall;
END
else
showmessage('DATA BARANG TAK ADA');
EXIT
END;
end.
HASIL PROGRAM:

BAB 13

BAB XIII. MENGINPUT DATA TABEL

unit UnitBab13;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, DBTables;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    EDKDBRG: TEdit;
    EDNMBRG: TEdit;
    EDJENIS: TEdit;
    CMBKEMASAN: TComboBox;
    EDUKURAN: TEdit;
    CMBWARNA: TComboBox;
    EDQTY: TEdit;
    EDREORDER: TEdit;
    CSIMPAN: TButton;
    CBATAL: TButton;
    CSELESAI: TButton;
    Dsbarang: TDataSource;
    TBBARANG: TTable;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure CSELESAIClick(Sender: TObject);
    procedure CBATALClick(Sender: TObject);
    procedure CSIMPANClick(Sender: TObject);
    procedure CMBKEMASANChange(Sender: TObject);
    procedure CMBWARNAChange(Sender: TObject);
    procedure EDKDBRGChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.CBATALClick(Sender: TObject);
begin
EDKDBRG.setfocus;
end;
procedure TForm1.CSIMPANClick(Sender: TObject);
Var
MREORDER,MOQTY,KODE:INTEGER;
begin
val(EDQTY.Text,MOQTY,KODE);
val(EDREORDER.Text,MREORDER,KODE);
TBBARANG.APPEND;
TBBARANG['KDBRG']:=EDKDBRG.text;
TBBARANG['NMBRG']:=EDNMBRG.text;
TBBARANG['JENIS']:=EDJENIS.text;
TBBARANG['KEMASAN']:=CMBKEMASAN.text;
TBBARANG['UKURAN']:=EDUKURAN.text;
TBBARANG['WARNA']:=CMBWARNA.text;
TBBARANG['QTY']:=MOQTY;
TBBARANG['REORDER']:=MREORDER;
CBATALCLICK(SENDER);
end;
procedure TForm1.CMBKEMASANChange(Sender: TObject);
begin
if uppercase(CMBKEMASAN.Text)='D' then
CMBKEMASAN.text:='DUZ'
else if uppercase(CMBKEMASAN.Text)='K' then
CMBKEMASAN.text:='KALENG'
else if uppercase (CMBKEMASAN.text)='P' then
CMBKEMASAN.Text:='PLASTIK'
else if uppercase (CMBKEMASAN.Text)='B' then
CMBKEMASAN.Text:='BOTOL'
else
begin
CMBKEMASAN.SelectAll;
CMBKEMASAN.setfocus;
END;
end;
procedure TForm1.CMBWARNAChange(Sender: TObject);
begin
if uppercase(CMBWARNA.Text)='H' then
CMBWARNA.text:='HIJAU'
else if uppercase (CMBWARNA.Text)='M' then
CMBWARNA.text:='MERAH'
else if uppercase(CMBWARNA.Text)='K' then
CMBWARNA.Text:='KUNING'
else if uppercase(CMBWARNA.Text)='B' then
CMBWARNA.text:='BIRU'
else if uppercase(CMBWARNA.Text)='C' then
CMBWARNA.Text:='COKLAT'
else
begin
CMBWARNA.selectall;
CMBWARNA.setfocus;
END;
end;
procedure TForm1.EDKDBRGChange(Sender: TObject);
var
ADA:BOOLEAN;
MREORDER,MQTY:SINGLE;
begin
if length(EDKDBRG.Text)<20 then
EXIT;
ADA:=TBBARANG.FINDKEY([EDKDBRG.Text]);
if ADA then
begin
BEEP;
EDKDBRG.focused;
EDKDBRG.selectall;
EDNMBRG.Text:=TBBARANG['NMBRG'];
EDJENIS.text:=TBBARANG['JENIS'];
CMBKEMASAN.Text:=TBBARANG['KEMASAN'];
EDUKURAN.Text:=TBBARANG['UKURAN'];
CMBWARNA.Text:=TBBARANG['WARNA'];
MQTY:=TBBARANG['QTY'];
MREORDER:=TBBARANG['REORDER'];
EDQTY.Text:=FORMAT('%4.0n',[MQTY]);
EDREORDER.text:=FORMAT('%4.0n',[MREORDER]);
exit
END;
EDNMBRG.Text:=' ';
EDJENIS.text:=' ';
CMBKEMASAN.text:=' ';
EDUKURAN.text:=' ';
CMBWARNA.Text:=' ';
EDQTY.Text:=' ';
EDREORDER.Text:=' ';
EDNMBRG.color:=CLWINDOW;
EDJENIS.color:=CLWINDOW;
CMBKEMASAN.color:=CLWINDOW;
EDUKURAN.color:=CLWINDOW;
CMBWARNA.Color:=CLWINDOW;
EDQTY.color:=CLWINDOW;
EDREORDER.COLOR:=CLWINDOW;
EDNMBRG.Enabled:=TRUE;
EDJENIS.Enabled:=TRUE;
CMBKEMASAN.Enabled:=TRUE;
EDUKURAN.Enabled:=TRUE;
CMBWARNA.Enabled:=TRUE;
EDQTY.Enabled:=TRUE;
EDREORDER.Enabled:=TRUE;
EDNMBRG.setfocus;
end;
end.

 HASIL PROGRAM: