module1.bas

来自「用VB编程语言,SQL2000数据库 连接开发系统」· BAS 代码 · 共 94 行

Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public flagPedit As Boolean
Public gintPmode As Integer
Public flagCedit As Boolean
Public gintCmode As Integer
Public flagGedit As Boolean
Public gintGmode As Integer
Public flagSedit As Boolean
Public gintSmode As Integer
Public flagOedit As Boolean
Public gintOmode As Integer
Public user As Boolean
Public grd1 As Boolean
Public grd2 As Boolean
Public grd3 As Boolean



Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        '登录失败退出
        End
    End If
    Unload fLogin


    Set fMainForm = New frmMain
    fMainForm.Show
    
End Sub

Public Function ConnectString() _
   As String
'设置数据联接
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\database\trade.mdb;Persist Security Info=False"
End Function
Public Function ExecuteSQL(ByVal sql _
   As String, MsgString As String) _
   As ADODB.Recordset
'执行 SQL 并返回 Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error '错误捕捉
   
   sTokens = Split(sql)
   '打开数据库
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute sql
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      '打开数据集
      rst.Open Trim$(sql), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     '得到recordcount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
'使用完毕，释放被占用的资源
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub
Public Function GetRkno() As String
    GetRkno = Format(Now, "yymmddhhmmss")
    Randomize
    GetRkno = GetRkno & Int((99 - 10 + 1) * Rnd + 10)
End Function