在开发过程中,数据控件Data1与员工数据表相连接,各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定,界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。
C.ombo1. (1) "男"
C.ombo1. (1) "女"
C.ombo2. (1) "党员"
C.ombo2. (1) "团员"
C.ombo2. (1) "群众"
E.nd Sub
Private Sub CmdAdd_Cliek( ) '增加记录
D.atal. Recordset. AddNew
E.nd Sub
Private Sub CmdDel_Click( ) '删除记录
D.atal. Recordset. (2)
D.atal. Recordset. MoveNext
E.nd Sub
Private Sub CmdUpdate_Click( ) '修改记录
If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then
D.atal. Recordset. Edit
D.atal. Recordset. (4)
E.lse
MsgBox "数据表不允许修改!"
E.nd If
E.nd Sub
Private Sub CmdExit_Click ( ) '退出程序
D.im ret As Long
ret : MsgBox("真的要退出吗?", vbQuestion + vbYesNo, "退出" )
If (5) Then
D.atal. Reeordset. Close
E.nd
E.nd ff
E.nd Sub