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: