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:

BAB 11

BAB XI. OBYEK SCROLL BAR

unit UnitBab11;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label2: TLabel;
    SBPL: TScrollBar;
    SBPD: TScrollBar;
    SBLL: TScrollBar;
    SBLD: TScrollBar;
    EDPL: TEdit;
    EDPD: TEdit;
    EDLL: TEdit;
    EDLD: TEdit;
    EDLUAS: TEdit;
    CSELESAI: TButton;
    procedure CSELESAIClick(Sender: TObject);
    procedure SBPLChange(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.SBPLChange(Sender: TObject);
begin
EDPL.Text:=FORMAT('%18.0N',[SBPL.Position/100]);
EDPD.Text:=FORMAT('%18.0N',[SBPD.Position/100]);
EDLL.TEXT:=FORMAT('%18.0N',[SBLL.Position/100]);
EDLD.TEXT:=FORMAT('%18.0N',[SBLD.Position/100]);
EDLUAS.TEXT:=FORMAT('%18.0N',[SBPL.POSITION/100*SBLL.POSITION/100-
SBPD.Position/100*SBLD.Position/100]);
end;
end.

HASIL PROGRAM:

BAB 10

BAB X. OBYEK COMBO BOX

unit UnitBab10;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EDHRGKONV: TEdit;
    EDPANJANG: TEdit;
    EDLEBAR: TEdit;
    EDLUAS: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;
    CMBJNSUKR: TComboBox;
    procedure CMULAIClick(Sender: TObject);
    procedure EDPANJANGChange(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CMULAIClick(Sender: TObject);
begin
edpanjang.text:=' ';
edlebar.Text:=' ';
edluas.text:=' ';
end;
procedure TForm1.EDPANJANGChange(Sender: TObject);
var
lebar,panjang,luas,hrgkonv :single;
kode:integer;
begin
if cmbjnsukr.text='M' then hrgkonv:=100;
if cmbjnsukr.text='CM' then hrgkonv:=1;
edhrgkonv.text:=format('%8.0n',[hrgkonv]);
val(edpanjang.Text,panjang,kode);
val(edlebar.text,lebar,kode);
val(edhrgkonv.Text,hrgkonv,kode);
luas :=(panjang*hrgkonv)*(lebar*hrgkonv);
edluas.text:=format('%20.0n',[luas]);
end;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;

HASIL PROGRAM:

BAB 9

BAB IX. PROSES PENGULANGAN DENGAN REPEAT UNTIL

unit prak9;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Form, Dialogs,
  stdCtrls;

type
TForm1 : class(TForm)
   Label1 : Tlabel;
   Label2 : Tlabel;
   TPOSISI : TEdit;
   Label3 : Tlabel;
   Label4 : Tlabel;
   Label5 : Tlabel;
   Label6 : Tlabel;
   Ts : TEdit;
   Label7 : Tlabel;
   CMULAI : TButton;
   CSELESAI : TButton;
Procedure CMULAIClick(sender : Tobject);
Procedure FormCreate(sender : Tobject);
Procedure CSELESAIClick(sender : Tobject);
Procedure TPOSISIChange(sender : Tobject);

Private
 { Private declarations }
Public
 { Public declarations }
implementation
{$R*.DFM}

Procedure TForm1.CMULAIClick (sender : Tobject);
begin
Tposisi.text:=' ';
Ts.text:=' ';
Tposisi.setfocus;
end;

Procedure TForm1.FormCreate( sender : Tobject);
begin
Ts.enabled:=False;
Ts.color:=clbtnface;
end;

Procedure TForm1.CSELESAIClick ( sender:Tobject);
begin
 Application.terminate;
end;

Procedure TForm1.TPOSISIChange(sender : Tobject);
var
 Tsem,A,Ss,I,F,Sposisi:integer;
 Tss:string[30];
begin
 val(Tposisi.text,Sposisi,tsem);
if Sposisi<1
then
SS:=0
else
if Sposisi =1
then
SS:+1
else
begin
A:=2;
SS:=1;
F:=2;
I:=1;
repeat
F:=F*A;
Ss:+SS+(F-1);
I:=I+1;
until I=Sposisi
end;
str(Ss:30,Tss);
Ts.text:=Tss;
end;
end.
 Hasil Program: