Membuat menu dan Form data Data pembelian dan penjualan Part 1

Ok langsung saja berikut ini adalah langkah langkah membuat menu
1. Buat project dan tampilkan form
2. Klik Form lalu ubah lah properti  Name nya menjadi frmmenu  dan properti captionnya  menjadi Menu Program pembelian & penjualan
3. Klik kanan pada Form pilih Menu Editor maka akantampil jendela sepert gambar di bawah ini

4. Isi Caption  dengan menu (&File) tanpa tanda kurung
5. Isilah Name dengan nama pengenal menu sebagai procedure atau objek untuk kode program misalkan (mnFile)
6. Beri tanda Enable agar menu ini bisa di pilih
7. Beri tanda Visible agara menu ini di tampilkan di layar
8. Gunakan icon tanda panah untuk mengubah letak / level menu
9. Klik Next untuk membuat pilihan/ Menu berikutnya
10. Pilih Delete untuk menghapus menu yang di tunjuk
11. Pilih Insert Untuk menyisipkan pilihan baru pada posisi yang sekarang di tunjuk
12. Lengkapi struktur mneu menjadi seperti tabel di bawah ini

Caption			Name
Level 1	Level 2	Level 3
&File			mnFile
	Data Supplier		mnSupplier
	Data Barang		mnBarang
	Data Customer		mnCustomer
&Transaksi			mnTransaksi
	Pembelian		Mnbeli
		Input	MnInputBeli
		Browse	MnBrowseBeli
	Penjualan		mnJual
		Input	MnInputJual
		Browse	MnBrowseJual
&cetak			mnCetak
	Supplier		mnCetakSupplier
	Barang		mnCetakBarang
	Customer		mnCetakCustomer
	Pembelian		mnCetakPembelian
	Penjualan		mnPenjualan
&Selesai			mnSelesai
	Tutup Program		mnCetak

13. Setelah selesai klik Ok
14. Jalankan Aplikasi tersebut dengan menekan F5

Ok setelah Form menu utama terbentuk langkah berikutnya adalh membuat program untuk sub menu.

a. Membuat program  Data Supplier

•  Klik Sub menu data supplier pada frmmenu
• Buat prosedur untuk menghubungkan frmmenu dengan frmupplier. Ketikan kode program seperti di bawah ini

Private Sub mnSupplier_Click()
FrmSupplier.Show
End Sub

• Klik menu Project, Add Form, Form, Open.
• Buat Form seperti berikut

•  Atur Property Untuk Kontrol Kontrolnya Sebagai berikut :

 

Kontrol	Properti	Nilai
Form1	Name	frmSupplier
	Caption	Data Supplier
SSTab	Tabs	2
	Caption {Tab 0}	Input Supplier
	Caption {Tab 1}	Browse Supplier
Command1	Name	CmdClose
	Caption	Close
Data	Caption	Data Supplier
	DatabaseName	C:\Pembelian.mdb
	RecordsetType	0-Table
	RecordSource	Supplier
Text1	Name	txtKode
Text2	Name	txtNama
Text3	Name	txtAlamat
Text4	Name	txtKota
Text5	Name	txtHubungan
Text6	Name	txtTelepon
Command2		CmdSimpan
Command3		CmdBatal

• Selanjutnya Klik Browse Supplier kemudian tambahkan Objek-objeknya seperti berikut

•  Atur Properti untuk Kontrol -kontrolnya sebagai berikut :

 

Kontrol	Properti	Nilai
Text1	Name	txtCariKode
Text2	Name	txtCariNama
Cammand	Name	CmdHapusRecord
DBGrid	DataSource	Data1

• Selanjutnya Tampilkan editor kode program dan tulislah kode programnya seperti berikut

Private Sub cmdBatal_Click()
txtKode.Text = ""
BlankForm
TidakSiapIsi
txtKode.SetFocus
End Sub

Private Sub cmdClose_Click()
FrmSupplier.Hide
FrmMenu.Show
End Sub

Private Sub cmdHapusRecord_Click()
Dim x As Byte
x = MsgBox("Betul akan di hapus ?", vbOKCancel, "Menghapus record")
If x = vbOK Then
Data1.Recordset.Delete
End If
End Sub

Private Sub cmdSimpan_Click()
Data1.Recordset.AddNew
Data1.Recordset!Kode = txtKode.Text
Data1.Recordset!Nama = txtNama.Text
Data1.Recordset!Alamat = TxtAlamat.Text
Data1.Recordset!Kota = TxtKota.Text
Data1.Recordset!Hubungan = TxtHubungan.Text
Data1.Recordset!Telepon = TxtTelepon.Text
Data1.Recordset.Update
cmdBatal_Click
End Sub

Private Sub Form_Activate()
txtKode.SetFocus
txtKode.MaxLength = 5
txtNama.MaxLength = 30
TxtAlamat.MaxLength = 30
TxtKota.MaxLength = 10
TxtHubungan.MaxLength = 30
TxtTelepon.MaxLength = 20
TidakSiapIsi
End Sub

Private Sub SSTab1_GotFocus()
If SSTab1.Caption = "input supplier" Then
txtKode.SetFocus
Else
txtCariKode.SetFocus
End If
End Sub



Private Sub TxtCariKode_Change()
Data1.Recordset.Index = "KodeSpl"
Data1.Recordset.Seek "<=", txtCariKode.Text
If Data1.Recordset.NoMatch Then
If Len(Trim(txtCariKode.Text)) = 5 Then
Beep
End If
End If
End Sub
Private Sub TxtCariNama_Change()
Data1.Recordset.Index = "NamaSpl"
Data1.Recordset.Seek "<=", Trim(TxtCariNama.Text) & "ZZZ"
If Data1.Recordset.NoMatch Then
If Len(Trim(TxtCariNama.Text)) = 30 Then
Beep
End If
End If
End Sub

Private Function TidakSiapIsi()
txtNama.Enabled = False
TxtAlamat.Enabled = False
TxtKota.Enabled = False
TxtHubungan.Enabled = False
TxtTelepon.Enabled = False
txtNama.BackColor = &H8000000F
TxtAlamat.BackColor = &H8000000F
TxtKota.BackColor = &H8000000F
TxtHubungan.BackColor = &H8000000F
TxtTelepon.BackColor = &H8000000F
cmdSimpan.Enabled = False
End Function

Private Function SiapIsi()
txtNama.Enabled = True
TxtAlamat.Enabled = True
TxtKota.Enabled = True
TxtHubungan.Enabled = True
TxtTelepon.Enabled = True
txtNama.BackColor = &H8000000E
TxtAlamat.BackColor = &H8000000E
TxtKota.BackColor = &H8000000E
TxtHubungan.BackColor = &H8000000E
TxtTelepon.BackColor = &H8000000E
cmdSimpan.Enabled = True
End Function

Private Function BlankForm()
txtNama.Text = ""
TxtAlamat.Text = ""
TxtKota.Text = ""
TxtHubungan.Text = ""
TxtTelepon.Text = ""
End Function

Private Sub TxtKode_Change()
If Len(Trim(txtKode.Text)) < 5 Then
Exit Sub
End If
Data1.Recordset.Index = "KodeSpl"
Data1.Recordset.Seek "=", txtKode.Text
If Not Data1.Recordset.NoMatch Then
On Error Resume Next 'Jika Field Kosong , abaikan!
txtNama.Text = Data1.Recordset!Nama
TxtAlamat.Text = Data1.Recordset!Alamat
TxtKota.Text = Data1.Recordset!Kota
TxtHubungan.Text = Data1.Recordset!Hubungan
TxtTelepon.Text = Data1.Recordset!Telepon
TidakSiapIsi
On Error GoTo 0
Exit Sub
End If
SiapIsi
BlankForm
txtNama.SetFocus
End Sub

• Simpan Project dan form lalu jalankan

Posted in: VB