mdupublic.bas

宾馆管理系统

Attribute VB_Name = "mdupublic"
Public cnn As New Connection  '定义一个连接参数
Public com As New Command   '定义一个命令参数
Public rst As New Recordset '定义一个结果集参数
Public cnnHotel As New ADODB.Connection
Public comHotel As New ADODB.Command
Public rstHotel As New ADODB.Recordset
Public strPassword As String  '网络配置的输入密码参数
Public strLogin As String   '网络配置的登陆名
Public strServer As String  '网络配置的服务器
Public strDatabase As String '网络配置的数据库
Public username As String   '管理员全局变量名
Public txtsql As String    'sql字符串
Public strSkin As String  '皮肤参数


Public Function changeskin(strform As Form, skn As Skin, sknfiles As String) '更换皮肤
   skn.LoadSkin App.Path + "\Skins\" & sknfiles
   skn.ApplySkin strform.hWnd
End Function
Public Sub Main() '启动函数
    strServer = GetSetting(App.EXEName, "DB Config", "SeverHost")
    strLogin = GetSetting(App.EXEName, "DB Config", "UserID")
    strPassword = GetSetting(App.EXEName, "DB Config", "PassWord")
    strDatabase = GetSetting(App.EXEName, "DB Config", "Initial Catalog")
    If strDatabase = "" Then
        MsgBox "数据库不能为空，请重新配置！"
    End If
End Sub

Public Sub KnowConnection()  '连接后台数据库
    strServer = GetSetting(App.EXEName, "DB Config", "SeverHost")
    strLogin = GetSetting(App.EXEName, "DB Config", "UserID")
    strPassword = GetSetting(App.EXEName, "DB Config", "PassWord")
    strDatabase = GetSetting(App.EXEName, "DB Config", "Initial Catalog")
   On Error GoTo errone
   With cnnHotel
        .ConnectionString = "User ID =" & strLogin & ";Password =" & strPassword & " ;Data Source =" & strServer & "; Initial Catalog = " & strDatabase
        '.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBHotel;Data Source=."
        .Provider = "SQLOLEDB.1"
        .Open
   End With
       comHotel.ActiveConnection = cnnHotel
   Exit Sub
errone:
   MsgBox Err.Description & Err.number
        MsgBox "连接失败！请检查网络配置！", vbInformation
End Sub

Public Function ExecuteSQL(ByVal sql As String) '参与SQL执行函数
    strServer = GetSetting(App.EXEName, "DB Config", "SeverHost")
    strLogin = GetSetting(App.EXEName, "DB Config", "UserID")
    strPassword = GetSetting(App.EXEName, "DB Config", "PassWord")
    strDatabase = GetSetting(App.EXEName, "DB Config", "Initial Catalog")
   
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   With cnn
         .ConnectionString = "User ID =" & strLogin & ";Password =" & strPassword & " ;Data Source =" & strServer & "; Initial Catalog = " & strDatabase
        '.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBHotel;Data Source=."
        .Provider = "SQLOLEDB.1"
        .Open
   End With
  rst.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
  Set ExecuteSQL = rst
End Function