Private Sub munyonghu_Click()
Form10.Show '打开界面
End Sub
5.3 添加功能模块设计
图 5.2 增加员工界面
通过ADO控件连接到数据库的RS表,通过SQL语句
“SELECT rs.编号, rs.姓名, rs.年龄, rs.部门, rs.职级, rs.婚姻状况, rs.文化程度, rs.工作年数, rs.联系电话, rs.家庭住址, rs.身份证号码
FROM rs;“ 筛选出全部记录
用TEXT控件,将它的数据源设为ADO控件,将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub
5.4 信息查询模块设计
图 5.3 “查询员工信息”界面
这里就列出查询源代码进行说明:
Private Sub Command6_Click()
ss= Text2.Text 设定4个变量
Adodc1.RecordSource = "SELECT * FROM RS where " + ss2 + "='" + ss4 + "' and " + ss3 + "='" + ss5 + "'"
Adodc1.Refresh
字段1=变量SS1 值=SS2 字段2=变量SS3 值=SS4
End Sub
计发工资信息模块设计
图 5.4 计发工资信息界面
通过ADO控件连接到数据库的表工资
用控件,将它的数据源设为ADO控件,将它的各列显示出数据库的各列。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub
配置管理界面设计
图 5.5 “配置管理”界面
通过ADO控件连接到数据库的BUMEN表,通过SQL语句
筛选出全部记录。 用DATA GRID控件,将它的数据源设为ADO控件,将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub