Membuat Form Data Obat Pada VB

Pada pertemuan sebelumnya kita sudah membuat sebuah program login untuk masuk ke sebuah sistem aplikasi “proyek klinik”. Pada pertemuan kali ini, kita akan melanjutkan pojek klinik tersebut yaitu dengan membuat program data obat sehingga nantinya kita akan memiliki sebuah aplikasi “Proyek klinik ” yang dapat digunakan untuk memasukkan, mengedit, menghapus data obat. Jadi untuk melanjutkan pertemuan ini, silahkan Anda buka dulu proyek klinik yang sebelumnya Anda buat (jika belum silahkan dibuat dulu), kemudian ikuti langkah – langkah berikut ini.

Pertama : Pastikan dulu Anda sudah membuat proyek klinik pada pertemuan sebelumnya kemudian buka proyek tersebut

Kedua : Tambahkan satu tabel lagi pada database “dbklinik” jangan lupa beri nama tabel tersebut dengan nama “data_obat” dengan field sebagai berikut :

Ketiga : Tambahkan satu form dengan cara klik menu project kemudian pilih add form kemudian rancang tampilan form seperti gambar berikut.

Keempat : Buka jendela kode kemudian Ketikan kode – kode program berikut pada jendela kode form data obat

Bagian general ketikan perintah :

Dim tmpnama As String

Bagian form load silahkan ketik perintah berikut :

Private Sub Form_Load()
koneksi
refreshDG
End Sub

Prosedur merefresh datagrid

Sub refreshDG()

Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “select * from data_obat”, conn, , , adCmdText

Set DG1.DataSource = rsobat
End Sub

Sub cleartext()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
End Sub

‘ Prosedur jika tombol simpan di klik

Private Sub Command1_Click()
Dim tanya
tanya = MsgBox(“Apakah Data Telah Diisi Lengkap?”, vbQuestion + vbYesNo)

If tanya = vbYes Then
Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “select * from data_obat “, conn, , , adCmdText

With rsobat
.AddNew
!KODE_OBAT = Text1.Text
!NAMA_OBAT = Text2.Text
!JENIS = Text3.Text
!HARGA = Text4.Text
.Update
End With
MsgBox “Data Telah Tersimpan”, vbInformation
refreshDG
cleartext
Text1.SetFocus
Else
cleartext
End If
End Sub

‘Prosedur kalau datagrid diklik

Private Sub DG1_Click()
On Error GoTo pesan
tmpnama = DG1.Columns(1).Text
Text1.Text = DG1.Columns(0).Text
Text2.Text = DG1.Columns(1).Text
Text3.Text = DG1.Columns(2).Text
Text4.Text = DG1.Columns(3).Text
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True

Exit Sub

pesan:
cleartext
Exit Sub
End Sub

‘Prosedur tombol ubah di klik

Private Sub Command2_Click()
‘On Error GoTo pesan

Dim tanya

tanya = MsgBox(“Apakah Data Obat Telah Diisi Lengkap?”, vbQuestion + vbYesNo)

If tanya = vbYes Then

‘cek apakah nama ubahan sudah terdaftar (jika nama diubah)
If Text2.Text <> tmpnama Then

Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “SELECT * FROM data_obat WHERE NAMA_OBAT = ‘” & Text2.Text & “‘”, conn, , , adCmdText

If rsobat.EOF Then
Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “SELECT * FROM data_obat WHERE NAMA_OBAT = ‘” & tmpnama & “‘”, conn, , , adCmdText

With rsobat
!KODE_OBAT = Text1.Text
!NAMA_OBAT = Text2.Text
!JENIS = Text3.Text
!HARGA = Text4.Text
.Update
End With
MsgBox “Data Obat Tersimpan”, vbInformation
cleartext
Text1.SetFocus
refreshDG
Command1.Enabled = True
Else
MsgBox “Obat dengan nama ” & Text2.Text & ” telah terdaftar.” & vbCrLf & _
“Mohon Ganti Nama Obat…”, vbInformation
Text2.SetFocus
Exit Sub
End If
Else ‘jika kode supplier tidak diubah
Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “SELECT * FROM data_obat WHERE NAMA_OBAT = ‘” & tmpnama & “‘”, conn, , , adCmdText

With rsobat
!KODE_OBAT = Text1.Text
!NAMA_OBAT = Text2.Text
!JENIS = Text3.Text
!HARGA = Text4.Text
.Update
End With
MsgBox “Data Obat Tersimpan”, vbInformation
cleartext
Text1.SetFocus
refreshDG
Command1.Enabled = True
End If
Else
cleartext
Exit Sub
End If

Exit Sub
pesan: MsgBox “Pengisian Data Belum Lengkap”, vbInformation
cleartext
Text1.SetFocus
Exit Sub
End Sub

‘ Prosedur untuk menghapus data obat

Private Sub Command3_Click()
Dim tanya

tanya = MsgBox(“Hapus Data Obat dengan nama ” & tmpnama & ” ?”, vbQuestion + vbYesNo)

If tanya = vbYes And Text2.Text <> “” Then
Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “SELECT * FROM data_obat WHERE NAMA_OBAT = ‘” & tmpnama & “‘”, conn, , , adCmdText

rsobat.Delete
rsobat.UpdateBatch
refreshDG

cleartext
Text1.SetFocus
Command1.Enabled = True
Command5.Enabled = False
Else
cleartext
Text1.SetFocus
Exit Sub
End If
End Sub

‘Prosedur jika tombol batal diklik

Private Sub Command3_Click()
cleartext
Text1.Enabled = True
Text1.SetFocus
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End Sub

‘Prosedur kalau tombol keluar diklik

Private Sub Command5_Click()
Form3.Hide
Form2.Show
End Sub

Jika sudah selesai silahkan jalankan program, kemudian lakukan pengisian data obat pada form data obat. Lakukan penyimpanan dengan mengklik tombol simpan. Jika penyimpanan sukses maka data yang dientrikan ke data base akan tampil pada datagrid. Dengan catatan jika data grid sudah terhubung dengan baik ke tabel data base. Untuk memastikannya sudah terhubung. Anda bisa juga terlebih dahulu menngentrikan data langsung di tabel obat melalui data base, kemudian jalankan program. Jika datagrid tidak ada masalah, maka data yang dientrikan pada tabel obat tadi akan muncul di data grid.

Untuk melakukan pengeditan data, Anda dapat melakukannya dengan cara klik salah satu data yang tampil di data grid (tentunya yang hendak Anda edit datanya), maka data tersebut akan muncul di form. Setelah data tersebut muncul di form, Anda dapat mengganti datanya pada textbox. Setelah selesai silahkan klik tombol “UBAH”. Jika sukses maka data di data base akan berubah dan dapat Anda lihat perubahannya di datagrid

Untuk menghapus data, dapat Anda lakukan cara yang sama ketika Anda hendak mengubah data yaitu dengan mengklik salah satu data yang ada di datagrid, kemudian klik tombol hapus. Maka jika sukses data tersebut akan terhapus di database dan indikatornya dapat Anda lihat pada datagrid apakah data tersebut sudah terhapus atau tidak.

 

 

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.