contoh membuat program lengkap dengan report menggunakan VB 6.0 cocok untuk UAS

Hallo... kali ini saya akan memberikan tutorial pembuatan program dengan menggunakan visual basic 6.0, dimana program yang saya buat ini merupakan tugas UAS saya di kampus. Saya membagikannya dengan kalian agar menjadi referensi untuk kalian dalam mengerjakan tugas maupun membuat project karya ilmiah kalian, semoga dapat membantu dan berguna untuk kalian.

MEMBUAT FORM TAMPILAN AWAL PROGRAM

Pertama buat dulu seperti diatas pada layar project kalian, ini adalah sesuatu yang mudah, simple dan tetap elegant. dengan membuat logo dari picture/image, disebelah logo ada gambar panjang juga kita buat dari picture/image. dibawahnya ada frame keterangan, lalu kotak kosong itu saya gunakan sebagai slide gambar yang nanti akan mempercantik tampilan program, lalu dibawahnya ada button dan timer sebagai pengatur slideshow.

ini kodingnya:

Dim gambar As Integer

Private Sub Form_Load()
gambar = 1
Image3.Picture = LoadPicture(App.Path & "\gambar\img" & gambar & ".jpg")
End Sub

Private Sub cexit_Click()
X = MsgBox("Anda Yakin Ingin Keluar?", vbQuestion + vbOKCancel, "Pesan")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub cpegawai_Click()
Form3.Show
Unload Me
End Sub

Private Sub cabsensi_Click()
Form1.Show
Unload Me
End Sub

Private Sub clemburan_Click()
Form2.Show
Unload Me
End Sub

Private Sub crekap_Click()
Form9.Show
Unload Me
End Sub

Private Sub creport_Click()
DataReport4.Show
Unload Me
End Sub


Private Sub Timer1_Timer()
gambar = gambar + 1
If gambar > 4 Then gambar = 1
Image3.Picture = LoadPicture(App.Path & "\gambar\img" & gambar & ".jpg")
End Sub

lalu kemudian silahkan buat dari isi setiap button, saya beri contoh 1 yaitu form Absensi ya.. lalu yang lainnya kalian bisa buat sendiri sesuai keinginan dan kebutuhan program kalian.

MEMBUAT FORM TAMPILAN DATA ABSENSI

Buat form seperti diatas pada lembar kerja project kalian, terdiri dari label, textbox, button, dan Grid di paling bawah yang berfungsi menampilkan record yang tersimpan.

kodingnya sebagai berikut :


Public Data As New ADODB.Connection
Public RS As New ADODB.Recordset
Sub bersih()
tbulan.Text = ""
ttahun.Text = ""
tnip.Text = ""
tnama.Text = ""
ttanggal.Text = ""
tjm.Text = ""
tjk.Text = ""
tproyek.Text = ""
tdeskripsi.Text = ""
End Sub

Sub nonaktif()
tbulan.Enabled = False
ttahun.Enabled = False
tnip.Enabled = False
tnama.Enabled = False
ttanggal.Enabled = False
tjm.Enabled = False
tjk.Enabled = False
tproyek.Enabled = False
tdeskripsi.Enabled = False

End Sub
Sub aktif()
tbulan.Enabled = True
ttahun.Enabled = True
tnip.Enabled = True
tnama.Enabled = True
ttanggal.Enabled = True
tjm.Enabled = True
tjk.Enabled = True
tproyek.Enabled = True
tdeskripsi.Enabled = True
End Sub

Sub simpandata()
simpan = "insert into absensi values('" & id.Text & "','" & tbulan.Text & "','" & ttahun.Text & "','" & tnip.Text & "','" & tnama.Text & "','" & ttanggal.Text & "','" & tjm.Text & "','" & tjk.Text & "','" & tproyek.Text & "','" & tdeskripsi.Text & "')"
KON.Execute simpan
End Sub

Private Sub cedit_Click()
aktif
id.SetFocus
Label13.Visible = False
Label14.Visible = True
cupdate.Visible = True
End Sub

Private Sub chapus_Click()
If Not (.BOF And .EOF) Then
X = MsgBox("Benar mau dihapus?", vbQuestion + vbYesNo, "-----TANYA-----")
If X = vbYes Then
hapus = "delete from pegawai where id_pegawai='" & id & "'"
KON.Execute (hapus)
End If
End Sub

Private Sub Command1_Click()
Form5.Show
Unload Me
End Sub

Private Sub csimpan_Click()
Call simpandata
Call tampilgrid
bersih
ctambah.Enabled = True
End Sub

Private Sub ctambah_Click()
aktif
bersih
Label13.Visible = True
id.Enabled = False
tbulan.SetFocus
csimpan.Enabled = True
cupdate.Visible = False
ctambah.Enabled = False
cedit.Enabled = False
ccancel.Enabled = True
ckeluar.Enabled = False
End Sub

Private Sub ccancel_Click()
Call bersih
ckeluar.Enabled = True
csimpan.Enabled = True
cupdate.Visible = False
ctambah.Enabled = True
cedit.Enabled = True
ccancel.Enabled = True
Label14.Visible = False
End Sub

Sub updatedata()
Update = "update absensi set id_absensi='" & id.Text & "', bulan='" & tbulan.Text & "', tahun='" & ttahun.Text & "', nip='" & tnip.Text & "', nama='" & tnama.Text & "', tgl_absensi='" & ttanggal.Text & "', jm='" & tjm.Text & "', jk='" & tjk.Text & "', proyek='" & tproyek.Text & "', deskripsi='" & tdeskripsi.Text & "'where id_absensi ='" & id.Text & "'"
KON.Execute Update
End Sub

