Berikut langkahnya :
Buka Project Aplikasi Pembelian anda sebelumnya :
Jika dilihat dari gambar diatas, anda telah sukses membuat Form Login beserta koding Logoutnya.
Silahkan Klik Project - Add Form
Klik Form kemudian Klik Open
Pada Properties Ganti nama Form1 menjadi FormMasterAdmin
Kemudian buatlah Design FormMasterAdmin seperti gambar dibawah ini :
Kemudian masukan koding dibawah ini :
Tambahkan Koding FormMenuUtama :
Private Sub MnAdmin_Click()
FormMasterAdmin.Show vbModal
End Sub
Masukan Pada FormMasterAdminDim mvBookMark As Variant
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then
MsgBox "Data Belum Lengkap"
Else
Call BukaDB
Dim SQLTambah As String
SQLTambah = "Insert Into TBL_ADMIN values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"
Koneksi.Execute SQLTambah
MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
Form_Activate
Call kondisiawal
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 20
Text3.MaxLength = 15
Text3.PasswordChar = "X"
kondisiawal
End Sub
Private Sub kondisiawal()
Command1.Caption = "&Input"
Command2.Caption = "&Edit"
Command3.Caption = "&Hapus"
Command4.Caption = "&Tutup"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Text1 = ""
Text2 = ""
Text3 = ""
Combo1.Clear
Combo1.AddItem "USER"
Combo1.AddItem "ADMIN"
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "select KodeAdmin,NamaAdmin,LevelAdmin from TBL_ADMIN"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call kondisiawal
Command1.SetFocus
End Sub
Dengan langkah diatas, anda telah sukses membuat FormMasterAdmin untuk mengelola data Admin yang akan menggunakan Aplikasi Pembelian Visual Basic 6.0
Post a Comment