Procedure TForm1.Button1Click(Sender: TObject);

var a: integer;

ket: string;

Begin

a : =StrToInt(edit1.Text);

if (a mod 2 = 0) and (a > 0) then

ket : = ‘Bilangan Genap positif’

else if (a mod 2 = 0) and (a < 0)  then

ket : = ‘Bilangan Genap negatif’

else if (a mod 2 = 1) and (a > 0) then

ket : = ‘Bilangan Ganjil positif’

else ket : = ‘Bilangan Ganjil negatif’;

label2.Caption : = ket;

end;

end.

Mysql>Use Rumah_Sakit;

Mysql>create table dokter (Nama varchar(10),Nip varchar(9),Jenis_Kelamin varchar(16),Spesialisasi varchar(10),Alamat varchar(15),Jadwal_Praktek varchar(10));

Mysql>desc dokter;

Mysql>create table perawat (Nama varchar(10),Nip varchar(9),Jenis_Kelamin varchar(6),Alamat varchar(15),Jadwal_Jaga varchar(10));

Mysql>desc perawat;

Mysql>create table pasien(Nama varchar(10),Alamat varchar(15),Jenis_Kelamin varchar(6),Jenis_Penanganan varchar(10),Ruang_Perawatan varchar(7));

Mysql>desc pasien;

Mysql>create table Rekam_Medis(Nama_Dokter varchar(10),Nama_Pasien varchar(10),Alamat_Dokter varchar(15),Alamat_Pasien varchar(15),Jenis_Penanganan varchar(10),Ruang_Perawatan varchar(7));

Mysql>desc Rekam_Medis;