Attribute VB_Name = "Global"
Public cn As ADODB.Connection '全局的數據庫連接對象
Public czry_flag As String '保存用戶權限字符串
Public isxg As Boolean '是添加用戶還是修改用戶
Public nodename As String '保存某個用戶的帳戶名
Public rspsw As ADODB.Recordset '用于用戶帳號密碼設置的結果集合
Public database_data As String '保存導出數據表信息時的access數據庫名稱
Public username As String '保存登陸的用戶名
Public Sub condatabase()           '創建連接到feiyong數據庫的記錄源                                     '連接本地數據庫JIMMY
    Set cn = New ADODB.Connection
      '  cn.Provider = "sqloledb"
      '  cn.Properties("Data Source").Value = "JIMMY"       '建立與本地數據庫的連接
      '  cn.Properties("Initial Catalog").Value = "YAOFEI"   '數據庫的名稱
      '  cn.Properties("Integrated Security").Value = "SSPI"
      cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/data/goodStock.mdb" '我轉換的access數據庫路徑
        cn.open
End Sub

Public Sub check_condatabase()
If cn.State = 1 Then 'cn.State的值為1表示數據庫處于連接狀態
Else
   Call condatabase
End If
End Sub

Public Sub close_condatabase()   '關閉數據源
If cn.State = 1 Then
   cn.close
End If
End Sub

'***************************************************************
'作為檢查操作員使用權限的函數，該函數通過截取load表中的ql_flag字段來
'判斷該操作員所具有的權限和使用范圍
'ql_flag字段的設置
'第一位：添加商品類別              '第二位：添件商品信息
'第三位：商品類別維護              '第四位：商品信息維護
'第五位：商品入庫操作              '第六位：商品入庫記錄查詢
'第七位：商品出庫操作              '第八位：商品出庫記錄查詢
'第九位：操作員維護                '第十位：報表打印
'第十一位：數據導出
Public Function check_qx(qx_flag As String, i As Integer) As Boolean
Dim temp As Integer
If qx_flag <> "" Then
    temp = Mid(qx_flag, i, 1)
    If temp = 0 Then
       MsgBox "您無權限使用該功能！", vbOKOnly + vbExclamation, "注意了:)"
       check_qx = False
    Else
       check_qx = True
    End If
Else
    MsgBox "未經管理員授權，您無權限使用所有功能！", vbOKOnly + vbExclamation, "注意了:)"
    check_qx = False
End If
End Function

'通過商品類別名稱得到商品類別編號
Public Function getClassIdByName(goodClassName As String) As Integer
  Dim goodClassRs As ADODB.Recordset
  Call check_condatabase
  Set goodClassRs = cn.Execute("select * from goodClass")
  While Not goodClassRs.EOF
    If goodClassRs("goodClassName") = goodClassName Then '找到了該商品類別
      getClassIdByName = goodClassRs("goodClassId") '取得該類別的編號返回
      Exit Function
    End If
    goodClassRs.MoveNext
  Wend
  getClassIdByName = 0
End Function


'兩個記錄集之間的數據拷貝
Public Function RescordSet_Copy(rs_source As ADODB.Recordset, rs_destinate As ADODB.Recordset)
'檢查源記錄表中是否有數據,如果沒有,跳出該函數
If rs_source.EOF <> True Then
    If rs_destinate.EOF <> True And rs_destinate.BOF <> True Then  '如果目的表的記錄不為空
            Do Until rs_destinate.EOF
               rs_destinate.Delete
               rs_destinate.MoveNext
            Loop
            Dim id As String
            id = rs_destinate.Fields(0)  '記錄編號的變化
            Do Until rs_source.EOF
               rs_destinate.AddNew
               For i = 1 To 7
                   rs_destinate.Fields(i).Value = rs_source.Fields(i).Value
               Next
               id = id + 1
               rs_destinate.Fields(0).Value = id
               rs_destinate.Update
               rs_destinate.MoveNext
               rs_source.MoveNext
            Loop
    
    Else              '**************如果目的表的記錄為空
            Do Until rs_source.EOF
           rs_destinate.AddNew
           For i = 0 To 7
               rs_destinate.Fields(i).Value = rs_source.Fields(i).Value
           Next
           rs_destinate.Update
           rs_destinate.MoveNext
           rs_source.MoveNext
        Loop

    End If
End If
End Function