MEMBUAT PROGRAM BIAYA RUMAH SAKIT MENGGUNAKAN DELPHI 7

1. DESIGN FORM

2. DESIGN PROPERTIES

OBJECT

NAME

CAPTION

Label 1 Label1 RUMAH SAKIT BAKTI INSANI
Label 2 Label2 Kode Dokter
Label 3 Label3 Nama Dokter
Label 4 Label4 Spesialis
Label 5 Label5 Biaya Periksa (RP)
Label 6 Label6 Kode Obat
Label 7 Label7 Nama Obat
Label 8 Label8 Harga Obat (RP)
Label 9 Label9 Uang Bayar (RP)
Label 10 Label10 Kembali (RP)
Combo Box cmbkode
Group Box GroupBox1 DATA OBAT
Edit 1 Edokter
Edit 2 Espesialis
Edit 3 ebiaya
Edit 4 ekode
Edit 5 eobat
Edit 6 eharga
Edit 7 etotal
Edit 8 ebayar
Edit 9 ekembali
Button 1 btotal TOTAL
Button 2 bkeluar &KELUAR

Button 3

bbersih

&BERSIH

3. LISTING PROGRAM

procedure TFORMRS.FormCreate(Sender: TObject);
begin
cmbkode.Items.Add(‘DRD01’);
cmbkode.Items.Add(‘DRJ02’);
cmbkode.Items.Add(‘DRM03′);
end;

procedure TFORMRS.cmbkodeClick(Sender: TObject);
begin
if cmbkode.Text=’DRD01′ then
begin
edokter.Text:=’dr Okta’;
espesialis.Text:=’Penyakit Dalam’;
ebiaya.Text:=’2000000′;
end
else
if cmbkode.Text=’DRJ02′ then
begin
edokter.Text:=’dr Yondra’;
espesialis.Text:=’Gangguan Jiwa’;
ebiaya.Text:=’150000′;
end
else
if cmbkode.Text=’DRM03′ then
begin
edokter.Text:=’dr Wulan’;
espesialis.Text:=’Mata’;
ebiaya.Text:=’1000000′;
end
else
begin
edokter.Text:=’-‘;
espesialis.Text:=’-‘;
ebiaya.Text:=’0′;
end
end;

procedure TFORMRS.ekodeKeyPress(Sender: TObject; var Key: Char);
begin
if ekode.Text=’B001′ then
begin
eobat.Text:=’Paracetamol’;
eharga.Text:=’10000′
end
else
if ekode.Text=’B002′ then
begin
eobat.Text:=’Paratusin’;
eharga.Text:=’12000′
end
else
if ekode.Text=’B003′ then
begin
eobat.Text:=’Amoxilin’;
eharga.Text:=’15000′
end
else
begin
eobat.Text:=’-‘;
eharga.Text:=’0’;
end
end;

procedure TFORMRS.btotalClick(Sender: TObject);
var biaya,total,harga:longint;
begin
biaya:=strtoint(ebiaya.Text);
harga:=strtoint(eharga.Text);
total:=biaya+harga;
etotal.Text:=inttostr(total);
ebayar.SetFocus;
end;
procedure TFORMRS.ebayarKeyPress(Sender: TObject; var Key: Char);
var total,bayar,kembali:longint;
begin
if key=#13 then
begin
total:=strtoint(etotal.Text);
bayar:=strtoint(ebayar.Text);
kembali:=bayar-total;
if (bayar<total) then
begin
showmessage(‘MAAF UANG ANDA KURANG Rp.’ + inttostr(total-bayar));
ebayar.Text:=”;
ebayar.SetFocus;
end
else
ekembali.Text:=inttostr(kembali);
end
end;
procedure TFORMRS.bkeluarClick(Sender: TObject);
begin
if application.MessageBox(‘Yakin anda akan keluar???’,’informasi’,mb_yesno)=idyes
then
close;
end;

procedure TFORMRS.bbersihClick(Sender: TObject);
begin
cmbkode.Text:=”;
edokter.Text:=”;
espesialis.Text:=”;
ebiaya.Text:=”;
ekode.Text:=”;
eobat.Text:=”;
eharga.Text:=”;
etotal.Text:=”;
ebayar.Text:=”;
ekembali.Text:=”;
end;

end.

  • Maka setelah jadi tampilannya akan seperti ini :


OKE SELAMAT MENCOBA…!!! See you…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s