microsoftvisualbasic工具的使用及简单程序开发

1、Microsoft VisualBasic 工具的使用及简单程序开发( 总 36 页)本页仅作为文档封面，使用时可以删除This document is for reference only-rar21year.March实训一、简单 VB 应用程序开发【理论知识提要】为了能体现数据库后台作用和特点，有必要加一个前台开发工具，在这里我VB VB VB 的开发环境和VB 的语言规范。一、VB 简介VB Visual Basic 的缩写，Visual 的含义是“”、“形象化的”，这个开Microsoft 公司出品的，是一种可视化编程工具。可视化编程的特点：通过调用控件，并为控制对象设置属性，根据开

2、发者的需要，直接在窗口中进行用户界面的布局设计，该项技术具有编程简单、自动生成程序代码、效率高的优点，因而在当今的编程语言中被广泛采用。二、VB 集成开发环境介绍新建工程界面介绍图 图 5-1 新建工程界面新建：列出了可创建的应用程序类型，一般常用的为“EXE”VB 相关教材，这里不再一一介绍；现存：列出了可以选择和打开的现有工程。最新：列出了最近使用的工程类型。此对话框可以根据需要选择每次启动 VB 时是否显示。这三个选项卡也可以通过 VB 中的“文件”菜单来选择和打开。集成开发环境介绍5-1 EXE5-2 的集成开发环境。主菜单中常用菜单项功能介绍如下：文件：包含新建、打开和保存工程以及生

3、成可执行文件等的命令。编辑：包含编辑命令、格式化、编辑代码命令。视图：包含显示和隐藏集成开发环境阁员元素命令。和内容的命令，会随着工程内容的变化而变化。格式：包括对齐窗口控件的命令。调试：包含常用的通用调试命令。运行：包含启动、设置断点和终止当前应用程序运行的命令。查询：包含操作数据库时的查询命令以及其他数据访问命令。窗口：包含调整、控制屏幕窗口布局命令。标题栏工具栏标题栏工具栏主菜单工程窗口工具箱属性窗口5-3 工具栏界面窗体窗口窗体布局窗口图 图 5-2 系统集成开发环境界面在集成开发环境中，工具集成开发环境中，各个分对象界面介绍：添菜打保加单开添菜打保加单开存窗编工工体辑程程器对工数控象

4、具据件浏箱库管览浏理器览器窗口撤重启中结工属窗销复动断束程性体资窗布源口局管窗理口器加切制 贴 找标准控件图 图 5-3 工具栏各个工具说明界面图 图 5-4 窗体窗口界面5-5 5-5 工程窗口界面“工程窗口”列出了当前工程所包括的文件清单。“工程”：VB 的一个应用程序，它包括工程文件（.vbp）、窗体文件对象下拉列表框排序选项卡指针图片框标签文本框对象属性列表框架命令按钮复选框单选钮组合框列表框水平滚动条对象下拉列表框排序选项卡指针图片框标签文本框对象属性列表框架命令按钮复选框单选钮组合框列表框水平滚动条垂直滚动条定时器驱动器列表框目录列表框文件列表形状控件直线图像控件数据控件对象属性说

5、明OLE容器5-7 对象属性说明界面图 图 5-6 工具箱各个工具说明界面工具箱中的工具就像机械零件的模具一样，利用模具作出零件，利用工具作出控件。住鼠标左键拖动，也可作出这种控件。名称，右边是可以查看和修改的属性值VB 程序的一般步骤设计用户界面（界面设计要友好，通过向窗体上添加控件及调整控件位置来实现）设置属性（设置对象的特征，有四种方法打开属性窗口：“视图”菜单- “属性窗口”；F4 键；工具栏“属性”按钮；使用对象的上下文菜单， 掌握一种即可）编写代码（为对象编写代码，代码要正确易读同时运行效率高；打开代码窗口有多种方法：双击对象；“视图”菜单-“代码窗口”；使用对象的上下文菜单；在工

