l 控件说明
Ø 增加新记录
当单击“确定”按钮后，“确定”和“取消”两个按钮显示，同时使其他的按钮不可见，这样做是为了防止用户的误操作。
其主要程序如下：
Private Sub Command5_Click()
xg = True
'显示“确定”和“取消”两个按钮
Command3.Visible = True
Command4.Visible = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Data1.Recordset.AddNew '添加一个新记录
Text1.SetFocus '光标在TEXT1处
end sub
Ø 修改记录
在调用EDIT方法之前，约束控件中的数据是只读的，用户无法对其进行修改。调用了EDIT方法后，用户可以在约束控件中修改记录的值。如果在对当前记录进行修改之前修改，未使用EDIT方法，将发生运行时错误。
其主要程序如下：
Private Sub Command6_Click()
xg = True
Command3.Enabled = True
Command4.Enabled = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
'对记录进行编辑
Data1.Recordset.Edit
Text1.SetFocus
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>