MEMBUAT PROGRAM BIAYA RUMAH SAKIT MENGGUNAKAN DELPHI 7

a

Posted o1. DESIGN FO

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 :