Tugas terstruktur 2 manipulasi Database Rumah Sakit Dengan Visual Basic

Tugas Terstruktur 2
Kembali lagi dengan kami berdua Normiyati dan Rini Wahyuningsih, di tugas Terstruktur 2 Sistem Basis Data.
Disini kami akan mencoba untuk menguraikan atau menjelaskan langkah-langkah atau cara Manipulasi Data dengan menggunakan My SQL.
Dalam penjelasan ini kami juga menggunakan Aplikasi atau Bahasa Pemograman Visual Basic 6.0, karena sesuai dengan apa yang telah kami pelajari,
dan instruksi dari dosen yaitu Bapak Farly Detrias, S.Kom selaku dosen mata kuliah Sistem Basis Data.
Langsung saja kita mulai untuk langkah-langkahnya seperti dibawah ini :
Pertama-tama kami akan menjelaskan apa saja perintah-perintah yang ada pada My SQL, yaitu :

1. Perintah DDL (Data Definition Language) iyalah perintah untuk mendefenisikan suatu database.
Perintah-perintah yang termasuk dalam DDL yaitu CREATE, ALTER, RENAME dan DROP.

2. Perintah DML (Data Manipulation Language) iyalah perintah untuk memanipulasi suatu database.
Perintah-perintah yang termasuk dalam DML yaitu SELECT, INSERT UPDATE, dan DELETE.

3. Perintah DCL (Data Control Language) iayalah perintah untuk komponen bahasa DBMS yang digunakan untuk mengatur perekaman atau penyimpanan data secara fisik, lebih tepatnya iyalah untuk mengontrol data pada suatu database.
Perintah-perintah yang termasuk dalam DCL iyalah GRANT dan REVOKE.

Disini yang akan kita bahas terlebih dahulu dengan Perintah Manipulasi (DML) dalam SQL, diantaranya ialah :

1. SELECT
    SELECT disini merupakan perintah untuk menampilkan isi atau record dari suatu tabel.
Contoh Penggunaan SELECT yaitu :
    SELECT * From Pasien;
Dimana tampilannya yaitu seperti dibawah ini :

Gambar 1.1 Tampilan Perintah SELECT

2. INSERT
    INSERT ialah perintah untuk menambah atau memasukkan record kedalam tabel.
Contoh penggunaan INSERT yaitu :
   1.  INSERT  INTO  nama_tabel VALUES  (‘nilai1’,’nilai2’,’nilai3’,…’);
   2.  INSERT  INTO  nama_tabel ( field1, field2, field3, … ) VALUES (‘nilai1’,’nilai2’,’nilai3’,… );
   3.  INSERT  INTO  nama_tabel SET field1=’nilai1’, field2=’nilai2’, field3=’nilai3’, … ;

    INSERT INTO pasien set kode_pasien='20013',nama_pasien='Micha',Jenis_kelamin='P',gol_darah='B',umur='22',alamat='Sepakat 1';
jika perintah diatas berhasil dieksekusi maka akan muncul pesan :

    Query OK, 1 row affected (0.13 sec)

dimana tampilannya ialah seperti dibawah ini :

Gambar 1.2 Tampilan Perintah Insert

3. UPDATE
    UPDATE ialah merupakan perintah untuk merubah inputan record pada suatu tabel.
Contoh penggunaan UPDATE yaitu :
    UPDATE Pasien SET nama_dokter=’MimiRomi’ WHERE nama_dokter='Micha';

jika perintah diatas berhasil dieksekusi maka akan muncul pesan :

    Query ok, 2 rows affected (0.06 sec)
    Rows matched : 2 Changed : Warnings :0

dimana tampilannya ialah seperti dibawah ini :

Gambar 1.3 Tampilan Perintah UPDATE

4. DELETE
    ialah merupakan perintah untuk menghapus tabel pada suatu database.
Contoh penggunaan perintah DELETE yaitu :
    DELETE FROM Pasien WHERE kode_pasien='20011';
jika perintah diatas berhasil dieksekusi maka akan tampil pesan seperti dibawah ini :

Query Ok, 1 row affected (0.06 sec)

dimana tampilannya ialah seperti dibawah ini :

Gambar 1.4 Tampilan Perintah Delete

5. ALTER
    Ialah merupakan perintah untuk mengubah suatu struktur tabel.
ada beberapa jenis perintah ALTER yaitu
Contoh penggunaan perintah ALTER ialah :
    ALTER TABLE pasien ADD telpon text (15);

jika perintah diatas berhasil dieksekusi maka akan tampil pesan :

Query Ok, 2 rows affected (0.59 sec)

dimana tampilan dari perintah diatas yaitu seperti dibawah ini :

Gambar 1.5 Tampilan Perintah ALTER

Dalam Visual Basic 6.0 iyalah seperti dibawah ini :

