module1.bas

公司进销存管理的实例

Attribute VB_Name = "mdlSQLTest"
Public ConnectID As String     '连接字
Public CurrentTable As String  '记录当前表格

Public DSN As String
Public UID As String
Public PWD As String

'各表的ID,由程序自动产生
Public BID As String
Public PID As String
Public CID As String
Public FID As String
Public IID As String
Public OID As String
Public RID As String
Public SID As String

'7个判断表格是否正被打开的变量，防止表格被重载
Public BusinessmanTableOpened As Boolean
Public ProductTableOpened As Boolean
Public FactoryTableOpened As Boolean
Public CustomerTableOpened As Boolean
Public StoreTableOpened As Boolean
Public InputTableOpened As Boolean
Public OutputTableOpened As Boolean
Public RetreatTableOpened As Boolean

'使用RDO对象连接到ODBC
Public rdoConn As rdoConnection
Public rdoRS As rdoResultset

Public WhatToOrder As String
Public RowsInTable As Long

Public Sub Login()
  On Error GoTo ErrorHandle
    frmLogin.Show vbModal
    
ErrorHandle:
  Exit Sub
End Sub
Public Sub NewDataManager()
  Dim DataManager As Form
  Set DataManager = New frmDataManager
  DataManager.Show
End Sub
'根据当前表格打开状况决定相应菜单的Enabled属性
Public Sub EnableDMS()
  With frmMain
    If BusinessmanTableOpened Then
      !mnuBusinessman.Enabled = False
    Else
      !mnuBusinessman.Enabled = True
    End If
    If ProductTableOpened Then
      !mnuProduct.Enabled = False
    Else
      !mnuProduct.Enabled = True
    End If
    If FactoryTableOpened Then
      !mnuFactory.Enabled = False
    Else
      !mnuFactory.Enabled = True
    End If
    If CustomerTableOpened Then
      !mnuCustomer.Enabled = False
    Else
      !mnuCustomer.Enabled = True
    End If
    If StoreTableOpened Then
      !mnuStore.Enabled = False
    Else
      !mnuStore.Enabled = True
    End If
    If InputTableOpened Then
      !mnuProductInput.Enabled = False
    Else
      !mnuProductInput.Enabled = True
    End If
    If OutputTableOpened Then
      !mnuProductOutput.Enabled = False
    Else
      !mnuProductOutput.Enabled = True
    End If
    If RetreatTableOpened Then
      !mnuRetreat.Enabled = False
    Else
      !mnuRetreat.Enabled = True
    End If
  End With
End Sub
Public Sub ShowErr()
  MsgBox "Dr. Watson 发现您的操作有误。" & vbCrLf & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Dr. Watson"
End Sub
Public Sub ShowStatus(Status As String)
  frmMain!sbStatusBar.Panels(1).Text = Status
End Sub
Public Sub back()
  Select Case LCase(TableName)
      Case "businessman"
        rdcTest.SQL = "select b_id 业务员编号,b_name 业务员姓名,b_addr 联系地址," _
                      & "b_phone 联系电话,b_limitsalary 底薪,b_workyear 工龄," _
                      & "b_trades 业绩 from businessman"
      Case "customer"
        rdcTest.SQL = "select c_id 客户编号,c_name 客户名称,c_addr 联系地址," _
                    & "c_phone 联系电话 from customer"
      Case "factory"
        rdcTest.SQL = "select f_id 厂商编号,f_name 厂商名称,f_manager 法人代表," _
                      & "f_addr 联系地址,f_phone 联系电话 from factory"
      Case "product"
        rdcTest.SQL = "select p_id 商品编号,f_id 厂商编号,p_name 商品名称," _
                      & "p_model 型号 from product"
      Case "input"
        rdcTest.SQL = "select i_id 进货编号,p_id 商品编号,i_inprice 进价," _
                      & "i_count 进货数量,i_date 进货日期 from input"
      Case "output"
        rdcTest.SQL = "select o_id 交易编号,b_id 业务员编号,p_id 商品编号," _
                    & "c_id 客户编号,o_price 交易价格,o_count 数量," _
                    & "o_date 交易日期 from output"
      Case "store"
        rdcTest.SQL = "select s_id 库存编号,p_id 商品编号,s_inprice 进价," _
                    & "s_count 库存量 from store"
    End Select
End Sub