Aplikasi administrasi pasien menggunakan
aplikasi delphi
TForm1 = class(TForm)
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
RadioButton1:
TRadioButton;
RadioButton2:
TRadioButton;
RadioButton3:
TRadioButton;
Edit5: TEdit;
RadioButton4:
TRadioButton;
RadioButton5:
TRadioButton;
RadioButton6:
TRadioButton;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
procedure
Edit2Change(Sender: TObject);
procedure
RadioButton1Click(Sender: TObject);
procedure
RadioButton2Click(Sender: TObject);
procedure
RadioButton3Click(Sender: TObject);
procedure
RadioButton4Click(Sender: TObject);
procedure
RadioButton5Click(Sender: TObject);
procedure
RadioButton6Click(Sender: TObject);
procedure
Edit8Change(Sender: TObject);
procedure
Edit10Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit12.text:='';
edit9.text:='';
edit10.text:='';
edit11.text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text='basuki'then
begin
edit3.Text:='hiv';
edit4.Text:='b24';
end
else
if edit2.Text='dian'then
begin
edit3.Text:='retensio plasenta dengan pendarahan';
edit4.Text:='O72.0';
end
else
if edit2.text='inem'then
begin
edit3.Text:='katarak';
edit4.Text:='H26.9';
end
else
if edit2.text='oni'then
begin
edit3.Text:='CHF';
edit4.Text:='I50.0';
end
else
if edit2.text='camat'then
begin
edit3.Text:='Tb paru';
edit4.Text:='A16.2';
end
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
edit5.Text:='dr. ferdiansyah, Sp.M'
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
EDIT5.Text:='dr. Agus Sutanto, Sp.Pd'
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
edit5.Text:='dr. Mareti Pandan Ayu, Sp. OG'
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
edit6.Text:='Kelas 1';
edit7.Text:='300000';
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
EDIT6.TEXT:='Kelas 2';
edit7.Text:='150000';
end;
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
edit6.Text:='Kelas 3';
edit7.text:='100000';
end;
procedure TForm1.Edit8Change(Sender: TObject);
begin
edit12.Text:=floattostr(strtofloat('0'+edit7.Text)*strtofloat('0'+edit8.Text));
end;
procedure TForm1.Edit10Change(Sender: TObject);
begin
edit11.Text:=floattostr(strtofloat('0'+edit12.Text)+strtofloat('0'+edit9.Text)
+strtofloat('0'+edit10.Text));
end;
end.