Kumpulan Latihan-Latihan Delphi

Pada ketentuan diatas,data yg ada di combo kode dokter dan combo obat dapat langsung kita masukan di properties combobox tsb.

Caranya :

Klik satu kali di ComboBox lalu di Object Inspector cari Items dan masukan data-data tsb di kotak dialog yg muncul.

Untuk penamaan objek2nya dapat dilihat dari gbr diatas.

Code :

 procedure TForm1.CmbKodeClick(Sender: TObject);
begin
IF CmbKode.Text='DRJ01' then
  begin
  eNama.Text:='Raffa';
  eSpesialis.Text:='Jantung';
  eByPreiksa.text:='2000000';
  end
else IF CmbKode.Text='DRA02' then
  begin
  eNama.Text:='Sheila Anisa';
  eSpesialis.Text:='Anak';
  eByPreiksa.text:='150000';
  end
else
  begin
  eNama.Text:='Putri';
  eSpesialis.Text:='Mata';
  eByPreiksa.text:='100000';
  end;
CmbObt.SetFocus;
end;

procedure TForm1.CmbObtClick(Sender: TObject);
begin
IF CmbKode.Text='OBT01' then
  begin
  eNmObt.Text:='Obat Capsul';
  eHrgObt.text:='250000';
  end
else IF CmbKode.Text='OBT02' then
  begin
  eNmObt.Text:='Obat Sirup';
  eHrgObt.text:='15000';
  end
else
  begin
  eNmObt.Text:='Obat Puyer';
  eHrgObt.text:='25000';
  end;
bTobay.SetFocus;
end;

procedure TForm1.bTobayClick(Sender: TObject);
var a,b,c : real;
begin
a:=strtofloat(eByPreiksa.Text);
b:=strtofloat(eHrgObt.Text);
c:=a+b;
eTobay.Text:=floattostr(c);
eubay.SetFocus;
end;

procedure TForm1.eUbayKeyPress(Sender: TObject; var Key: Char);
var a,b,c : real;
begin
if key=#13 then
  begin
    a:=strtofloat(eTobay.Text);
    b:=strtofloat(eubay.Text);
    c:=b-a;
    eKembali.Text:=floattostr(c);
  end;
end;

procedure TForm1.bBersihClick(Sender: TObject);
begin
bersih;
end;

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

procedure TForm1.FormActivate(Sender: TObject);
begin
bersih;
CmbKode.SetFocus;
end;

Ketikan listing diatas pada jendela listingnya.
Kalo ga mau pada ribet,bisa download langsung projectnya Disini silahkan dilanjutkan dengan membuat pesan saat klik tombol keluar