Tugas VB Kelompok

Kode Program
Private Sub bantuan_Click()
MsgBox “Untuk Masuk Sistem Silakan Login”, vbInformation, “Bantuan”
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub login_Click()
Frmlogin.Show vbModal
End Sub

Kode Program
Private Sub Command1_Click()
Dim s As Integer
s = s + 1
If (LCase(txtpassword.Text) = “12345”) And (kesempatan <= 3) Then
frmmenu.Show vbModal
Unload Me
txtuser.Enabled = False
txtpassword.Enabled = False
Command1.Enabled = True
Exit Sub
ElseIf txtpassword.Text = "" Then
MsgBox "password harus diisi", o + 64
Exit Sub
End If
If txtpassword.Text = "12345" Then
frmmenu.Show
Unload Me
Else
MsgBox "Akses Ditolak! Kombinasi Password Tidak Tepat", vbOKOnly + vbCritical, "konfirmasi"
txtpassword.Text = ""
txtpassword.SetFocus
End If
End Sub

Private Sub Txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub txtuser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Kode Program
Private Sub barang_Click()
frmbrng.Show vbModal
End Sub

Private Sub faktur_Click()
frmfaktur.Show vbModal
End Sub

Private Sub gudang_Click()
frmgudang.Show vbModal
End Sub

Private Sub kasir_Click()
frmkasir.Show vbModal
End Sub
Private Sub keluar_Click()
End
End Sub

Private Sub order_Click()
frmorder.Show vbModal
End Sub

Private Sub penjualan_Click()
frmpenjualan.Show vbModal
End Sub

