Lanjutan

[Darkc0der]

Lanjutan Form Transaksi



Private Sub tkodebrg_KeyPress(KeyAscii As Integer)

If KeyAscii = 97 Then

tkodebrg.Text = ""

frmvbarng.Show

End If

'If KeyAscii = 13 Then

'frmvbarng.Show

'End If

If KeyAscii = 13 Then

tqty.SetFocus

End If



End Sub



Private Sub tkodecus_Change()

Dim tsql As String



tsql = "select*from customer where kode_customer='" & Me.tkodecus & "'"

Set rscus = cn.Execute(tsql)



If rscus.EOF Or rscus.BOF Then

Exit Sub



Else

tnamacus.Text = rscus!nama_customer

tkodebrg.SetFocus



End If

End Sub



Private Sub tqty_Change()

tjumlahharga.Text = Val(tharga.Text) * Val(tqty.Text)

Cbeli.Enabled = True

End Sub



Private Sub tqty_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Cbeli.Enabled = True

Cbeli.SetFocus



End If



End Sub















Form Master Barang





Public rsb As ADODB.Recordset



Private Sub dgb_katakunci_DblClick()

Form_pembelian.T_kodebarang.Text = rsb!kdbarang

frm_viewbarang.Hide

End Sub



Private Sub dgb_katakunci_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Form_pembelian.T_kodebarang.Text = rsb!kdbarang

End If

frm_viewbarang.Hide

End Sub





Private Sub Form_Click()

If rsb.RecordCount > 0 Then

Form_pembelian.T_kodebarang.Text = rsb!kdbarang

End If

frm_viewbarang.Hide

End Sub



Private Sub Form_Load()

buka

Set rsb = New ADODB.Recordset

rsb.Open "barang", cn, adOpenDynamic, adLockOptimistic

Set dgb_katakunci.DataSource = rsb

dgbs

End Sub



Sub dgbs()

dgb_katakunci.HeadFont.Bold = True

dgb_katakunci.Font.Bold = True



dgb_katakunci.Columns(0).AllowSizing = False

dgb_katakunci.Columns(0).Alignment = dbgCenter

dgb_katakunci.Columns(0).Width = 1300

dgb_katakunci.Columns(0).Caption = "Kode Barang"



dgb_katakunci.Columns(1).AllowSizing = False

dgb_katakunci.Columns(1).Width = 2400

dgb_katakunci.Columns(1).Caption = "Keterangan Barang"

End Sub



Private Sub tsearch_change()



End Sub





Private Sub T_katakunci_Change()

Dim tsql As String

tsql = "select kdbarang,namabrg from barang where kdbarang like '%" & Me.T_katakunci & "%' or namabrg like '%" & Me.T_katakunci & "%'"

Set rsb = cn.Execute(tsql)

Set dgb_katakunci.DataSource = rsb



End Sub













Form Customer







Public rsb As ADODB.Recordset

Sub dgbs()

dgb_katakunci.HeadFont.Bold = True

dgb_katakunci.Font.Bold = True



dgb_katakunci.Columns(0).AllowSizing = False

dgb_katakunci.Columns(0).Alignment = dbgCenter

dgb_katakunci.Columns(0).Width = 1300

dgb_katakunci.Columns(0).Caption = "Kode Customer"



dgb_katakunci.Columns(1).AllowSizing = False

dgb_katakunci.Columns(1).Width = 2400

dgb_katakunci.Columns(1).Caption = "Keterangan Customer"

End Sub



Private Sub dgb_katakuncicustom_Click()



End Sub



Private Sub dgb_katakuncicustom_KeyPress(KeyAscii As Integer)



End Sub



Private Sub dgb_katakunci_Click()

If rsb.RecordCount > 0 Then

Form_penjualan.tkodecus.Text = rsb!kode_customer

End If

frmviewcustomer.Hide

End Sub



Private Sub dgb_katakunci_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Form_penjualan.tkodecus.Text = rsb!kode_customer

End If

frmviewcustomer.Hide

End Sub



Private Sub Form_Load()

buka

Set rsb = New ADODB.Recordset

rsb.Open "customer", cn, adOpenDynamic, adLockOptimistic

Set dgb_katakunci.DataSource = rsb

dgbs

End Sub





Private Sub T_katakuncicustom_Change()



End Sub



Private Sub T_katakuncicustom_KeyPress(KeyAscii As Integer)



End Sub



Private Sub Tkkuncicus_Change()

Dim tsql As String

tsql = "select kode_customer,nama_customer from customer where kode_customer like '%" & Me.Tkkuncicus & "%' or nama_customer like '%" & Me.Tkkuncicus & "%'"

Set rsb = cn.Execute(tsql)

Set dgb_katakunci.DataSource = rsb



End Sub



Private Sub Tkkuncicus_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Form_penjualan.tkodecus.Text = rsb!kode_customer

End If

frmviewecustomer.Hide

End Sub