Belajar VB - Kursus VB - Tutorial Visual Basic 6.0 dan Visual Basic .Net - Visual Basic Indonesia
Buat lah design Form Admin atau Kasir seperti gambar dibawah :
Form admin dibuat untuk memanage tabel admin dimana nantinya akun admin tersebut yang akan bisa login ke Aplikasi yang dibuat. Gambar diatas adalah bentuk form admin dimana disesesuaikan dengan tabel Admin didalam database :

Dengan Design tabel admin diatas maka anda harus bisa membuat form untuk Input, edit dan delete sesuai dengan kebutuhan Program yang anda buat.

Masukan Koding dibawah ini :
Dim mvBookMark As Variant
Private Sub Command1_Click()
Call BukaDB
Dim SQLTambah As String
            SQLTambah = "Insert Into Admin (KodeAdmin,NamaAdmin,passwordAdmin,levelAdmin) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"
            koneksi.Execute SQLTambah
            MsgBox "Data Berhasil diinput"
            Form_Activate
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"
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBAplikasi.mdb; "
Adodc1.RecordSource = "select KodeAdmin,NamaAdmin, LevelAdmin from Admin"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 1000: DataGrid1.Columns(0).Locked = True
DataGrid1.Columns(1).Width = 2300: DataGrid1.Columns(1).Locked = True
DataGrid1.Columns(2).Width = 1200: DataGrid1.Columns(2).Locked = True

Command1.SetFocus
Combo1.Clear
Combo1.AddItem "USER"
Combo1.AddItem "ADMIN"
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
close
close