?? module1.bas
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -