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

Public Sub view_data() 定义显示数据的函数 For i = 0 To 7 If Adodc1.Recordset.RecordCount >

0 Then kh(i).text = Adodc1.Recordset.Fields(i) Else kh(i).text = ""

Next i Private Sub CmdFind_Click() 查询职员信息 Adodc1.RecordSource = "select * from 职员资料管 理 where (职员资料管 理."

&21Combo1.text &

"

like + "

+ Text1.text + "+%)"

Adodc1.Refresh Call view_data 调用函数 SSTab1.Tab = 1 End Sub （2）职员奖励/惩罚管理模块设计 职员奖励/惩罚管理模块主要是对职员的奖励/惩罚信息进行增加、修改、删除和查询 功能，这两个模块的总设计大同小异，界面都采用了 toolbox 控件来实现增加、修改、删除 和查询功能的跳转，操作方便、简单明了。因为这两个模块都需要调用查询功能，所以，在 此设计一个查询模块（main_find）, 主要实现功能是在字段名称选择对应的项目，再对运 算符进行选择，然后输入关键字进行查询。具体的设计界面如下：设计技术：main_find 查询模块的设计主要用了 2 个 ComboBox 控件、1 个 TextBox 控件、2 个 Label 控件和 2 个按钮控件来实现，其中查询条件的实现对 cboOperator.AddItem 进行 7 个运算符进行添加，具体的查询功能利用了 Select Case 条件从句与 if 条件从句结合来实 现多重的判断。

设计的相关代码分析如下：

Dim fld Dim rs As New ADODB.Recordset Private Sub Form_Load() rs.Open "select * from "

&

tb, cnn, adOpenKeyset, adLockOptimistic Set fld = rs.Fields For Each fld In rs.Fields 向 combo 控件中添加字段 cboFields.AddItem fld.Name Next rs.Close cboFields.ListIndex = 0 向 cboOperator 中添加查询条件 cboOperator.AddItem ("like") cboOperator.AddItem (">") cboOperator.AddItem ("=") cboOperator.AddItem (">=") cboOperator.AddItem ("<") cboOperator.AddItem ("<=") cboOperator.AddItem ("<>") cboOperator.ListIndex = 022End Sub Private Sub CmdFind_Click() 查询 rs.Open "select * from "

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