module1.bas

是有关于音像制品的管理系统

Attribute VB_Name = "Module1"
'Public flag As Integer           '添加和修改标志
'Public sql As String
Public iflag As Integer         '数据库是否打开标志

Public ModifyBkFlag1 As String  '标示要修改的产品信息

Public ModifyMgzFlag2 As Boolean '

Public ModifyRdFlag1 As String  '标示要修改的会员信息
Public ModifyRdFlag2 As Boolean  '

Public ModifyBrwFlag1 As String  '标示要修改的租借信息
Public ModifyBrwFlag2 As Boolean  '
Public ModifyRtnFlag1 As String  '标示要修改的归还信息
Public ModifyRtnFlag2 As Boolean  '

'执行sql语句的函数
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
  Dim cont As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strConnection As String
  Dim strArray() As String
  Set cont = New ADODB.Connection    '创建连接
  Set rs = New ADODB.Recordset
  On Error GoTo transactsql_error
      strConnection = "Provider = Microsoft.jet.oledb.4.0; data source=" & App.Path & "\libraryMIS.mdb;"
      strConnection = strConnection & "Persist Security Info=False;Jet OLEDB:Database Password='txm'"
      strArray = Split(sql)         'Split() 返回一个下标从零开始的一维数组
      cont.Open strConnection        '打开连接
      If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
          rs.Open Trim$(sql), cont, adOpenKeyset, adLockOptimistic
          Set TransactSQL = rs
          iflag = 1
      Else
          cont.Execute sql
          iflag = 1
      End If
transactsql_exit:
      Set rs = Nothing
      Set cont = Nothing
      Exit Function
transactsql_error:
      MsgBox "查询错误：" & Err.Description
      iflag = 2
      Resume transactsql_exit
End Function

Public Sub tabtoenter(Key As Integer)
    If Key = 13 Then
    SendKeys "{TAB}"
    End If
End Sub