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]  ... 下一页  >>