module1.bas

来自「企业客户管理信息系统 企业管理信息系统的对象是企业、企业化管理的事业单位。 客」· 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 UserName As String



Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin


    Set fMainForm = New frmMain
    fMainForm.Show
End Sub

Public Function ConnectString() _
   As String
'返回一个数据库连接
   ConnectString = "FileDSN=trade.dsn;UID=sa;PWD=kk"
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'执行SQL语句，并返回记录集对象
   '声明一个连接
   Dim cnn As ADODB.Connection
     '声明一个数据集对象
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
'异常处理
   On Error GoTo ExecuteSQL_Error
   '用Split函数产生一个包含各个子串的数组
   
   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     'get 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