ket:string;

Begin

a:=StrToint(edit1.text);

if(a mod 2=0) then

begin

if x>0 then ket:=’Genap Positif’

else ket:=’Genap Negatif’

and

else

if a<0 then ket:=’Ganjil Negatif

else ket:=’Ganjil Positif’;

label2.caption:=ket;

end;

end.

Dokter

Kode Dokter Integer 5

Nama varchar 10

Alamat varchar 15

jenis kelamin Enum ‘L’,’P’

usia Integer 5

Spesialis varchar 10

No telp Integer 12

Pasien

Kode Pasien Integer 5

Nama pasien varchar 15

Alamat varchar 12

jenis kelamin Enum ‘L’,’P’

usia Integer 5

No Telp Integer 12

Perawat

Kode Perawat Integer 5

Nama varchar 10

alamat varchar 15

jenis kelamin enum ‘L’,’P’

usia Integer 5

No Telepon Integer 12

Pemeriksaan

Kode pasien Integer 4

kode dokter integer 5

nama dokter varchar 10

nama pasien varchar 8

tanggal pemeriksaan integer 8

diagnosa varchar 6

tindakan varchar 7

RM

kode RM integer 6

kode pasien integer 7

kode perawat integer 8

kode kamar integer 4

nama pasien varchar 12

jenis kelamin enum ‘L’,’P’

usia integer 5

alamat varchar 15

waktu&tanggal date time 10

penyakit varchar 10

tindakan medis varchar 8

Kamar

kode kamar integer 5

nama ruang varchar 8

jenis penyakit varchar 10

kelas integer 3

jumlah dokter integer 5

jumlah pasien integer 4

kapaistas ruang integer 5

kode pasien integer 6