main.frm

Inventory control system

            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Print"
               Key             =   "Print"
               Object.ToolTipText     =   "Ctrl+F7"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "Close"
               Key             =   "Close"
               Object.ToolTipText     =   "Ctrl+F8"
               ImageIndex      =   7
            EndProperty
         EndProperty
      End
   End
   Begin VB.Menu mnuF 
      Caption         =   "&File"
      Begin VB.Menu mnuFLO 
         Caption         =   "&Log out    "
         Shortcut        =   ^G
      End
      Begin VB.Menu mnuSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFE 
         Caption         =   "&Exit"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnu_Transactions 
      Caption         =   "&Transactions"
      Begin VB.Menu mnu_MSales 
         Caption         =   "Sales"
         Begin VB.Menu mnu_SalesReceiptsBatch 
            Caption         =   "Sales Receipts by Batch"
         End
         Begin VB.Menu mnu_SalesReceipts 
            Caption         =   "Sales Receipts"
         End
         Begin VB.Menu mnu_SalesReturn 
            Caption         =   "Sales Return Receipts"
         End
      End
      Begin VB.Menu mnu_MPurchases 
         Caption         =   "Purchases"
         Begin VB.Menu mnu_PurchaseOrder 
            Caption         =   "Purchase Order"
         End
         Begin VB.Menu mnuShippingGuide 
            Caption         =   "Forwarders Guide"
         End
         Begin VB.Menu mnu_ReceiveItem 
            Caption         =   "Receive Item Local"
         End
         Begin VB.Menu mnu_ForwardersReceive 
            Caption         =   "Receive Item Out of Town"
         End
         Begin VB.Menu mnu_PurchaseOrderReturn 
            Caption         =   "Purchase Order Return"
         End
      End
      Begin VB.Menu mnu_Expenses 
         Caption         =   "Expenses"
      End
      Begin VB.Menu mnu_AssortedProduct 
         Caption         =   "Assorted Product"
      End
      Begin VB.Menu mnu_QtyAdjustment 
         Caption         =   "Qty Adjustment"
      End
   End
   Begin VB.Menu mnu_Masterfiles 
      Caption         =   "&Masterfiles"
      Begin VB.Menu mnuMAgents 
         Caption         =   "Agents"
         Begin VB.Menu mnuAgents 
            Caption         =   "Agents"
         End
      End
      Begin VB.Menu mnuMBanks 
         Caption         =   "Banks"
         Begin VB.Menu mnuBanks 
            Caption         =   "Banks"
         End
      End
      Begin VB.Menu mnu_MClients 
         Caption         =   "Customers"
         Begin VB.Menu mnu_Clients 
            Caption         =   "Customers"
         End
         Begin VB.Menu mnu_Clients_Category 
            Caption         =   "Customers Category"
         End
         Begin VB.Menu mnu_Ledger 
            Caption         =   "Ledger"
         End
      End
      Begin VB.Menu mnuMLocations 
         Caption         =   "Locations"
         Begin VB.Menu mnu_Cities 
            Caption         =   "Cities"
         End
         Begin VB.Menu mnuRoutes 
            Caption         =   "Routes"
         End
      End
      Begin VB.Menu mnu_MStocks 
         Caption         =   "Products"
         Begin VB.Menu mnu_Stocks 
            Caption         =   "Products"
         End
         Begin VB.Menu mnu_Stocks_Category 
            Caption         =   "Products Category"
         End
         Begin VB.Menu mnu_Stocks_OUM 
            Caption         =   "Products UOM"
         End
         Begin VB.Menu mnu_Reorder 
            Caption         =   "Re-Order"
         End
         Begin VB.Menu mnu_ProductGroupings 
            Caption         =   "Product Groupings"
         End
      End
      Begin VB.Menu mnuMShippingCompany 
         Caption         =   "Forwarders"
         Begin VB.Menu mnuCargoClass 
            Caption         =   "Cargo Classifications"
         End
         Begin VB.Menu mnuShippingCompany 
            Caption         =   "Forwarders"
         End
         Begin VB.Menu mnuLocalForwarder 
            Caption         =   "Local Forwarder"
         End
         Begin VB.Menu mnu_PayBillsShipCo 
            Caption         =   "Pay Bills"
         End
      End
      Begin VB.Menu mnu_MSuppliers 
         Caption         =   "Suppliers"
         Begin VB.Menu mnu_Suppliers 
            Caption         =   "Suppliers"
         End
         Begin VB.Menu mnu_SuppliersLocation 
            Caption         =   "Suppliers Location"
         End
         Begin VB.Menu mnu_PayBillsSupplier 
            Caption         =   "Pay Bills"
         End
      End
      Begin VB.Menu mnuMWarehouses 
         Caption         =   "Warehouses"
         Begin VB.Menu mnuWarehouses 
            Caption         =   "Warehouses"
         End
      End
   End
   Begin VB.Menu mnuR 
      Caption         =   "&Reports"
      Begin VB.Menu mnu_Purchases 
         Caption         =   "Purchases Report"
      End
      Begin VB.Menu mnu_Purchase_Return 
         Caption         =   "Purchase Return"
      End
      Begin VB.Menu mnu_Suppliers_Report 
         Caption         =   "Suppliers Report"
      End
      Begin VB.Menu mnu_Customers_Report 
         Caption         =   "Customers Report"
      End
      Begin VB.Menu mnu_Sales_Report 
         Caption         =   "Sales Report"
      End
      Begin VB.Menu mnu_Sales_Return 
         Caption         =   "Sales Return"
      End
      Begin VB.Menu mnuLedger 
         Caption         =   "Ledger"
      End
      Begin VB.Menu mnu_Expenses_Report 
         Caption         =   "Expenses Report"
      End
   End
   Begin VB.Menu mnuU 
      Caption         =   "&Utility"
      Begin VB.Menu mnuSMMU 
         Caption         =   "Manage &Users"
         Shortcut        =   {F8}
      End
      Begin VB.Menu mnuUBI 
         Caption         =   "&Business Information"
         Shortcut        =   {F9}
      End
      Begin VB.Menu mnuUC 
         Caption         =   "&Calculator"
      End
      Begin VB.Menu mnuUN 
         Caption         =   "&Notepad"
      End
      Begin VB.Menu mnuUSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuUWE 
         Caption         =   "Windows Explorer"
      End
   End
   Begin VB.Menu mnuRecA 
      Caption         =   "&Action"
      Begin VB.Menu mnuRASSM 
         Caption         =   "Show Shortcut &Menu"
         Shortcut        =   ^{F1}
      End
      Begin VB.Menu mnuRASep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRACN 
         Caption         =   "Create &New"
         Shortcut        =   ^{F2}
      End
      Begin VB.Menu mnuRAES 
         Caption         =   "&Edit Selected"
         Shortcut        =   ^{F3}
      End
      Begin VB.Menu mnuRAS 
         Caption         =   "&Search"
         Shortcut        =   ^{F4}
      End
      Begin VB.Menu mnuRADS 
         Caption         =   "&Delete Selected"
         Shortcut        =   ^{F5}
      End
      Begin VB.Menu mnuRARR 
         Caption         =   "&Refresh"
         Shortcut        =   ^{F6}
      End
      Begin VB.Menu mnuRAP 
         Caption         =   "&Print"
         Shortcut        =   ^{F7}
      End
      Begin VB.Menu mnuRASep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRAC 
         Caption         =   "&Close"
         Shortcut        =   ^{F8}
      End
   End
   Begin VB.Menu mnuH 
      Caption         =   "&Help"
      Begin VB.Menu mnuHUG 
         Caption         =   "&User's Guide"
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuHKS 
         Caption         =   "&Keyboard Shortcut"
         Shortcut        =   ^K
      End
      Begin VB.Menu mnuSSS 
         Caption         =   "&Show Splash Screen"
      End
      Begin VB.Menu mnuSep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuA 
         Caption         =   "&About"
         Shortcut        =   ^T
      End
   End
   Begin VB.Menu mnuSO 
      Caption         =   "ShortcutOption"
      Visible         =   0   'False
      Begin VB.Menu mnuSOAD 
         Caption         =   "(Default)"
      End
      Begin VB.Menu mnuSOSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSOAHL 
         Caption         =   "Horizontal List"
      End
      Begin VB.Menu mnuSOAVL 
         Caption         =   "Vertical List"
      End
   End
   Begin VB.Menu mnu_ReceiptsBatch 
      Caption         =   "Receipts"
      Visible         =   0   'False
      Begin VB.Menu mnu_Receipts 
         Caption         =   "Print Receipts"
      End
      Begin VB.Menu mnu_Loading_Form 
         Caption         =   "Print Loading Form"
      End
   End
