Pages

April 26, 2013

Belajar Membuat Aplikasi Persediaan Barang

TAbel Relasi



 Design Tampilan

1. Menu


 2. Master Barang
 

3. MAster Customer


4. a. Form Barang Masuk


4.b. Form Detail BArang MAsuk


Coding :

1. Menu

2. MAster BArang
Private Sub cmdbatal_Click()
adobarang.Recordset.CancelBatch
End Sub

Private Sub cmdhapus_Click()
If MsgBox("Apakah Barang dengan nama " + txtidcust + " akan di hapus ?", vbQuestion + vbYesNo) = vbYes Then
    adobarang.Recordset.Delete
End If
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdsimpan_Click()
adobarang.Recordset.Save
End Sub

Private Sub cmdtambah_Click()
adobarang.Recordset.AddNew
txtkdbrg.SetFocus
End Sub

3. MAster Customer
Private Sub cmdbatal_Click()
adocustomer.Recordset.CancelBatch
End Sub

Private Sub cmdhapus_Click()
If MsgBox("Apakah Customer dengan nama " + txtidcust + " akan di hapus ?", vbQuestion + vbYesNo) = vbYes Then
    adocustomer.Recordset.Delete
End If
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdsimpan_Click()
adocustomer.Recordset.Save
End Sub

Private Sub cmdtambah_Click()
adocustomer.Recordset.AddNew
txtidcust.SetFocus
End Sub

4.a. Form BArang MAsuk
Private Sub cmdinputbaru_Click()
    bersihinput
    txtnomsk.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdtmbdetail_Click()
    Adobrgmsk.Recordset.AddNew
    Adobrgmsk.Recordset("no_masuk") = txtnomsk.Text
    Adobrgmsk.Recordset("tglmsk") = txttglmsk.Text
    Adobrgmsk.Recordset("id_user") = txtkduser.Text
    Adobrgmsk.Recordset.Update
   
    Dim frm As Frmdetailbrgmasuk
    Set frm = New Frmdetailbrgmasuk
    Set frm.Adobrgmsk.Recordset = Adobrgmsk.Recordset.Clone
    frm.txtnomsk.Text = txtnomsk.Text
    frm.Show vbModal
    Adodetbrgmsk.Recordset.Requery
    Adobrgmsk.Recordset.Requery
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If (Not Adobrgmsk.Recordset.BOF And Not Adobrgmsk.Recordset.EOF) Then
        filterdetbrgmsk Adobrgmsk.Recordset("no_masuk")
    End If
End Sub

Private Sub filterdetbrgmsk(no As String)
    Adodetbrgmsk.Recordset.Filter = "no_masuk='" & no & "'"
End Sub

Private Sub Form_Load()
    bersihinput
End Sub
Private Sub txtnomsk_LostFocus()
    Adobrgmsk.Recordset.MoveFirst
    Adobrgmsk.Recordset.Find "no_masuk='" & txtnomsk.Text & "'"
    If (Not Adobrgmsk.Recordset.BOF And Not Adobrgmsk.Recordset.EOF) Then
        MsgBox "no masuk sudah ada"
        txtnomsk.Text = ""
        txtnomsk.SetFocus
    End If
End Sub


Private Sub bersihinput()
    txtnomsk.Text = ""
    txtkduser.Text = ""
    txtnmuser.Text = ""
    txttglmsk.Text = ""
End Sub


Private Sub txtkduser_LostFocus()
    adouser.Recordset.MoveFirst
    adouser.Recordset.Find "id_user= '" & txtkduser.Text & "'"
    If (adouser.Recordset.BOF Or adouser.Recordset.EOF) Then
        MsgBox "Id User Tidak ditemukan"
        txtkduser.Text = ""
        txtkduser.SetFocus
    Else
        txtnmuser.Text = adouser.Recordset("nm_user")
    End If
End Sub

4.b. Detail BArang MAsuk
Option Explicit
Public kodeuser As String

Private Sub bersih()
txtkdbrg.Text = ""
txtnmbrg = ""
txtjumlah = "0"
End Sub

Private Sub cmdbatal_Click()
bersih
End Sub


Private Sub cmdhapus_Click()
Adodetbrgmsk.Recordset.Delete
bersih
End Sub

Private Sub cmdOK_Click()
    Adobrgmsk.Recordset.Find "no_masuk = '" & txtnomsk.Text & "'"
    Adobrgmsk.Recordset.Update
    Unload Me
End Sub

Private Sub cmdtambah_Click()
Adodetbrgmsk.Recordset.AddNew
Adodetbrgmsk.Recordset("no_masuk") = txtnomsk.Text
Adodetbrgmsk.Recordset("kdbrg") = txtkdbrg.Text
Adodetbrgmsk.Recordset("jmlmsk") = txtjumlah.Text
Adodetbrgmsk.Recordset.Update

Adodetbrgmsk.Recordset.Requery
Adodetbrgmsk.Recordset.Filter = "no_masuk='" & txtnomsk.Text & "'"
bersih
adobarang.Recordset.MoveFirst
End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If (Not Adodetbrgmsk.Recordset.BOF And Not Adodetbrgmsk.Recordset.EOF) Then
    gridtext
End If
End Sub


Private Sub Form_Load()
bersih
End Sub

Private Sub gridtext()
txtkdbrg.Text = Adodetbrgmsk.Recordset("kdbrg")
txtjumlah.Text = Adodetbrgmsk.Recordset("jmlmsk")
End Sub

Private Sub txtkdbrg_LostFocus()
adobarang.Recordset.MoveFirst
adobarang.Recordset.Find "kdbrg='" & txtkdbrg.Text & "'"
If (adobarang.Recordset.BOF Or adobarang.Recordset.EOF) Then
    MsgBox "Kode Barang tidak ditemukan"
    txtkdbrg.Text = ""
    txtkdbrg.SetFocus
Else
    txtnmbrg.Text = adobarang.Recordset("nmbrg")
End If
End Sub


 

Comments
0 Comments

0 komentar:

Post a Comment

Daftar Artikel