Private Sub suplier_Click()
frmsuplier.Show vbModal
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtbarang.Recordset.Edit
dtbarang.Recordset.CancelUpdate
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtbarang.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdinput_Click()
dtbarang.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
dtbarang.Recordset.Update
dtbarang.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub Command1_Click()
Mfield = InputBox("kode_barang", "mencari field")
dtbarang.Recordset.FindFirst "kode_barang='" + Mfield + "'"
If dtbarang.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari Kode"
dtbarang.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("Hapus Data?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtbarang.Recordset.Delete
dtbarang.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtbarang.Recordset.MoveFirst
End If
End Sub

Private Sub dtbarang_Reposition()
dtbarang.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtbarang.RecordSource = "frmbrng"
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub Option1_Click()
If Option1.Value = True And Option2.Value = False Then
dtbarang.Recordset.Sort = "kode_barang"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True And Option1.Value = False Then
dtbarang.Recordset.Sort = "Nama_barang"
End If
End Sub

Kode Program
Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = False
End Sub

Private Sub cmdbatal_Click()
dtgudang.Recordset.Edit
dtgudang.Recordset.CancelUpdate
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtgudang.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdhapus_Click()
End Sub

Private Sub cmdinput_Click()
dtgudang.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
Dim m, p, k As Integer
Dim s As Long
m = Val(Text4.Text)
p = Val(Text5.Text)
k = Val(Text6.Text)
s = (m + p) – k
Text7.Text = s
dtgudang.Recordset.Update
dtgudang.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub Command1_Click()
Mfield = InputBox("kode_gudang", "mencari field")
dtgudang.Recordset.FindFirst "kode_gudang='" + Mfield + "'"
If dtgudang.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari Kode"
dtgudang.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtgudang.Recordset.Delete
dtgudang.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtgudang.Recordset.MoveFirst
End If
End Sub

Private Sub dtgudang_Reposition()
dtgudang.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtgudang.RecordSource = "frmgudang"
End Sub
Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
dtgudang.Recordset.Sort = "Kode gudang"
End If
End Sub

Private Sub Option2_Click()
If Option1.Value = True Then
dtgudang.Recordset.Sort = "Kode order"
End If
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtorder.Recordset.Edit
dtorder.Recordset.CancelUpdate
Call aktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdedit_Click()
dtorder.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdinput_Click()
dtorder.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
dtorder.Recordset.Update
dtorder.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub Command1_Click()
Mfield = InputBox("kode_order", "mencari field")
dtorder.Recordset.FindFirst "kode_order='" + Mfield + "'"
If dtorder.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari Kode"
dtorder.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtorder.Recordset.Delete
dtorder.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtorder.Recordset.MoveFirst
End If
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub dtorder_Reposition()
dtorder.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtorder.RecordSource = "frmorder"
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
dtorder.Recordset.Sort = "Kode order"
End If
End Sub

Private Sub Option2_Click()
If Option1.Value = True Then
dtorder.Recordset.Sort = "Kode Suplier"
End If
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtsuplier.Recordset.Edit
dtsuplier.Recordset.CancelUpdate
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub Cmdcari_Click()
Mfield = InputBox("Kode_suplier", "mencari field")
Msyarat = InputBox("Nama_suplier", "mencari" & Mfield)
If IsNumeric(Msyarat) Then
Mkriteria = Mfield & "=" & Msyarat
ElseIf IsDate(Msyarat) Then
Mkriteria = Mfield & "=" & "#" & Msyarat & "#"
Else
Mkriteria = Mfield & "=" & "'" & Msyarat & "'"
End If
With dtsuplier.Recordset
On Error Resume Next
.find Mkriteria, , adsearchforward, 1
On Error GoTo 0
If .EOF Then
MsgBox "data tidak ditemukan", , "data tidak ada"
End If
End With
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtsuplier.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub
Private Sub cmdhapus_Click()
End Sub

Private Sub cmdinput_Click()
dtsuplier.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
dtsuplier.Recordset.Update
dtsuplier.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub dtgudang_Reposition()
dtsuplier.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtsuplier.RecordSource = "frmsuplier"
End Sub
Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtsuplier.Recordset.Delete
dtsuplier.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtsuplier.Recordset.MoveFirst
End If
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
dtsuplier.Recordset.Sort = "Kode Suplier"
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
dtsuplier.Recordset.Sort = "Nama Suplier"
End If
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtfaktur.Recordset.Edit
dtfaktur.Recordset.CancelUpdate
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtfaktur.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdinput_Click()
dtfaktur.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
dtfaktur.Recordset.Update
dtfaktur.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub dtgudang_Reposition()
dtfaktur.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtfaktur.RecordSource = "frmfaktur"
End Sub

Private Sub Command1_Click()
Mfield = InputBox("no_faktur", "mencari field")
dtfaktur.Recordset.FindFirst "no_faktur='" + Mfield + "'"
If dtfaktur.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari faktur"
dtfaktur.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtfaktur.Recordset.Delete
dtfaktur.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtfaktur.Recordset.MoveFirst
End If
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
dtfaktur.Recordset.Sort = "Kode faktur"
End If
End Sub

Private Sub Option2_Click()
If Option1.Value = True Then
dtfaktur.Recordset.Sort = "Nama Barang"
End If
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtkasir.Recordset.Edit
dtkasir.Recordset.CancelUpdate
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtkasir.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdinput_Click()
dtkasir.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
dtkasir.Recordset.Update
dtkasir.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub dtgudang_Reposition()
dtkasir.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtkasir.RecordSource = "frmkasir"
End Sub

Private Sub Command1_Click()
Mfield = InputBox("kode_kasir", "mencari field")
dtkasir.Recordset.FindFirst "kode_kasir='" + Mfield + "'"
If dtkasir.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari Kode"
dtkasir.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtkasir.Recordset.Delete
dtkasir.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtkasir.Recordset.MoveFirst
End If
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
dtkasir.Recordset.Sort = "Kode kasir"
End If
End Sub

Private Sub Option2_Click()
If Option1.Value = True Then
dtkasir.Recordset.Sort = "nama kasir"
End If
End Sub

Kode Program
Private Sub cmdbatal_Click()
dtpenjualan.Recordset.Edit
dtpenjualan.Recordset.CancelUpdate
Call aktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdedit_Click()
dtpenjualan.Recordset.Edit
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdhapus_Click()
End Sub

Private Sub cmdinput_Click()
dtpenjualan.Recordset.AddNew
Call aktif
Text1.SetFocus
cmdinput.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdedit.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
Dim harga, jumlah As Integer
Dim bayar As Long
harga = Val(Text6.Text)
jumlah = Val(Text7.Text)
bayar = (harga * jumlah)
Text8.Text = bayar
dtpenjualan.Recordset.Update
dtpenjualan.Recordset.MoveFirst
Call gxaktif
cmdinput.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdedit.Enabled = True
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command1_Click()
Mfield = InputBox("kode_penjualan", "mencari field")
dtpenjualan.Recordset.FindFirst "kode_penjualan='" + Mfield + "'"
If dtpenjualan.Recordset.NoMatch Then
MsgBox "Kode tidak Ditemukan", vbQuestion, "Cari Kode"
dtpenjualan.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
hapus = MsgBox("HAPUS DATA?", vbInformation + vbYesNo, "hapus data")
If hapus = vbYes Then
dtpenjualan.Recordset.Delete
dtpenjualan.Recordset.MoveNext
Else
MsgBox "Hapus Data Di Batalkan", , "Batal Hapus"
dtpenjualan.Recordset.MoveFirst
End If
End Sub

Private Sub dtpenjualan_Reposition()
dtpenjualan.DatabaseName = App.Path & "D:\Tugas Base\Data rehapan\Database penjualan.mdb"
dtpenjualan.RecordSource = "frmpenjualan"
End Sub

Private Sub Form_Load()
Call gxaktif
End Sub

Private Sub gxada()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = False
End Sub

Private Sub gxaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
dtpenjualan.Recordset.Sort = "Kode penjualan"
End If
End Sub
Private Sub Option2_Click()
If Option1.Value = True Then
dtpenjualan.Recordset.Sort = "no faktur"
End If
End Sub

M	T	W	T	F	S	S
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

Tugas VB Kelompok

Leave a comment Cancel reply

Notes

Archives

Categories

Meta

Tugas VB Kelompok

Share this:

Leave a comment Cancel reply

Notes

Archives

Categories

Meta