Visual Basic 6.0 merupakan suatu bahasa pemograman yang sangat dikenal, sebuah aplikasi yang dapat melakukan manipulasi data dalam basis data.
Didalam lingkungan Visual Basic terdiri dari beberapa menu khusus yaitu diantaranya Toolbox, Toolbar, Form Windows, Project Explore, Jendela Properties, Form Layout Window, dan Jendela kode.
1.    Toolbox yaitu suatu objetc yang akan menjadi penghubung antara program aplikasi dan menggunakannya, dan kesemuaannya harus diletakkan didalam jendela form.
2.    Toolbar merupakan sebuah batang yang berisi kumpulan tombol yang terletak dibagian bawah menu bar yang dapat digunakan untuk menjalankan suatu perintah.
3.    Form Window yaitu daerah kerja utama, dimana dapat digunakan untuk membuat program-program aplikasi Visual Basic.
4.    Jendela Project Explore ialah jendela yang mengandung semua file didalam aplikasi visual basic.
5.    Jendela Properties adalah jendela yang mengandung semua informasi mengenai object yang terdapat pada aplikasi visual basic.
6.    Form Layout window merupakan sebuah jendela yang dipergunakan untuk mengatur posisi dari form pada form pada saat program dijalankan.
7.    Jendela kode adalah salah satu jendela yang paling penting didalam visual basic.
Disini kita membutuhkan Ms. Access untuk pembuatan database nya, Ms. Access juga aplikasi yang bisa digunakan untuk manipulasi data.
Database nya yaitu :

 Gambar 1.6 Tampilan Database Menggunakan Ms. Access

Sebelumnya kita buat dulu form yang dibutuhkan yaitu Form Pasien, Dokter, Kamar, Layanan dan Medical_record dan MDI from sebagai tampilan utama pada saat di jalankan.
setelah itu kita buat command-command yang dibutuhkan.
Dimana tampilan form dan Syntax nya iyalah seperti dibawah ini :

a.    Form Pasien

Gambar 1.7 Tampilan Form Pasien

Gambar 1.8 Tampilan Data Pasien

b.    Form Dokter

Gambar 1.9 Tampilan Form Dokter

Gambar 1.10 Tampilan Data Dokter

c.    Form Kamar

Gambar 1.11 Tampilan Form Kamar

Gambar 1.12 Tampilan Data Kamar

d.    Form Layanan

Gambar 1.13 Tampilan Form Layanan

Gambar 1.14 Tampilan Data Layanan

e.    Form Medikal Record (Catatan Medik Pasien)

Gambar 1.15 Tampilan Form Medical Record

Gambar 1.16 Tampilan Data Medical Record

Syntax atau perintah Form Load
Private Sub Form_Load()
Call KoNeK
cboKK.AddItem "K01-VIP"
cboKK.AddItem "K02-Kls1"
cboKK.AddItem "K03-Kls2"
cboKK.AddItem "K04-Kls3"
cboKK.AddItem "K05-Ekonomi"
Set TblMedicalRecord = New ADODB.Recordset
TblMedicalRecord.Open "select * from Medical_Record", conn, adOpenDynamic, adLockOptimistic
   
    'perintah SQL nya yaitu untuk menampilkan database ke datagrid
Set DataGrid1.DataSource = TblMedicalRecord

Dim list As ADODB.Recordset
Dim tulisan As String
tulisan = "select kode_layanan from Medical_Record"
Set list = conn.Execute("select jenis_layanan from Jenis_Layanan")
list.MoveFirst
While Not list.EOF
    cboKL.AddItem list(0)
    list.MoveNext
Wend
End Sub



Perintah untuk menampilkan tarif kamar ketika kode kamar Di pilih :
Private Sub cboKK_Change()
If cboKK.Text = "K01-VIP" Then
    txttarifk(0).Text = "300000"
ElseIf cboKK.Text = "K02-Kls1" Then
    txttarifk(0).Text = "250000"
ElseIf cboKK.Text = "K03-Kls2" Then
    txttarifk(0).Text = "200000"
ElseIf cboKK.Text = "K04-Kls3" Then
    txttarifk(0).Text = "150000"
ElseIf cboKK.Text = "K05-Ekonomi" Then
    txttarifk(0).Text = "100000"
End If
End Sub



Syntax atau perintah dari command baru iyalah:

    Private Sub cmdbaru_Click()
      txtkodep.Text = ""
      txtalamat.Text = ""
      txtdiagnosa.Text = ""
      txtresep.Text = ""
      cboKK.Text = ""
      txttarifk(0).Text = ""
      cboKL.Text = ""
      txttarifl(1).Text = ""
      txtkoded(0).Text = ""
      txttotal.Text = ""
      txtjumlah.Text = ""
      txtkembali.Text = ""
      txtkodep.SetFocus
    End Sub


Syntax dari command hapus iyalah :

