Tugas IMK

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.