QUIS DELPHI

nama : SILVIA NATALIA
Nim : 12123838
kelas : 12.4C.06

codding :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cmbdok: TComboBox;
    edok: TEdit;
    espes: TEdit;
    ebiaya: TEdit;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    etot: TEdit;
    eppn: TEdit;
    etotba: TEdit;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ekobat: TEdit;
    enabat: TEdit;
    eharbat: TEdit;
    afwsaq: TLabel;
    Label11: TLabel;
    eubay: TEdit;
    eukem: TEdit;
    btnhitung: TBitBtn;
    btnbersih: TBitBtn;
    btnkeluar: TBitBtn;
    Label12: TLabel;
    lbltgl: TLabel;
    lbljam: TLabel;
    Timer1: TTimer;
    ejam: TEdit;
    etgl: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure cmbdokChange(Sender: TObject);
    procedure ekobatKeyPress(Sender: TObject; var Key: Char);
    procedure btnhitungClick(Sender: TObject);
    procedure eubayKeyPress(Sender: TObject; var Key: Char);
    procedure btnkeluarClick(Sender: TObject);
    procedure btnbersihClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure bersih;
  procedure aktif;

  end;

var
  Form1: TForm1;
  dokter:array[1..10]of String;
  harga:real;
implementation

uses StrUtils;

{$R *.dfm}


{ TForm1 }

procedure TForm1.aktif;
begin

end;

procedure TForm1.bersih;
var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do
  begin
    if (Components[1] is TEdit) then
    (Components[i] as TEdit).text:='';
    end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  cmbdok.Text:='Pilih Kode Dokter';
  edok.enabled:=False;
  espes.Enabled:=false;
  enabat.Enabled:=false;
  eharbat.Enabled:=false;
  ebiaya.Enabled:=false;
  etot.Enabled:=false;
  eppn.enabled:=false;
  eukem.Enabled:=false;
  etotba.Enabled:=false;
  cmbdok.Items.Add('DRD01');
  cmbdok.Items.Add('DRJ02');
  cmbdok.Items.Add('DRM03');
  bersih;
  aktif;
end;

procedure TForm1.cmbdokChange(Sender: TObject);
begin
if cmbdok.Text='DRD01' then
begin
edok.Text:='dr. Okta';
espes.Text:='Penyakit Dalam';
ebiaya.Text:='2000000';
end
else
if cmbdok.Text='DRJ02' then
begin
edok.Text:='dr. Yondra';
espes.Text:='Gangguan Jiwa';
ebiaya.Text:='150000';
end
else if cmbdok.Text='DRM03' then
begin
edok.Text:='dr. Wulan';
espes.Text:='Mata';
ebiaya.Text:='1000000';
end
else
begin
edok.Text:='-';
espes.Text:='-';
ebiaya.Text:='0';
end
end;


procedure TForm1.ekobatKeyPress(Sender: TObject; var Key: Char);
begin
if ekobat.Text='B001' then
begin
enabat.Text:='Paracetamol';
eharbat.Text:='10000'
end
else
if ekobat.Text='B002' then
begin
enabat.Text:='Paratusin';
eharbat.Text:='12000'
end
else
if ekobat.Text='B003' then
begin
enabat.Text:='Amoxilin';
eharbat.Text:='15000'
end
else
begin
enabat.Text:='-';
eharbat.Text:='0';
end
end;

procedure TForm1.btnhitungClick(Sender: TObject);
var
dokter, obat : Integer;
total, toba, ppn : real;
begin
dokter:=StrToInt(ebiaya.Text);
obat:=StrToInt(eharbat.Text);
total:=dokter+obat;
etot.Text:=FloatToStr(total);
ppn:=total*0.1;
eppn.Text:=FloatToStr(ppn);
toba:=total+ppn;
etotba.text:=FloatToStr(toba);
end;

procedure TForm1.eubayKeyPress(Sender: TObject; var Key: Char);
var
toba, bayar, kembali:Integer;
begin
if key=#13 then
begin
toba:=strtoint(etotba.Text);
bayar:=strtoint(eubay.Text);
kembali:=bayar-toba;
if (bayar<toba) then
begin
showmessage('Maaf, uang anda kurang Rp.' + inttostr(toba-bayar));
eubay.Text:='';
eubay.SetFocus;
end
else
eukem.Text:=inttostr(kembali);

end
end;


procedure TForm1.btnkeluarClick(Sender: TObject);
begin
if application.MessageBox('Yakin Mau Keluar?','Konfirmasi',mb_yesno)=idyes
then
close;
end;

procedure TForm1.btnbersihClick(Sender: TObject);
begin
  cmbdok.Text:='Pilih Kode Dokter';
  edok.Text:='';
  espes.Text:='';
  ebiaya.Text:='';
  ekobat.Text:='';
  enabat.Text:='';
  eharbat.Text:='';
  etot.Text:='';
  eppn.Text:='';
  etotba.Text:='';
  eubay.Text:='';
  eukem.Text:='';
  cmbdok.SetFocus;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  etgl.text:=FormatDateTime('dd-mm-yyyy',date);
  ejam.text:=FormatDateTime('hh:mm:ss',time);
end;

end.