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