Tugas terstruktur 2 manipulasi mysql

Manipulasi Database Rumah Sakit Dengan Visual Basic
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 manipulasi yang ada pada My SQL, yaitu :
1. Perintah DDL (Data Definition Language) yang terdiri dari CREATE, ALTER, RENAME dan DROP.

2. Perintah DML (Data Manipulation Language) yang terdiri dari SELECT, INSERT UPDATE, dan DELETE.

3. Perintah DCL (Data Control Language) yang terdiri dari GRANT dan REVOKE.

Disini yang akan kita bahas yaitu Perintah Manipulasi (DML), diantaranya ialah dibawah ini :

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 :






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)







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.1 Tampilan Database 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.2 Tampilan Form Pasien

Gambar 1.3 Tampilan Data Pasien

b. Form Dokter

Gambar 1.4 Tampilan Form Dokter

Gambar 1.5 Tampilan Data Dokter

c. Form Kamar

Gambar 1.6 Tampilam Form Kamar

Gambar 1.7 Tampilan Data Kamar

d. Form Layanan

Gambar 1.8 Tampilan Form Jenis Layanan

Gambar 1.9 Tampilan Data Jenis Layanan

e. Form Medikal Record (Catatan Medik Pasien)

Gambar 1.9 Tampilan Form Medical Record

Gambar 1.10 Tampilan Data Medical Record

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

Fungsi dari form Load ini ialah pada saat program dijalan kan perintah ini lah yang pertama pada tampilan.

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


Syntax atau 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
End
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

Gambar 1.11 Gambar MDI Form Aktif

Gambar 1.12 Gambar MDI Form Pilihan Transaksi

Perintah yang ada di tampilan MDI Form iyalah seperti dibawah ini :

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