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

Read more »

Posted in: VB

Cara menambahkan DBGRID di VB 6.0

Tanpa Panjang lebar kita langung saja, sebenarnya DBGRID tersebut tak selmanya ada saat kita instal VB pada PC atau Leptop kita, langkah dasarnya kita perlu istal DBGRID tersebut carnya seperti di bawah ini.

1. lakukan pencarian DBGRID32.ocx pada CD/DVD, VB 6.0 . Senebenarnya lama jika kita cari satu persatu. lebih baik anda  search, saya ambil contoh pada Windows 7 lihat gambar di bawah ini.

2. Selanjutnya Copy + Paste DBGRID32.OCX ke System32, Lihat contoh gambar di  bawah ini

3. Langkah selanjutnya tuliskan cmd.exe pada Run. tekan enter lihat gamabr di bawah ini

4. Jika sudah tapil pada gambar di bawah ini tulis kan 

5. tulisakn seperti ini (C:\Windows\system32\regsvr32 dbgrid32.ocx) tanpa buka kurung lihat gambrar

6. Setelah itu akan ada informasi bahwa istlan ada sudah selesai sukses deh, maka selanjutnya buka VB 6.0

7. Instal Registry

Jika Blem Punya Bisa Anda DOWNLOAD di bawah INI

1. Dbgrid32.ocx                    DOWNLOAD
2. Registry                             DOWNLOAD 
3. Registry1                           DOWNLOAD
semoga bermanfaat, bagi yang masih bingung silahkan komen di bawah ini

Read more »

Posted in: VB

Membuat Record set Di VB 6.0

Buat lah Form Dengan Lay-Out Sbb:

Atur properti untuk Kontrol - kontrol Sbb:

Kontrol	Properti	Nilai
Form1	Caption	Formulir Data Barang
Data1	Name Caption Connect DatabaseName RecordsetType RecordSource	dbPembelian Database Pembelian Acces C:\ase\pembelian.mdb 0-Table Barang
Label1	Caption	Kode Barang
Label2	Caption	Nama
Label3	Caption	Satuan
Label4	Caption	Harga satuan
Text1	Name DataField DataSource Text	Txtkode Kode Dbpembelian Kosongkan
Text2	Name DataField DataSource Text	Txtnama Nama Dbpembelian Kosongkan
Text3	Name DataField DataSource Text	Txtsatuan Satuan Dbpembelian Kosongkan
Text4	Name DataField DataSource Text	Txtharga Harga Dbpembelian Kosongkan
Command1	Nama Caption ToolTypeText	CmdTop Top Top
Command2	Nama Caption ToolTypeText	CmdPrevious Previous Previous
Command3	Nama Caption ToolTypeText	CmdNext Next Next
Command4	Nama Caption ToolTypeText	CmdLast Last Last
Command5	Nama Caption ToolTypeText	CmdNew New New
Command6	Nama Caption ToolTypeText	CmdSave Save Save

Command7

Nama Caption ToolTypeText

CmdUndo Undo Undo

Command8

Nama Caption ToolTypeText

CmdEdit Edit Edit

Commsand9

Nama Caption ToolTypeText

CmdDel Delete Delete

Command10

Nama Caption ToolTypeText

CmdFind Find Find

Command11

Nama Caption ToolTypeText

CmdExit Exit Exit

Tulis Kode Program sebagai brikut
Dim tambah As Boolean
Sub nonaktif()
Dim ctl As Control
For Each ctl In FormBrg
If TypeName(ctl) = "textbox" Then
ctl.Locked = True
End If
If TypeName(ctl) = "combobox" Then
ctl.Locked = True
End If
Next
End Sub

Private Sub CmdDel_Click()
Del = MsgBox("Record ini dihapus ?", 36, "Konfirmasi")
If Del = 6 Then
dbPembelian.Recordset.Delete
dbPembelian.Recordset.MoveNext
If dbPembelian.Recordset.EOF Then
dbPembelian.Recordset.MoveLast
End If
End If
End Sub

Private Sub CmdEdit_Click()
dbPembelian.Recordset.Edit
aktif
End Sub

Private Sub CmdExit_Click()
Unload Me
End Sub

Private Sub CmdFind_Click()
Dim mkode As String * 6
mkode = InputBox("ketik Kode barangnya :", "Pencarian Data Barang")
msyarat = "kode=" '& mkode &"'"
dbPembelian.Recordset.Index = "KodeBrg"
dbPembelian.Recordset.Seek "=", mkode
If dbPembelian.Recordset.NoMatch Then
MsgBox "Record kode Barang" + cr + "Tidak ada", 16, "Informasi"
End If
End Sub

Private Sub CmdLast_Click()
dbPembelian.Recordset.MoveLast
MsgBox "Sudah di akhiri record", 16, "Informasi"
End Sub

Private Sub CmdNew_Click()
tambah = True
dbPembelian.Recordset.AddNew
kosong
aktif
End Sub

Private Sub CmdNext_Click()
dbPembelian.Recordset.MoveNext
If dbPembelian.Recordset.EOF Then
dbPembelian.Recordset.MoveLast
MsgBox "Sudah di akhir record", 16, "Informasi"
End If
End Sub

Private Sub CmdPrevious_Click()
dbPembelian.Recordset.MovePrevious
If dbPembelian.Recordset.BOF Then
dbPembelian.Recordset.MoveFirst
MsgBox "Sudah di awal record", 16, "Informasi"
End If
End Sub


Private Sub CmdSave_Click()
If tambah = True Then
dbPembelian.Recordset.Update
Else
dbPembelian.Recordset.Update
End If
nonaktif
End Sub

Private Sub CmdTop_Click()
dbPembelian.Recordset.MoveFirst
MsgBox "sodah di awal record", 16, "Informasi"
End Sub

Private Sub CmdUndo_Click()
dbPembelian.Recordset.CancelUpdate
dbPembelian.Recordset.MoveLast
nonaktif
End Sub

Private Sub Form_Load()
nonaktif
tambah = False
End Sub

Sub kosong()
Dim ctl As Control
For Each ctl In FormBrg
If TypeName(ctl) = "textbox" Then
ctl.Text = ""
End If
If TypeName(ctl) = "combobox" Then
ctl.Text = ""
End If
Next
End Sub

Sub aktif()
Dim ctl As Control
For Each ctl In FormBrg
If TypeName(ctl) = "textbox" Then
ctl.Locked = False
End If
If TypeName(ctl) = "combobox" Then
ctl.Locked = False
End If
Next
End Sub


Jalankan Aflikasi tersebut dengan menekan F5

Simpan Program di atas dengan nama LAT01.

Read more »

Posted in: VB