Jalankan program Microsoft Visual Studio 2010 kemudian klik File > New > Project atau tekan Ctrl+Shift+N, pilih Windows Forms Application pada Visual Basic Istalled Tempelates ganti .Net Framework dengan versi 3.5 tentukan Project name, Lokasi tempat penyimpanan dan Solution name, eg; Name: Trimosoft, Location: D:\TUGAS\, Solution name: Trimosoft kemudian klik OK untuk menyimpan dan memulai pembuatan.
Terlihat satu form yang active(form1.vb), pada Panel Properties dari form1 tersebut Setting :
| 
form1.vb
MidiForm1
|
ubah properties enabled pada item MenuStrip Input Data, Search, Report, Tools menjadi false. Kemudian pada panel Solution Explorer klik kanan project name(Trimosoft) pilih Add > New Item atau Ctrl+Shift+A, pada Windows Forms dari tab Instaled Tempelates pilih Login Form klik OK, otomatis akan ditambahkan form bernama LoginForm.vb pada project, kemudian tambahkan TextBox dan Label dari Panel toolbox > All Windows Forms, susun sedemikian rupa sehingga tampak seperti :
LoginForm-b
Pada form1 rubah properies;
- Text menjadi Login
- TopMost menjadi true
- StartPotition menjadi CenterScreen
- MinimizeBox menjadi False
- MaximizeBox menjadi false
- ganti Icon sesuai keinginan
- FormBorderStyle menjadi FixedSingle
Kemudian tekan Ctrl+Shift+A untuk menambahkan Module, setelah Module1.vb ditambahkan kedalam project rename module1.vb tersebut dengan nama Pustaka_code.vb akan ada pemberitahuan kemudian tekan bottom Yes. Selanjutnya tambahkan namespace dari MySQL Connector/Net yaitu Mysql.Data dengan cara klik deretan dropdown menu dari VB 2010 Project > Add Referance, akan tampil form Add Reference pilih tab .NET cari dan pilih Mysql.Datakemudian klik OK. Pada Pustaka_code.vb ketikan tulisan Imports MySql.Data.MySqlClient sehingga terlihat seperti :
Imports MySql.Data.MySqlClient
Module Pustaka_code
End Module
Selanjutnya adalah membuat fungsi untuk mengatur koneksi program dengan MySQL Database yang bernilai boolean(true/false)
Imports MySql.Data.MySqlClient
Module Pustaka_code
Public x As New MySqlConnection
‘Mendeklarasikan variable x MySqlConnection yang bersifat global, berlaku pada seluruh applikasi.
Function connect(ByVal Server As String, ByVal Username As String, ByValPassword As String) As Boolean
If x.State <> 1 Then
x.ConnectionString = “server=” & Server & “;” _
& “user id=” & Username & “;” _
& “password=” & Password & “;” _
& “database=tugaspakmuzaki”
& “user id=” & Username & “;” _
& “password=” & Password & “;” _
& “database=tugaspakmuzaki”
Try
x.Open()
MsgBox(“Connection to Database has been opened.”,MsgBoxStyle.Information, )
Return True
Catch myerror As MySqlException
MsgBox(myerror.Message & ” : “ & myerror.Number, MsgBoxStyle.Critical, )
Catch ex As Exception
MsgBox(ex.Message)
Finally
x.Dispose()
End Try
Else
Return False
End If
End Function
End Module
Penjelasan fungsi connect diatas : Ketika fungsi Connect dipanggil/digunakan (pada FormLogin) variabel pada fungsi yaitu Server, Username, Password akan diisi oleh value dari textbox(server), (username),(password) yang ada pada FormLogin kemudian mengecek kondisi x(mysqlconnection) jika tidak terhubung(1) connection string x akan diisi dan mencoba membuka/menghubungkan x, menampilkan pesan dan memberikan nilai fungsi menjadi true bila terjadi kesalahan yang disampaikan oleh mysqlserver akan ditampilkan berupa pesan yang berisi error message dan error number, bila terjadi kesalahan dari program akan ditampilkan berupa pesan kesalahan dari program kemudian mengakhiri dengan membersihkan resource yang dipakai oleh x. Apabila kondisi x sudah terhubung/terbuka(1) maka nilai dari fungsi connect menjadi false
Menghubungkan fungsi, FormLogin dan MIDIParent1 untuk mengatur koneksi program ke mysql database
Klik dua kali pada menu Login yang ada pada form MDIParent1, Kemudian isi script code untuk menampilkan FormLogin sebagai berikut :
Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles LoginToolStripMenuItem.Click
If LoginToolStripMenuItem.Text = “Log Out” Then
If MsgBox(“Yakin Log Out ?…”, MsgBoxStyle.Question OrMsgBoxStyle.OkCancel, ) = 1 Then
x.Close()
InputDataToolStripMenuItem.Enabled = False
SearchToolStripMenuItem.Enabled = False
ReportToolStripMenuItem.Enabled = False
ToolsToolStripMenuItem.Enabled = False
LoginToolStripMenuItem.Text = “Log In”
End If
Else
FormLogin.ShowDialog()
End If
End Sub
Kemudian Mengisi script event Click button Login pada FormLogin
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
If connect(TextServer.Text, TextUsername.Text, TextPassword.Text) = True Then
Me.Close()
MDIParent1.LoginToolStripMenuItem.Text = “Log Out”
MDIParent1.InputDataToolStripMenuItem.Enabled = True
MDIParent1.SearchToolStripMenuItem.Enabled = True
MDIParent1.ReportToolStripMenuItem.Enabled = True
MDIParent1.ToolsToolStripMenuItem.Enabled = True
TextUsername.Text = “”
TextPassword.Text = “”
End If
End Sub
Script event Click button Close pada FormLogin, yang berfungsi untuk menutup form login
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Dan Script Event KeyDown pada textbox(password), digunakan untuk menjalankan event Click pada button login ketika keyboard ditekan tombol enter
Private Sub TextPassword_KeyDown(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles TextPassword.KeyDown
If e.KeyCode = Keys.Enter Then Button1_Click(sender, e)
End Sub
Untuk mencoba hasilnya tekan F5(Start Debugging) pada keyboard, pilih File > Login, isikan server mysql(Localhost/127.0.0.1=local), username dan password dari mysql dan klik login. Bersambung,….di Program Penjualan Dengan Visual Basic 2010 #2
0 komentar:
Posting Komentar