《工资管理系统模块中的代码和界面》由会员分享，可在线阅读，更多相关《工资管理系统模块中的代码和界面（24页珍藏版）》请在金锄头文库上搜索。
1、工资管理系统模块中的代码和界面：Public Function connectstring() As String返回一个数据库连接将字符串赋给用户自定义函数名，即可返回connectstring=Provider=SQLOLEDB;IntegratedSecurity=SSPI;PersistSecurityInfo=False;User ID=sa;Initial Catalog=员工薪资管理系统Data Source=.也可以Integrated Security:用于指定采用的集成安全机制Persist Security Info：是否支持安全信息（是否保存密码）Initial cat
2、alog:用于指定要连接的数据库名称Data Source:用于指定连接的计算机sql 服务器名，或写成本地计算机Microsoft 建议所有的基于Win32 的应用程序开发者在进行安全分布式应用程序的开发时使用 SSPI 的集成安全特性End Function1.创建系统登陆窗体，具体方法如下。系统登陆窗体中需要输入登陆用户名和密码，并可以请求验证或退出登陆。 在工程中添加一个标准窗体，按照图5-1 设计需要的登陆窗体。将窗体命名为“ frm_login, 窗体文件保存为“ frmSysLogon.frm 。图 5-1用户登录2.实现系统登陆功能，具体方法如下。（ 1）定义窗体级变量。在窗体
3、代码通用声明部分定义保存允许用户验证登陆信息最大次数的窗体级变量，语句如下所示：Const MaxLogTimes As Integer=3定义允许用户验证登陆信息的最大次数（ 2）实现登陆身份验证。在用户输入用户名和密码之后，单击登陆按钮提交登陆信息，在按钮的单击事件过程完成所有验证操作，实现代码如下：Private Sub cmdOK_Click()Dim intchecked As IntegerDim strname As String, strpassword As String静态常量 intLogTimes 用于保存用户请求验证的次数 Static intlogtimes As
4、Integerintlogtimes = intlogtimes + 1 保存登陆次数If intlogtimes maxlogtimes Then超过允许的登陆次数，显示提示信息MsgBox 你已经超过允许的登录验证次数！ & vbcr_ & 应用程序将结束！ ,vbCritical, 登录验证 End结束应用程序Else进一步验证登录信息的合法性strname = Trim(txtlog(0).Text)获得用户名strpassword = Trim(txtlog(1).Text)获得口令检验用户名和口令的合法性，并根据检验返回值执行相应的操作Select Case check_passw
5、ord(strname, strpassword)Case 0用户不是系统用户MsgBox 用户不是系统用户， 请检查用户名是否输入正确！, vbCritical, 登录验证 txtlog(0).SetFocustxtlog(0).SelStart = 0txtlog(0).SelLength = Len(txtlog(0)Case 1口令错误MsgBox 口令错误，请重新输入！, vbCritical, 登录验证 txtlog(1) = txtlog(1).SetFocusCase 2Unload Me口令正确，卸载登录窗体MsgBox 登陆成功，将启动系统程序！, vbInformatio
6、n, 登录验证 frmmain.ShowCase Else登录验证未正常完成MsgBox 登录验证未正常完成！请重新运行登陆程序， & vbcrlf_ & 如果仍不能登录，请报告系统管理员！, vbCritical, 登录验证 End SelectEnd IfEnd Sub（ 3）实现退出登陆功能。单击取消按钮，退出登陆程序，实现代码如下：Private Sub cmdCancel_Click() 请求用户确认是否真的退出系统登陆If MsgBox( “你选择了退出系统登陆，退出将不能启动管理系统！”&vbCRlF_&“是否真的退出？” ，vbYesNO，“登陆验证”） =vbYes Then
7、Unload Me卸载登陆窗体End IfEnd Sub3.实现员工信息管理功能员工信息管理功能包括员工与工资相关信息的添加、修改和删除以及记录浏览等操作。第一步 ,创建数据环境命令 ,具体方法如下。员工信息管理需要使用员工信息 数据表 ,所以需要在数据环境中创建一个命令来访问该表。在数据环境设计器中为连接对象 Wage_Manage_Con 添加一个命令，将其命名为 StuffData， CommandType属性设置为 2（表示使用表对象）， CommandText 属性设置为“员工信息” ， LockType 属性设置为 3（表示开放式锁定） 。该命令返回的记录集使用Wage_Manag
8、e_Data.rsStuffData进行访 问。第二步，创建员工信息管理窗体，具体方法如下。员工信息管理操作的所有操作设计都在一个窗体中完成，如图5-3-1 所示。图 5-1第三步，实现员工信息管理功能，具体方法如下。（1）定义窗体级变量。定义一个窗体级变量用于标识是否处于添加记录状态，当窗体处于添加记录状态时， 必须完成保存操作之后才能执行其他管理操作，定义语句如下：Dim isAdding As Boolean定义窗体状态标志（2）实现窗体初始化。在窗体加载时，窗体中默认显示“系统用户”数据表中的第一个记录数据， 为了使 txtNews 文本框显示当前记录编号和记录总数，在窗体加载时执行按
9、钮的单击事件过程 ,实现代码如下 :Private Sub Form_Load()CmdMove(0).Value=True触发按钮单击事件End Sub（3）实现记录导航。为实现记录导航，使用pictureBox 控件、命令按钮和文本框模拟实现了ADO Data 控件的导航条，该导航条具有浏览记录、显示当前记录编号和记录总数功能。实现记录导航功能的代码如下：Private Sub cmdMove_Click(Index As Integer)With Wage_Manage_Data.rsSysUsersSelect Case Index切换当前记录Case 0使第一个记录成为当前记录If
10、.RecordCount0 And Not.BOF Then.MoveFirstCase 1使上一个记录成为当前记录End IfCase 2使下一个记录成为当前记录If .RecordCount0 And Not.EOF Then.MoveNextIf .EOF Then.MoveLastEndIfCase 3使最后一个记录成为当前记录If .RecordCount0 And Not.EOF Then.MoveLastEnd selectIf.BOF And.EOF ThentxtNews =“记录：无”显示当前记录编号和记录总数ElsetxtNews =“ 记录：”&.AbsolutePos
11、ition & “/ ”&.RecordCount End IfEnd WithEnd Sub（4）验证用户信息输入。在输入员工编号时，只允许输入数字作为编号，实现代码如下：验证员工编号输入Private Sub txtUser_KeyPress(KeyAscii As Integer)If Not(Chr(KeyAscii)Like0-9Or KeyAscii=vbKeyBack)ThenKeyAscii=0输入不是数字， 英文字母或退格键， 取消输入End IfpicNavigation.Enabled = FalsecmdAdd.Enabled=FalsecmdDelete.Enable
12、d=FalseEnd Sub在验证输入时，将picNavigation的 Enabled 设置为 False禁用导航条，这样在用户输入或修改当前记录数据时，不能通过导航条切换显示其他记录，必须在执行保存操作之后才行，从而避免出错。（5）强制保存当前记录修改。当用户修改当前记录数据时，禁用添加、删除按钮和导航条， 在执行保存操作后再启用， 这样可在执行保存操作时验证记录数据是否合法。实现代码如下：Private Sub cmbTitle_KeyPress(KeyAscii As Integer)picNavigation.Enabled=FalsecmdAdd.Enabled=FalsecmdD
13、elete.EnabledFalseEnd SubPrivate Sub cmbDuty_KeyPress(KeyAscii As IntegerpicNavigation.EnabIed=FalsecmdAdd.Enabled=FalsecmdDelete.Enabled=FalseEnd SubPrivate Sub txtTime_KeyPress(KeyAscii As Integer)piclVavigaEion.Enabled=FalsecmdAdd. Enabled=FalsecmdDelete.Enabled=FalseEnd SubPrivate Sub txtlFser_KeyPress(KeyAscii As Integer
