下载文档原格式
《VB实用教程》实验指导书目录实验 1 设计简单的Visual Basic应用程序实验 2 Visual Basic语言基础实验 3 顺序结构程序设计实验 4 选择结构程序设计实验 5 循环结构程序设计实验 6 数组实验 7 过程实验 8 窗体实验 9 VB中的常用控件实验 10 文件系统实验 11 Visual Basic图形操作实验 12 建立和访问数据库实验1 设计简单的Visual Basic应用程序一、实验目的1.掌握启动和退出Visual Basic 6.0的方法。
2.掌握设计一个简单程序的基本步骤。
3.熟练掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
4.了解Visual Basic 6.0联机帮助的使用。
二、实验内容1. 设计一个简单程序：计算圆面积。
在上机调试程序过程中，掌握启动和退出Visual Basic 6.0的方法，初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。
（1）启动Visual Basic 6.0。
启动Visual Basic 6.0的方法有两种：◆ 单击“开始”|“程序”|“Microsoft Visual Basic 6.0”；◆ 在桌面上双击MicrosoftVisual Basic 6.0快捷方式图标。
启动Visual Basic 6.0后，系统进入Visual Basic 6.0集成开发环境，并显示一个“新建工程”对话框，如图14-1-1所示，默认选择是建立标准工程（标准EXE ）。
（2）界面设计。
单击“打开”按钮，Visual Basic 6.0进入设计模式。
系统提供一个名为Form1的窗体，我们就在这个窗体上进行界面设计。
建立控件的方法为：双击工具箱上的命令按钮（CommandButton ），在窗体中出现一个带有“Command1”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置；再次双击工具箱上的命令按钮（CommandButton ），在窗体中出现一个带有“Command2”字样的命令按钮图形对象，用鼠标把它拖到窗体的合适位置。
VB实验指导书实验一 VB集成环境及简单应用程序的建立一、实验目的1．掌握VB6.0的启动与退出。
2．了解VB6.0的集成开发环境，熟悉各主要窗口的作用。
3．了解VB6.0应用程序的开发过程。
4．理解VB中对象的概念。
5．掌握在VB6.0中使用帮助的方法。
二、实验内容1．练习Visual Basic 6.0的启动与退出。
2．熟悉Visual Basic 6.0的集成开发环境，了解各主要窗口的作用。
3．创建一个简单的VB应用程序，要求在窗体上显示“欢迎进入Visual Basic 6.0”。
4．练习在Visual Basic 6.0中使用帮助的各种方法。
三、问题讨论1．简述Visual Basic 6.0的集成开发环境中各主要窗口的作用。
2．简述创建VB应用程序的基本步骤。
实验二 Visual Basic语言基础一、实验目的⒈掌握Visual Basic的数据类型和变量定义方法；⒉正确使用Visual Basic的运算符和表达式；⒊掌握Visual Basic中数据输入、输出的方法；⒋掌握Visual Basic 常用函数的使用方法；⒌学会用赋值语句构造简单的顺序结构程序。
二、实验内容1．在窗体上显示下列表达式的值（设Amt变量为字符型，值为"a"；Bmt变量为整型，其值为3）。
① Bmt3② Bmt+23 ③ - Bmt ④ Bmt-12⑤ Bmt*Bmt ⑥ 10/Bmt ⑦ 10\Bmt ⑧ 9 Mod Bmt⑨ Amt & Bmt ⑩ Amt > Bmt2. 在窗体上显示下列函数的运行结果。
① cos45° ② e 3 ③ |-5|④ 字符"b"对应的ASCII 码值 ⑤ 系统日期和系统时间三、问题讨论1.VB 提供了哪些标准数据类型？2.VB 中如何识别日期常数？VB 能否识别“#2002年5月12日#”这样一个日期常数？3.逻辑型数据和其它的数据类型转换时如何转换，如其它的数据类型转换为Boolean 类型时，0会转换成什么逻辑值？当转换Boolean 值为其它的数据类型时，False 和True 将是什么？4.使用续行符应注意什么？实验三 顺序结构程序设计一、实验目的⒈ 掌握Visual Basic 语言中数据输入方法；⒉ 掌握Visual Basic 语言中数据输出方法；⒊ 正确使用Visual Basic 赋值语句； ⒋ 学会设计简单的顺序结构程序。
《Visual Basic面向对象程序设计〉第一部分实验大纲一、学时学分总学时：116 总学分：6 实验时数：32 实训课时（课程设计）：20二、实验的地位、作用和目的实验课是Visual Basic 面向对象程序设计的重要实践环节。
通过实验，使学生加深理解、验证、巩固课堂教学内容，加深对可视化编程思想的理解，强化Visual Basic对程序流程控制、常用控件的属性、事件、方法的理解和使用，通过简单练习和综合实验，发挥学生的想象力和创新能力。
三、实验对象本实验开设对象为计算机系的信息与管理专业、网络与多媒体专业及组装与维护专业的专科学生，本实验为必修课程。
四、基本原理及课程简介《Visual Basic 面向对象程序设计》以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。
在本专业的教学计划中，它是一门专业主干课，本课程在教学内容方面着重基本理论、基本知识和基本方法，在培养实践能力方面着重设计构思和设计技能的基本训练，熟练上机操作能力和分析能力，其重点在于学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。
本实验课程共开设12个实验项目。
五、实验方式与基本要求实验方式：1、由任课教师讲清实验的基本目的、方法及要求2、实验前必须制定好上机步骤，弄清实验目的；3、实验每人每次一台计算机，每次均为2小时；实验要求：1.了解VB“事件驱动”的编程机制。
掌握程序设计语言的基本知识，包括数据类型，表达式，数组等。
2. 掌握结构化程序设计的基本知识，包括顺序结构，选择结构，循环结构，过程的程序设计方法及文件的操作。
3. 掌握面向对象程序设计的概念与方法，具有一定的程序开发能力。
4. 掌握程序的调试方法，具有处理程序错误的能力。
５、要求学生掌握可视化程序设计的基本思想及利用vb设计一些使用的应用程序。
VB第一部分实验指导书实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、了解Visual Basic集成环境的组成，各部分的作用。
4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。
实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。
界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。
1.复习相关知识：1) VB集成化开发环境2) 建立VB应用程序2.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。
实验步骤：1.Visual Basic 6.0中文版的启动与退出。
1启动：1）单击“开始”按钮，然后选择“程序”中“Microsoft Visual Basic6.0中文版”，单击即可。
或：单击桌面上“Microsoft Visual Basic 6.0中文版”图标，2）新建工程对话框，单击打开“标准exe”按钮，进入环境。
退出：1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计：（1）添加标签Label1。
（2）添加命令按钮Command1。
（3）添加命令按钮Command2。
（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间2位置。
3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。
VB中级工实训指导书编者：李进徐琴审定：目录任务一集成开发环境任务二常用标准控件任务三菜单与对话框任务四Windows API编程任务五数据库应用任务六动态链接库任务七ActiveX 控件附录任务一集成开发环境模块新建控件编辑可执行文件[操作要求]完成下列操作，并将操作结果按要求保存在指定文件夹。
1、工程的基本操作（1）创建一个标准EXE工程。
（2）修改工程名称为x2_01。
（3）在当前工程中移除窗体FORM1。
（4）在指定目录下新建名为X2_02的文件夹，并将当前工程保存在该目录下。
2、IDE的基本操作（1）添加名为MyForm的窗体到当前工程中，并将其设为启动窗体。
（2）在窗体MyForm中添加一个CommandButton控件。
（3）修改窗体MyForm的标题栏为MyForm，将CommandButton控件的显示文本改为Button，并放置在窗体MyForm的正中央。
（4）通过屏幕截图（按PrintScreen键）把操作结果保存成MyForm.bmp文件，并保存到当前工程保存的目录下。
3、制作可执行文件（1）设置当前工程的属性，将版本号设为1.0.1。
（2）将当前工程编译为可执行文件X2_01.exe，存放于当前工程保存的目录下。
4、部署应用程序（1）启动打包和展开向导，部署当前应用程序。
（2）提示是否重新编译程序时，选择否。
（3）包类型为标准安装包。
在当前工程保存目录下新建名为package 的文件夹，将生成的安装包文件存放在该文件夹下。
生成单个压缩文件。
安装程序标题和脚本名称为x2_01，其余选项接受默认设置。
拓展：将commandbutton改为TextBox、Label、DeiveListBox、DirListBox、FileListBox、ComboBox、Hscrollbar、VscrollBar、Timer、4个Option、4个Check、Shape、Data、pictureBox、listbox、line、Image、Frame、OLE控件。
实验一、VB环境与顺序设计实验一、实验目的：1.熟悉VB的集成开发环境2.掌握开发VB应用程序的基本步骤3.学习窗体、标签、文本框和命令按钮的使用二、实验内容：1. 探索菜单栏，工具栏，工具箱，属性窗口，工程资源管理器窗口，代码窗口的使用。
2.编写一个简单的文本缩放程序，图形界面包括一个文本框，一个标签和三个命令按钮。
标签提示向文本框中输入文字，两个命令按钮可连续放大或缩小文本框中的文字，第三个命令按钮可以将文本框文字大小恢复到初始状态。
据具体运行界面如下图：三、实验步骤：1.探索VB集成开发环境，学会使用各种窗口，菜单及按钮。
2.新建一个工程，在窗体窗口中，生成一个文本框对象，三个命令按钮对象，其对象名分别为text1，command1，command2，command3。
设置命令按钮的caption属性，分别为“放大”，“缩小”，“还原”。
3.进入代码窗口，编写代码：4.将程序编译生成.exe文件。
5.保存工程文件及窗体文件。
一、实验目的：1.学会如何用IF或者Select语句实现选择结构2.学会用Msgbox交互函数给出提示信息，学会使用Val函数3.学会清空文本框内容，掌握文本框的setfocus 方法。
二、实验内容：编写一个简单的计算器，能进行加减乘除运算。
当用户输入非数字字符时系统能给予提示并让用户重新输入。
除法运算中当除数为０时系统能给出提示并清空文本框。
三、实验步骤：1.进入VB编程界面，生成四个文本框、四个标签和两个命令按钮。
四个文本框用于输入第一个操作数、运算符、第二个操作数以及运算结果。
标签用于显示标识各文本框的功能，分别设置命令按钮的caption属性为“计算”，“退出计算器”，运行界面如下图所示：2.进入代码窗口，编写相应的事件过程。
3.保存，运行工程。
一、实验目的：1.掌握For 循环的使用，了解其循环次数为已知的特点2.掌握 Do 循环的使用，了解其循环次数为未知的特点3.熟练使用打印方法，学会通过Tab控制符实现打印换行4.了解求解最大公约数的算法5.学会使用图片框，学会使用Cls方法二、实验内容：1.在图片框中以上三角的方式打印九九乘法表。
《VB程序设计》实验指导书一、课程简介VB（Visual Basic）程序设计是一门面向对象的编程语言课程，通过本课程的学习，学生能够掌握 VB 程序设计的基本概念、语法和编程方法，具备使用 VB 开发简单应用程序的能力。
本实验指导书旨在帮助学生更好地理解和掌握VB 程序设计的知识，提高实践动手能力。
二、实验目的1、加深对 VB 程序设计基本概念和语法的理解。
2、培养学生运用 VB 解决实际问题的能力。
3、提高学生的编程思维和逻辑能力。
4、让学生熟悉 VB 集成开发环境的使用。
三、实验环境1、操作系统：Windows 系列操作系统（如 Windows 7、Windows10 等）。
2、开发工具：Microsoft Visual Basic 60 或更高版本。
四、实验内容及要求实验一：VB 集成开发环境的熟悉与使用（一）实验目的1、熟悉 VB 集成开发环境的组成和操作界面。
2、掌握创建、保存、打开和运行 VB 工程的方法。
（二）实验内容1、启动 VB 集成开发环境，观察其各个组成部分，如菜单栏、工具栏、工具箱、属性窗口、代码窗口等。
2、创建一个新的标准 EXE 工程，在窗体上添加一个标签控件和一个命令按钮控件，并设置其属性。
3、为命令按钮控件编写单击事件代码，实现当单击按钮时，标签控件上显示“欢迎学习 VB 程序设计！”。
4、保存工程，并运行程序，观察运行结果。
（三）实验要求1、认真观察 VB 集成开发环境的各个组成部分，了解其功能和作用。
2、按照实验内容的要求，正确设置控件的属性和编写事件代码。
3、记录实验过程中遇到的问题及解决方法。
实验二：VB 基本数据类型与变量（一）实验目的1、掌握 VB 中基本数据类型的使用。
2、学会定义和使用变量。
（二）实验内容1、定义不同数据类型的变量，如整型、长整型、单精度型、双精度型、字符串型等，并为其赋值。
2、编写程序，实现不同数据类型变量之间的运算，并输出运算结果。
《VB省二级实战演练》实习（实训）指导书主编：李明江电子信息与工程系2007年03月15日目录实习（训）一窗体设计 (7)实习（训）二程序填空 (8)实习（训）三程序改错 (10)实习（训）四编写程序 (13)注释 (14)参考文献 (15)实习（实训）的课程名称《VB省二级实战演练》参加实习（实训）的年级及学期06（3）计算机、第三学期实习（实训）的周数或天数四周一、实习（实训）的目的实习的目的是指在完成基础课之后，开设的专业课为学生动手能力打下了一定的基础，但是他们的专业技能还不够精通，动手能力较弱，学生的编程技术需要进一步的提升，掌握窗体的设计的基本方法和过程，以及了解和掌握组成窗体的相关控件的基本属性和基本方法。
通过这次实习，初步了解程序的设计界面及控件的添加和程序的编写过程以及基本操作能力，掌握程序的设计过程。
通过理论课和实践课的有机结合，对后继专业课的学习奠定坚实的基础。
二、实习（实训）的理论基础了解和掌握VB应用程序的有关控件的属性知识以及窗体与控件间的关系。
三、实习（实训）内容1．窗体设计2．程序填空3．程序改错4．编写程序四、实习（实训）要求1、每个同学必须填写实习日记5篇。
2、学生要认真填写项目实习指导书中的各项内容。
3、学生可以根据老师提供的要求进行实习制作实习。
4、学生必须在12月15日前把实习日记、指导书等材料上交系里。
5、指导教师评完后，上交成绩，并认真分析本届学生的实习情况，提出问题和解决问题的方法，形成材料上报到教务处和实验实习中心。
五、实习（实训）安排六、实习（实训）纪律及注意事项●教师管理：1、教师要准时到达实习岗位，每次签到时必须掌握学生的出勤情况。
2、教师要对每个学生的出勤情况认真记载，严格管理。
3、指导教师负责组织协调，实习工作中的出现的问题，及时请示汇报。
4、在实习期间，教师要认真指导学生，安排具体实习内容，并对每一天的实习任务都要进行有针对性的给予指导。
实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。
2、掌握启动与退出Visual Basic的方法。
3、了解Visual Basic集成环境的组成，各部分的作用。
4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。
5、掌握常用控件（文本框、标签、命令按钮）的应用。
6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。
实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。
界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。
1-1 图实验准备：应用程序建立VB1) VB集成化开发环境 2) 复习相关知识：1.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。
2.实验步骤：中文版的启动与退出。
1.Visual Basic 6.0 启动：Microsoft Visual Basic 6.0）单击“开始”按钮，然后选择“程序”中“1 中文版”，单击即可。
中文版”图标，Microsoft Visual Basic 6.0或：单击桌面上“ exe”按钮，进入环境。
）新建工程对话框，单击打开“标准2--退出：1) 单击集成环境窗口右上角的关闭按钮。
2) 单击“文件”下拉菜单中的“退出”选项。
2.界面设计：（1）添加标签Label1。
（2）添加命令按钮Command1。
（3）添加命令按钮Command2。
（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。
3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。
1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。
目录实验一熟悉Visual Basic 6.0编程环境 (1)实验二Visual Basic语句基础 (14)实验三顺序结构 (23)实验四选择结构（一） (28)实验五选择结构（二） (35)实验六循环结构（一） (41)实验七循环结构（二） (48)实验八循环结构（三） (53)实验九循环结构（四） (59)实验十一维数组程序设计 (63)实验十一二维数组程序设计 (72)实验十二过程程序设计（一） (83)实验十三过程程序设计（二） (92)实验十四窗体和常用控件（一） (102)实验十五窗体和常用控件（二） (113)实验十六用户界面设计（一） (126)实验十七用户界面设计（二） (133)实验十八图形操作 (138)实验十九文件操作 (146)附录VB语言开发的应用软件 (153)实验一熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。
（2）掌握建立、编辑和运行一个VB应用程序的全过程。
（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。
（4）掌握窗体、文本框、标签和命令按钮的应用。
（5）掌握每个控件的常用事件和方法。
【实验内容】用事例介绍在VB集成环境下操作的整个过程。
【1-1】用VB设计一个应用程序，用鼠标单击窗体显示文字“欢迎使用Visual Basic 6.0！”，运行程序的结果如图1-1所示。
图1-1 程序运行结果操作步骤：（1）建立工程选择“文件”菜单的“新建工程”命令，打开“新建工程”对话框，界面如图1-2所示。
图1-2 “新建工程”对话框选择“新建”选项卡，再选择“标准EXE ”，最后单击“打开”按钮，新建一个默认名称为Form1的窗体，如图1-3所示。
图1-3 VB 窗口的布局（2）设计界面在属性窗口中，参照表1-1设置窗体Form1各个属性的值。
表1-1 窗体属性的设置（3）编写源代码工具箱窗体 代码窗口立即窗口工程资源管理器窗口 属性窗口布局 窗口双击窗体空白处，进入代码窗口，为窗体的鼠标单击事件编写事件过程代码。
Visual Basic课程实训指导书一、课程实训的意义：1）学会综合运用VB有关的控件、函数和对象的知识。
2）学习各种数据处理控件的使用方法，掌握数据库应用程序的开发技术。
3）学会运用VB进行程序设计的特点和方法。
4）在学会运用VB进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。
二、课程实训的内容：设计并实现图书馆管理的应用程序。
三、课程实训的要求：建立一个图书馆管理数据库，包含书目表、读者表和借阅表，设计并实现图书馆管理的应用程序，要求能完成1）图书入库和图书查找及图书信息的维护2）读者登记和查找3）借阅查找，可以查找某读者借阅的全部图书4）借书和还书处理。
四、课程实训的步骤：1）、分析要解决的问题，明确管理系统的目的和系统应具备的功能，划分功能模块，并画出系统功能模块图。
2）分析所管理的信息，设计数据库的结构。
3）根据各程序模块的功能分别画出程序的详细流程图。
4）分模块编写程序。
5）程序编写完，分模块调试，各模块调试通过之后，在联起来调试，调试通过之后试运行无错误时，编译生成可执行文件。
6）写出完整的课程实训报告。
五、课程实训的过程1、建立数据库1）启动数据管理器在VB集成开发环境中，单击“外接程序”/“可视化数据管理器”，打开数据管理器VisData窗口。
2）新建Jet数据库①选择“文件”/“新建”②选择命令“Microsoft Access…..”/”V ersion 7.0MDB…”③保存，数据库名为：library.mdb3)数据表设计：书目表Book：bookid(馆藏书号、booktype（类别）、ISBN(国际书号)、bookname（书名）、publisher(出版社)、pubdate(出版日期)、author(作者)、size(尺寸)、price(价格)、pages(页数)、stocks(库存总量)、spare(可借数量)、abstract(简介)、location(馆藏位置)。
读者表reader：readerid(读者编号)、readername(读者姓名)、allownum(最多可借书数量)、borrownum((已借数量)。
借阅表borrow：readerid(读者编号)、bookid(馆藏书号)、borrowdate(借书日期)。
4)建立表结构5)输入数据2、按模块编写程序1）添加标准模块conn.bas在标准模块conn.bas中定义全局connection对象变量dbconnection，作为数据库对象的活动连接，供整个工程使用。
2）主窗体包括主菜单的制作和窗体加载及卸载过程的编程。
主窗体加载时打开数据库连接，卸载时关闭连接，并释放对象。
并释放对象。
’加载主窗体private sub form_load()dbconnection.ConnectionString = "provider=microsoft.jet.OLEDb.4.0;data source=d:\案例\library.mdb;persist security info=false"dbconnection.Openend sub’ 卸载主窗体private sub form_unload(cancel as integer)dbconnection.closeset dbconnection=nothingend sub主菜单的结构：书目管理：包括新书登记、旧书淘汰和书目查询。
读者管理：包括读者登记和读者删除。
借书管理：包括借书、还书和借阅查询三项功能。
3）书目管理①新书登记界面设计：其中图书类别用组合框表示，可以选择输入。
逻辑设计：在窗体层定义变量booksize,表示书的开本尺寸。
’界面初始化Private Sub Form_Load()Cbobooktype.AddItem "哲学"Cbobooktype.AddItem "政治"Cbobooktype.AddItem "军事"Cbobooktype.AddItem "经济"Cbobooktype.AddItem "文学"Cbobooktype.AddItem "历史地理"Cbobooktype.AddItem "数理化"Cbobooktype.AddItem "工业技术"Cbobooktype.AddItem "生物化学"Cbobooktype.AddItem "其他"booksize = "16开"End Sub’改变尺寸Private Sub Optsize_Click(Index As Integer)booksize=optsize(index).CaptionEnd Sub’单击“确定”按钮，保存到数据库中。
Private Sub Cmdsave_Click()Adodc1.RecordSource = "select * from book where bookid='" & Trim(Txtbookid.Text) & "'" Adodc1.RefreshIf Adodc1.Recordset.EOF = True And Adodc1.Recordset.BOF = True Then Adodc1.Recordset.AddNewAdodc1.Recordset("bookid") = TxtbookidAdodc1.Recordset("booktype") = CbobooktypeAdodc1.Recordset("ISBN") = TxtISBNAdodc1.Recordset("bookname") = TxtbooknameAdodc1.Recordset("publisher") = TxtpublisherAdodc1.Recordset("author") = TxtauthorAdodc1.Recordset("size") = booksizeAdodc1.Recordset("price") = CCur(Txtprice)Adodc1.Recordset("pages") = CInt(Txtpages)Adodc1.Recordset("stocks") = CInt(Txtstocks)Adodc1.Recordset("spare") = CInt(Txtstocks)Adodc1.Recordset("abstract") = TxtabstractAdodc1.Recordset("location") = TxtlocationAdodc1.Recordset("pubdate") = CDate(Txtpubdate)Adodc1.Recordset.UpdateAdodc1.Recordset.CloseMsgBox "登记完毕"Txtbookid = ""TxtISBN = ""Txtbookname = ""Txtpublisher = ""Txtauthor = ""Txtprice = ""Txtpages = ""Txtstocks = ""Txtabstract = ""Txtpubdate = ""Txtlocation = ""ElseMsgBox "书号重复！"Txtbookid.SetFocusAdodc1.Recordset.CloseEnd IfEnd Sub②旧书淘汰界面设计：逻辑设计：’窗体加载Private Sub Form_Load()Set dbrec.ActiveConnection = dbconnectionEnd Sub’窗体卸载Private Sub Form_Unload(Cancel As Integer)Set dbrec = NothingEnd Sub’输入书号回车后，调用getbookdetail显示该书的详细信息Private Sub Txtbookid_KeyPress(KeyAscii As Integer)If KeyAscii = 13 And Trim(Txtbookid) <> "" ThenCall getbookdetailEnd IfEnd Sub’单击“确定”按钮，修改数据库纪录Private Sub Cmdsave_Click()If CInt(Txtstocks) = 0 Thendbrec.Deletedbrec.UpdateElsedbrec("spare") = dbrec("spare") + CInt(Txtstocks) - dbrec("stocks")dbrec("stocks") = CInt(Txtnewstocks)dbrec.Updatedbrec.MoveLastEnd IfMsgBox "已完成！"Unload MeEnd Sub’根据书号取出书籍纪录并显示，可以修改库存数量，如果书号错允许重新输入Private Sub getbookdetail()dbrec.Source = "select * from book where bookid= '" & Trim(Txtbookid.Text) & "'" dbrec.CursorType = adOpenDynamicdbrec.LockType = adLockOptimisticdbrec.OpenIf dbrec.EOF = True And dbrec.BOF = True ThenMsgBox "书号不存在！"Txtbookid.SelStart = 0Txtbookid.SelLength = Len(Txtbookid)dbrec.CloseElseCbobooktype.AddItem dbrec.Fields("booktype")Txtisbn = dbrec.Fields("isbn")Txtbookname = dbrec.Fields("bookname")Txtpublisher = dbrec.Fields("publisher")Txtauthor = dbrec.Fields("author")Select Case dbrec.Fields("size")Case "32开"Optsize(0).V alue = TrueCase "小16开"Optsize(1).V alue = TrueCase "16开"Optsize(2).V alue = TrueEnd SelectTxtprice = dbrec.Fields("price")Txtpages = dbrec.Fields("pages")Txtstocks = dbrec.Fields("stocks")Txtabstract = dbrec.Fields("abstract")Txtlocation = dbrec.Fields("location")Txtpubdate = dbrec.Fields("pubdate")dbrec.RequeryTxtbookid.Enabled = FalseTxtnewstocks.SetFocusEnd IfEnd Sub③书目查询：界面设计：逻辑设计：通过对输入的条件进行“鱼”组合后得到一个完整的查询语句，设置为adodc1的recordsource属性，刷新后表格终就会显示查询结果。
