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

&

Txtczy.text &

"", cnn, adOpenKeyset, adLockOptimistic If rs1.RecordCount >

0 Then rs1.Fields("操作员名称") = Trim(Txtczy.text) rs1.Fields("操作员编号") = Trim(Txtbh.text) rs1.Fields("密码") = Trim(Txtmm.text) rs1.Update 更新 Adodc1.Refresh Else rs1.AddNew rs1.Fields("操作员名称") = Trim(Txtczy.text) rs1.Fields("操作员编号") = Trim(Txtbh.text) rs1.Fields("密码") = Trim(Txtmm.text) rs1.Update 更新 Adodc1.Refresh End If rs1.Close End Sub Private Sub CmdDelete_Click() 删除操作员信息 Dim a As String If Adodc1.Recordset.RecordCount >

0 Then a = MsgBox("您确实要删除这条数据吗?", vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End If End Sub （2）系统初始化 在这系统中，如果用户要清理系统数据，重新作账，可以通过数据初始化窗体实现，数 据初始化窗体将清空部或全部数据表中的数据。

系统初始化实现技术如下：

a、 在窗体中放置 7 个 CheckBox 控件，作为数据表选项。用户选定哪个选项，系统即 清空与之对应的表中的数据。

b、 清空所有表中数据需要一定的时间，这里为了提示用户程序正在执行中，设计时使 用了进度条控件。32c、 在窗体中放置 3 个命令按钮，分别为开始、初始化和退。

相关代码分析：

Private Sub Form_Unload(Cancel As Integer) frm_main.Enabled = True End Sub ‘设置初始化按钮有效,只有初始化有效时,才允许用户操作,设计此功能是为了避免用户 操作失误 Private Sub CmdStart_Click() 开始 Comcsh.Enabled = True End Sub Private Sub Comcsh_Click() Dim rs As New ADODB.Recordset 定义数据集对象 Dim cnn As New ADODB.Connection 定义数据连接 Dim connter As Integer 定义一个整型变量 Dim sql, workarea(200) As String 定义字符串变量 cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=xsgl;Initial Catalog=xsgl"

ProgressBar1.Visible = True ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = "initial value "

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