Private Sub cmdhapus_Click()
On Error GoTo out
    If MsgBox("Apakah Data Ini Ingin Di Hapus", vbExclamation + vbYesNo) = vbYes Then
        TblMedical_Record.Delete
       'Perintah SQL Delete
    Else
        MsgBox "Data tidak jadi dihapus", vbInformation
    End If
Exit Sub
out:
End Sub


Syntax atau perintah untuk command Cari :

Private Sub Command1_Click()
Dim cari As ADODB.Recordset
If Combo1.Text = "Kode Pasien" Then
    Set cari = conn.Execute("select * from medical_record where kode_pasien='" & Text1.Text & "'")
    If Not cari.EOF Then
        Set DataGrid1.DataSource = cari
    Else
        MsgBox "Data tidak ditemukan"
        Set DataGrid1.DataSource = TblMedicalRecord
    End If
ElseIf Combo1.Text = "Alamat" Then
    Set cari = conn.Execute("select * from medical_record where alamat='" & Text1.Text & "'")
    If Not cari.EOF Then
        Set DataGrid1.DataSource = cari
    Else
        MsgBox "Data tidak ditemukan"
        Set DataGrid1.DataSource = TblMedicalRecord
    End If
End If
End Sub


Perintah untuk command Simpan :

Private Sub cmdsimpan_Click()
    With TblMedicalRecord
    .AddNew
    !tanggal_masuk = Date
    !kode_pasien = txtkodep.Text
    !alamat = txtalamat.Text
    !diagnosa = txtdiagnosa.Text
    !resep = txtresep.Text
    !kode_kamar = cboKK.Text
    !kode_layanan = cboKL.Text
    !kode_dokter = txtkoded(0).Text
    !tarif_Kamar = txttarifk(0).Text
    !Tarif_Layanan = txttarifl(1).Text
    !tanggal_keluar = Date
    .Update
    End With
End Sub

Syntax atau perintah untuk command keluar :

Private Sub cmdkeluar_Click()
pesan = MsgBox("anda yakin mau keluar???", vbQuestion + vbYesNo, "konfirmasi")
If pesan = vbYes Then
    Unload Me
Else
    Cancel = 0
End If
End Sub


Disini kita membutuhkan 1 Form khusus untuk mewakili atau menampilkan form-form diatas yaitu yang disebut dengan MDI form, dan module untuk melakukan koneksi antara database access dengan masing-masing form pada Visual Basic.
Dimana tampilannya iyalah sebagai berikut:

1.    MDI Form

Jika tampilan nya telah di pilih maka tampilan nya seperti dibawah ini :

Gambar 1.20 Tampilan MDI Form Pilihan

 Perintah yang ada di MDI Form Pilihan Transaksi :
Private Sub DOKTER_Click(index As Integer)
FormDokter.Show
End Sub

Private Sub keluar_Click()
    End
End Sub

Private Sub MDIForm_Load()
MDIForm1.Visible = True
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then
   PopupMenu MnuFile
End If
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not Me.ActiveForm Is Nothing Then
   MsgBox "Masih ada Form yang aktif"
   Cancel = True
End If
End Sub

Private Sub MEDICAL_RECORD_Click(index As Integer)
FormMedicalRecord.Show
End Sub

Private Sub Menu_Kamar_Click()
FormKamar.Show
End Sub

Private Sub Menu_Layanan_Click()
FormJenisLayanan.Show
End Sub

Private Sub PASIEN_Click(index As Integer)
FormPasien.Show
End Sub


2.    Koneksi Module

Public conn As ADODB.Connection
Public TblKamar As ADODB.Recordset
Public TblDokter As ADODB.Recordset
Public TblJenisLayan As ADODB.Recordset
Public TblMedicalRecord As ADODB.Recordset
Public TblPasien As ADODB.Recordset

Public Sub KoNeK()
'On Error GoTo out
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\RUMAH_SAKIT.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
'out:
'MsgBox "Koneksi gagal..!!"
'End
End Sub


Demikianlah beberapa penjelasan mengenai penggunaan perintah Manipulasi di My SQL dan pembuatan prgram dengan Visual Basic 6.0 yang dapat kami jelaskan, mohon maaf jika ada kesalahan atau kekurangan,
karena kami juga masih dalam tahap pembelajaran dan belum terlalu mahir dalam menggunakan SQL dan VB. Terimakasih kepada bapak Farly Detrias selaku dosen Mata Kuliah Sistem Basis Data ini yang telah memberikan waktu kepada kami.
Semoga tugas terstruktur ini dapat bermanfaat untuk kita semua, kami sangat membutuhkan kritik dan saran yang sifatnya membangun, agar dikemudian hari dapat membuat tugas yang lebih baik lagi.
Wassalamualaikum wr...wb...!!
Kuliah...?
BSI Aja !!
Chayooo..!!!!

C_U   Bye...

Normiyati 12080189
Rini wahyuningsih 12080188