unit U.lier;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
kode_dokter: TComboBox;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label8: TLabel;
Button1: TButton;
Edit7: TEdit;
Button2: TButton;
Button3: TButton;
Edit8: TEdit;
Edit9: TEdit;
Button4: TButton;
Button5: TButton;
kode_obat: TComboBox;
Label9: TLabel;
Edit4: TEdit;
Button6: TButton;
Edit10: TEdit;
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure kode_dokterClick(Sender: TObject);
procedure kode_obatClick(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Button4Click(Sender: TObject);
begin
kode_dokter.Text:='pilihan';
edit1.clear;
edit2.Clear;
edit3.text:='0';
edit4.Text:='0';
edit10.Text:='0';
kode_obat.Text:='pilihan';
edit5.Clear;
edit6.Text:='0';
edit7.Text:='0';
edit8.Text:='0';
edit9.Text:='0';
end;

procedure TForm1.kode_dokterClick(Sender: TObject);
begin
if kode_dokter.text='DRA02'then
begin
edit1.text:='anisa';
edit2.text:='anak';
edit3.text:='100000';
end
else
if kode_dokter.text='DRJ01'then
begin
edit1.text:='jojo';
edit2.text:='jantung';
edit3.text:='500000';
end
else
if kode_dokter.text='DRM03'then
begin
edit1.text:='jamrong';
edit2.text:='bedah';
edit3.text:='1000000';
end;
end;




procedure TForm1.kode_obatClick(Sender: TObject);
begin
if kode_obat.text='BD'then
begin
edit5.text:='bodrek';
edit6.text:='5000';
end
else
if kode_obat.text='PR'then
begin
edit5.text:='paramek';
edit6.text:='4000';
end
else
if kode_obat.text='ST'then
begin
edit5.text:='stop cold';
edit6.text:='3000';
end;
end;




procedure TForm1.Button6Click(Sender: TObject);
begin
edit10.Text:=floattostr(strtofloat(edit6.Text)*strtofloat(edit4.Text));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit7.Text:=floattostr(strtofloat(edit3.Text)+ strtofloat(edit10.Text));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit9.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit7.Text));
end;

end.