Uly Kasturi

Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini



• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.




• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.



• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)


• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next


• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish


• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next



• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next


• Kemudian next



• Klik next lagi


• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish





• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”
•

• Maka hasil akan tampil seperti ini :


• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”


• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

Untuk membuat menu login terlebih dahulu klik kanan pada project kemudian pilih add item window form.
Klik OK pada login form kemudian ketik syntax di bawah ini.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "uLee" And PasswordTextBox.Text = "starfire" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub



Berikut tampilan form login