Sistem Basis Data1

var  a        : integer ;

      string : string ;

begin

a : = StrToInt(edit1.text);

if (a mod 0) then

      if (a >=0) then

              ket : ‘ Genap Positif ‘ ;

     else

              ket : ‘Genap Negatif ‘ ;

else

    if (a<=0) then

         ket : ‘Ganjil Negatif ‘;

    else

         ket : ‘Ganjil Positif ‘;

edit2.text := ket;

end;

end.

Halo dunia!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!

Sistem Basis Data

create database Rumah_Sakit_Pertiwi;

use Rumah_Sakit_Pertiwi;

create table dokter(Kode varchar(7), NIP varchar(5), Nama varchar(23), Spesialis varchar(20), Waktu_Praktek varchar(20));

desc dokter;

create table Perawat(Nama varchar(25), Jenis_Kelamin varchar(20), Waktu_Jaga varchar(23), Bidang varchar(20));

desc Perawat;

create table Pasien(Nama varchar(25), Jenis_Kelamin varchar(10), Umur varchar(5), Alamat varchar(20), Masuk_Hari_Tanggal varchar(20));

desc Pasien;

create table Reka_Medis(Dokter varchar(25), Nama_Pasien varchar(25), Alamat varchar(20), Penyakit varchar(25));

desc Reka_Medis;

create table Kamar(Nama varchar(25), Jenis_Kamar varchar(20), Harga varchar(23));

desc Kamar;

create table Pemeriksaan(Dokter varchar (25), Nama_Pasien varchar(25), Penyakit varchar(23), Ruang_Pemeriksaan varchar(20));

desc Pemeriksaan;

Sistem Basis Data

create database Rumah_Sakit_Pertiwi; 

use Rumah_Sakit_Pertiwi; create table Dokter(Kode varchar(7), NIP varchar(5), Nama varchar(25), Spesialis varchar(20), Waktu varchar(20));

desc Dokter;

create table Perawat(Nama varchar(25), Jenis_Kelamin varchar(15), Waktu_Jaga varchar(23), Bidang varchar(20));

desc Perawat;

create table Pasien(Nama varchar(25), Jenis_Kelamin varchar(15), Umur varchar(5), Alamat varchar(20), Masuk_Hari_Tanggal varchar(20));

desc Pasien;

create table Reka_Medis(Dokter varchar(25), Nama varchar(25), Alamat varchar(20), Penyakit varchar(25));  

desc Reka_Medis;  

create table Kamar(Nama varchar(25), Jenis_Kelamin varchar(20), Harga varchar(25));

desc Kamar;

create table Pemeriksaan(Dokter varchar(25), Nama_Pasien varchar(25), Penyakit varchar(20), Ruang_Pemeriksaan varchar(15));

desc Pemeriksaan;