Silahkan Ambil Gridtambahan....

Download vs .....

Tugas Selanjutnya Buatlah Form Struk Footer

Tugas Selanjutnya Buatlah Form Settting Harga.

Tugas Selanjutnya Buatlah Form Profil

Tugas- Buat FormSupplier berikut ya...

Teknik sama dengan yang Lalu,
Selamat Bekerja...!!!

Susah ya.. Kalo Ngak yang ini aja.. baru kita bahas...

'Listing Program
Dim rstambah As New ADODB.Recordset
Dim rssimpan As New ADODB.Recordset
Dim Setuju As String
Private Sub Form_Load()
Call Tengah
cbostatus.AddItem "SuperAdmin"
cbostatus.AddItem "Admin"
cbostatus.AddItem "Kasir"
txtuser.BackColor = &HFFC0C0
Call IsiGrid
End Sub

Private Sub CmdSimpan_Click()
If txtuser.Text = "" Then
MsgBox "UserName masih kosong", vbInformation, "Perhatian"
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text = "" Then
MsgBox "Password masih kosong", vbInformation, "Perhatian"
txtpassword.SetFocus
txtpassword.BackColor = &HFFC0C0
ElseIf cbostatus.Text = "" Then
MsgBox "Status masih kosong", vbInformation, "Perhatian"
cbostatus.SetFocus
cbostatus.BackColor = &HFFC0C0
Else
kerjakan = "select * from Operator where NamaUser='" & txtuser.Text & "'"
Set rstambah = New ADODB.Recordset
rstambah.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
If rstambah.RecordCount = 1 Then
MsgBox "User Name Tersebut Sudah Ada !. Ketikkan yang Baru.", vbCritical, "Perhatian"
txtuser.Text = ""
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text <> txtulang.Text Then
MsgBox "Konfirmasi Password Anda Tidak Sama !", vbCritical, "Perhatian"
txtulang.BackColor = &HFFC0C0
txtpassword.SetFocus
Else
Setuju = MsgBox("Data akan disimpan ?", vbInformation + vbOKCancel, "Simpan")
If Setuju = vbOK Then
If rstambah.EOF Then
kerjakan = "insert into Operator (NamaUser,KodeUser,Status) values ('" & txtuser & _
"','" & txtpassword & _
"','" & cbostatus & "')"
Set rssimpan = New ADODB.Recordset
rssimpan.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
Call IsiGrid
Call bersih
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
End If
End If
End If
End If
End Sub

Wah..Mogok Nih...

Mas, inilah nama perjuangan.Mo kuliah ke Padang cari ilmu e... malah Bus nya mogok. Ngak mau jalan.Terpaksa pindah ke Bus Lain. Ehmm. Dari KotaNopan ke Bukit Tinggi (4 jam an) duduk di bangku tempel...Wihhh puegel tak ampun..Pak Fuad, Bambang dan Ibrahim sama ancurnya... Cobaan...
Jangan menyerah Abang-abang, ini untuk kampus kita. Oce..