Membuat No Transaksi Otomatis Format Tanggal Dengan Vb 6.0
Pada pembelajaran VB 6.0 kali ini kami bahas mengenai Cara Membuat Faktur Otomatis Format Tanggal Dengan VB 6.0. Jika pada tutorial sebelumnya kita telah membahas wacana No Otomatis format urutan biasa, disini otomatisnya memakai tanggal. Ada beberapa laba dalam menciptakan Format tanggal, yaitu :
1. Dengan No Transaksi kita dapat melihat tanggal transaksinya
2. Format Tanggal lebih range fieldnya lebih lebar
3. Format tanggal lebih gampang membuktikan dalam setiap transaksi
Baik pribadi saja, berikut langkahnya :
Buatlah sebuah folder dengan nama : VB6NOOTOMATISTANGGAL
Buatlah Database dengan nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_TRANSAKSI
Design TBL_TRANSAKSI yaitu sebagai berikut :
Jika sudah menciptakan database diatas, masukan ke dalam folder : VB6NOOTOMATISTANGGAL
Kemudian buka Aplikasi VB 6.0 anda
Buatlah form ibarat gambar dibawah dan simpan pada folder yang sama ibarat diatas
Pada form1, silahkan masukan koding dibawah ini :
Terakhir, silahkan jalankan Project VB 6.0 andaSemoga bermanfaat untuk anda, dan jangan lupa untuk berkomentar dibawah :)
1. Dengan No Transaksi kita dapat melihat tanggal transaksinya
2. Format Tanggal lebih range fieldnya lebih lebar
3. Format tanggal lebih gampang membuktikan dalam setiap transaksi
Baik pribadi saja, berikut langkahnya :
Buatlah sebuah folder dengan nama : VB6NOOTOMATISTANGGAL
Buatlah Database dengan nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_TRANSAKSI
Design TBL_TRANSAKSI yaitu sebagai berikut :
Kemudian buka Aplikasi VB 6.0 anda
Buatlah form ibarat gambar dibawah dan simpan pada folder yang sama ibarat diatas
Dim Koneksi As New ADODB.Connection Dim RSTransaksi As ADODB.Recordset Sub BukaDB() Set Koneksi = New ADODB.Connection Set RSTransaksi = New ADODB.Recordset Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb" End Sub Sub KodeOtomatis() Call BukaDB RSTransaksi.Open ("select * from TBL_TRANSAKSI Where NoTransaksi In(Select Max(NoTransaksi)From TBL_TRANSAKSI)Order By NoTransaksi Desc"), Koneksi RSTransaksi.Requery Dim Urutan As String * 12 Dim Hitung As Long With RSTransaksi If .EOF Then Urutan = "T" + Format(Date, "yyyymmdd") + "001" Text1 = Urutan Else If Left(RSTransaksi!NoTransaksi, 9) <> "T" + Format(Date, "yyyymmdd") Then Urutan = "T" + Format(Date, "yyyymmdd") + "001" Else Hitung = Right(RSTransaksi!NoTransaksi, 3) + 1 Urutan = "T" + Format(Date, "yyyymmdd") + Right("000" & Hitung, 3) End If Text1 = Urutan End If End With End Sub Private Sub Command1_Click() Call KodeOtomatis Text1.Enabled = False Text2.Enabled = False Text2.Text = Date$ Text3.SetFocus Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Call BukaDB If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Dim TambahPenjualan As String TambahPenjualan = "Insert Into TBL_TRANSAKSI values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')" Koneksi.Execute TambahPenjualan MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan" Call KondisiAwal Form_Activate End If End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; " Adodc1.RecordSource = "TBL_TRANSAKSI" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Private Sub Form_Load() Text1.MaxLength = 12 Text2.MaxLength = 10 Call KondisiAwal End Sub Sub KondisiAwal() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Command1.Enabled = True Command2.Enabled = False End Sub Terakhir, silahkan jalankan Project VB 6.0 andaSemoga bermanfaat untuk anda, dan jangan lupa untuk berkomentar dibawah :)