Attribute VB_Name = "Module1"
Public mdbconn As New ADODB.Connection
Public mdbrs As New ADODB.Recordset
Public mdbrs1 As New ADODB.Recordset
Public mdbrs2 As New ADODB.Recordset
Public mdbrs3 As New ADODB.Recordset
Public chair As Boolean '是否是經(jīng)理
Public workman As Boolean '是否是管理員
Public cust As Boolean '是否是客戶
Public hang As Integer '取值當(dāng)前表格鼠標(biāo)所在為多少行
Public user111 As String '記錄當(dāng)前用戶
Public mdi As Boolean
Public sup As String
Sub Main()
mdi = True
chair = False
workman = False
cust = False
mdbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\data\data.mdb"
mdbconn.CommandTimeout = 30
mdbconn.Open
Form1.Show
End Sub