db.bas

山西旅游酒店预定商务软件

Attribute VB_Name = "Module3"
Public constr As String
Public colid  '定义格子的编号
Public mAdoRec As New ADODB.Recordset
Public mAdoCon As New ADODB.Connection
'*****************************888
Public UserID As String
Public UserName As String
Public password As String
Public mangjd As String
Public mangdd As String
Public mangyw As String
Public mangyh As String
Public mangcxbb As String
'**********************8
Sub conn()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tour.mdb;Persist Security Info=False"
mAdoCon.ConnectionString = constr
mAdoCon.Open
If mAdoCon.State <> 1 Then
  MsgBox "数据库连接失败!"
End If
End Sub
Public Function DoSql(sqlstr As String, Optional Isreturn As Boolean = False) As Boolean
    On Error GoTo mErr:
    If Isreturn = True Then
        If mAdoRec.State = 1 Then mAdoRec.Close
        mAdoRec.Open sqlstr, mAdoCon, adOpenStatic
    Else
        mAdoCon.Execute sqlstr
    End If
    On Error GoTo 0
    DoSql = True
    Exit Function
    
mErr:
    MsgBox err.Number & ":" & err.Description & ",sqlstr='" & sqlstr & "'" & vbCrLf
    DoSql = False
End Function
Function iniuser(UserID) '初始化权限
  Dim str, s As String
   DoSql "select * from 用户表 where id='" & UserID & "'", True
  '________________________________
  UserName = mAdoRec.Fields(1): s = mAdoRec.Fields(3)
  mangjd = Left(s, 1)
  mangdd = Mid(s, 2, 1)
  mangyw = Mid(s, 3, 1)
  mangyh = Mid(s, 4, 1)
  mangcxbb = Mid(s, 5, 1)
  '*************************************
  If mangjd = "0" Then
       MDIForm1.f.Enabled = False
       MDIForm1.Toolbar1.Buttons.Item(1).Enabled = False

  Else
     MDIForm1.f.Enabled = True
     MDIForm1.Toolbar1.Buttons.Item(1).Enabled = True
  End If
  If mangdd = "0" Then
      MDIForm1.ddgl.Enabled = False
      MDIForm1.Toolbar1.Buttons(2).Enabled = False
  Else:
      MDIForm1.ddgl.Enabled = True
    MDIForm1.Toolbar1.Buttons(2).Enabled = True
  End If
  If mangyw = "0" Then
      MDIForm1.yw.Enabled = False
       MDIForm1.Toolbar1.Buttons(6).Enabled = True
  Else
  MDIForm1.yw.Enabled = True
   MDIForm1.Toolbar1.Buttons(6).Enabled = True
  End If
  If mangyh = "0" Then
      MDIForm1.user.Enabled = False
       MDIForm1.Toolbar1.Buttons(7).Enabled = True
  Else:
      MDIForm1.user.Enabled = True
       MDIForm1.Toolbar1.Buttons(7).Enabled = True
  End If
  If mangccbb = "0" Then
      MDIForm1.CXTJ.Enabled = False
       MDIForm1.Toolbar1.Buttons(5).Enabled = False
          MDIForm1.Toolbar1.Buttons(6).Enabled = True
  Else:
      MDIForm1.CXTJ.Enabled = True
       MDIForm1.Toolbar1.Buttons(5).Enabled = True
          MDIForm1.Toolbar1.Buttons(6).Enabled = True
 End If
End Function


'限制某些TEXT控件只能输入数字。
Public Function ValiText(ArrivedVal As String, KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
    Dim ValidateList As String
    Dim KeyOut As Integer
    If Editable = True Then
        ValidateList = UCase(ValidateString) & Chr(8)
    Else
        ValidateList = UCase(ValidateString)
    End If
    If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
    
        '只允许一位小数点
        If UCase(Chr(KeyIn)) = "." Then
            If InStr(1, ArrivedVal, UCase(Chr(KeyIn))) <> 0 Then
                KeyOut = 0
                Beep
                ValiText = KeyOut
                Exit Function
            End If
        End If
        
        KeyOut = KeyIn
    Else
        KeyOut = 0
        Beep
    End If
    ValiText = KeyOut
End Function