Program Transaksi Apotek

Pada contoh kali ini, Anda harus membuat beberapa tabel sebagai database. Anda bisa menggunakan Microsoft Access untuk membuatnya. Berikut ini adalah beberapa database untuk program ini:

tabel “data obat”

tabel “data konsumen”

table “transaksi”

table “detail transaksi”

Setelah database selesai dibuat, barulah Anda membuat program baru di Delphi 7. Pertama, buatlah form login dengan komponen – komponen di bawah ini:

Lalu, buatlah form menu utama dengan komponen seperti gambar di bawah ini:

Pada form “Master”, terdapat 2 sub menu, yaitu data obat dan data pelanggan. Berikut ini tampilan form dan komponennya:

Berikutnya, adalah membuat form transaksi. Buatlah seperti gambar di bawah ini:

Data transaksi tersebut selanjutnya akan dimasukkan ke dalam laporan data transaksi. Berikut ini adalah desain dari form laporan dengan menggunakan fitur “Quick Report”

Berikut ini adalah listing program dari tiap form-nya:

form Login

varForm5: TForm5;time, i: integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.ButtonMasukClick(Sender: TObject);beginif (edit1.Text = ‘admin’) and (edit2.Text = ‘admin’)then beginprogressbar1.Visible:=true;timer1.Enabled:=true;time := 0;end elseShowMessage(‘Maaf ID atau Password anda salah, silahkan mencoba kembali.’);Edit1.clear;Edit2.clear;end;
procedure TForm5.p_0xClick(Sender: TObject);beginclose;end;
procedure TForm5.ButtonKeluarClick(Sender: TObject);beginif(messagedlg(‘Tutup Aplikasi ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenapplication.Terminate;end;
procedure TForm5.Timer1Timer(Sender: TObject);begininc(i);progressbar1.Position:=i;if progressbar1.Position=100 then
begintimer1.Enabled:=false;i:=0;//showmessage(‘Login Berhasil ‘+edit1.Text);edit1.Clear;edit2.Clear;progressbar1.Visible:=false;form1.Show;hide;end;end;end.

form “Main Menu”

varForm1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm1.p_0xClick(Sender: TObject);beginif(messagedlg(‘Tutup Aplikasi ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenform1.Close;end;
procedure TForm1.SpeedButton2Click(Sender: TObject);beginform2.show;end;
procedure TForm1.BitBtn2Click(Sender: TObject);beginform2.Show;end;
procedure TForm1.BitBtn1Click(Sender: TObject);beginform4.Show;end;
procedure TForm1.ButtonKeluarClick(Sender: TObject);beginif(messagedlg(‘Logout ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenbeginform5.show;beginform1.Hide;end;end;end;procedure TForm1.DataKonsumen1Click(Sender: TObject);beginform3.Show;end;
procedure TForm1.DataObat1Click(Sender: TObject);beginform4.Show;end;
procedure TForm1.TransaksiClick(Sender: TObject);beginform2.Show;end;
procedure TForm1.LaporanClick(Sender: TObject);beginform6.QuickRep1.Preview;end;end.

form “Data Obat”

varForm4: TForm4;
implementation
uses Unit3, Unit1;
{$R *.dfm}
procedure TForm4.BitBtn2Click(Sender: TObject);beginform3.show;end;
procedure TForm4.BitBtn5Click(Sender: TObject);beginif(messagedlg(‘Hapus Data ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenadotable1.delete;end;
procedure TForm4.BitBtn7Click(Sender: TObject);beginform1.show;beginform4.Hide;end;end;
end.

form “Data konsumen”

varForm3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.BitBtn2Click(Sender: TObject);beginif(messagedlg(‘Ingin Kembali ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenform1.Show;end;
procedure TForm3.BitBtn7Click(Sender: TObject);beginform1.Show;beginform3.Hide;end;end;
procedure TForm3.BitBtn5Click(Sender: TObject);beginif(messagedlg(‘Hapus Data ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenadotable1.delete;end;
end.

form “Transaksi”

varForm2: TForm2;
implementation
uses Unit1, unit4;
{$R *.dfm}
procedure TForm2.Button3Click(Sender: TObject);beginform1.show;end;
procedure TForm2.BitBtn3Click(Sender: TObject);beginif(messagedlg(‘Hapus Data ?’,mtconfirmation,[mbyes,mbno],0)=mryes)thenadotable1.Delete;end;
procedure TForm2.BitBtn5Click(Sender: TObject);beginform1.Show;beginform2.Hide;end;end;
procedure TForm2.BitBtn4Click(Sender: TObject);beginbitbtn4.Refresh;end;
procedure TForm2.Timer1Timer(Sender: TObject);beginDBEdit5.text := FormatDateTime(‘dd/mm/yyyy’,now);end;
end.

Setelah Anda mempelajari beberapa contoh yang kami tulis di atas, mungkin Anda sudah paham beberapa kelebihan dan kekurangan Delphi yang Anda rasakan. Setidaknya, Anda sudah memiliki pengalaman untuk programming menggunakan Delphi. Sekian contoh-contoh program Delphi yang bisa kami berikan pada artikel kali ini. Semoga semua contoh di atas dapat menambah pemahaman Anda seputar programming menggunakan Delphi.