module1.bas

来自「加油站客户管理系统(开发工具：VB+Access)」· BAS 代码 · 共 24 行

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 '是否是经理
Public workman As Boolean '是否是管理员
Public cust As Boolean '是否是客户
Public hang As Integer '取值当前表格鼠标所在为多少行
Public user111 As String '记录当前用户
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