Text11.Text = rs("文化程度")
Text12.Text = rs("毕业院校")
Text13.Text = rs("家庭住址")
Text14.Text = rs("手机号码")
Text15.Text = rs("E-mail地址")
Combo3.Text = rs("工作状态")
Text17.Text = rs("所获荣誉") & ""
Text18.Text = rs("所受惩处") & ""
Text19.Text = rs("其他") & ""
DTPicker1.Value = rs("出生年月")
Combo1.Text = rs("部门名称")
c = MsgBox("您确认要修改该记录吗?", 32 + 4, "特别提示")
If c = vbYes Then
rs.Update
End If
End Sub
Private Sub Command5_Click()
str1 = "select * from 员工基本信息表 where 员工编号='" & Text1.Text & "'"
If rs.State = 1 Then
rs.Close
End If
rs.Open str1, cn, 1, 3
rs("员工编号") = Text1.Text
rs("员工名字") = Text2.Text
rs("年龄") = Text3.Text
rs("职务名称") = Text4.Text
rs("性别") = Combo2.Text
rs("婚姻状况") = Text6.Text
rs("身体状况") = Text7.Text
rs("身份证号") = Text8.Text
rs("政治面貌") = Text9.Text
rs("籍贯") = Text10.Text
rs("文化程度") = Text11.Text
rs("毕业院校") = Text12.Text
rs("家庭住址") = Text13.Text
rs("手机号码") = Text14.Text
rs("E-mail地址") = Text15.Text
rs("工作状态") = Combo3.Text
rs("所获荣誉") = Text17.Text
rs("所受惩处") = Text18.Text
rs("其他") = Text19.Text
rs("出生年月") = DTPicker1.Value
rs("部门名称") = Combo1.Text
rs.Update
MsgBox "修改成功", 64, "信息提示"
Command4.Enabled = True
End Sub
4.2.3 员工考勤信息模块界面的测试
(1)测试目的:
a)验证员工考勤信息管理功能是否能正常运行;
- 上一篇:基于.net银行储蓄系统的设计与实现
- 下一篇:ASP.net+sqlserver手工艺分享网站设计与开发
-
-
-
-
-
-
-
杂拟谷盗体内共生菌沃尔...
河岸冲刷和泥沙淤积的监测国内外研究现状
乳业同业并购式全产业链...
酸性水汽提装置总汽提塔设计+CAD图纸
当代大学生慈善意识研究+文献综述
十二层带中心支撑钢结构...
中考体育项目与体育教学合理结合的研究
大众媒体对公共政策制定的影响
电站锅炉暖风器设计任务书
java+mysql车辆管理系统的设计+源代码