6、程窗口单击查看代码图标等等）保存和运行调试程序，生成 EXE 文件（注意保存时要根据提示一一保存，对于生成的 EXE 文件是不可编辑的）三、基本概念对象：事物都可称作对象，比如计算机、鼠标就是对象，在 Visual Basic 里对象主要分为两类：窗体（Form）和控件（Control）。窗体（Form）：窗体或称表单，其实指的就是 Window。控件（Control）：控件，指的是各种按钮、选项卡、对话框等。事件：事件是发生在对象上的动作。每个对象能识别的只是一组预先定义好的事件。但并非每个事件都会产生结果事件过程：对象感应到某一事件时所执行的程序。方法：VB 隐藏对象，打印等。四、VB 数

7、据类型数据类型关键字类型符占用字节有效范围字节型Byte无10255逻辑型Boolean无2True 或 False整型Integer%2-3276832767长整型Long&4-4847单精度型Single！4+双精度型Double#8+货币型Currency8日期型Date无801,01,10012,31,9999字符型变体型StringVariant$无每字符 1065535 个字符上述有效范围之一在 VB 中除了基本类型外还有自定义类型和数组类型，自定义形式如下：Type 自定义类型名元素名 As 类型名元素名 As 类型名元素名 As 类型名End Type数组类型定义如下：说明符数

8、组名(下标) As 数据类型说明符数组名(下标下界 To 下标上界) As 类型例：Dima(10)AsInteger定义a 数组，共11 个元素下标从0 到Dim a(1 to 5)AsInteger定义a 数组，下标从1 到5 共5 个元素五、VB 变量声明及命名规则用户声明常量Public|PrivateConst 常量名As 类型=表达式例：Const Pi=Public Const Maxnumber AsInteger=1000 Const StuName=”StudentName”Dim 语句声明变量Dim As 例：Dimnum1AsIntegerDim StuName As

9、String*8 Dim X1,X2 As Byte,d1 AslongStaticPublic、Private 语句声明变量Static As ,As 声明过程级静态变量Public As ,As 声明全局变量Private 变量名As ,As 声明模块级变量4隐式说明利用类型说明符号进行变量类型说明的方式称为隐式声明方式，例：Dim x1%,x2%,x3&等价于 Dim x1,x2 As Integer,x3 As Long5变量名命名规则在 VB 中变量名的命名规则为：第一个字符必须为字母，变量名第 2 个字符及以后字符可以是字母、数字和下划线，变量名的长度必须小于 255 个字符，不能

10、将 VB 的保留字作为变量名，构成变量名的字母不区分大小写，变量名中间不能有空格，在同一个程序模块中不允许有相同的变量名。六、VB 运算符算术运算符运算符含义举例结果优先级指数2381-取负-100-1002*乘3*9273/除5/23整除5224Mod取模5Mod215+加3+586-减3-5-27关系运算符运算符含义举例结果=等于“1234”=”129”False大于“1234”129”False=大于等于56=23True小于4554True=小于等于“XY”=”YZ”True不等于“sss”SSS”True逻辑运算符运算符Not含义取反举例Not(53)结果Flase说明结果与操作数的

11、值相反And与(2=1)And(“c”a”)True两个表达式均为真时结果为真Or或(7=8)True两个表达式一个为真时结果为真Xor异或(4=7)Xor(93)False两个表达式的值相异时结果为真Eqv等价(12)Eqv(“a”3)Imp(35)False第一操作数为真，第二位假，结果为假4字符串连接运算符例子结果“AB”&”C”“ABC”“x=”&x=“AB”+”C”“ABC”“100”+200“AB”+200300出错5日期时间运算符例子例子#11/20/2004#+30 #11/20/2004#-#10/20/2004# #11/20/2004# #11/20/2004#字符串连接

12、运算符（&）-关系运算符-逻辑运算符；算术运算符的优先顺序为：-（负号）-*-/-Mod-+-；逻辑运算符由高到低的优先顺序为：Not-And-Or-Xor-Eqv-Imp。七、VB 常用内部函数类型转换函数函数名功能举例返回值Asc(C)字符转换成 ASCII 值Asc(“A”)65Chr$(N)ASCII 值转换成字符Chr$(65)“A”Str$(N)数值转换成字符串Str$“16.78”Val(C)字符串转换为数值Val(“12”)=820数学运算符函数名功能举例返回值Abs(N)取绝对值Abs(-5)5Cos(N)余弦函数Cos(0)1Exp(N)e 为底的指数函数 exExp(3)

13、Fix(N)取整Fix3Hex$(N)十进制转换为十六进制Hex$(255)FFInt(N)取小于或等于 N 的最大整数Int2Int-3Lcase$(C)大写字母转换为小写字母Lcase$(“XYZ”)“xyz”Log(N)以 e 为底的自然对数Log(10)Oct$(N)十进制转换成八进制Oct(100)144Rnd(N)产生随机数Rnd01 之间的数Sin(N)正弦函数Sin(0)0Sgn(N)符号函数Sgn-1Sqr(N)平方根Sqr(25)5Tan(N)正切函数Tan(0)0Ucase$(C)小写字母转换为大写字母Ucase$(“xyz”)“XYZ”3字符串函数函数名功能举例返回值L

14、eft$(C,N) Len(C)Ltrim$(C)Left$(C,N) Len(C)Ltrim$(C)C1 N1 C2 一个字符的位置N 返回字符串的长度去掉字符串左边空格 N1 取 N2 个字符N 去掉字符串右边空格 N C 中首字符组成的N 个字符Instr(2,”abcdef”,”de”)4Len(“abcdef”)Ltrim$(“abc”)“abcd”6“abc”Mid$(C,N1,N2)Mid$(“abcdef”,2,4)“bcde”Right$(C,N)Rtrim$(C)Space$(N)Rtrim$(“abcd”)Space$(4)“cdef”“abcd”“”String$(N,

15、C)String$(4,”abcdef”)“aaaa”函数名DateTime功能举例DateTimeNow返回系统日期和时间Now返回值2009-9-1018:20:002009-9-10Day返回日期（131）Day(“2009,9,10”)18:20:0010Month返回月份（112）Month(“2009,9,10”)9Year返回年份Year(“2009,9,10”)2009Weekday返回星期几（17）Weekday(“2009,9,10”)5(星期四)Hour返回小时（023）Hour(“9:36:55 PM”)21MinuteMinuteSecond（059）（059）Min

16、ute(“9:36:55PM”)Second(“9:36:55PM”)3655八、VB 流程控制VB 流程控制语句和其他高级语言相同也分为：顺序结构、选择结构、循环结构。1选择结构选择结构分为四种：“单行结构”条件语句、“块结构”条件语句、“嵌套结构”条件语句、多分支条件语句。“单行结构”条件语句格式：If 条件 Then 语句组 1 Else 语句组 21注意：整个语句必须在一行，如果语句组中语句多于一条，则用冒号分隔；Else 部分不是必须的，可根据需要进行添加或缺省。举例：找两个数最大值If xy then max=x else max=y格式：If 语 句 块 1 Else语句块 2E

17、nd If功能：同“单行结构”条件语句功能； 注意：“块结构”的使用必须和上面的格式严格一样；Then 后的语句块 1 必须放在 Then 的下一行；Else 2 Else Else 后必须有冒号（如没有，系统会自动添加），Else 的下一行；End if 是块结束的标志不能省略。举例：找两个数中最大值If xy max=x Elsemax=y End if“嵌套结构”条件语句在语句组中又包含条件格式，称为“嵌套结构”条件语句。举例：成绩转换成五级制If x=95 Then Print”优”ElseIf x=85 Then print”良”ElseIf x=75 Thenprint”中” En

18、d if多分支条件语句格式：Select case 测试表达式case 表达式列表 1语句块 1case 表达式列表 2语句块 2case else语句块 n+1End case 2循环结构循环结构分为 ForNext 循环、DoLoop 循环、WhileWend 循环。ForNext 格式：For 循环控制变量=To Step 1Exit For语句块 2Next循环控制变量说明：For Next 必须成对出现；初值、终值和步长为数值型表达式； 步长不能为 0，为 1 时可以省略；Exit For Next 语句，继续执行下面语句序列。1 100 之间的偶数和Y=0For i=2 To 10

19、0 step 2 Y=Y+iNext i Print YDoLoop 1：DoExit Do 语 句 块 2 LoopWhile|Until 循环条件 说明：Do Loop 必须成对出现循环条件用逻辑表达式写，True 成立,False 不成立用 While 时，循环条件为 True 执行循环体，False 结束循环，Until 和While 正好相反1 100 之间的奇数和Y=0i=1 DoY=Y+i:i=i+2Loop while i=99 print Y格式 2：Do While|Until 1Exit DoLoopWhileWend 格式：While 条件语句块Wend1 100 之间

