PROGRAM TUGAS BAHASA PEMROGRAMAN 1(Delphi)

TUGAS

BAHASA PEMROGRAMAN 1(Delphi)

PENYUSUN

FREKUENSI  :BP 1.6

    SULAIMAN : 13020120207                    

PROGRAM STUDI TEKNIK INFORMATIKA

FAKULTAS ILMU KOMPUTER

UNIVERSITAS MUSLIM INDONESIA

MAKASSAR

2013

LOG IN

MAIN MENU

DATA PASIEN

DATA DOKTER

CHECK IN

CHECK OUT

DATA PASIEN

DATA DOKTER

DATA CHECK IN

CHECK OUT

LOGIN

begin

if (edit1.Text<>'umi') and (edit2.Text<>'fikom')

then

begin

 application.messagebox('password anda salah','warning',0)    ;

 exit;

 end

 else

 form7.hide;

 form8.show;

end;

CLOSE

procedure TForm7.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

end.

SAVE

var

jk: string;

begin

ADOTable1.append;

ADOTable1.fieldbyname('NAMA PASIEN').asstring:=edit1.text;

ADOTable1.fieldbyname('ALAMAT').asstring:=edit2.Text;

ADOTable1.fieldbyname('TGL LAHIR').asstring:=edit3.Text;

if radiobutton1.checked=true then

begin

jk:='LAKI-LAKI';

end

else if radiobutton2.checked=true then

     begin

     jk:='PEREMPUAN';

     end;

ADOTable1.fieldbyname('JENIS KELAMIN').asstring:=jk;

ADOTable1.fieldbyname('PENYAKIT').asstring:=edit5.text;

ADOTable1.post

end;

end.

DELETE

begin

if messagedlg('hapus data  ?',mtconfirmation,

[mbyes,mbno],0)=mryes then ADOtable1.Delete;

end;

EXIT

begin

application.Terminate;

end;