Visual Basic程序设计第15章 Visual Basic课程设计综合实训.ppt

Set rs = db.OpenRecordset(select * from 基本控件) Case 2 Set rs = db.OpenRecordset(select * from 图片与动画) Case 3 Set rs = db.OpenRecordset(select * from 菜单应用) Case 4 Set rs = db.OpenRecordset(select * from 综合应用) Case 5 Set rs = db.OpenRecordset(select * from 数据库应用) End Select 建立新的Word文档，设置表格格式 Set wordapp = New Word.Application wordapp.Documents.Add Set doc = wordapp.ActiveDocument Set se1 = wordapp.Selection doc.Tables.Add Range:=se1.Range, numrows:=1, numcolumns:=5 se1.TypeText Text:=序号 se1.MoveRight unit:=12 se1.TypeText Text:=题目 se1.MoveRight unit:=12 se1.TypeText Text:=分值 se1.MoveRight unit:=12 se1.TypeText Text:=附图 se1.MoveRight unit:=12 se1.TypeText Text:=答案 se1.MoveRight unit:=12 Do Until rs.EOF 向Word表格中逐行添加记录内容 表15-14 Frmmodiuser（修改用户信息）窗体及各控件属性设置 对象 属性 属性设置值 窗体(Frmmodiuser) Name Frmmodiuser Caption 修改用户信息 BorderStyle 3-Fixed Dialog MDIChild True Data控件(Data1) DatabaseName …\mdb\testpaper.mdb RecordSource 操作人员表 MSFlexGrid1(MSFlexGrid1) DataSource Data1 命令按钮1(Command1) Caption 修改 命令按钮2(Command2) Caption 取消 命令按钮3(Command3) Caption 退出 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 = T