Percabangan Delphi ( Rumah Sakit Bakti Insan )

Bagaimana dengan Percabangan Rumah Sakit ini?

Liatlah ketentuannya :
1. Gunakan perintah IF, untuk mencari Nama dokter, Spesialis dan Biaya ketika Kode
Dokter dipilih (klik)

Kode Dokter   Nama Dokter        Spesialis       Biaya Periksa
DRD01          dr Oka            Penyakit Dalam    2000000
DRJ02           dr Yondra        Gangguan Jiwa     1500000
DRM03         dr Wulan          Mata                   1000000

2. Gunakan Perintah IF , untuk mencari nama obat dan harga obat ketika Kode Obat
diinput lalu diEnter.
    Kode Obat      Nama Obat        Harga Obat
     B001              Paracetamol        Rp. 10.000
     B002              Paratusin             Rp. 12.000
     B003              Amoxilin             Rp. 15.000

3. Total bayar didapat dari harga Obat + harga Dokter.
4. Uang bayar diinput, ketika dienter maka Uang Kembali keluar.
5. Tombol bersih untuk membersihkan seluruh objek.
6. Tombol Keluar untuk keluar dari form.


Terus Bagaimana Dengan Listingnya? Perhatikan !!

unit UBaktiInsan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    edokter: TEdit;
    cdokter: TComboBox;
    espesialis: TEdit;
    ebiaya: TEdit;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    eobat: TEdit;
    eharga: TEdit;
    btotal: TButton;
    etotal: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    eubay: TEdit;
    eukem: TEdit;
    bkeluar: TButton;
    bbersih: TButton;
    cobat: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure cdokterClick(Sender: TObject);
    procedure cobatKeyPress(Sender: TObject; var Key: Char);
    procedure btotalClick(Sender: TObject);
    procedure eubayKeyPress(Sender: TObject; var Key: Char);
    procedure bkeluarClick(Sender: TObject);
    procedure bbersihClick(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
cdokter.Items.Add('DRD01');
cdokter.Items.Add('DRJ02');
cdokter.Items.Add('DRM03');
end;

procedure TForm2.cdokterClick(Sender: TObject);
begin
If cdokter.Text ='DRD01' then
   begin
   edokter.Text :='dr. Oka';
   espesialis.Text :='Penyakit Dalam';
   ebiaya.Text:='2000000'
   end
Else
If cdokter.Text ='DRJ02' then
   begin
   edokter.Text :='dr. Yondra';
   espesialis.Text :='Gangguan Jiwa';
   ebiaya.Text:='1500000'
   end
Else
   begin                                                
   edokter.Text :='dr. Wulan';
   espesialis.Text :='Mata';
   ebiaya.Text:='1000000'
   end
end;

procedure TForm2.cobatKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then
If cobat.Text ='B001' then
   begin
   eobat.Text :='Paracetamol';
   eharga.Text :='10000'
   end
Else
If cobat.Text ='B002' then
   begin
   eobat.Text :='Paratusin';
   eharga.Text :='12000'
   end
Else
If cobat.Text ='B003' then
    begin
    eobat.Text :='Amoxilin';
    eharga.Text :='15000'
    end
Else
    begin
    showmessage('KODE OBAT TIDAK ADA !! ');
    cobat.Text :='';
    end
end;

procedure TForm2.btotalClick(Sender: TObject);
var a,b,c:real;
begin
a:=strtofloat(eharga.Text);
b:=strtofloat(ebiaya.Text);
c:=a+b;
etotal.Text:=floattostr(c);
eubay.SetFocus;
  end;

procedure TForm2.eubayKeyPress(Sender: TObject; var Key: Char);
 var a,b,c:real;
  begin
  If key=#13 then
  begin
   a:=strtofloat(eubay.Text);
   b:=strtofloat(etotal.Text);
   c:=a-b;
   if a < b then
     begin
       messagedlg('Uang Bayar Anda Kurang! Rp. '+ floattostr(b-a),mtconfirmation,[MBOK],0);
       eubay.Text:='';
       eubay.SetFocus;
     end
   else
     begin
     eukem.Text :=floattostr(c);
     messagedlg('Terima Kasih ',mtconfirmation,[MBOK],0);
    end;
    end;
  end;

procedure TForm2.bkeluarClick(Sender: TObject);
begin
if (application.MessageBox('Anda Yakin Akan Keluar ?','Informasi',MB_YESNO)=IDYES) then
close;
end;

procedure TForm2.bbersihClick(Sender: TObject);
begin
cdokter.Text:='';
edokter.Text:='';
espesialis.Text:='';
eobat.Text:='';
ebiaya.Text:='';
cobat.Text:='';
eharga.Text:='';
etotal.Text:='';
eubay.Text:='';
eukem.Text:='';
end;

end.