Project Program Penjualan Buah ( One To One)
PROJECT PROGRAM PENJUALAN BUAH
(ONE TO ONE TRANSACTION)
LINK DOWNLOAD :https://www.ziddu.com/download/20975671/PROJECTPROGRAMPENJUALANBUAH.docx.html
Pembuatan Database dengan menggunakan “Visual Data Manager (VisData) New à Microsoft Accessà Ver. 7.0 MDB”
Nama Database : TokoBuah
Nama-Nama Tabel:
- Buah
Field |
Type |
Size |
Index |
kd_buah |
Text |
5 |
kd_buahdex |
nm_buah |
Text |
20 |
|
harga |
Currency |
8 |
|
- Kasir
Field |
Type |
Size |
Index |
kd_kasir |
Text |
5 |
kd_kasirdex |
nm_kasir |
Text |
20 |
|
alamat |
Text |
30 |
|
- Transaksi
Field |
Type |
Size |
Index |
notrans |
Text |
5 |
xnotrans |
kd_kasir |
Text |
5 |
|
kd_buah |
Text |
5 |
|
nm_buah |
Text |
20 |
|
harga |
Currency |
8 |
|
jumlah |
Single |
4 |
|
total |
Currency |
8 |
|
Buat Project Baru dan Simpan dalam 1(satu)Folder yang sama( Database beserta project dan Form nya)
Save Project : Program1
Bentuk Tampilan Form Data Buah:
Objek Form terdiri dari : Label, TextBox, Shape, CommandButton, Data, DBGrid.
Koneksikan Database dengan Data.
Koneksikan DBGrid dengan Data.
Tampilkan Componen/Tools : Tekan CTRL + T, lalu þMicrosoft Data Bound Grid Control 5.0
Listing Program :
Sub aktif()
Dim w As Control
For Each w In Me
If TypeName(w) = "TextBox" Then w.Enabled = True
Next
End Sub
Sub nonaktif()
Dim w As Control
For Each w In Me
If TypeName(w) = "TextBox" Then w.Enabled = False
Next
End Sub
Sub bersih()
Dim w As Control
For Each w In Me
If TypeName(w) = "TextBox" Then w.Text = " "
Next
End Sub
Private Sub c1_Click()
On Error Resume Next
Data1.Recordset.MoveFirst
MsgBox "data sudah diawal record!", 16, "Informasi"
End Sub
Private Sub c2_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
MsgBox "Sudah diwal record", vbCritical, "Informasi"
End If
End Sub
Private Sub c3_Click()
On Error Resume Next
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
MsgBox "Sudah diakhir record", vbCritical, "Informasi"
End If
End Sub
Private Sub c4_Click()
On Error Resume Next
Data1.Recordset.MoveLast
MsgBox "data sudah diakhir record!", 16, "Informasi"
End Sub
Private Sub cbatal_Click()
nonaktif
bersih
cinput.Enabled = True
csimpan.Enabled = False
cbatal.Enabled = False
End Sub
Private Sub cfind_Click()
z = InputBox("Ketik Kode Buah: ", "Pencarian Buah")
Data1.Recordset.Index = "kd_buahdex"
Data1.Recordset.Seek "=", z
If Data1.Recordset.NoMatch Then
MsgBox "Data Tidak Ada", 16, "Info"
Data1.Recordset.MoveFirst
End If
nonaktif
End Sub
Private Sub chapus_Click()
If MsgBox("ingin menghapus record ini ??", 48 + vbYesNo, "Inpo") = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
nonaktif
End If
End Sub
Private Sub cinput_Click()
aktif
bersih
cinput.Enabled = False
csimpan.Enabled = True
cbatal.Enabled = True
End Sub
Private Sub ckeluar_Click()
If MsgBox("Yakin Mau Keluar", 48 + vbYesNo, "tanya") = vbYes Then
Unload Me
End If
End Sub
Private Sub csimpan_Click()
With Data1.Recordset
.AddNew
!kd_buah = Text1
!nm_buah = Text2
!harga = Text3
.Update
Data1.Refresh
nonaktif
bersih
csimpan.Enabled = False
cinput.Enabled = True
cbatal.Enabled = False
End With
End Sub
Private Sub Form_Activate()
nonaktif
csimpan.Enabled = False
cbatal.Enabled = False
End Sub
Buat Tampilan Transaksinya sebagai Berikut:
Objek didalam Form terdiri dari : Label, Timer, TextBox, CommandButton, Shape, Data, DBGrid, DBCombo.
Tampilkan Componen/Tools : Tekan CTRL + T, lalu þMicrosoft Data Bound Grid Control 5.0
Koneksikan Database dengan Data
Koneksikan DBGRID dengan Data
Listing Program:
Sub bersih()
notrans = " "
dkode = " "
kasir = " "
dbbuah = " "
tbuah = " "
tharga = " "
tjum = " "
total = 0
tubay = " "
tukem = 0
End Sub
Sub aktif()
Dim z As Control
For Each z In Me
If TypeName(z) = "DBCombo" Then z.Enabled = True
Next
notrans.Enabled = True
tjum.Enabled = True
tubay.Enabled = True
End Sub
Sub nonaktif()
Dim z As Control
For Each z In Me
If TypeName(z) = "DBCombo" Then z.Enabled = False
Next
notrans.Enabled = False
tjum.Enabled = False
tubay.Enabled = False
End Sub
Private Sub cbatal_Click()
bersih
nonaktif
End Sub
Private Sub chitung_Click()
total = Val(tharga) * Val(tjum)
tubay.SetFocus
End Sub
Private Sub cinput_Click()
bersih
aktif
notrans.SetFocus
End Sub
Private Sub ckeluar_Click()
If MsgBox("Keluar Program", 64 + vbYesNo, "Info") = vbYes Then
Unload Me
End If
End Sub
Private Sub csimpan_Click()
With dtrans.Recordset
.AddNew
!notrans = notrans
!kd_kasir = dkode
!kd_buah = dbbuah
!nm_buah = tbuah
!harga = tharga
!jumlah = tjum
!total = total
.Update
dtrans.Refresh
Call bersih
Call nonaktif
End With
End Sub
Private Sub dbbuah_Change()
On Error Resume Next
dbuah.Recordset.Index = "kd_buahdex"
dbuah.Recordset.Seek "=", dbbuah
If Not dbuah.Recordset.NoMatch Then
tbuah.Text = dbuah.Recordset!nm_buah
tharga.Text = dbuah.Recordset!harga
tjum.SetFocus
End If
End Sub
Private Sub dkode_Change()
On Error Resume Next
dkasir.Recordset.Index = "kd_kasirdex"
dkasir.Recordset.Seek "=", dkode
If Not dkasir.Recordset.NoMatch Then
kasir.Text = dkasir.Recordset!nm_kasir
End If
End Sub
Private Sub Form_Activate()
bersih
nonaktif
End Sub
Private Sub Timer1_Timer()
tgl = Format(Date, "dd-mm-yyyy")
wkt = Time()
End Sub
Private Sub tubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tukem = Val(tubay) - Val(total)
End If
End Sub