Skip to main content

Mudah Belajar VB (Belajar VB, Coding dan VB6)

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
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 :

Unload Me

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

Silahkan baca juga belajar vb, listing vb

Comments

Popular posts from this blog

5 Fungsi Modul Input Output (I/O)

5 Fungsi Modul Input Output (I/O) Modul I/O adalah suatu komponen dalam sistem komputer yang bertanggung jawab atas pengontrolan sebuah perangkat luar atau lebih dan bertanggung jawab pula dalam pertukaran data antara perangkat luar tersebut dengan memori utama ataupun dengan register – register CPU. Dalam mewujudkan hal ini, diperlukan antarmuka internal dengan komputer (CPU dan memori utama) dan antarmuka dengan perangkat eksternalnya untuk menjalankan fungsi-fungsi pengontrolan. Fungsi dalam menjalankan tugas bagi modul I/O dapat dibagi menjadi beberapa katagori, yaitu: • Kontrol dan pewaktuan. • Komunikasi CPU. • Komunikasi perangkat eksternal. • Pem-buffer-an data. • Deteksi kesalahan. 1. Fungsi Kontrol dan Pewaktuan Fungsi kontrol dan pewaktuan (control & timing) merupakan hal yang penting untuk mensinkronkan kerja masing – masing komponen penyusun komputer. Dalam sekali waktu CPU berkomunikasi dengan satu atau lebih perangkat dengan pola tidak menentu dan kecepatan transfer

7 Pengguna dalam Basis data dan Operasi Operasi Dasar Manajemen Database

Pembahasan saat ini yaitu 7 Pengguna dalam Basis data dan Operasi Operasi Dasar Manajemen Database, arsitektur basis data, basis data, database 7 Pengguna dalam Basis data dan Operasi Operasi  Dasar Manajemen Database Pengguna dalam Basis data Pada tingkat pemakai, data base dikelompokkan menjadi beberapa tingkat pemakai yaitu antara lain sebagai berikut : 1. Database Administrator Ialah manusia yang mengorganisasi seluruh sistem basis data. Database administrator imemiliki tanggung jawab penuh dalam manajemen database meliputi: pengaturan hak akses, koordinasi dan monitoring serta bertanggung jawab terhadap kebutuhan hardware dan software. Dalam pekerjaannya biasanya dibantu oleh staf Admin. Database Administrator 2. Database Designer Adalah manusia yang bertugas merancang dan mengembangkan database. database designer bertanggung jawab dalam identifikasi data yang tersimpan dalam database, menentukan struktur data yang tepat untuk disimpan dalam database. Database designer memerlukan

5 Komponen Penting dalam Proposal Penelitian

5 Komponen Penting dalam Proposal Penelitian, tahapan metode ilmiah, metodologi penelitian, metode ilmiah