Pengertian Module Pada Visual Basic 6.0
Fungsi “Module” => “Bisanya Untuk Memmanggil Beberapa Function Yang Ada Dalam Module Tersebut Dan Function Tersebut Sifatnya Public Yang Artinya Semua Form Dapat Menggunkan Function Yang Ada Pada Mudule tersebut.”
Yang Lebih Jelasnya => “untuk menyimpan procedure2 atau fungsi2 atau variable2 yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi2 atau procedur2 atau variable2 tersebut berulang2, dan akan lebih memudahkan kita dalam penggunaannya..”
Public Konek As New ADODB.Connection
Public rsJual As New ADODB.RecordsetPublic rsBeli As New ADODB.Recordset
Public rsMenu As New ADODB.Recordset
Sub koneksi(i As Byte)
Select Case i
Case 1
Konek.CursorLocation = adUseClient
If Konek.State = 0 Then Konek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Restaurant.mdb"
End Select
End Sub
Sub Butab(i As Byte)
If Konek.State = 1 Then
Select Case i
Case 1
If rsJual.State = 0 Then rsJual.Open "Jual", Konek, adOpenDynamic, adLockOptimistic
Case 2
If rsBeli.State = 0 Then rsBeli.Open "Beli", Konek, adOpenDynamic, adLockOptimistic
Case 3
If rsMenu.State = 0 Then rsMenu.Open "Menu", Konek, adOpenDynamic, adLockOptimistic
End Select
End If
End Sub
Terima Kasih
0 komentar:
Posting Komentar