module2.bas

VB编写的企业管理系统

Attribute VB_Name = "Module1"
Public gUserName As String                        '保存用户名称
Public flag As Integer                            '添加和修改的标志
Public gSQL As String                             '保存SQL语句
Public kqsql As String                            '保存查询考勤结果SQL语句
Public kqsql2 As String                           '保存查询其他考勤结果SQL语句
Public ArecordID As Integer                       '保存上下班记录编号
Public LrecordID As Integer                       '保存请假记录编号
Public OrecordID As Integer                       '保存加班记录编号
Public ErecordID As Integer                       '保存出差记录编号
Public iflag As Integer                           '数据库是否打开标志
Public qx As String                               ' 保存用户权限


Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String

Set con = New ADODB.Connection                  '创建连接
Set rs = New ADODB.Recordset                    '创建记录集
On Error GoTo TransactSQL_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\person.mdb"
   ' MsgBox App.Path
    strArray = Split(sql)
    con.Open strConnection                      '打开连接
    If InStr("INSER,DELETE,UPDATE", UCase(strArray(0))) Then
      con.Execute sql
      iflag = 1
Else
  Set rs = New ADODB.Recordset
 
  rs.Open (sql), con, adOpenKeyset, adLockOptimistic
  Set TransactSQL = rs
  iflag = 1
End If
    
TransactSQL_Exit:
    Set rs = Nothing
    Set con = 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}"                            '转换为Tab键
    End If
End Sub
Sub main()
   
    Form1.Show '显示窗体
    Form1.Refresh

    Form2.Show
    Form1.Hide
End Sub