20、的奇数和Y=0i=1while i=99 Y=Y+ii=i+2 wend print【实验要求】对于验证性实验，要求学生按照具体的实验步骤完成相应的作品制 作，并保存在相应的盘符下（包括一个工程文件、5 夹、一个图片文件夹），以备按教师要求上交作业。由于本部分实验是为数据库的开发打基础，并不是该课程的重点，所VB 自学。因，如果不能自己解决应及时请教教师或同学。【验证性实验】VB 4 个界面： 合框使用界面。5-9 字体格式界面具体实现界面如图 5-8，5-9，5-10，5-11，5-9 字体格式界面图 图 5-8 主界面5-10 数值计算界面5-11 定时器图片界面（2 秒换一次图片）5-1

21、0 数值计算界面5-11 定时器图片界面（2 秒换一次图片）5-12 组合框列表框界面caption 属性值为“多功能主窗体”如图 5-13 所示：1VB VB 5-1 所示的EXEVB 5-2 Form1 caption 属性值为“多功能主窗体”如图 5-13 所示：5-14 菜单编辑器界面5-15 菜单编辑完成界面25-14 的界面。在“标题”中输入菜单显示的内容，在“名称”中输入菜单的名称（菜5-14 菜单编辑器界面5-15 菜单编辑完成界面5-1 菜单标题名称3】建立工具栏：工具栏是将菜单中的功能以快捷工具按钮的形式进VB 中实现工具栏需要两个控件，toolbar imagelist，

22、这两个控件属5-1 菜单标题名称3】建立工具栏：工具栏是将菜单中的功能以快捷工具按钮的形式进VB 中实现工具栏需要两个控件，toolbar imagelist，这两个控件属activeX 控件的一部分，在使用前，需要在工具箱的空白区域单击鼠标右键， 5-17 5-18 所示的“部件”对话框， t6s0”复选框，单击“确定”退出m_exit5-19 toolbar imagelist 界面5-20 imagelist 属性界面toolbar 控件，然后单击窗体，在窗体的菜单栏下将出现一条灰色无网格区域，这个区域就是工具栏的最imagelist imagelist 的小图标，具体5-19 在做工具

23、栏之前，需要将放在工具栏上的图标保存到相应的文件夹内（这里需要用到四个图标）。imagelist 小图标上右击，在弹出5-20 image 属性界面，在“图像”选项卡中利用“插入图片”按钮将保存在指定位置的小图标插入进来，默认情12，以后依此类推。四个图片都imagelist toolbar 属性form1 toolbar 控件，在弹出式菜单中选择“属性”菜单5-21 5-19 toolbar imagelist 界面5-20 imagelist 属性界面toolbar1 个按钮，修改相应的“图像”后的索引值（imagelist1 中的图片索引对应）， 单击“应用”按钮和“确定”按钮，这时我们

24、的工具栏就做好了。图 5-17 图 5-17 添加部件图 5-18 部件对话框界面imagelist 控件，toolbar 也能完成工具栏的制作，同时可以通toolbar 个的灰色图标，界面友好性较差。5-23 添加窗体界面5-24 新窗体界面4】建立字体格式设置界面：利用“工程”菜单下“添加窗体”菜单项（或工具栏“添加窗体”按钮）5-23 选择“窗体”，单击“打开”按钮，这时在开发区出现了默认名为“form2”的5-24 form2 5-2 所示添加新控件并设置控件属5-23 添加窗体界面5-24 新窗体界面5-2 “字体格式窗体”控件说明5-25 字体格式界面5-2 “字体格式窗体”控件说