End
Attribute VB_Name = "MAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Var for point api function
Dim cursor_pos As POINTAPI

Public CloseMe  As Boolean

Dim resize_down     As Boolean
Dim show_mnu        As Boolean
Dim pos_num         As Integer

Private Sub lvWin_Click()
    If lvWin.ListItems.Count < 1 Then Exit Sub
    
    Select Case lvWin.SelectedItem.Key
        Case "frmShortcuts": frmShortcuts.show: frmShortcuts.WindowState = vbMaximized: frmShortcuts.SetFocus
        
        'For Routes
        Case "frmRoutes": LoadForm frmRoutes
        
        'For Agents
        Case "frmAgents": LoadForm frmAgents
        
        'For Cargos
        Case "frmCargos": LoadForm frmCargos
        
        'For Banks
        Case "frmBanks": LoadForm frmBanks
        
        'For Warehouses
        Case "frmWarehouses": LoadForm frmWarehouses
        
        'For Clients
        Case "frmCustomers": LoadForm frmCustomers
        Case "frmCustomerBalance": LoadForm frmCustomerBalance
        Case "frmCustomersCategory": LoadForm frmCustomersCategory
        Case "frmCities": LoadForm frmCities
        
        'For Vendors
        Case "frmSuppliers": LoadForm frmSuppliers
        Case "frmSuppliersLocation": LoadForm frmSuppliersLocation
        Case "frmVendorBalance": LoadForm frmVendorBalance

        'For ShippingCompany
        Case "frmShippingCompany": LoadForm frmShippingCompany
        Case "frmLocalForwarder": LoadForm frmLocalForwarder
        Case "frmShipCoBalance": LoadForm frmShipCoBalance
        
        'For Stocks
        Case "frmProducts": LoadForm frmProducts
        Case "frmProductsCategory": LoadForm frmProductsCategory
        Case "frmProductsUOM": LoadForm frmProductsUOM
        
        'For Sales
        Case "frmSalesReceipts": LoadForm frmSalesReceipts
        Case "frmSalesReceiptsBatch": LoadForm frmSalesReceiptsBatch
        'Case "frmSalesReturnReceipts": LoadForm frmSalesReturnReceipts
                
        'For Purchases
        Case "frmPurchaseOrder": LoadForm frmPurchaseOrder
        Case "frmForwardersGuide": LoadForm frmForwardersGuide
        Case "frmPOReceiveLocal": LoadForm frmPOReceiveLocal
        Case "frmForwardersReceive": LoadForm frmForwardersReceive
        Case "frmPOReturn": LoadForm frmPOReturn
        
        'For Collection
        Case "frmCollection": LoadForm frmCollection
        
        Case "frmUserRec"
            If CurrUser.USER_ISADMIN = False Then
                MsgBox "Only admin users can access this record.", vbCritical, "Access Denied"
            Else
                frmUserRec.show vbModal
            End If
        Case "frmBusinessInfo": frmBusinessInfo.show vbModal
    End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If CloseMe = False Then If MsgBox("This will close the application. Do you want to proceed?", vbExclamation + vbYesNo) = vbNo Then Cancel = 1: Exit Sub
    'FRM_MESSAGE.show vbModal
