Mudah Belajar VB, Belajar Pemrograman, belajar vb6, bahasa pemrograman, belajar vb, dasar pemrograman, pemrograman, belajar coding, kursus programmer.
Belajar Coding Simpel Pada Form Input Data
Berikut ini adalah koding yang sangat simpel untuk form input data. Pada form ini menggunakan Data1 Recordset yang sangat mudah dalam pengaturannya. Sebagai contoh disini saya membuat form input data calon pengantin yang menggunakan kombinasi text box dan combo button.
 |
Form Input Data
|
Untuk memasukkan koding Tambah pada form ini yaitu dengan cara klik dua kali Command Button Tambah. Kemudian masukkan koding berikut ini :
On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
Untuk memasukkan koding Simpan pada form ini yaitu dengan cara klik dua kali Command Button Simpan. Kemudian masukkan koding berikut ini :
On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Untuk memasukkan koding Edit pada form ini yaitu dengan cara klik dua kali Command Button Edit. Kemudian masukkan koding berikut ini :
On Error GoTo c
Data1.Recordset.Edit
c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
Untuk memasukkan koding Hapus pada form ini yaitu dengan cara klik dua kali Command Button Hapus. Kemudian masukkan koding berikut ini :
On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Untuk memasukkan koding Cari pada form ini yaitu dengan cara klik dua kali Command Button Cari. Kemudian masukkan koding berikut ini :
On Error Resume Next
Dim kode As String
kode = InputBox("Ketik Nomor Daftar Wanita")
Data1.Recordset.Index = "idxwanita"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Combo1.Text = Data1.Recordset.Fields(6)
Text7.Text = Data1.Recordset.Fields(7)
Text8.Text = Data1.Recordset.Fields(8)
Text9.Text = Data1.Recordset.Fields(9)
Text10.Text = Data1.Recordset.Fields(10)
Text11.Text = Data1.Recordset.Fields(11)
Text12.Text = Data1.Recordset.Fields(12)
Text13.Text = Data1.Recordset.Fields(13)
Text14.Text = Data1.Recordset.Fields(14)
Text15.Text = Data1.Recordset.Fields(15)
Text16.Text = Data1.Recordset.Fields(16)
response = MsgBox("Data tidak ditemukan!", 0, "Pencarian Nomor Daftar Wanita")
End If
Untuk memasukkan koding Keluar pada form ini yaitu dengan cara klik dua kali Command Button Keluar. Kemudian masukkan koding berikut ini :
Untuk koding yang digunakan menghubungkan database dan tabel atau yang sering disebut dengan koding form_load adalah sebagai berikut.
Private Sub form_load()
Data1.DatabaseName = App.Path & "/nikah.mdb"
Data1.RecordSource = "pengantinwanita"
Cmb1
End Sub
Sedangkan untuk koding Cmb1 atau combo1 yang digunakan untuk memilih input data agama adalah sebagai berikut :
Private Sub Cmb1()
Combo1.AddItem "Islam"
Combo1.AddItem "Kristen"
Combo1.AddItem "Hindu"
Combo1.AddItem "Budha"
Combo1.AddItem "Konghucu"
End Sub
Comments
Post a Comment