25、明5-25 字体格式界面5-3 数值计算界面控件说明5-26 数值计算界面5】建立数值计算界面：实现数据的求绝对值和求，5-3 数值计算界面控件说明5-26 数值计算界面6】建立定时器图片浏览界面：要建立图片浏览界面，首先必须先建立图库，也就是在指定的位置存放一定数量的图片，以备浏览时显示（picture 1 10 个.jpg 文件）。这里具体5-45-27。5-5 列表框组合框界面控件说明5-28 列表框组合框界面5-4 图片浏览界面控件说明5-5 列表框组合框界面控件说明5-28 列表框组合框界面5-4 图片浏览界面控件说明5-27 图片浏览界面VB开发的一般步骤，界面和界面总体风格设计好

26、后就可以进行代个窗体中完成的，各个窗体的切换可以再“工程”窗口通过鼠标双击实现。】为菜单和工具栏进行代码设计form1 中单击“界面”菜单， m_font_click 5-29 所示，在此界面输入如下程序语句：PrivateSubm_font_Click()form2 窗体End Sub事件选择下拉框对象选择下拉框图 5-29 代码设计界面事件选择下拉框对象选择下拉框依此方法，分别为“数值计算”、“定时器图片”、“列表框组合框”、“退出”等菜单项设计代码如下：Private Sub m_list_Click()End SubPrivate Sub m_number_Click()End Sub

27、Private Sub m_timer_Click()End SubPrivate Sub m_exit_Click() EndEnd Sub工具栏中的图标分别与各个下拉菜单项建立联系，利用 selectcase 结构，具体代码如下：Private Sub Toolbar1_ButtonClick(ByVal Button AsSelectCase利用toolbar 按钮的index 为判定值Case1第一个按钮链接“字体格式”菜单Callm_font_ClickCase2第二个按钮链接“数值计算”菜单项Call m_number_ClickCase3Callm_timer_ClickCase

28、4Callm_list_ClickEnd Select End Sub代码设计好后，关闭代码设计界面。件是该控件最常用的事件，我们在编码设计时往往是对默认事件进行编程。10】为字体格式设置界面进行代码设计：钮的单击事件编写代码，实现单选钮和检查框对字体的格式设置，具体代码如 下：Private Sub Command1_Click()IfTrueThen利用单选钮的值设置字号= 5ElseIf = True Then= 10ElseIf = True Then= 20End IfIf1Then利用复选框的值设置其他效果= &HFF& End IfIf = 1 Then= True End If

29、If = 1 Then= True End If End Sub代码设计好后，关闭代码设计界面。11】为数值计算界面进行代码设计：“求和”两个命令按钮进行代码设计。“求绝对值”命令按钮单击事件代码设计如下：Private Sub Command1_Click()If Int0Thenint 将字符串转换为数字Str(-Int)str 将数字转换为字符串Else: = Str End IfEnd Sub Private SubCommand2_Click()Dim i As Integer, y As Integer y = 0i = 1For i = 1ToIntfor 循环实现求和操作y =

30、 y + i Next=Str(y)EndSub代码设计好后，关闭代码设计界面。【步骤 12】为定时器图片浏览界面进行代码设计：该界面的运行流程是，在窗体第一次出现时首先应出现第一幅图片，同时需要在窗体加载时设置定时器的时间间隔，然后利用定时器的 timer 事件进行图片的连续播放，播放间隔为窗体加载时设计的时间间隔。定时器和窗体对于图片的名称和图片的数目等变量是共享的，所以还需要设置通用变量。form load 事件，双击窗体的空白区域，在代码设计界面首所示的“对象选择下拉框”中选择“通用”，然后输入如下变量定义：Dim picnum As Integer Dim picname As St

31、ringformform load 事件编写如下代码：Private Sub Form_Load() picnum = 1picname =E:2008 级数据库VB 作品picture & picnum & .jpg 图片保存在相应目录下的 picture 文件夹内，并以，等命名= + picname= LoadPicture(picname)= 2000= True End Subtimer1 timer1 timer 控件编写如下代码：Private Sub Timer1_Timer()If picnum10Then10 幅图片picname = E:2008 级数据库VB 作品pict

32、ure & picnum & .jpg= picname= LoadPicture(picname) picnum = picnum + 1ElseIf picnum10Then10 则重新从头循环显示picnum = picnum - 10picname = E:2008 级数据库VB 作品picture & picnum & .jpg= picname= LoadPicture(picname) picnum = picnum + 1End If End Sub“退出”命令按钮的单击事件代码如下：Private Sub Command1_Click() EndEnd Sub代码设计好后，关

33、闭代码设计界面。13】为列表框和组合框界面进行代码设计：form load 事件添加代码，目的在于为“班级列表”对应的组合框添加具体的班级（也可以combo1 listdata 属性进行设置），双击窗体的空白区域，打开代码设计界面，代码设计如下：Private SubForm_Load() 991991991991信息 991电商 991End Sub为“加入条目”命令按钮单击事件编写如下代码，目的在于将文本框和组合框中的内容加入到列表框内：PrivateSubCommand1_Click()表框内If ( ) And ) Then+ +ElseMsgBox(请输入添加内容)文本框和组合框中无

