-
Buat data base MSQL seperti gambar
-
Setelah mendesign VB dan MSQL koneksikan antara
VB dengan MSQL
-
Dengan cara
·
Klik star à
control panelà
administrativ toolàklik
ODBCàmuncul
gambar sperti dibawah ini dan klik ADD
-
Akan tampil gambar seperti dibawahàcari yang dilingkari
“MySQL ODBC 3.51 DRIVER”à
Klik yang dilingkariàklik
finish.
-
Seterlah finish akan tampil gamabar di bawah ini
à isi “Data Source Name”
terserah lu seperti “koneksi” (tidak boleh pake symbol seperti spasi,dll) , isi
“Server” dengan “localhost” , isi “User” dengan “root” , dan lalu isi
“Database” dengan nama database yg kita buat sebelumnya. à Setelah terisi semua
klik “Test” lau OK. (*Tanpa Tanda Kutip)
-
Klik kanan pada icon ADODC-àklik ADODC propertisàklik Next. Akan tampil
gambar dibwah.
-
Klik build(No.1)àklik
refresh(No.2)àpilih
nama DATA SOURCE NAME yang telah di buat di atasàOKàblok semua pada (No.3)àcopyàOKàDoubel Klik di form
load.
-
Akan tampil sepeti gambar di bawah
-
Pastekan pada coding diantara tanda kutip 2
-
Setelah ok coba jalankan program VBnya
-
Disign cristal
report 8.0
Aktifkan
Cystal Report 8.0
a.
pilih As blank
Reportàokà Pilih ODBCàpilih nama datasource yang Telah
di buat di atasàpilih nama data baseàADDàclose. Akan tampil gambar dibawah.
àdouble klik data fieldsàdoble klik nama tabelàTentukan field yang akan ditampilkan dengan cara drop dan drap ke
bagian detail pada desain Reportàsetelah selasai mendesign klik repres atau run
.(khusus
untuk report keseluruh field atau tabel pada data MSQL)
.(khusus
untuk report keseluruh field atau tabel pada data MSQL)
hasil stelah di run kan seperti gmbar di bawah
-
-
untuk report
satu field langkahnya sama cuman kita
drop dan drap nama field yang kita ingini pada report header, field selebihnya
pada detailsàsimpan
sesusai nama field yang di tarok d report headeràlakukan sampai field
selanjutnya.
-
Disign Menu editor
dengan cara
·
Klik kanan pada
formàklik ADDàklik formàopenàjangn lupa nama formnya ditambah sesuai dengan tampilan formnya contoh
menu utama dll contoh
· Klik form menu--> disign sperti gambar dibawah-->klik toolsàmenu editor.akan tampil gambar
di bawah
·
Isikan caption
sesuai dengan ke inginan sendir(file)iànama ànextàsetelah sperti gambar di atas-àok
·
Setelah selesai
klik file pada formàklik file
mobilàisikan coding ini.
Private Sub EXIT_Click()
Unload Me
End Sub
Private Sub MALL_REPORT_MOBIL_Click()
cr.ReportFileName = "D:\kuliah\Semester 3\VB\c.r\TUGAS
UAS.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End Sub
Private Sub MFILE_MOBIL_Click()
Form1mobil.Show
End Sub
Private Sub MFILE_RUMAH_Click()
Form1RUMAH.Show
End Sub
Private Sub mReport_Besar_CC_Click()
Form1BESAR_CC.Show
End Sub
Private Sub mReport_Kode_mobil_Click()
Form1kode.Show
End Sub
Private Sub mReport_Merek_Click()
Form1MEREK.Show
End Sub
Private Sub mReport_Tahun_Rangkit_Click()
Form1TAHUN.Show
End Sub
·
Gambar yang
dilingkari di atas (cristal report)ganti namanya dengan CR
·
Klik form
besar cc designnya seperti ini.
·
Untuk menampilkan
cristal reportà Ctrl+t à centang cristal report control à aply à ok.
·
Klik pada comand
button preview buat coding ini
cr.ReportFileName = "D:\kuliah\Semester
3\VB\c.r\Report3Besar_cc_mobil.rpt"
cr.WindowState = crptMaximized
cr.SelectionFormula = "{tb_mobil.bsr_cc}='" & Text1.Text
& "'"
cr.RetrieveDataFiles
cr.Action = 1
·
Pada feport
filename yang bergaris diatas ganti dengan penyimpanan report data dengan cara:
klik kanan pada icon cristal reportàklik crystal propertisàklik cari atau seperti gambar di bawah no 1
·
Cari lokasi
penyimpanan dari hasil crystal reportà copy seluruh yang ada pada report
file name sebagai contoh gambar di atasàpaste kan pada coding di atas.
Pada coding (cr.SelectionFormula = "{tb_mobil.bsr_cc}='"
& Text1.Text & "'") tb_mobil= nama tabel di data base yang
sudah di buat di MSQL, bsr_cc = nama
field di tabel MSQL à coba klik
run jalankan progaramnya.
Untuk menentukan form mana yang akan tampil awal saat progarm VB di
jalankan (MENU UTAMA)klik projek à klik projek propertis à form apa yang mau kita tampilkan lebih awal saat menjalankan programà ok.
Selamat
mencoba...By. Hendracandung
