Cara Menciptakan Isyarat Nomor Otomatis Dengan Vb 6.0
Pada Tutorial VB 6.0 Kali ini kita akan menciptakan Kode atau Nomor Otomatis pada VB 6.0, langkahnya sangat mudah, silahkan ikuti tutorial dibawah ini :
Buatlah Database dengan Nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_ANGGOTA
Design tabelnya yakni menyerupai gambar dibawah ini :
Jika sudah, Buka VB 6.0 anda
Kemudian buatlah design Form1 menyerupai gambar dibawah ini :
Kemudian masukan koding dibawah ini :
Jika sudah semua, silahkan jalankan Project anda..
Demikian Cara Membuat Kode atau Nomor Otomatis Dengan VB 6.0 biar bermanfaat untuk anda
Silahkan KLIK DISINI untuk mendownload Tutorial diatas
Buatlah Database dengan Nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_ANGGOTA
Design tabelnya yakni menyerupai gambar dibawah ini :
Jika sudah, Buka VB 6.0 anda
Kemudian buatlah design Form1 menyerupai gambar dibawah ini :
Kemudian masukan koding dibawah ini :
Dim Koneksi As New ADODB.Connection Dim RSAnggota As ADODB.Recordset Sub BukaDB() Set Koneksi = New ADODB.Connection Set RSAnggota = New ADODB.Recordset Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb" End Sub Private Sub Form_Activate() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text1.Enabled = False Call BukaDB Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; " Adodc1.RecordSource = "TBL_ANGGOTA" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 Call NomorOtomatis Text2.SetFocus End Sub Private Sub Command1_Click() Call BukaDB If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Dim TambahAnggota As String TambahAnggota = "Insert Into TBL_ANGGOTA values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')" Koneksi.Execute TambahAnggota MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan" Form_Activate End If End Sub Private Sub Command2_Click() End End Sub Private Sub NomorOtomatis() Call BukaDB On Error Resume Next RSAnggota.Open ("select * from TBL_Anggota Where KodeAnggota In(Select Max(KodeAnggota)From TBL_Anggota)Order By kodeAnggota Desc"), Koneksi RSAnggota.Requery Dim Urutan As String * 6 Dim Hitung As Long With RSAnggota If .EOF Then Urutan = "AGT" + "001" Text1 = Urutan Else Hitung = Right(RSAnggota!KodeAnggota, 3) + 1 Urutan = "AGT" + Right("000" & Hitung, 3) End If Text1 = Urutan End With End Sub Jika sudah semua, silahkan jalankan Project anda..
Demikian Cara Membuat Kode atau Nomor Otomatis Dengan VB 6.0 biar bermanfaat untuk anda
Silahkan KLIK DISINI untuk mendownload Tutorial diatas