mdl_main.bas

本程序是一个酒店预定系统

Attribute VB_Name = "Mdl_Main"
Public constr As String '声明全局变量，用于传递数据库控件的连接字符串
Public nAdoRec As New ADODB.Recordset   '声明全局变量，ADO对象模型的结果集对象
Public nAdoCon As New ADODB.Connection  '声明全局变量，ADO对象模型的连接对象
Public UserID As String '声明全局变量，传递登录的用户ID
Public UserName As String   '声明全局变量，传递登录的用户名称
Public password As String   '声明全局变量，传递登录的用户密码
Public JDGL As Boolean  '声明全局变量，传递用户的酒店管理权限
Public DDGL As Boolean  '声明全局变量，传递用户的订单管理权限
Public YWGL As Boolean  '声明全局变量，传递用户的业务管理权限
Public YHGL As Boolean  '声明全局变量，传递用户的用户管理权限

Public Sub Main()
frmFlash.Show   '显示展示窗体
'设定连接字符串值
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databases\酒店预订系统.mdb;Persist Security Info=False"
'载入其他窗体
Load frmLogin
Load frmMain
'设定ADO对象的数据源
nAdoCon.ConnectionString = constr
nAdoCon.Open    '打开ADO对象
If nAdoCon.State <> 1 Then  '连接失败
  MsgBox "数据库连接失败!", vbInformation + vbOKOnly, "错误"    '给出错误信息
  Exit Sub
End If
End Sub