基于VB企业员工信息管理系统的设计

§4.2 员工管理系统模块设计举例

4.2.1建立公共模块

     运行VisualBasic后，选择“文件”→“新建工程”菜单，然后从工程模板中选择“标准EXE”项，单击“确定”按钮。VisualBasic就会自动生成一个窗体，这个窗体的属性采用的都是默认设置。在这个实例中，先删除这个窗体，然后选择“文件”→“保存工程”菜单，在出现的“文件另存为”对话框中输入这个工程项目的名称stuff_mis,并且选择要保存这个工程的目录，单击“保存”按钮，保存工程。

    为了提高代码的效率方便维护，在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

二、登录窗体：

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167