Perhitungan Pembiayaan RS Menggunakan Delphi

Listingnya :

unit Rumah_sakit_bakti_insan;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Cmbkddokter: TComboBox;

    Enama: TEdit;

    Espesialis: TEdit;

    Ebiaya: TEdit;

    GroupBox1: TGroupBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Ekodeobat: TEdit;

    Enamaobat: TEdit;

    Eharga: TEdit;

    Btobay: TButton;

    Etobay: TEdit;

    Label9: TLabel;

    Label10: TLabel;

    Eubay: TEdit;

    Ekembali: TEdit;

    Bkeluar: TButton;

    Bbersih: TButton;

    procedure FormCreate(Sender: TObject);

    procedure CmbkddokterClick(Sender: TObject);

    procedure EkodeobatKeyPress(Sender: TObject; var Key: Char);

    procedure EtobayClick(Sender: TObject);

    procedure BkeluarClick(Sender: TObject);

    procedure BbersihClick(Sender: TObject);

    procedure EubayKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Cmbkddokter.Items.Add('DRD01');

Cmbkddokter.Items.Add('DRJ02');

Cmbkddokter.Items.Add('DRM03');

end;

procedure TForm1.CmbkddokterClick(Sender: TObject);

begin

if Cmbkddokter.Text='DRD01' then

begin

Enama.Text:='dr. Oka';

Espesialis.Text:='Penyakit Dalam';

Ebiaya.Text:='2000000';

end

else if Cmbkddokter.Text='DRJ02' then

begin

Enama.Text:='dr. Yondra';

Espesialis.Text:='Gangguan Jiwa';

Ebiaya.Text:='150000';

end

else if Cmbkddokter.Text='DRM03' then

begin

Enama.Text:='dr. Wulan';

Espesialis.Text:='Mata';

Ebiaya.Text:='1000000';

end

else

begin

Enama.Text:='-';

Espesialis.Text:='-';

Ebiaya.Text:='0';

end

end;

procedure TForm1.EkodeobatKeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

if Ekodeobat.Text='B001' then

begin

Enamaobat.Text:='Paracetamol';

Eharga.Text:='10000';

end

else if Ekodeobat.Text='B002' then

begin

Enamaobat.Text:='Paratusin';

Eharga.Text:='12000';

end

else if Ekodeobat.Text='B003' then

begin

Enamaobat.Text:='Amoxilin';

Eharga.Text:='15000';

end

else

begin

Enamaobat.Text:='-';

Eharga.Text:='0';

end

end;

procedure TForm1.EtobayClick(Sender: TObject);

var biaya,harga,tobay : longint;

begin

  biaya:=strtoint(Ebiaya.Text);

  harga:=strtoint(Eharga.Text);

  tobay:=biaya+harga;

  Etobay.Text:=inttostr(tobay);

  Eubay.SetFocus;

end;

procedure TForm1.BkeluarClick(Sender: TObject);

begin

  IF application.MessageBox('Yakin akan keluar dari program ini?','Informasi',mb_okcancel)=idok then

  begin

    close;

    end

    else

      begin

      exit;

      end;

end;

procedure TForm1.BbersihClick(Sender: TObject);

begin

Cmbkddokter.Text:='Pilih Kode Dokter';

Enama.Text:=' ';

Espesialis.Text:=' ';

Ebiaya.Text:=' ';

Ekodeobat.Text:=' ';

Enamaobat.Text:=' ';

Eharga.Text:=' ';

Etobay.Text:=' ';

Eubay.Text:=' ';

Ekembali.Text:=' ';

end;

procedure TForm1.EubayKeyPress(Sender: TObject; var Key: Char);

var ubay,kembali,tobay : longint;

begin

if key=#13 then

  begin

  tobay:=strtoint(Etobay.Text);

  ubay:=strtoint(Eubay.Text);

  kembali:=ubay-tobay;

   if (ubay<tobay) then

   begin

   showmessage('Maaf Uang Anda Kurang Rp. ' + inttostr(tobay-ubay));

   Eubay.Text:='';

   Eubay.SetFocus;

   end

   else

   Ekembali.Text:=inttostr(kembali);

  end

end;

end.

Maka setelah jadi tampilannya akan seperti ini :