End Sub

Private Sub MDIForm_Resize()
    On Error Resume Next
    picFreeMem.Left = (Me.Width - picFreeMem.ScaleWidth) - 200
End Sub

Private Sub mnu_AssortedProduct_Click()
    LoadForm frmAssortedProduct
End Sub

Private Sub mnu_Cities_Click()
    LoadForm frmCities
End Sub

Private Sub mnu_Clients_Category_Click()
    LoadForm frmCustomersCategory
End Sub

Private Sub mnu_Clients_Click()
    LoadForm frmCustomers
End Sub

Private Sub mnu_Customers_Report_Click()
    frmRptCustomers.show 1
End Sub

Private Sub mnu_Expenses_Click()
    LoadForm frmExpenses
End Sub

Private Sub mnu_Expenses_Report_Click()
    frmRptExpenses.show 1
End Sub

Private Sub mnu_ForwardersReceive_Click()
    LoadForm frmForwardersReceive
End Sub

Private Sub mnu_Ledger_Click()
    LoadForm frmLedger
End Sub

Private Sub mnu_Loading_Form_Click()
    frmRptLoadingForm.show 1
End Sub

Private Sub mnu_PayBillsShipCo_Click()
    LoadForm frmShipCoBalance
End Sub

Private Sub mnu_PayBillsSupplier_Click()
    LoadForm frmVendorBalance
End Sub