data base rumah sakit dengan sql 2000

1.      Membuat Database

ketentuan pembuatan database :

CREATE DATABASE [Nama databasemu];

contoh:

create database Rumahsakit;

use rumahsakit;

 ketentuan pembuatan Tabel :

CREATE TABLE [Nama tablemu] ( [nama column] [type column];

contoh:

a.       Tabel Pasien

create table Tpasien(

            Kd_pasien char (10)primary key not null,    Nm_pasien varchar (50),

            Tgl_lahir datetime,     Alamat varchar (100)

);

 

a.       Tabel Dokter

create table Tdokter(

      Kd_dokter char (10)primary key not null,Nm_dokter varchar (50),

      jenis varchar (50),Alamat varchar (100)

Tabel dengan atribut –atribut yang telah ditentukan

);

a.       Tabel Obat

create table Tobat(

      Kd_obat char (10)primary key not null,

      Nm_obat varchar (50),

      Harga float

);

 

a.       Tabel Kamar

create table Tkamar(

   Kd_Kamar char (10)primary key not null,

   Status char(1),

   Harga  float

);

Tabel Penyakit

create table Tpenyakit(

   Kd_Penyakit char (10)primary key not null,

   Nama Varchar(40),

 );

Tabel Detil Penyakit

create table Dtl_penyakit(   Kd_Penyakit char (10)foreign key references Tpenyakit,

   Kd_obat char(10)foreign key references Tobat

Tabel dengan atribut –atribut yang telah ditentukan

 );

 

Table Transaksi

create table Transaksi(Kd_transaksi char(10)primary key not null, Tgldatang datetime,Lama int,

Kd_pasien char(10)foreign key references Tpasien, Kd_kamar char(10)foreign key references Tkamar, Total float, Status char(1));

Table detail Transaksi

create table Dtltransaksi(

Kd_transaksi char(10)foreign key references Transaksi,

Kd_penyakit char(10)foreign key references Tpenyakit,

Kd_dokter char(10)foreign key references Tdokter,

Kd_obat char(10)foreign key references Tobat,

habis int,

Tabel dengan atribut –atribut yang telah ditentukan

);

 

Menginput, Menampilkan, Mengupdate dan Menghapus data

-          Menginput data

Bentuk dari unsure input data:

·         INSERT INTO namatabel VALUES (value);

·         INSERT INTO namatabel (kolom tabel) VALUES (value);

-          Menampilkan data

·         SELECT *  FROM namatabel WHERE kriteria;

·         SELECT namakolom, namakolom,… FROM namatabel WHERE kriteria;

Mengupdate data

       UPDATE namatabel SET namakolom=value WHERE keriteria;

Menghapus data

DELETE FROM namatabel WHERE keriteria; 

Menginput, Menampilkan, Mengupdate dan Menghapus data Tabel Dokter

n  Input data

 insert into Tdokter values('Dk000001','Irwan','Umum','jln. Kelelinci N0.5');

insert into Tdokter values('Dk000002','Nia','Umum','jln. Readan mas No.106');

insert into Tdokter values('Dk000003','Arya','Liver','jln. botoban No. 15');

insert into Tdokter values('Dk000004','Ahmad','Kulit','jln. karang asem No. 009');

insert into Tdokter values('Dk000005','Imam','Jantung','jln. Pantura No. 75');

insert into Tdokter values('Dk000006','Ina','Kanker','jln. Sukasari No. 45');

select * from Tdokter;

n  Update data

Update Tdokter set Nm_dokter='Dr.Irwan' Where Kd_dokter='Dk000001';

select * from Tdokter;

n  Menghapus data

Delete from Tdokter where Kd_dokter= 'Dk000001';

a.       Menginput, Menampilkan, Mengupdate dan Menghapus data Tabel Kamar

n  Input data

insert into Tkamar values('K000001','-','20000');

insert into Tkamar values('K000002','-','19000');

insert into Tkamar values('K000003','-','26000');

select * from Tkamar;

n  Update data

Update Tkamar set Status='1' Where Kd_kamar='K000002';

select * from Tkamar;

n  Hapus data

Delete from Tkamar where Kd_kamar= 'K000003';

Tampilan Data Input

select * from Tkamar;

a.       Menginput, Menampilkan, Mengupdate dan Menghapus data Tabel Obat

n  Input data obat

insert into Tobat values('OBT0001','minigrip','3000');

insert into Tobat values('OBT0002','kinai','5000');

insert into Tobat values('OBT0003','bikansi','13000');

select * from Tobat;

n  Update data obat

Update Tobat set harga= '7000' where Kd_obat='OBT0002';

select * from Tobat;

n  delete data

delete  Tobat where  Kd_obat='OBT0003';

select * from Tobat;

a.       Menginput, Menampilkan, Mengupdate dan Menghapus data Tabel Penyakit

n  Input Data penyakit

insert into TPenyakit values('Pynk00001','jantung koroner')

insert into TPenyakit values('Pynk00002','Leokimia')

insert into TPenyakit values('Pynk00003','Bronkitis')

insert into TPenyakit values('Pynk00004','Tulang Patah')

select * from TPenyakit;

n  Update data   Penyakit

Update TPenyakit set Nama= 'Kanker Otak'where Kd_Penyakit='Pynk00003';

select * from TPenyakit;

n  Menghapus Data penyakit

Delete Tpenyakit where Kd_Penyakit='Pynk00004';

Tampilan Data Input

select * from TPenyakit;

a.       Menginput, Menampilkan, Mengupdate dan Menghapus data Detail  Penyakit

n  Input Data Detil Penyakit

insert into Dtl_penyakit values ('Pynk00001','OBT0001');

insert into Dtl_penyakit values ('Pynk00001','OBT0002');

insert into Dtl_penyakit values ('Pynk00003','OBT0001');

SELECT Dtl_penyakit.Kd_penyakit,Dtl_penyakit.Kd_obat ,Tpenyakit.Nama, Tobat.Nm_obat,Tobat.Harga

FROM Tobat INNER JOIN (Tpenyakit INNER JOIN Dtl_penyakit ON Tpenyakit.Kd_penyakit = Dtl_penyakit.Kd_penyakit )

ON Tobat.Kd_obat = Dtl_penyakit.Kd_obat;

n  Update  Data Detil Penyakit

Update Dtl_penyakit set kd_obat='OBT0005' where kd_Penyakit='Pynk00001' and kd_obat='OBT0001';

SELECT Dtl_penyakit.Kd_penyakit,Dtl_penyakit.Kd_obat ,Tpenyakit.Nama, Tobat.Nm_obat,Tobat.Harga FROM Tobat INNER JOIN (Tpenyakit INNER JOIN Dtl_penyakit ON Tpenyakit.Kd_penyakit = Dtl_penyakit.Kd_penyakit )

ON Tobat.Kd_obat = Dtl_penyakit.Kd_obat;

n  Menghapus Data Detai Penyakit

Delete Dtl_penyakit where kd_Penyakit='Pynk00003' and kd_obat='OBT0001';

SELECT Dtl_penyakit.Kd_penyakit,Dtl_penyakit.Kd_obat ,Tpenyakit.Nama, Tobat.Nm_obat,Tobat.Harga FROM Tobat INNER JOIN (Tpenyakit INNER JOIN Dtl_penyakit ON Tpenyakit.Kd_penyakit = Dtl_penyakit.Kd_penyakit )

ON Tobat.Kd_obat = Dtl_penyakit.Kd_obat;

a.       Menginput, Menampilkan, Mengupdate dan Menghapus data Pasien

n  Input Data Pasien

insert into TPasien values ('Ps00001','Ani','10/03/1994','Banduangn');

insert into TPasien values ('Ps00002','Yatemi','10/04/1997','Lamung');

insert into TPasien values ('Ps00003','Rizal','10/01/1990','Banyu Wangi');

select * from Tpasien;

n   Update Data Pasien

Update Tpasien set Nm_pasien='Kamil' where Kd_pasien='Ps00002';

select * from Tpasien;

n  Delete Data Pasien

Delete tpasien  where Kd_pasien='Ps00002'

select * from Tpasien;

a.       Menginput, Menampilkan dan Mengupdate  data Transaksi

n  Input Data transaksi

insert into Transaksi values ('Trx00001','10/03/2012','4','Ps00001','Dk000002','K000002','100000','-');

insert into Transaksi values ('Trx00002','10/03/2012','4','Ps00003','Dk000002','K000001','100000','-');

select * from Transaksi;

n  Update Data Tarnsaksi

Update Transaksi set Status='1' where Kd_transaksi='Trx00001';

select * from Transaksi;

Tampilan Data Input

 

 

a.       Menginput, Menampilkan dan Mengupdate  data Detail  Transaksi

n  input data

insert into Dtltransaksi values ('Trx00001','Pynk00001','Dk000002','OBT0002','10');

insert into Dtltransaksi values ('Trx00001','Pynk00002','Dk000004','OBT0004','4');

select * from Dtltransaksi;

n   Update data

Update Dtltransaksi set habis='7' where Kd_transaksi='Trx00001' and  Kd_penyakit='Pynk00002';

select * from Dtltransaksi;

Sistem Join dalam Sql server

A.     JOIN

Menampilkan gabungan dua tabel  atau lebih Menjadi satu dengan syarat relasi

Macam-macam  join

1.      Inner join

 Menampilkan gabungan dua tabel  atau lebih dimana tabel yang memiliki foreign key di jadikan patokan untuk menampilakan data.

Contoh :

SELECT Tpenyakit.kd_penyakit, Tpenyakit.Nama, Tobat.Nm_obat,Tobat.harga FROM Tpenyakit INNER JOIN (tobat INNER JOIN Dtl_penyakit ON tobat.kd_obat = Dtl_penyakit.kd_obat) ON Tpenyakit.kd_penyakit = Dtl_penyakit.kd_penyakit

1.      left join

Menampilkan gabungan dua tabel  atau lebih dimana tabel yang pertama dijadikan patokan tampilan data. Berapa punjumlah data di tabel itu maka akan di tampilkan semua.

contoh:

select * from tkamar left JOIN Transaksi on Transaksi.kd_kamar =tkamar.Kd_Kamar

select * from Transaksi left JOIN tkamar on Transaksi.kd_kamar =tkamar.Kd_Kamar

 

1.      left join

Menampilkan gabungan dua tabel  atau lebih dimana tabel yang kedua dijadikan patokan tampilan data. Berapa punjumlah data di tabel itu maka akan di tampilkan semua.

View dalam sql server

a.      Struktur / Bentuk Susunan View

-          Cara membuat

create view (nama view) as (system select atau join)

contoh 1 :

 create view VTransaksi as select * from transaksi

create view penyakit as SELECT Tpenyakit.kd_penyakit, Tpenyakit.Nama, Tobat.Nm_obat,Tobat.harga FROM Tpenyakit INNER JOIN (tobat INNER JOIN Dtl_penyakit ON tobat.kd_obat = Dtl_penyakit.kd_obat) ON Tpenyakit.kd_penyakit = Dtl_penyakit.kd_penyakit

 

-          Cara menampilkan  

cara menampilkan view sama seperti menampilkan tabel

contoh :

Hasil Tampilan

select * from Penyakit

Posted in: data base,data base rumah sakit dengan sql 2000,database,gendon,gendoncorporation,sql