Membuat Form Supplier Aplikasi Pembelian Vb 6.0

Pada pebelajaran VB 6.0 kali ini akan dibahas mengenai Cara Membuat Form Supplier Aplikasi Pembelian VB 6.0. Jika pada tahap sebelum ini kita telah menciptakan Tabel Supplier dan Tabel Barang, maka disini kita kan mendesign Form Supplier sebagai pemasok barang pada Aplikasi Pembelian.

Langkah sebelumnya :
1. Membuat Project Aplikasi Pembelian
2. Membuat Form Menu Utama
3. Membuat Database dan Tabel
4. Membuat Koneksi Database Dengan Module
5. Membuat Form Login Aplikasi Pembelian
6. Membuat Koding Logout Aplikasi Pembelian 
7. Membuat Form Master Admin
8. Membuat Tabel Supplier dan Tabel Barang Pada Database

Berikut langkahnya :
Buka Project Aplikasi Pembelian Anda sebelumnya :

Jika dilihat gambar diatas, maka anda telah sukses menciptakan FormMasterAdmin pada tahap sebelumnya.
Klik Project - Add Form

Klik Form lalu Klik Open
Buatlah FormMasterSupplier
Design FormMasterSupplier ialah sebagai berikut :

Kemudian masukan koding dibawah ini :
Pada FormMenuUtama tambahkan koding dibawah :

Private Sub MnSupplier_Click()    FormMasterSupplier.Show vbModal End Sub

Pada FormMasterSupplier masukan koding dibawah ini :

Dim mvBookMark As Variant Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Call BukaDB Dim SQLTambah As String             SQLTambah = "Insert Into TBL_SUPPLIER values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"             Koneksi.Execute SQLTambah             MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"             Form_Activate             Call kondisiawal End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 50 Text3.MaxLength = 30 Text4.MaxLength = 20 kondisiawal End Sub Private Sub kondisiawal()     Command1.Caption = "&Input"     Command2.Caption = "&Edit"     Command3.Caption = "&Hapus"     Command4.Caption = "&Tutup"     Command1.Enabled = True     Command2.Enabled = True     Command3.Enabled = True     Text1 = ""     Text2 = ""     Text3 = ""     Text4 = "" End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = Koneksi Adodc1.RecordSource = "select * from TBL_SUPPLIER" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Call kondisiawal Command1.SetFocus End Sub

Silahkan jalankan Project Aplikasi Pembelian anda.

Silahkan KLIK DISINI untuk melanjutkan ke tahap berikutnya.
Silahkan KLIK DISINI untuk download Project diatas

Share this post