Uzlimach's Weblog

Sistem Basis Data1

uzlimach — Tue, 27 May 2008 12:13:51 +0000

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!

uzlimach — Wed, 02 Apr 2008 01:16:54 +0000

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

Sistem Basis Data

uzlimach — Tue, 01 Apr 2008 03:09:54 +0000

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

uzlimach — Tue, 01 Apr 2008 02:12:48 +0000

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;