34、内容时提示“输入”End If End内容删除：Private Sub Command2_Click() Dim i As IntegerIf0Then列表框中内容不空时，根据选择的i 进行删除For i = - 1 To 0 Step -1 If (i) Theni EndNext i End If End全部内容：Private Sub Command3_Click()End Sub代码设计好后，关闭代码设计界面。14择“运行”菜单项下的“启动”就可以运行我们设计的作品了，作品运行界面参5-8、5-9、5-105-11 5-12。实训二、创建 ODBC 数据源【理论知识提要】一、数据访问对

35、象模型VB ODBC、Jet 和ADO 等中间连接键，获得对数据库的前端连接；并能通过诸多数据感应可视控件，实现对数据的用户界面操作。VB 可以访问以下 3 类数据库：Jet Jet VB 自带的验证数据库、ACCESS 数据库；ISAM 数据库索引数据访问方法数据库，如 dBASE、FoxPro、TextFiles 和Paradox；ODBC 数据库开放式数据库连接，包括遵守 ODBC 标准的客户/服务器数据库，如 Microsoft SQL Server、Oracle、Sybase 等。VB 3 种：ActiveX 数据对象（ADO）；远程数据对象（RDO）；数据访问对象（DAO）。数据访

36、问接口就是数据访问对象模型，它代表了访问数据的各个方面。可以在任何应用程序种通过编程控制连接和语句生成器，也可以通过编程使用返回的数据。对于三种数据访问接口我们常用的是最新技术 ADO。二、ODBC 含义及优点ODBC（Open DataBase Connectivity，开放式数据库连接），是 MicroSoft 公司推出的连接数据库的标准：ODBC 具有以下优点：ODBC 提供了能访问大量数据库的单一接口；ODBC 三、ODBC 的组成ODBC 由如图 6-1 所示的几部分组成：ODBC API 来建SQL 命令操纵数据库；ODBC 组合方式，其中，远程操作系统和网络并不是必须的；ODBC

37、 程序之间的中介；ODBCAPI。它SQL 客户应用程序ODBC 数据源ODBC 驱动程序管理器SQL Server驱动程序Oracle驱动程序VF驱动程序针对“教学成绩管理”数据库创建 ODBC 数据源。【步骤 1】首先应确保“教学成绩管理”数据库已经附加到了 SQL Server 数SQL 数据库OracleVisual Foxpro数据库2“设置” “控制面板” “管理工具”“数据源（ODBC）”，打开如图 6-2 所示的 ODBC 数据源图 6-1 ODBC 体系结构管理器，在这个对话框中选择“系统 DSN”，出现如图 6-3 所示的系统数据源配6-2 ODBC 6-2 ODBC 数据

38、源管理器6-3 配置系统数据源面。36-3 6-4 6-5 SQL Server 数据源界面。【步骤 4】在图 6-5 所示界面的名称栏中输入“jxcjgl”，在描述栏中输入“教学成绩管理数据库”，在服务器栏中输入所要连接的服务器名称（SQL 所在的服务器）这里为本地机名称“zhychang6-6 所示，单击“下一6-6 设置数据源名称和服务器6-7 SQL Server 方式6-7 SQL Server 方式，这SQL Server 时设置的登录方式应一致，在这里设置为“使用用ID SQL Server 6-6 设置数据源名称和服务器6-7 SQL Server 方式SQL Server I

