vb程序设计-实验指导书

实验的总体要求与方法实验的总体要求与方法 实验是巩固课堂所学知识 掌握可视化程序设计的方法 提高分析问题和解决问题能 力的最重要的途径 因此明确实验目的 内容与要求 实验步骤及实验规则 一方面有助 于实验任务的顺利完成 另一方面也有利于养成严谨科学的作风 每个实验都要遵循认真 预习准备 认真做好实验 认真写好实验报告三个阶段进行 1 实验的基本目的实验的基本目的 1 通过实验熟悉面向对象程序设计的基本概念 2 通过实验熟练掌握利用 VB 进行可视化程序设计的基本方法 3 通过实验掌握应用程序的调试方法 加强应用能力的训练与培养 从而具有 计一般应用程序和解决事务管理问题的能力 2 实验的基本要求实验的基本要求 1 上机实验之前 应认真预习有关实验内容及相应教材 2 实验过程中应记录实验中的有关数据 包括出错信息等 以便课后进行分析 3 上机时要遵守实验室的规章制度 爱护实验设备 实验报告 实验报告 每个实验结束后都应写出实验报告 报告中应包括下列内容 实验目的 实验内容与要求 实验步骤 实验结果及分析讨论 实验心得体会等 实验一实验一 熟悉熟悉 vb 的开发环境 程序设计的基本步骤的开发环境 程序设计的基本步骤 实验目的实验目的 1 熟悉 Visual Basic 6 0 集成开发环境 2 学习怎样启动和退出 VB 3 掌握开发一个简单程序的基本步骤 4 掌握简单代码的编写 实验内容实验内容 1 启动和退出 VB 2 开发一个简单程序 3 将 Visual Basic 工程编译生成可执行文件 实验要求及操作步骤实验要求及操作步骤 一 启动和退出一 启动和退出 VBVB 1 进入 VB 集成开发环境 要进入 VB 应用程序 首先要运行 VB 的集成开发环境 启动 VB 的方法如下 方法方法 1 1 单击任务栏上的 开始 按钮 选择 程序 文件夹 接着选取 Microsoft Visual Basic 6 0 中文版 文件夹 再选取 Microsoft Visual Basic 6 0 中文版 项 如图 1 1 所示 图图 1 1 启动启动 VB 的方法的方法 1 单击鼠标左键 方法方法 2 2 单击任务栏上的 开始 按钮 选择 程序 文件夹 使用 Windows 资源按理器 查找 VB 可执行文件 VB6 exe 双击图标 方法方法 3 3 在桌面创建一个 VB 快捷键 双击该快捷键 VBVB 启动后 出现 VB6 0 的 新建工程 对话框 图 2 单击 打开 按钮 带有一 个窗体的新工程将被创建 并可以看到 VB 集成开发环境的界面 如图 1 3 所示 有的系统 启动后可直接进入图 1 3 所示的界面 图图 1 2 VB6 0 的的 新建工程新建工程 对话框对话框 图图 1 3 VB 的集成开发环境窗口的集成开发环境窗口 1 退出 VB 方法 1 单击主窗口右上角的 关闭 按钮 2 执行 文件 菜单中的 退出 命令 3 按 Alt Q 键 二 开发一个简单程序二 开发一个简单程序 要求 要求 新建一工程 在窗体 Form 上添加一个标签 Label 当单击窗体时标签 Label 显示 床前明月光 实验步骤 实验步骤 1 新建工程 在桌面上双击 Microsoft Visual Basic 6 0 快捷方式图标 系统进入 Visual Basic6 0 集成开发环境 并显示 新建工程 对话框 默认选择是建立 标准 EXE 即标准工程 单击 打开 按钮 Visual Basic 6 0 进入设计模式 如图 1 4 所示 图 1 4 新建工程 对话框 单击 文件 菜单 选择 新建工程 菜单项 也可进入设计模式 2 设计界面 在系统提供的名为 Form1 的窗体上进行界面设计 单击工具箱上的标签 Label 控件 在窗体上添加标签的位置处按下鼠标左键 并拖动 调整虚框的大小 松开鼠标 就将标 签控件添加到窗体上 初始界面如图 1 5 所示 图 1 5 初始界面 3 设置属性 如表 1 1 所示 表 1 1 属性设置 对象属性属性值 Form1Caption 我的第一个 VB 程序 Label1Caption 设置属性后的界面如图 1 6 所示 图 1 6 设置属性后的界面 图 1 7 第一个程序 4 编写程序代码 Private Sub Form Click Label1 Caption 床前明月光 End Sub 5 运行程序 运行 VB 程序有三种方法 单击工具栏上的 启动 按钮 从 运行 菜单中选择 启动 菜单项 按 F5 键 例如 单击工具栏上的 启动 按钮运行程序后 单击窗体 程序运行效果如图 1 7 所示 6 保存程序 单击工具栏中的 保存 按钮或单击 文件 菜单中的 保存工程 菜单项 选择合 适的保存路径 先保存窗体文件 例如窗体文件名为 实验一 frm 然后保存工程文 件 例如工程文件名为 实验一 vbp 三 将三 将 VisualVisual BasicBasic 工程编译生成可执行文件工程编译生成可执行文件 单击 文件 菜单中的 生成实验一 exe 菜单项 就可生成可执行的 exe 文件 退出 Visual Basic 集成开发环境 双击实验一 exe 文件 则实验一 exe 文件就可直接运 行 实验二实验二 命令按钮 文本框和标签命令按钮 文本框和标签 实验目的实验目的 1 掌握命令按钮 文本框和标签常用属性值的设置方法 2 学会使用命令按钮 文本框和标签在窗体上建立用户界面的方法 3 掌握命令按钮的主要事件的使用 实验内容实验内容 1 利用命令按钮 文本框和标签判断密码是否正确 2 建立应用程序 对两个文本框中输入的内容进行交换 实验要求与步骤实验要求与步骤 1 实验内容 要求要求 在文本框中输入 goodbaby 然后单击 登录 命令按钮 则在标签 Label2 中显示 欢迎使用本系统 在文本框中输入 abc 然后单击 登录 命令 按钮 则在标签 Label2 中显示 密码错误 请重新输入密码 步骤 步骤 1 设计界面 在窗体上添加两个标签 一个文本框和两个命令按钮 初始界面如图 2 1 所示 图 2 1 初始界面 图 2 2 设置属性后的界面 2 设置属性 设置属性后的界面如图 2 2 所示 表 2 1 属性设置 对象属性属性值 Label1Caption请输入密码 Command1Caption登陆 Command2Caption退出 Label2Caption Label2BorderStyle1 Fixed Single Text1Text Text1MaxLength16 Text1PasswordChar Form1Caption登陆界面 3 编写程序代码 Private Sub Command1 Click If Text1 Text goodbaby Then Label2 Caption 欢迎使用本系统 Else Label2 Caption 密码错误 请重新输入密码 End If End Sub Private Sub Command2 Click End End Sub 4 运行程序 在文本框中输入 goodbaby 然后单击 登录 命令按钮 则在标签 Label2 中 显示 欢迎使用本系统 运行结果如图 2 3 所示 图 2 3 输入的密码正确 在文本框中输入 abc 然后单击 登录 命令按钮 则在标签 Label2 中显示 密码错误 请重新输入密码 运行结果如图 2 4 所示 图 2 4 输入的密码错误 2 实验内容 1 设计界面 在窗体上放置两个 Label 控件 两个 TextBox 控件和三个 CommandButton 控件 初 界面如图 2 5 所示 图 2 5 初始界面 图 2 6 属性设置后的界面 2 属性设置 设置属性后的界面如图 2 6 所示 表 2 2 属性设置 对象属性名称属性值 Form1Caption 交换 Label1Caption 输入第 1 个数 Label2Caption 输入第 2 个数 Text1Text 空 Text2Text 空 NameCmdChange Caption 交换 Command1 DefaultTure NameCmdClear Command2 Caption 清空 NameCmdExit Command3 Caption 退出 3 编写程序代码 Option Explicit Private Sub CmdChange Click Dim temp As Integer temp Text1 Text Text1 Text Text2 Text Text2 Text temp End Sub Private Sub CmdExit Click Unload Me End Sub Private Sub CMdCLear Click Text1 Text Text2 Text Text1 SetFocus End Sub 4 运行程序 执行结果如图 2 7 a b 所示 单击 清空 按钮并再数入数据 进行交换 图 2 7 a 交换前的界面 图 2 7 b 单击交换后的界面 实验三实验三 表达式 表达式 InputBoxInputBox 函数和函数和 MsgBoxMsgBox 语句语句 实验目的实验目的 1 掌握表达式的构成和如何求表达式的值 2 掌握赋值语句的使用 3 掌握 InputBox 函数的使用 4 掌握 MsgBox 语句的使用 实验内容实验内容 1 利用 InputBox 函数和 MsgBox 语句求圆的周长 2 利用 InputBox 函数输入三角形的三边的长度 a b c 计算三角形的面积并显示在窗 体上 实验步骤与指导实验步骤与指导 1 实验内容 1 设计界面 在窗体上添加一个命令按钮 初始界面如图 3 1 所示 图 3 1 初始界面 图 3 2 设置属性后的界面 2 设置属性 表 3 1 属性设置 对象属性属性值 Command1Caption计算圆的周长 Form1CaptionInputBox 和 MsgBox 举例 设置属性后的界面如图 3 2 所示 3 编写程序代码 Private Sub Command1 Click Const pi 3 14159 Dim r As Single s As String s2 As String Dim zhouchang As Single s InputBox 请输入半径 输入半径 1 r Val s zhouchang 2 pi r s2 半径 s 圆的周长 Str zhouchang MsgBox s2 64 确认窗口 End Sub 4 运行程序 单击工具栏上的 启动 按钮 进入运行模式 单击 计算圆的周长 命令按钮 在 输入框中输入圆的半径 例如 输入 2 在消息框中输出半径和计算出来的圆的周长 如图 3 3 所示 a b c 图 3 3 计算圆的周长 2 实验内容 1 设计界面 初始界面如图 3 4 所示 图 3 4 初始界面 2 设置属性 表 3 1 属性设置 对象属性属性值 Form1Caption求三角形的面积 3 编写程序代码 Private Sub Form click Dim a As Single b As Single c As Single Dim s As Single p As Single a InputBox 请输入三角形的边 a 输入 b InputBox 请输入三角形的边 b 输入 c InputBox 请输入三角形的边 c 输入 If a b c Or a c b Or b c c Or Abs a c b Or Abs b c a Then MsgBox 你输入的数据有误 Else p a b c 2 s Sqr p p a p b p c Print 三角形的面积为 s End If End Sub 4 运行程序 如图 3 5 a b c d 所示 a b c d 图 3 5 计算三角形的面积 实验四实验四 选择结构选择结构 实验目的实验目的 1 掌握逻辑表达式的正确书写形式 2 掌握单分支与双分支条件语句的用法 熟悉 If Then Else 语句 3 掌握选择结构中多条件 多分支程序的用法 熟悉 Select Case 语句 实验内容实验内容 1 编写程序 利用文本框检查用户密码 提示 可以用文本框的 PasswordChar 属性 来隐蔽用户输入的字符 提示 设密码是 123456 利用文本框的 PasswordChar 属性可以隐蔽用户输入的字符 2 输入一个数字 0 6 用中英文显示星期几 提示 用多条件多分支选择语句 Select Case 来解决 实验步骤与指导实验步骤与指导 1 实验内容 1 建立用户界面 2 设置对象属性 表 4 1 属性设置 对象属性属性值说明 Frame1Caption请输入您的密码 Text 清空 Text1 PasswordChar 只显示字符 Caption FontName黑体字体名称 Label1 fontSize三号字体大小 3 编写事件代码 Private Sub Text1 KeyPress KeyAscii As Integer If KeyAscii 13 Then 回车字符的 Ascii 为 13 If Text1 Text 123456 Then Label1 Caption 欢迎使用本系统 Else Label1 Caption 对不起 密码错 End If Text1 SelStart 0 Text1 SelLength Len Text1 Text End If End Sub 4 运行程序 程序输出界面如图 4 1 图 4 2 所示 图 4 1 验证密码正确 图 4 2 验证密码不正确 2 实验内容 1 建立用户界面 参考图 4 3 所示 图 4 3 界面设计 2 设置对象属性 表 4 2 属性设置 对象属性属性值说明 Form1Caption星期 Label1Caption输入一个数字 0 6 Caption 空Label2 BorderStyle1 Fixed Single边框样式 Caption星期 Command1 DefaultTrue缺省命令按 钮 Text1Text 空 3 编写事件代码 Private Sub Command1 Click Dim n As Integer m As String n Val Text1 Text Select Case n Case 1 m 星期一 Monday Case 2 m 星期二 Tuesday Case 3 m 星期三 Wednesday Case 4 m 星期四 Thursday Case 5 m 星期五 Friday Case 6 m 星期六 Saturday Case 0 m 星期日 Sunday Case Else m 重新输入 End Select Label2 Caption m End Sub 程序输出界面如图 4 4 所示 图 4 4 程序运行结果 实验五实验五 循环结构循环结构 实验目的实验目的 1 掌握 For 语句的使用 2 掌握 Do 语句的使用 3 掌握如何控制循环条件 防止死循环或不循环 实验内容实验内容 1 利用 For 循环求 S 1 1 2 1 2 3 1 2 3 n 的值 提示 本题是 先进行内循环累加 再进行外循环累加 因此需要两个累加器 也可用一个循环来 实现 括号内每累加一个数 就往 S 中累加一次 2 输入一个正整数 利用 当型 循环判断是否素数 提示 素数 是除了 1 和该 数本身 不能被任何整数整除的数 判断一个自然数是否素数 只要依次 2 n 用 做除数去除 n 若 n 不能被其中任何一个数整除 则 n 为素数 实验步骤与指导实验步骤与指导 1 实验内容 1 建立用户界面 2 设置对象属性 参考图 5 1 所示 图 5 1 属性设置 图 5 2 程序运行结果 3 编写事件代码 Private Sub Command1 Click Dim n As Integer i As Integer j As Integer s As Long n Val Text1 Text j 0 s 0 For i 1 To n j j i s s j Next i Label2 Caption 和数 S z n m 输出各元素的值 Next Print 换行 Next End Sub 4 运行程序 程序输出界面如图 13 4 所示 图 13 4 程序运行结果 实验十四实验十四 菜单设计菜单设计 实验目的实验目的 1 掌握菜单设计器窗口的操作技术 2 掌握下拉式菜单和弹出式菜单的设计方法 实验内容实验内容 1 建立一个窗体菜单 测试快捷键和访问键的功能 在窗体上放置一个文本框 根据 菜单中选择的颜色 变换文本框的背景色 2 在上题的基础上添加一个弹出式菜单 并测试弹出式菜单的执行情况 实实验步骤与指导验步骤与指导 1 实验内容 1 建立用户界面 利用 工具 菜单中的 菜单编辑器 菜单项 建立如图 14 1 所示的菜单 图 14 1 初始菜单 2 属性设置 表 14 1 菜单设计 标题名称快捷键 颜色 C mnuColor 红色 mnuRedCtrl R 蓝色 mnuBlueCtrl B 绿色 mnuGreenCtrl G Line 白色 mnuWhiteCtrl W 黑色 mnuBlackCtrl K 退出 X mnuExit 3 编写事件代码 Private Sub mnuExit Click End End Sub Private Sub mnuBlack Click Text1 BackColor RGB 0 0 0 End Sub Private Sub mnuBlue Click Text1 BackColor RGB 0 0 255 End Sub Private Sub mnuGreen Click Text1 BackColor RGB 0 255 0 End Sub Private Sub mnuRed Click Text1 BackColor RGB 255 0 0 End Sub Private Sub mnuWhite Click Text1 BackColor RGB 255 255 255 End Sub 4 运行程序 测试程序 测试快捷键和访问键 观察运行结果 2 实验内容 1 在实验 1 的菜单中增加一个菜单项 如表 14 2 所示 表 14 2 新增菜单项 标题名称可见性 弹出菜单 mnuPopFalse 打印星号 mnuPopStar 打印字母 mnuPopNum 2 修改属性 将 Text1 的对齐属性 Alignment 设为 2 居中 多行属性 MultiLine 设为 Ture 字体 Font 属性设为 小三 3 添加程序代码 Private Sub Form MouseDown Button As Integer Shift As Integer X As Single Y As Single If Button 2 Then Form1 PopupMenu mnuPop 4 End Sub Private Sub mnuPopNum Click Text1 Text Text1 Text 1 2 3 4 5 6 7 8 9 0 Chr 13 Chr 10 0 9 8 7 6 5 4 3 2 1 End Sub Private Sub mnuPopStar Click Text1 Text Text1 Text Chr 13 Chr 10 End Sub 4 运行程序 效果如图 14 2 所示 图 14 2 弹出式菜单效果 实验十五实验十五 工具栏 状态栏设计工具栏 状态栏设计 实验目的实验目的 1 掌握通过工具条控件创建工具栏的步骤和方法 2 掌握通过状态栏控件创建状态栏的步骤和方法 实验内容实验内容 1 创建具有 新建 复制 打开 和 打印 功能的工具栏 2 应用 StatusBar 控件制作状态栏 实验步骤与指导实验步骤与指导 1 实验内容 1 建立用户界面 添加一个文本框控件 Text1 添加 AxtiveX 控件 参考图 15 1 所示 图 15 1 添加控件 将工具箱中 Toolbar 和 ImageList 控件双击到窗体上 参考图 2 15 2 所示 图 15 2 设置界面 2 设置对象属性 鼠标指向 ImageList 控件 单击右键在弹出的快捷菜单中选择属性 在打开的 属性 页 对话框 选择 图象 选项卡 单击 插入图片 按钮 选择图片 如图 15 3 所示 图 15 3 插入图片 在窗体的工具栏上单击鼠标右键 在弹出的快捷菜单中选择属性 打开的 属性页 对话框 在 图象列表 选项中选取 ImageList1 建立与图象列表框的关联 参考图 2 15 4 所示 图 15 4 设置 Toolbar 的属性 选择 按钮 选项卡 单击 插入 按钮 向工具栏中添加 4 个工具按钮 索引分别 为 1 2 3 4 对应图象索引值分别为 1 2 3 4 参考图 15 5 所示 图 15 5 建立与图象列表框的关联 3 编写事件代码 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 Text1 Text Case 2 Debug Print 复制 Case 3 Debug Print 打开 Case 4 Debug Print 打印 End Select End Sub 4 运行程序 程序输出界面如图 15 6 所示 图 15 6 程序运行结果 2 实验内容 1 建立用户界面 添加 AxtiveX 控件 向窗体中添加一个 StatusBar 控件和 Timer 控件 参考图 15 7 所 示 图 15 7 界面设计 图 15 8 插入一个窗格 2 设置对象属性 设置 Timer 控件的 Interval 属性为 100 右击 StatusBar 控件 在弹出的快捷菜单中选 择属性 在打开的 属性页 对话框 选择 窗格 选项卡 选择插入窗格命令 插入一 个窗格 如图 15 8 所示 3 编写事件代码 Private Sub Form Load StatusBar1 Panels 1 Text 欢迎使用本系统 End Sub Private Sub Timer1 Timer StatusBar1 Panels 2 Text Time End Sub 4 运行程序 程序输出界面如图 15 9 所示 图 15 9 程序运行结果 实验十六实验十六 文件系统控件文件系统控件 实验目的实验目的 掌握驱动器列表框 目录列表框和文件列表框的常用属性和事件 实验内容实验内容 实现驱动器列表框 目录列表框和文件列表框三者之间的同步 实验步骤与指导实验步骤与指导 1 设计界面 在窗体上添加一个驱动器列表框 Drive1 一个目录列表框 Dir1 和一个文件列表框 File1 如图 16 1 所示 图 16 1 初始界面图 图 16 2 文件系统控件的同步 2 编写程序代码 Private Sub Drive1 Change Dir1 Path Drive1 Drive End Sub Private Sub Dir1 Change File1 Path Dir1 Path End Sub 3 运行程序 程序运行效果如图 16 2 所示 实验十七实验十七 顺序文件顺序文件 实验目的实验目的 1 掌握顺序文件的打开 读写和关闭方法 2 掌握顺序文件的使用 实验内容实验内容 打开一个顺序文件 该文件的内容显示在文本框中 对文本框中的文本进行修改 将 修改后的文本保存到顺序文件中 实验步骤与指导实验步骤与指导 1 设计界面 在窗体上添加三个命令按钮 一个文本框和一个通用对话框 初始界面如图 17 1 所 示 图 17 1 初始界面 2 设置属性 表 17 1 属性设置 对象属性属性值 Form1Caption顺序文件 Text1Text Text1MultiLineTrue Text1ScrollBars3 Both Command1Caption显示文件 Command2Caption保存文件 Command3Caption退出 CommonDialog1FilterText Files txt txt 设置属性后的界面如图 17 2 所示 图 17 2 设置属性后的界面 3 编写程序代码 Private Sub Command1 Click Dim File1 As String Dim nextline As String CommonDialog1 ShowOpen File1 CommonDialog1 FileName Text1 Text Open File1 For Input As 1 Do Until EOF 1 Line Input 1 nextline Text1 Text Text1 Text nextline Chr 13 Chr 10 Loop Close 1 End Sub Private Sub Command2 Click Dim contents As String File1 As String CommonDialog1 ShowSave File1 CommonDialog1 FileName Open File1 For Output As 1 contents Text1 Text Text1 Text Print 1 contents Close 1 End Sub Private Sub Command3 Click Unload Me End Sub 4 运行程序 运行程序 单击 显示文件 命令按钮 在弹出的通用对话框中选取一个文件 则选 中文件内容显示在文本框中 在文本框中进行修改 然后单击 保存文件 命令按钮 则 文本框中的内容保存到该文件 程序运行效果如图 17 3 所示 图 17 3 顺序文件的使用 实验十八实验十八 随机文件随机文件 实验目的实验目的 1 掌握随机文件的打开 读写和关闭方法 2 掌握随机文件的使用 实验内容实验内容 新建随机文件 D txl txt 往该随机文件中添加记录 浏览随机文件中的记录 实验步骤与指导 1 设计界面 在窗体上添加三个标签 两个文本框 一个滚动条和三个命令按钮 初始界面如图 18 1 所示 图 18 1 初始界面 2 设置属性 表 18 1 属性设置 对象属性属性值 Form1Caption随机文件 Label1Caption姓 名 Label2Caption电话号码 Text1Text Text2Text Command1Caption添加记录 Command1 名称 cmdAdd Command2Caption浏览记录 Command2 名称 cmdBrowse Command3Caption退出 Command3 名称 cmdExit Label3Caption选择记录 设置属性后的界面如图 18 2 所示 图 18 2 设置属性后的界面 3 编写程序代码 Private Sub Form Load Open D txl txt For Random As 1 Len Len js End Sub Private Sub cmdAdd Click Dim position As Long position LOF 1 Len js js name Text1 Text js tel Text2 Text Put 1 position 1 js Text1 Text Text2 Text End Sub Private Sub cmdBrowse Click LastRecord LOF 1 Len js HScroll1 Max LastRecord HScroll1 Min 1 HScroll1 Value 1 Call HScroll1 Change End Sub Private Sub HScroll1 Change Dim n As Integer n HScroll1 Value 1 Get 1 n js Text1 Text js name Text2 Text js tel End Sub Private Sub cmdExit Click Close 1 Unload Me End Sub 4 运行程序 运行程序 在两个文本框中分别输入姓名和电话号码 然后单击 添加记录 命令按 钮 把该记录添加到 D txl txt 文件中 单击 浏览记录 命令按钮 单击水平滚动条向右箭头或移动滑块 就可浏览记录 所浏览记录的姓名 电话分别显示在两个文本框中 程序运行效果如图 18 3 所示 图 18 3 随机文件的使用 实验十九实验十九 可视化数据管理器可视化数据管理器 VisDataVisData 的使用的使用 实验目的实验目的 1 掌握数据库 表 记录和字段的概念 2 掌握可视化数据库管理器的使用 3 了解使用 SQL 语句对数据库中的数据进行查询和更新的功能 实验内容实验内容 使用可视化数据库管理器建立一个名为 Student mdb 的 Access 数据库 它包括一个 学生学籍表 该表的表名为 xjb 各列的名称 数据类型 长度及意义如下所示 列名 数据类型 长度 意义 st No Integer 学号 name Text 10 姓名 sex Text 2 性别 addr Text 50 地址 height single 身高 实验步骤与指导实验步骤与指导 1 数据库的创建 1 单击 外接程序 菜单项的 可视化数据管理器 菜单项 启动 可视化数据管理 器 显示如图 19 1 所示的 VisData 窗口 图 19 1 可视化数据管理器 2 选择 可视化数据管理器 中 文件 菜单中的 新建 菜单项用于创建数据库 3 选择 Microsoft Access 菜单项 单击该菜单项下的 Version 7 0 MDB 菜单项 打开 选择要创建的 Microsoft Access 数据库 对话框 4 选择新建数据库保存的目录后 在 文件名 文本框中输入数据库的名称 student 单击 确定 可视化数据管理器 开始在指定的目录下创建以指定名称命名的 Microsoft Access 数据库 如图 19 2 所示 图 19 2 创建数据库后的 可视化数据管理器 界面 2 向数据库中添加数据表 1 在 数据库窗口 中右击鼠标 在弹出的快捷菜单中选 新建表 菜单项 系统 将打开 表结构 对话框 如图 19 3 所示 图 19 3 表结构 对话框 2 在 表名称 文本框中键入表名 这里键入名称 xjb 3 单击 添加字段 按钮 系统显示 添加字段 对话框 如图 19 4 所示 在这 个对话框中定义表的字段 单击 确定 按钮 这样我们就定义了 xjb 表的第一个字段 图 19 4 添加字段 对话框 4 需要继续添加字段时 单击 添加字段 按钮 按与第 3 步相似的方法添加新的 字段 单击 关闭 按钮关闭 添加字段 对话框 此时 表结构 中显示将该表所有字 段的定义 5 单击 生成表 按钮 可视化数据管理器 创建指定的表并关闭 表结构 对 话框 如图 19 5 所示 6 若要修改现有表的表结构 在 数据库窗口 中右击鼠标 单击弹出的快捷菜单 中 设计 菜单项 系统将打开 表结构 对话框 对欲修改的字段进行修改即可 3 编辑数据表中的数据 1 在 可视化数据管理器 中打开数据库 student mdb 如图 2 20 6 所示 2 在 数据库窗口 中右击要添加 修改 或删除记录的表 从弹出菜单中选择 打开 菜单项 系统显示 Dynaset 表名 对话框 其中显示所选表中第一条记录的内 容 如图 19 6 所示 图 19 5 包含有 3 个表的数据库 student 图 19 6 Dynaset xjb 对话框 3 添加记录 单击 添加 按钮 对话框会显示一条空的记录 如图 19 7 所示 输入各字段的内容 单击 更新 按钮保存新添加的记录 图 19 7 添加新的记录 4 其它按钮的使用方法读者可以自行摸索一下 5 单击 关闭 按钮关闭 Dynaset xjb 对话框 4 使用查询生成器 查询生成器 是 Visual Basic 6 0 的外接程序 可视化数据管理器 的一个工具 利 用这个工具 读者即使在不太了解 SQL 语句的情况下 也能够构造出复杂的查询来 而且 可以测试其正确性 使用 查询生成器 构造和测试 SELECT 语句的步骤为 1 启动 可视化数据管理器 打开数据库 2 单击 实用程序 菜单下的 查询生成器 菜单项 打开如图 19 8 所示的 查询 生成器 图 19 8 查询生成器 3 表 列表框中显示了数据库中定义的所有表 选中要检索的表 该表中的所有 字段都显示在 要显示的字段 列表框中 如果要检索多个表中的数据 那么在 表 列表框中选中这些表 这些表的所有字段都显示在 要显示的字段 列表框中 如图 2 20 8 所示 4 在 要显示的字段 列表框中选中要检索的字段 选中字段以高亮方式显示 单击 运行 按钮 系统询问 这是 SQL 传递查询吗 单击 否 按钮 系统使用我们刚 刚构造的 SELECT 语句检索数据 并显示在 SQL 语句 对话框中 浏览完数据后 单击 关闭 按钮关闭 SQL 语句 对话框 5 构造查询条件 比如 我们要查找男学生的信息 那么 在 字段名称 列表框中 选择字段名 sex 在 运算符 下拉列表框中选择等号 在 值 下拉列表框中输入 男 这样 就构造了检索条件 sex 男 如果希望直接从数据库中得到条件值 那么 单击 列出可能的值 按钮 系统从数据库中检索该列的数据 并显示在 值 列表框中 从该列表框中选择条件中使用的值 单击 运行 按钮 即可看到在指定条件下查询的结 果 6 指定任意多个条件 如果需要指定更多的条件 那么首先需要分清要添加的条件与 先前条件之间的关系 当希望检索同时满足先前的条件与新加条件的记录时 就要把这两 个条件做 与 运算 And 运算 单击 将 And 加入条件 按钮 当希