VB程序设计第十五章.ppt

MSFlexGrid1为ActiveX控件，添加方法为选择“工程”菜单中“部件”菜单项，在弹出的对话框中选择“Microsoft MSFlexGrid Control 6.0”，单击“确定”按钮即可。 窗体上的Text1、Text2、Text3和Combo1控件的属性设置和添加用户模块中对应的属性设置完全一致，此处不再赘述。 编写代码如下： “修改”按钮单击事件 Private Sub Command1_Click() On Error GoTo handler Text1.Locked = True Text2.Locked = True Text3.Locked = True Combo1.Locked = True Data1.Recordset.Update MsgBox 修改数据成功！ Data1.Refresh Exit Sub handler: MsgBox 修改数据失败！, , 警告 Exit Sub End Sub “取消”按钮单击事件 Private Sub Command2_Click() Data1.Refresh End Sub “退出”按钮单击事件 Private Sub Command3_Click() Unload Me End Sub 设置MSFlexGrid1控件的第一行文字内容 Private Sub Form_Activate() MSFlexGrid1.Col = 1 MSFlexGrid1.Row = 0 MSFlexGrid1.ColSel = 4 MSFlexGrid1.Clip = 用户编号 Chr(9) 用户名称 Chr(9) 用户密码 Chr(9) 用户类型 Text1.Locked = True Text2.Locked = True Text3.Locked = True Combo1.Locked = True End Sub 实现双击MSFlexGrid1的某一行，则该行对应的记录显示在下面的各文本框中 Private Sub MSFlexGrid1_DblClick() Dim strid As Integer MSFlexGrid1.Col = 1 strid = Val(MSFlexGrid1.Clip) Data1.Recordset.FindFirst id= strid Data1.Recordset.Edit Text1.Locked = False Text2.Locked = False Text3.Locked = False Combo1.Locked = False End Sub 本模块窗体运行如图15-11所示。 图15-11 6、删除用户模块设计 在工程中再添加一个新的窗体，将它保存为Frmdeluser.frm，其功能主要是实现删除操作人员的信息。 Frmadduser窗体上的主要控件及其属性和修改用户信息模块窗体设置基本相同。表15-15仅列出了与上一模块不同的控件设置。 表15-15 Frmdeluser（删除用户信息）窗体及各控件属性设置 对象 属性 属性设置值 窗体(Frmdeluser) Name Frmdeluser Caption 删除用户信息 BorderStyle 3-Fixed Dialog MDIChild True 命令按钮1(Command1) Caption 删除 命令按钮2(Command2) Caption 取消 命令按钮3(Command3) Caption 退出 编写代码如下： “删除”按钮单击事件 Private Sub Command1_Click() Dim ans As Integer On Error GoTo handler If Not Data1.Recordset.EOF Then ans = MsgBox(确定要删除该用户吗？, vbOKCancel, 删除提示) If ans = vbOK Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast MsgBox 数据已删除！ Data1.Refresh Else Exit Sub End If End If Exit Sub hand