program mencari biaya padasuatu rumah sakit

nama : wahyudin nur zaman
kelas : 12 4c06
nim : 12125633

koding

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    e_nmdokter: TEdit;
    e_spesialis: TEdit;
    e_bypriksa: TEdit;
    e_total: TEdit;
    e_ppn: TEdit;
    e_ttlbayar: TEdit;
    e_kdobat: TEdit;
    e_nmobat: TEdit;
    e_hrgobat: TEdit;
    e_ubay: TEdit;
    e_ukem: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox1: TComboBox;
    Timer1: TTimer;
    procedure ComboBox1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure e_nmdokterChange(Sender: TObject);
    procedure e_spesialisChange(Sender: TObject);
    procedure e_bypriksaChange(Sender: TObject);
    procedure e_kdobatKeyPress(Sender: TObject; var Key: Char);
    procedure e_hrgobatChange(Sender: TObject);
    procedure e_nmobatChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure e_ubayKeyPress(Sender: TObject; var Key: Char);
  
  private
    { Private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('DRD01');
  ComboBox1.Items.Add('DRJ02');
  ComboBox1.Items.Add('DRM03');

  ComboBox1.Text := '-Pilih-';
  e_nmdokter.Text := '';
  e_spesialis.Text := '';
  e_bypriksa.Text := '';
  e_total.Text:='';
  e_ppn.Text:='';
  e_ttlbayar.Text:='';
  e_kdobat.Text:='';
  e_nmobat.Text:='';
  e_hrgobat.Text:='';
  e_ubay.Text:='';
  e_ukem.Text:='';
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  if ComboBox1.Text='DRD01' then
   begin
    e_nmdokter.Text:='Dr Okta';
    e_spesialis.Text:='Penyakit Dalam';
    e_bypriksa.Text:='2000000';
    e_kdobat.SetFocus
  end
    else
     if ComboBox1.Text='DRJ02' then
       begin
        e_nmdokter.Text:='Dr Yondra';
        e_spesialis.Text:='Gangguan Jiwa';
        e_bypriksa.Text:='150000';
        e_kdobat.SetFocus
  end
    else
      if ComboBox1.Text='DRM03' then
       begin
        e_nmdokter.Text:='Dr Wulan';
        e_spesialis.Text:='Mata';
        e_bypriksa.Text:='1000000';
        e_kdobat.SetFocus
  end

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  if (application.MessageBox('Yakin Anda Mau Keluar ?','Konfirmasi',MB_YESNO)=ID_YES) then
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime ('dd-mmmm-yyyy',date);
  Label3.Caption := FormatDateTime('hh:MM:ss',time);
end;

procedure TForm1.e_nmdokterChange(Sender: TObject);
begin
e_nmdokter.Enabled:=false
end;

procedure TForm1.e_spesialisChange(Sender: TObject);
begin
e_spesialis.Enabled:=false
end;

procedure TForm1.e_bypriksaChange(Sender: TObject);
begin
e_bypriksa.Enabled:=false
end;

procedure TForm1.e_hrgobatChange(Sender: TObject);
begin
e_hrgobat.Enabled:=false
end;

procedure TForm1.e_nmobatChange(Sender: TObject);
begin
 e_nmobat.Enabled:=false
end;


procedure TForm1.e_kdobatKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if e_kdobat.Text ='B001' then
   begin
   e_nmobat.Text :='Paracetamol';
   e_hrgobat.Text :='10000'
  end
else
If e_kdobat.Text ='B002' then
   begin
   e_nmobat.Text :='Paratusin';
   e_hrgobat.Text :='12000'

  end
else
If e_kdobat.Text ='B003' then
    begin
    e_nmobat.Text :='Amoxilin';
    e_hrgobat.Text :='15000'

  end
else
    begin
    Application.MessageBox('KODE OBAT TIDAK ADA !!.','Ups!',
  MB_OK or MB_ICONEXCLAMATION);
    e_kdobat.Text :='';
    end

end;


procedure TForm1.BitBtn1Click(Sender: TObject);
var a,b,c,d,e:real;
  begin
    a:=strtofloat(e_hrgobat.Text);
    b:=strtofloat(e_bypriksa.Text);
    c:=a+b;
    d:=c*10/100;
    e:=c-d;

    e_total.Text:=Floattostr(c);
    e_ppn.Text:=FloatToStr(d);
    e_ttlbayar. Text:=Floattostr(e);
    e_ubay.SetFocus;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ComboBox1.Text := '-Pilih-';
  e_nmdokter.Text := '';
  e_spesialis.Text := '';
  e_bypriksa.Text := '';
  e_total.Text:='';
  e_ppn.Text:='';
  e_ttlbayar.Text:='';
  e_kdobat.Text:='';
  e_nmobat.Text:='';
  e_hrgobat.Text:='';
  e_ubay.Text:='';
  e_ukem.Text:='';

end;

procedure TForm1.e_ubayKeyPress(Sender: TObject; var Key: Char);
 var e,f,g:real;
begin
  If key=#13 then
    begin
    e:=strtofloat(e_ttlbayar.Text);
    f:=strtofloat(e_ubay.Text);

    if  f < e then
      begin
        messagedlg('Uang Bayar Anda Kurang !! ',mtconfirmation,[MBOK],0);
       e_ubay.Text:='';
       e_ubay.SetFocus;
      end
    else
      begin
        g:=f-e;
        e_ukem.Text:=FloatToStr(g);
        messagedlg('Terima Kasih ',mtconfirmation,[MBOK],0);
      end ;
  end ;
end ;

end.