Casey Notes

Pengertian Module Pada Visual Basic 6.0

Public rsJual As New ADODB.Recordset
Public 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
 Lihat Program Selengkapnya  Di Aplikasi Restoran Sederhana Dengan Visual Basic 6.0 Ya ^_^

Membuat Form Penjualan/Form1


Membuat Form Pembelian/Form2



Private Sub Command1_Click()
MsgBox "Data Tersimpan", vbInformation, "INFORMATION"
simpan
End Sub

Sub simpan()
rsBeli.AddNew
rsBeli(0) = Text1.Text
rsBeli(1) = Text2.Text
rsBeli(2) = Text3.Text
rsBeli(3) = Text4.Text
rsBeli(4) = Text5.Text
rsBeli(5) = Text6.Text
rsBeli.Save
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub


Private Sub Command3_Click()
rsBeli.Update
rsBeli(0) = Text1.Text
rsBeli(1) = Text2.Text
rsBeli(2) = Text3.Text
rsBeli(3) = Text4.Text
rsBeli(4) = Text5.Text
rsBeli(5) = Text6.Text
rsBeli.Update
MsgBox "TerUpdate", vbInformation, "INFORMATION"
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
koneksi (1)
Butab (2)
isi_tabel
End Sub

Sub isi_tabel()
Text1.Text = rsBeli(0)
Text2.Text = rsBeli(1)
Text3.Text = rsBeli(2)
Text4.Text = rsBeli(3)
Text5.Text = rsBeli(4)
Text6.Text = rsBeli(5)
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
    If Text1.Text = "" Then
    MsgBox "ISI DULU..!!"
    Text1.SetFocus
Else
    Text2.SetFocus
    End If
End If
End Sub

Membuat Form Menu/Form3, Berisi untuk mengetahui Stock makanan di Restoran. 


simpan
End Sub

Sub simpan()
rsMenu.AddNew
rsMenu(0) = Text1.Text
rsMenu(1) = Text2.Text
rsMenu(2) = Text3.Text
rsMenu(3) = Text4.Text
rsMenu.Save
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
MsgBox "Tambah Data", vbInformation, "INFORMATION"
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
rsMenu.Update
rsMenu(0) = Text1.Text
rsMenu(1) = Text2.Text
rsMenu(2) = Text3.Text
rsMenu(3) = Text4.Text
rsMenu.Update
MsgBox "TerUpdate", vbInformation, "INFORMATION"
End Sub

Private Sub Form_Load()
koneksi (1)
'Butab (1)
'Butab (2)
Butab (3)
isi_tabel
End Sub

Sub isi_tabel()
Text1.Text = rsMenu(0)
Text2.Text = rsMenu(1)
Text3.Text = rsMenu(2)
Text4.Text = rsMenu(3)
End Sub

Private Sub Image1_Click()

End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
    If Text1.Text = "" Then
    MsgBox "ISI DULU..!!"
    Text1.SetFocus
Else
    Text2.SetFocus
    End If
End If
End Sub

Selanjutnya Untuk membuat modul Klik Saja Di Sini.

Ok Langsung saja yaa.. Saya mau bikin tutorial bagaimana menambahkan Form MDI di Visual Basic 6.0.

Cuuuuuuuuuss Cekidot..!!!

       Pertama-tama buka program visual basic 6, kemudian di pojok kanan ada menu Project, klik kanan pada pilihan Form. kemudian pilih Add > MDI Form

      Setelah terbuka MDI Formnya, klik kanan pada MDI Form > Menu Editor.