Membuat Program Apotik Menggunakan Borland Delphi

Baiklah kali ini saya akan membuat program pada suatu apotik pada aplikasi borlan delphi.
berikutlah langkah-langkahnya;

1. Buat database pada Microsoft Office Access, dengan nama data baseobat. seperti dibawah;

2. Jika sudah save database tersebut

3. Selanjutnya buat desain pada aplikasi pada Borland Delphi, seperti dibawah ;

4. Jika sudah masukkan kodingan seperti dibawah ini;

   procedure TForm1.Button1Click(Sender: TObject);

   VAR

   DATA:STRING;

   begin

   ADOCONNECTION1.Connected:=TRUE;

   DATA:='INSERT INTO OBAT (KODE,NAMA,SATUAN,HARGA,JUMLAH,PEMBAYARAN) VALUES ("'+COMBOBOX1.Text+'","'+EDIT1.Text+'","'+COMBOBOX2.Text+'","'+EDIT2.Text+'","'+EDIT3.Text+'","'+EDIT4.Text+'")';

   ADOCOMMAND1.CommandText:=DATA;

   ADOCOMMAND1.Execute;

   ADODATASET1.Active:=FALSE;

   ADOCONNECTION1.Connected:=TRUE;

   DATA:='SELECT*FROM OBAT';

   ADODATASET1.CommandText:=DATA;

   ADODATASET1.Active:=TRUE;

   end;

   procedure TForm1.Button3Click(Sender: TObject);

   VAR

   DATA:STRING;

   begin

   ADODATASET1.Active:=FALSE;

   ADOCONNECTION1.Connected:=TRUE;

   DATA:='DELETE*FROM OBAT WHERE KODE="'+COMBOBOX1.Text+'"';

   ADOCOMMAND1.CommandText:=DATA;

   ADOCOMMAND1.Execute;

   COMBOBOX1.Text:='';

   EDIT1.Text:='';

   COMBOBOX1.Text:='';

   EDIT2.Text:='';

   EDIT3.Text:='';

   EDIT4.Text:='';

   end;

   procedure TForm1.Button4Click(Sender: TObject);

   VAR

   DATA:STRING;

   begin

   ADODATASET1.Active:=FALSE;

   ADOCONNECTION1.Connected:=TRUE;

   DATA:='SELECT*FROM OBAT WHERE KODE="'+COMBOBOX1.Text+'"';

   ADODATASET1.CommandText:=DATA;

   ADODATASET1.Active:=TRUE;

   end;
procedure TForm1.Button5Click(Sender: TObject);
begin
APPLICATION.Terminate;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
IF COMBOBOX1.Text='PLOBT01' THEN
BEGIN
EDIT1.Text:='OBAT BATUK';
EDIT2.Text:='25000';
END
ELSE
IF COMBOBOX1.Text='BTSRP05' THEN
BEGIN
EDIT1.Text:='SIRUP VIT ADPLEX';
EDIT2.Text:='75000';
END
ELSE
IF COMBOBOX1.Text='SKRPR01' THEN
BEGIN
EDIT1.Text:='PANADOL';
EDIT2.Text:='10000';
END
ELSE
IF COMBOBOX1.Text='PSAMD03' THEN
BEGIN
EDIT1.Text:='AMOXILIN';
EDIT2.Text:='5000';
END;
end;

procedure TForm1.Edit3Change(Sender: TObject);
VAR
HARGA,JUMLAH,BAYAR:REAL;
begin
HARGA:=STRTOFLOAT(EDIT2.Text);
JUMLAH:=STRTOFLOAT(EDIT3.Text);
BAYAR:=HARGA*JUMLAH;
EDIT4.Text:=FLOATTOSTR(BAYAR);

end;

end.

5. Lalu connection seperti langkah" dibawah ini ;

6. Jika sudah connection , lalu RUN program , hasilnya seperti dibawah ini:

yak begitulah langkah-langkahnya. Semoga bermanfaat bagi pembaca sekalian .
terimakash bagi yang sudah membaca blog saya^^