免费VB+员工管理系统(八)

在VisualBasic中可以用公用模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公用有数据操作函数，来执行一系列的SQL语句。
    在项目资源管理器中为这个工程添加一个模块，保存为Module1.bas.
 代码如下：
 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 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"
     strArray = Split(SQL)
     con.Open strConnection             '打开连接
     If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
     rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
       Set TransactSQL = rs     '返回记录集
         iflag = 1
     Else
         con.Execute SQL       '执行命令
         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()
     Dim fLogin As New frmLogin
     fLogin.Show vbModual       '显示窗体
 End Sub
 二、登录窗体：
 
 图4－1
 有关本窗体的代码如下:
 Option Explicit
 Dim pwdCount As Integer
 
 Private Sub cmdCancel_Click()
     Unload Me
     Exit Sub
 End Sub
 
 Private Sub cmdOK_Click()
     Dim SQL As String
     Dim rs As ADODB.Recordset
     If Trim(UserName.Te

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/13/13

免费VB+员工管理系统(八)相关范文