工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(36)

rs.Close Exit Sub23End If sql = tb &

"

where "

&

tb &

"."

&

cboFields &

cboOperator &

txtdata End Select rs.Close Unload Me End Sub 3.5 职员工资管理 1. 界面设计 职员工资管理子系统是这个系统的核心部分，它设计的好坏直接影响到系统的最后工资 发放数据的准确性， 为了方便操作人的操作， 该部分子系统分为工资发放管理与工资发放查 询 2 个模块，具体的界面分别如下图所示：242. 实额。具体的实额 设计技术：

a、输入职员 ID 的具体设计，主要是利用回车键来触发，而 KeyPress 事件常用于截取 输入到控件中的键击。

所以用 KeyPress 事件来实现回车键的触发， 并利用了 IF 条件从句来 进行判断，键入的是否是回车键，当 KeyAscii = 13 时，就说明键入的是回车键，便打开数 据库中职员资料管理表， 将对应的信息自动录入到相应的 TextBox 控件中， 从而实现系统自 动输入功能。

相关代码分析如下：

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then rs1.Open "select 部门 ID,姓名,基本工资 from 职员资料管理 where 职员 ID="

+ Text1(2) + "", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then Text1(3) = rs1.Fields(0) Text1(4) = rs1.Fields(1) Text1(5) = rs1.Fields(2) Else MsgBox "此职员不存在，请查询清楚再输入"

Text1(2) = 0 End If rs1.Close End If End Sub b、 计算按钮实额 from 职员奖励 where 职员 ID="

+ Text1(0) + "", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then Text1(14) = rs1.Fields(0) rs1.Close Else rs1.Close End If RS2.Open "select 惩罚金额 from 职员惩罚 where 职员 ID="

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-36.html