39、D Windows 混合登录方ID Windows NT SQL Server 登录验证。【步骤 5】在图 6-7 所示界面单击“下一步”进入更改默认数据库界面如图所示，将默认数据库改为“教学成绩管理”，其他内容不动，单击“下一步”按钮，进入最后一个界面，如图 6-9 所示，在此界面不作改动只用默认值，单击“完成”按钮，完成对数据源的创建，最后在如图 6-10 所示的界面，单击6-11 所示界面，单击“取消”，数据源创建完成。图 6-8 图 6-8 设置默认数据库图 6-9 完成界面图 6-10 图 6-10 数据源配置信息图 6-11 数据源测试成功数据源 jxcjgl 对应的后台数据库为“

40、教学成绩管理”。能如下：DSN：ODBC户数据源只对当前的用户可见，而且只能应用在本机上。DSN：ODBC统数据源对当前机器上的所有用户都可见。DSN：ODBC DSN 可以由安装了相同驱动程序的用户共享。驱动程序：ODBC ODBC ODBC 数据源获取信息。跟踪：ODBC ODBC 驱动程序的日志，以供技术支持人员查看。也可以辅助调试应用程序。Tracing MicrosoftVisualStudio 的ODBC 跟踪。存入服务器。【自主开发设计实验】根据实验四中创建的“零件供销系统”数据库创建数据源。数据源的名称为“ljgxxt”。【实验要求】功的基础上熟练创建数据源。师的要求完成，旨在

41、培养学生熟练创建数据源的技能。案，并写出具体的错误原因和解决策略。实训三、VB 数据库开发简单实例【理论知识提要】ADO Data 控件相关知识。ADO Data 控件（简称 ADO 控件）是中文版提供的一个 ActiveX 控件，与 VB固有的 Data 控件相似。使用 ADO 控件，可以通过“Microsoft ActiveX Data Objects（ADO）快速建立数据绑定的控件和数据提供者之间的连接。ADO 控件可以实现如下功能：连接本地数据库或远程数据库；打开指定的数据表，或定义基于结构化查询语言（SQL）过程或该数据库中表的视图记录集合；更改这些数值；添加新记录或根据更改显示在绑

42、定的控件中的数据来更新数据库。 ADO 控件，需要在“工具”-“部件”对话框中将“MicrosoftADOData （OLE DB）”选项选中。【验证性实验】在 VB 中实现对数据库的连接1VB EXEVB 的集成开发环境。2项，在出现的“引用”列表中选中如下选项：Visual Basic For ApplicationVisual Basic runtime objects and procedure Visual Basic object and procedureOLE AutomationMicrosoft ActiveX Data Object Library将复选框选中后，单击“确

43、定”按钮【步骤 3】添加“部件”：在“工程”菜单中选择“部件”菜单项（或在工具箱的空白区域单击鼠标右键，在弹出式菜单中选择“部件”菜单项），在出现的“部件”对话框中选中如下选项：Microsoft ADO Data （OLEDB） Microsoft DataGrid （OLEDB） Microsoft DataList Controls （OLEDB）Microsoft Windows Common Controls （SP4）将复选框选中后，单击“应用”按钮，然后单击“关闭”。注意：相应的“引用”和“部件”添加好后，就可以进行数据源的连接和数据表的显示了。7-2 VB 中实现对后台数据库中

44、数据表的浏览：17-1 datagrid Adodc，然后在adodc 控件加入到了窗体中，然datagrid 7-1 所示，7-1 添加数据控件界面7-2 属性页界面2adodc1 控件属性，adodc 样，它是通过在控件上单击鼠标右键，然后在弹出式菜单中选择“adodc 属性” 7-1 添加数据控件界面7-2 属性页界面“通用选项卡”设置连接资源的方法，可以有三个选择，一般选择“使用ODBC 数 据 资 源 名 称 ” 和 “ 使 用 连 接 字 符 串 ”； 登录方式一致； 在这里主要描述选择“使用 ODBC 数据资源名称”的连接方式，在“身份验证”界面中输入用户名和用户口令，“用户名”和“用户口令”与我们设计数据源和登录数据库服务的方式相同。在“记录源”的“命令类型”中选择第 2 种， “2-adcmdtable”，在“表和存储过程”中选择要显示的数据表，最后单击“确定”，具体界面如图 7-3，7-4，7-5 所示。图7-3 连接资源设置图7-4 身