MembuatFormPengguna by shareayo

VIEWS: 11 PAGES: 6

									                          http://www.vbawam.com/
       Tutorial, Source code, Request Program Visual Basic
                                  Oleh : Moh. A Azis


          Membuat Form Pengguna Program Persediaan Barang
Form Pengguna digunakan untuk menyimpan data pengguna yang akan menggunakan
aplikasi persediaan barang, dengan tujuan agar aplikasi ini tidak sembarangan digunakan
oleh orang lain. Untuk itu ikuti langkah-langkah di bawah ini




   1. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen
       seperti gambar di bawah ini.


                                            1

              (Step By Step membuat program persediaan barang)
                               http://www.vbawam.com/
2. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembar
   form
   Nama Control                Properties                Nilai
   Form 1                      Name                      FrmPengguna
                               Caption                   Pengguna
   Label 1                     Caption                   Kode User :
   Label 2                     Caption                   Nama :
   Label 3                     Caption                   Alamat :
   Label 4                     Caption                   Telepon :
   Label 5                     Caption                   Password :
   Label 6                     Caption                   Level :
   TextBox 1                   Name                      Txtkd
   TextBox 2                   Name                      Txtnm


                                      2

          (Step By Step membuat program persediaan barang)
                          http://www.vbawam.com/
   TextBox 3                    Name                       Txtalamt
   TextBox 4                    Name                       Txttlp
   TextBox 5                    Name                       TxtPassword
   Combobox1                    Name                       cmblevel
   CommandButton1               Name                       Cmdsimpan
                                Text                       Simpan
   CommandButton2               Name                       Cmdhapus
                                Text                       Hapus
   CommandButton3               Name                       Cmdbatal
                                Text                       Batal
   CommandButton4               Name                       Cmdkeluar
                                Text                       Keluar
   CommandButton5               Name                       Cmdcari
                                Text                       …


3. Klik icon view code lalu copy pastekan listing kode di bawah ini :

   Sub bersih()
   Txtkd.Text = ""
   Txtnm.Text = ""
   Txtalamt.Text = ""
   Txttlp.Text = ""
   txtpassword.Text = ""
   cmblevel.Text = ""
   Txtkd.Enabled = True
   cmdsimpan.Enabled = True
   cmdhapus.Enabled = False
   End Sub



                                        3

          (Step By Step membuat program persediaan barang)
                           http://www.vbawam.com/
Private Sub cmdbatal_Click()
Call bersih
Txtkd.SetFocus
End Sub


Private Sub cmdcari_Click()
cari = InputBox("Masukkan kd user ", "pencarian")
Call Koneksi_Database
sql = "select * from users where kd_user ='" & cari & "'"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
If rs.EOF = False Then
Txtkd.Enabled = False
Txtkd.Text = rs.Fields("kd_user")
Txtnm.Text = rs.Fields("nm_user")
Txtalamt.Text = rs.Fields("Alamat_user")
Txttlp.Text = rs.Fields("telp_user")
txtpassword.Text = rs.Fields("Password")
cmblevel.Text = rs.Fields("level")
cmdsimpan.Enabled = False
cmdubah.Enabled = True
cmdhapus.Enabled = True
Else
MsgBox "Data tidak ditemukan", vbInformation, "Pesan"
End If
End Sub


Private Sub cmdhapus_Click()
Call Koneksi_Database
sql = "delete from users where kd_user ='" & Txtkd.Text & "'"
db.Execute (sql)
                                       4

         (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/
Call bersih
End Sub




Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub cmdsimpan_Click()
If Txtkd.Text = "" Then Txtkd.SetFocus: Exit Sub
If Txtnm.Text = "" Then Txtnm.SetFocus: Exit Sub
If Txtalamt.Text = "" Then Txtalamt.Text = "-": Exit Sub
If Txttlp.Text = "" Then Txttlp.Text = "-": Exit Sub
If txtpassword.Text = "" Then txtpassword.SetFocus: Exit Sub
If cmblevel.Text = "" Then cmblevel.SetFocus: Exit Sub
Call Koneksi_Database
sql = "select * from users where kd_user= '" & Txtkd.Text & "' or nm_user='" &
Txtnm.Text & "'"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
With rs
If .EOF = False Then
MsgBox "Id / nama user tidak berlaku !", vbCritical, "Message"
SendKeys "{home} + {end}"
Txtkd.SetFocus
Else
sql = "insert into users values ('" & Txtkd.Text & "','" & Txtnm.Text & "','" &
Txtalamt.Text & "','" & Txttlp.Text & "','" & txtpassword.Text & "','" &
cmblevel.Text & "')"
db.Execute (sql)
Call bersih
                                     5

       (Step By Step membuat program persediaan barang)
                        http://www.vbawam.com/
   End If
   End With
   End Sub




   Private Sub Form_Load()
   Call bersih
   cmblevel.AddItem "ADMIN"
   cmblevel.AddItem "USER"
   End Sub


4. Simpan Form Pengguna dengan nama FrmPengguna di Folder Persediaan
   Barang dimana Project & Database Persediaan Barang dibuat.




                                     6

            (Step By Step membuat program persediaan barang)
                         http://www.vbawam.com/

								
To top