Penomoran Otomatis Di Visual Basic 6.0

Oleh Pengetahuan Populer

Thursday, 10 July 2014

Bagikan :

Tweet

 

1. Penjelasan

Penomoran otomatis seperti ini biasanya di gunakan pada aplikasi penjualan barang, baik itu di toko-toko, di supermarket-supermarket,di apotik dan lain-lain,kasus yang sering menggunakan sistem penomoran otomatis ini biasa nya pada saat kita akan memberi nomor transaksi dan atau nomor faktur agar pengguna komputer tidak harus berpusing-pusing mengingat berapa nomor faktur atau nomor transaksi sebelumnya,dan penomoran otomatis ini juga berfungsi agar tidak terjadi istilah nomor faktur atau nomor transaksi ganda.sehingga dapat meminimalisir kesalahan.

2. Langkah Pembuatan

langkah-langkah yang harus di lakukan adalah sebagai berikut :

1. Buatlah Tiga label
2. tiga Text Box
3. Lima Command Button
4. satu Komponen Microsoft Data Bound Grid control 5.0 (SP3) untuk menampilkan hasil transaksi
5. satu Komponen data untuk menyambungkan database dengan Data Bound Grid dan untuk menyimpan hasil transaksi

buatlah seperti tampilan di bawah ini :

3. Pengkodean

Simpanlah kode di bawah ini pada tombol NRP auto yang berfungsi untuk membuat Nomor transaksi atau nomor faktur secara otomatis :

Data1.Recordset.AddNew
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Data1.Recordset.Edit
Data1.Recordset!nrp = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!jurusan = Text3.Text
Data1.Recordset.Update
DBGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
Dim keluar As String
keluar = MsgBox("Apakah anda yakin akan keluar... .??", vbYesNo + vbInformation, "konpirmasi")
If keluar = vbYes Then
Unload Me
End If
End Sub

Private Sub Command4_Click()
On Error Resume Next
Dim NoB As Long
Dim NoL As String
If Data1.Recordset.BOF And Data1.Recordset.EOF Then
NoB = 1
Else
Data1.Recordset.MoveLast
NoB = Val(Data1.Recordset!nrp) + 1
End If
Text1.Text = Left("00000", 6 - Len(Trim(Str(NoB)))) & Trim(Str(NoB))
End Sub

Private Sub Command5_Click()
Dim hapus As String
hapus = MsgBox("Apakah Anda Yakin Akan Menghapus.. ??", vbYesNo + vbInformation, "konpirmasi")
If hapus = vbYes Then
Data1.Recordset.Delete
End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.Recordset.Index = "nrp"
Data1.Recordset.Seek "=", Text1.Text
If Not Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset!nrp
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!jurusan
Else
MsgBox "maaf data tidak di temukan", vbOKOnly + vbInformation, "Konfirmasi"
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End If
End If

Selamat Mencoba semoga sukses !!!!!