Private Sub cupdate_Click()
Call updatedata
Call tampilgrid
cupdate.Visible = False
Label14.Visible = False
End Sub

Private Sub Form_Load()
Call koneksi
Call bersih
Call nonaktif
End Sub

Private Sub Form_activate()
Label13.Visible = False
Label14.Visible = False
Call tampilgrid
Call bersih
cupdate.Visible = False
End Sub


Private Sub tcari_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Call koneksi
Call tampildata
Call sqldata
End If
End Sub

Private Sub tgl_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Call koneksi
End Sub

Private Sub ckeluar_click()
X = MsgBox("Anda Yakin Ingin Keluar?", vbQuestion + vbOKCancel, "Pesan")
If X = vbOK Then
Unload Me
End If
End Sub

Sub sqldata()
SQL1 = "select * from absensi where nip like '%" & tcari.Text & "%' order by nip asc"
KON.Execute SQL1
End Sub

Sub tampildata()
Call koneksi
rsabsensi.Open "select * from absensi where nip like '%" & tcari.Text & "%'", KON
Set grid1.DataSource = rsabsensi
grid1.ColWidth(0) = 0
grid1.ColWidth(1) = 1000
grid1.ColWidth(2) = 700
grid1.ColWidth(3) = 700
grid1.ColWidth(4) = 1300
grid1.ColWidth(5) = 1500
grid1.ColWidth(6) = 1300
grid1.ColWidth(7) = 700
grid1.ColWidth(8) = 700
grid1.ColWidth(8) = 1200
grid1.ColWidth(8) = 1200
End Sub


Private Sub tampilgrid()
Call koneksi
rsabsensi.Open "select * from absensi order by nip", KON
Set grid1.DataSource = rsabsensi
grid1.ColWidth(0) = 0
grid1.ColWidth(1) = 1000
grid1.ColWidth(2) = 700
grid1.ColWidth(3) = 700
grid1.ColWidth(4) = 1300
grid1.ColWidth(5) = 1500
grid1.ColWidth(6) = 1300
grid1.ColWidth(7) = 700
grid1.ColWidth(8) = 700
grid1.ColWidth(8) = 1200
grid1.ColWidth(8) = 1200
End Sub

Private Sub grid1_Click()
a = grid1.Row
id = grid1.TextMatrix(a, 1)
Call koneksi
rsabsensi.Open "select * from absensi", KON
With rsabsensi
If KeyAscii = 8 Then
If Not (.BOF And .EOF) Then
X = MsgBox("Benar mau dihapus?", vbQuestion + vbYesNo, "-----TANYA-----")
If X = vbYes Then
hapus = "delete from absensi where id_absensi='" & id & "'"
KON.Execute (hapus)
End If
End If
End If
End With
Call tampilgrid
grid1.Refresh
End Sub

Private Sub id_KeyPress(KeyAscii As Integer)
Call koneksi
If KeyAscii = 13 Then
    rsabsensi.Open "select * from absensi where id_absensi='" & id.Text & "'", KON
    With rsabsensi
        If .BOF And .EOF Then
        psn = MsgBox("ID " + " TIDAK ADA", vbInformation, "KONF")
        id = ""
        tbulan = ""
        ttahun = ""
        tnip = ""
        tnama = ""
        ttanggal = ""
        tjm = ""
        tjk = ""
        tproyek = ""
        tdeskripsi = ""
        id.SetFocus
        Label14.Visible = False
Else
id = .Fields("id_absensi")
tbulan = .Fields("bulan")
ttahun = .Fields("tahun")
tnip = .Fields("nip")
tnama = .Fields("nama")
ttanggal = .Fields("tgl_absensi")
tjm = .Fields("jm")
tjk = .Fields("jk")
tproyek = .Fields("proyek")
tdeskripsi = .Fields("deskripsi")
Label14.Visible = False
End If
End With
End If
End Sub

Private Sub tnip_KeyPress(KeyAscii As Integer)
Call koneksi
If KeyAscii = 13 Then
    rspegawai.Open "select * from pegawai where NIP='" & tnip.Text & "'", KON
    With rspegawai
        If .BOF And .EOF Then
        psn = MsgBox("NIP " + " TIDAK ADA", vbInformation, "KONF")
        tnama = ""

Else
tnama = .Fields("nama")
End If
End With
End If


End Sub

setelah selesai dengan kodingnya, dan selesai dengan pembuatan form yang lain lainnya, sebenarnya sih konsepnya sama setiap form pasti kodingannya cuma tinggal ganti nama aja buat setiap form. cuma diganti-ganti sedikit aja dan tambahkan dengan formula untuk hitungan berserta logikanya. sudah jadi deh..

selanjutnya, Report.

membuat report sangat mudah tinggal masuk ke menubar PROJECT lalu pilih DATA ENVIRONMENT lalu lakukan hal berikut ini :

 untuk gambar diatas klik kanan pada tulisan COMMAND lalu ganti database object dengan TABLE

kemudian pada object name silahkan ganti dengan nama tabel nya 

Lalu buat data reportnya dengan cara masuk ke menubar PROJECT lalu pilih DATA REPORT dan akan tampil jendela seperti berikut.

buat desain sesuka kalian perhatikan panjang dan besar lembar kertas. pada top margin dan left margin dan right margin dan juga bottom margin nya saya buat 0 agar kertasnya muat dan bisa diu print. selesai... lalu simpan.

inilah singkatnya bagaimana saya membuat program saya.. semoga dapat berguna dan dapat diterima sebagai ilmu pembelajaran.. Terima kasih sudah membaca..