Program Menggunakan Delphi

Buat kalian yang sedang mencari contoh atau ingin belajar tentang delphi, ini nih saya buat contoh program dengan menggunakan delphi.. okeh langsung aja yah.. :)

Program Biaya Rumah Sakit..

a. Buatlah tampilan seperti di bawah ini..

b. Desain Propertis

        Objek                                Name                                      Caption

Label 1                                      Label 1                                    Rumah Sakit Bakti Intan

GroupBox1                               GroupBox1                              Data Dokter

Label2                                       Label2                                     Kode Dokter

Text1                                         kode                                         -

Label3                                       Label3                                     Nama Dokter

Text2                                         enado                                       -

Label4                                       Label4                                     Spesialis

Text3                                         espes                                        -

Label5                                       Label5                                     Biaya Periksa

Text4                                         ebiaya                                       -

GroupBox2                               GroupBox2                              Data Obat

Label6                                       Label6                                     Kode Obat

Text5                                         eko                                           -

Label7                                       Label7                                     Nama Obat

Text6                                         eno                                           -

Label8                                       Label8                                     Harga Obat

Text7                                         eharo                                        -

Label9                                       Label9                                     Jumlah Beli

Text8                                         ejumbel                                     -

Label10                                     Label10                                   Subtotal

Text9                                         subtot                                       -

Label11                                     Label11                                   Uang Bayar

Text10                                       edit10                                       -

Label12                                     Label12                                   Kembali

Text11                                       edit11                                      -

Button1                                     Button1                                    Total Bayar

Text12                                      etot                                           -

Button2                                     Button2                                    Keluar

Button3                                     Button3                                    Bersih

Button4                                     Button5                                    New

c. Ketentuan Soal

1. Ketika Di klik tombol new Setfocus berada di Kode dokter

2. Ketika diPilih Kode dokter maka nama dokter, spesialis, biaya periksa muncul.

   - Kode dokter di isi di Items pada properties

3. Kode obat di input maka nama obat dan harga obat keluar.

4. Masukkan jumlah beli lalu di enter, subtotal muncul.

    - subtotal di ambil dari jumlah beli*harga obat.

5. Klik total bayar maka muncul total bayarnya, setfokus berada di uang bayar.

    - Total Bayar diambil dari biaya periksa+subtotal

6. Masukkan Jumlah Beli lalu di enter, kembali muncul.

7. Ketika di klik bersih maka semua objek dalam keadaan bersih.

8. Ketika di klik keluar maka project akan keluar.

       

d. Listing Program

     private
    { Private declarations }
  public
    procedure aktif;
    procedure nonaktif;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.aktif ;
begin
 kode.Enabled :=true;
 button1.Enabled :=true;
 end;

procedure TForm1.nonaktif ;
begin
 kode.Enabled :=false;
 button1.Enabled :=false;
 enado.Enabled :=false;
 espes.Enabled :=false;
 ebiaya.Enabled :=false;
 subtot.Enabled :=false;
 end;

procedure TForm1.kodeClick(Sender: TObject);
begin
if kode.text= '0012' then
 begin
 enado.Text :='Renni Lumban Gaol';
 espes.Text :='Jantung' ;
 ebiaya.Text :='100000';
 end
 else
if kode.text= '0013' then
 begin
 enado.Text :='Rouli Lumban Gaol';
 espes.Text :='Mata' ;
 ebiaya.Text :='150000';
 end
 else
if kode.text= '0014' then
 begin
 enado.Text :='Rita Lumban Gaol';
 espes.Text :='Paru-Paru' ;
 ebiaya.Text :='200000';
 end;
 eko.SetFocus ;
end;

procedure TForm1.ejumbelKeyPress(Sender: TObject; var Key: Char);
var harga, jumbel, subtotal:real;
begin
if key=#13 then
begin
 harga:=strtofloat(eharo.Text );
 jumbel:=strtofloat(ejumbel.Text );
 subtotal:=harga*jumbel;
 subtot.Text :=floattostr(subtotal);
 end;
end;

procedure TForm1.newClick(Sender: TObject);
begin
aktif;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
aktif;
nonaktif;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var biaya, subtotal, tot:real;
begin
biaya:=strtofloat(ebiaya.Text );
subtotal:=strtofloat(subtot.Text );
tot:=biaya+subtotal;
etot.Text :=floattostr(tot);
edit10.SetFocus ;
end;

procedure TForm1.edit10KeyPress(Sender: TObject; var Key: Char);
var a, b, c:real;
begin
if key=#13 then
begin
a:=strtofloat(edit10.Text );
b:=strtofloat(etot.Text );
c:=a-b;
edit11.Text :=floattostr(c);
end
end;

procedure TForm1.ekoKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
 if eko.Text ='K0001' then
  begin
  eno.Text :='Betadin';
  eharo.Text :='20000';
  end;
  ejumbel.SetFocus ;
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
kode.Text :='';
enado.Text :='';
espes.Text :='';
ebiaya.Text :='';
eko.Text :='';
eno.Text :='';
eharo.Text :='';
ejumbel.Text :='';
subtot.Text :='';
etot.Text :='';
edit10.Text :='';
edit11.Text :='';
kode.SetFocus ;
end;

end.