Membuat Laporan Data Obat Pada VB

Pada pertemuan sebelumnya kita sudah membahas cara membuat program simpan, ubah, hapus data obat pada proyek klinik. Pada pertemuan kali ini kita akan membahas cara membuat laporan pada vb yang dalam hal ini kita akan membuat laporan data obat. Untuk membuat laporan pada visual basic, sebenarnya dapat dilakukan dengan beberapa cara. Ada yang memanfaat akan aplikasi pihak ketiga dan ada juga yang menggunakan aplikasi bawaan pada visual basic. Pada contoh kali ini kita hanya akan membahas cara membuat laporan sederhana tentang data obat dengan menggunakan aplikasi bawaan visual basic.

Pertama : pastikan Anda sudah menyelesaikan pembahasan kita sebelumnya tentang login dan data obat

Kedua : Silahkan Anda tambahkan satu form lagi pada proyek klinik yang sudah dibuat dan beri nama form tersebut dengan laporan data obat.

Ketiga : Silahkan rancang form seperti gambar di bawah ini

Keempat : Setelah selesai silahkan Anda buka jendela kode, kemudian ketikan kode – kode program berikut ini.

Pada bagian general silahkan Anda ketikan kode program berikut:

Public namaberkas As String
Public tmpTotal As Long
Public pesan As String
Public tmpnamaberkas As String

Private Sub Form_Load()
koneksi
End Sub

Private Sub cmdcari_Click()
Set rsobat = New ADODB.Recordset
rsobat.LockType = adLockOptimistic
rsobat.CursorType = adOpenDynamic
rsobat.Open “select * from data_obat “, conn, , , adCmdText

If Not rsobat.EOF Then

Set DataGrid1.DataSource = rsobat

DataGrid1.Columns(0).Width = 1300
DataGrid1.Columns(1).Width = 2000
DataGrid1.Columns(2).Width = 600
DataGrid1.Columns(3).Width = 2000

Else
MsgBox “Data yang dicari tidak ada”
End If
End Sub

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

Setelah selesai, Silahkan Anda jalankan program. kemudian pilih tanggal mulai dan tanggal akhir dari laporan yang ingin Anda tampilkan. Jika sukses maka data akan tampil pada data grid. Agar Anda mudah menjalankan program silahkan Anda rancang dulu menu utama menggunakan menu editor seperti yang sudah dibahas pada pertemuan sebelumnya. Selamat mencoba

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.