I Am { Robi Sahputra }

Private Sub beli_Click()
Load FrmPembelian
FrmPembelian.Left = 3000
FrmPembelian.Top = 1000
End Sub
=================================================================
Private Sub jual_Click()
Load FrmPenjualan
FrmPenjualan.Left = 3000
FrmPenjualan.Top = 1000
End Sub
=================================================================
Private Sub lapbeli_Click()
Load CetakPembelian
CetakPembelian.Left = 3500
CetakPembelian.Top = 2000
End Sub
=================================================================
Private Sub lapbrg_Click()
cry1.RetrieveDataFiles
cry1.WindowState = crptMaximized
cry1.Action = 1
End Sub
=================================================================
Private Sub lapcus_Click()
CryCustomer.RetrieveDataFiles
CryCustomer.WindowState = crptMaximized
CryCustomer.Action = 1
End Sub
==================================================================
Private Sub lapjual_Click()
Load CetakPenjualan
CetakPenjualan.Left = 3500
CetakPenjualan.Top = 2000
End Sub
==================================================================
Private Sub lapsup_Click()
cry2.RetrieveDataFiles
cry2.WindowState = crptMaximized
cry2.Action = 1
End Sub
==================================================================
Private Sub MDIForm_Load()
BUKA_DATABASE
End Sub
==================================================================
Private Sub cus_Click()
Load FrmCustomer
FrmCustomer.Left = 3500
FrmCustomer.Top = 500
End Sub
===================================================================
Private Sub stok_Click()
Load FrmDataStok
FrmDataStok.Left = 3500
FrmDataStok.Top = 500
End Sub
==================================================================
Private Sub sup_Click()
Load FrmSupplier
FrmSupplier.Left = 3500
FrmSupplier.Top = 500
End Sub
====================================================================
Private Sub exit_Click()
End
End Sub