数据库系统开发工具学习教案.pptx

《数据库系统开发工具学习教案.pptx》由会员分享，可在线阅读，更多相关《数据库系统开发工具学习教案.pptx（86页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数据库系统开发工具数据库系统开发工具第一页，共86页。2 2学习学习(xux)(xux)目标目标了解：多种数据库系统开发工具的名称与特点；VisualBasic（简称为VB）的数据库管理功能；数据库应用系统开发工具的使用及数据库应用程序的开发过程。理解(lji)：参数的传递；变量的作用域与生存期；子过程与函数的创建与调用；VB访问数据库的接口技术；记录集、数据绑定等概念。掌握：VB集成开发环境；面向对象及事件驱动的编程特点、VB数据类型和程序控制结构；VB标准控件；VB与SQLServer数据库的连接方法；数据库的编辑和查询操作等方法。第1页/共86页第二页，共86页。3 39.19.1数据库

2、系统开发工具概述数据库系统开发工具概述(ish)(ish)通用的数据库编程工具Delphi、PowerBuilder、VisualFoxPro等通用的程序设计语言与开发环境：VisualBasic、VisualC+、VisualJ+、Jbuild最常用的Web数据库系统(B/S模式)开发工具（最常用的3种动态网页语言）ASP（以VBScript（Javascript）作为(zuwi)脚本语言）JSP（以Java语言作为(zuwi)脚本语言）PHP（是一种嵌入在HTML并由服务器解释的脚本语言，借用C,Java和Perl语言）第2页/共86页第三页，共86页。4 49.2VB概述(ish)9.2

3、.1VB6.0集成开发(kif)环境9.2.2创建简单的VB应用程序9.2.3VB程序的特点第3页/共86页第四页，共86页。5 59.2VB概述(ish)VB（VisualBasic）Visual是一种开发图形用户界面（GUI，GraphicalUserInterface）的方法。是Windows操作系统平台下常用的程序设计语言，也是常用的数据库系统开发工具。VB6.0包含三种版本(bnbn)：学习版适用于普通学习者；专业版适用于计算机专业开发人员；企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。第4页/共86页第五页，共86页。6 69.2.1VB6.0集成(jchn)开发环境

4、l l启动(qdng)VB6.0，将出现第5页/共86页第六页，共86页。7 7标题栏标题栏菜单栏菜单栏工具栏工具栏工具箱工具箱窗体窗口窗体窗口(chungku)代码代码(di m)窗口窗口立即立即(lj)窗口窗口工程窗工程窗口口属性窗属性窗口口窗口布窗口布局窗口局窗口9.2.1VB6.09.2.1VB6.0集成开发环境集成开发环境主窗口第6页/共86页第七页，共86页。8 89.2.1VB6.09.2.1VB6.0集成开发集成开发(kif)(kif)环境环境VB的三种工作模式(msh)（标题栏总显示当前模式(msh)）设计模式(msh)：在设计时，可以设计窗体、绘制控件、编写代码并使用“属性

5、”窗口来设置或查看属性设置值。运行模式(msh)：可查看代码，但不能改动它。中断模式(msh)：在中断模式(msh)下，用户可查看各变量及不是属性的当前值，了解程序执行是否正常。还可以修改程序代码，检查、调试、重置、单步执行或继续执行程序。第7页/共86页第八页，共86页。9 99.2.29.2.2创建创建(chungjin)(chungjin)简单的简单的VBVB应用程序应用程序例例9-1:9-1:如何实现右图？如何实现右图？用用VBVB编写程序的步骤编写程序的步骤:（1 1）创建工程）创建工程（2 2）创建控件）创建控件（3 3）修改控件的属性）修改控件的属性（4 4）编写代码）编写代码（

6、5 5）保存文件）保存文件(wnjin)(wnjin)（6 6）调试和运行程序）调试和运行程序（7 7）生成）生成EXEEXE文件文件(wnjin)(wnjin)第8页/共86页第九页，共86页。10109.2.3VB9.2.3VB程序程序(chngx)(chngx)的特点的特点VBVB采用面向对象采用面向对象(duxing)(duxing)的程序设计方法的程序设计方法 程序由若干对象程序由若干对象(duxing)(duxing)组成组成 对象对象(duxing)(duxing)的的3 3要素（属性、方法、事件）要素（属性、方法、事件）属性属性描述对象描述对象(duxing)(duxing)的

7、性质或特征，即该对象的性质或特征，即该对象(duxing)(duxing)是什么样的是什么样的。常用属性常用属性（1 1）NameName属性属性（2 2）CaptionCaption属性属性（3 3）MaxbuttonMaxbutton和和MinbuttonMinbutton属性属性用于设置用于设置“最大化最大化”和和“最小化最小化”按钮。按钮。（4 4）BackColorBackColor和和ForeColorForeColor属性属性用于设置窗体的背景色和前景色。用于设置窗体的背景色和前景色。（5 5）PicturePicture属性属性用于设置窗体要显示的图形。用于设置窗体要显示的图形

8、。（6 6）AutoRedrawAutoRedraw属性属性用于设置窗体的用于设置窗体的“自动重画自动重画”功能。功能。第9页/共86页第十页，共86页。11119.2.3VB9.2.3VB程序程序(chngx)(chngx)的特点的特点l l方法方法l l反映反映(fnyng)(fnyng)对象的行为动作，即该对象会干什么对象的行为动作，即该对象会干什么l l常用方法常用方法l l（1 1）ShowShow：快速显示一个窗体：快速显示一个窗体l l（2 2）ClearClear：删除对象中的全部内容：删除对象中的全部内容l l事件事件l l指明对象在什么条件下发生什么事情，即在什么条件下执行

9、哪段代码指明对象在什么条件下发生什么事情，即在什么条件下执行哪段代码l l常用事件常用事件l l（1 1）LoadLoad事件：在一个窗体被装载时发生。事件：在一个窗体被装载时发生。l l（2 2）UnloadUnload事件：当窗体卸载时发生。事件：当窗体卸载时发生。l l（3 3）DblClickDblClick事件：当窗体被双击时发生。事件：当窗体被双击时发生。l l（4 4）KeyPressKeyPress事件：键盘上的键被按下时发生。事件：键盘上的键被按下时发生。l l设计程序时，控件对象的属性、方法的引用，格式：设计程序时，控件对象的属性、方法的引用，格式：l l.|第10页/共8

10、6页第十一页，共86页。12129.2.3VB9.2.3VB程序程序(chngx)(chngx)的特点的特点例如：气球。属性：它的高度、直径和颜色。方法：充气方法（在其中充满氦气）放气方法（放出其中的气体(qt)）上升方法（释放气球）事件：气球放气响应被刺破事件上升响应释放事件（例如）第11页/共86页第十二页，共86页。13139.2.3VB9.2.3VB程序程序(chngx)(chngx)的特点的特点PrivateSubCommand1_Click()PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Enabled=TrueFori=1

11、Fori=1ToTo10001000Forj=1Forj=1ToTo100000100000 延时延时NextjNextjImage1.Top=Image1.Top-3Image1.Top=Image1.Top-3通过改变通过改变(gibin)Image1(gibin)Image1的的TopTop属性实现属性实现气球上升效果气球上升效果IfImage1.Top300ThenIfImage1.Top300ThenTimer1.Enabled=FalseTimer1.Enabled=False当当Image1Image1移到移到toptop等于等于30003000的位置时，使的位置时，使时钟停止！

12、时钟停止！NextiNextiEndSubEndSub第12页/共86页第十三页，共86页。14149.3VB9.3VB语言语言(yyn)(yyn)基础基础9.3.1基本数据类型9.3.2变量(binling)和常量9.3.3运算符与表达式9.3.4数组与自定义类型第13页/共86页第十四页，共86页。15159.3.19.3.1基本基本(jbn)(jbn)数据类型数据类型第14页/共86页第十五页，共86页。16169.3.29.3.2变量变量(binling)(binling)和常量和常量变量变量在程序运行过程中其值可以改变在程序运行过程中其值可以改变(gibin)(gibin)的量，用来

13、存储数据。的量，用来存储数据。包含包含3 3个方面的概念：变量名、变量的数据类型、变量的值。个方面的概念：变量名、变量的数据类型、变量的值。变量命名规则变量命名规则变量的声明变量的声明DimDimAsAsDimDimAsstring*Asstring*定长字符串变量定长字符串变量DimDimAsstringAsstring变长字符串变量变长字符串变量隐式声明状态（默认）隐式声明状态（默认）显式声明状态显式声明状态“OptionExplicit”“OptionExplicit”语句或语句或“工具工具 选项选项”设置设置变量的赋值与引用变量的赋值与引用 赋值符号（赋值符号（=）例如：例如：Form

14、1.Width=400Form1.Width=400Temp=Temp+50Temp=Temp+50赋给左边对象赋给左边对象(duxing)属性属性赋给左边的变量。赋给左边的变量。Temp没赋值，系统自动取没赋值，系统自动取0不需声明不需声明,系统自动创建一个变体类型变量系统自动创建一个变体类型变量第15页/共86页第十六页，共86页。17179.3.29.3.2变量变量(binling)(binling)和常量和常量常量：常量：在程序运行过程中，其值不能在程序运行过程中，其值不能被改变的量。被改变的量。常量的类型（常量的类型（3 3种）种）(1)(1)直接常量直接常量:指各种类型的常指各种类

15、型的常数值。如：数值。如：123513&123513&、513.24513.24！513.24567890123513.24567890123513.24513.24“abcdefg”“abcdefg”#1996-12-11#1996-12-11#日期日期(rq)(rq)型常量用型常量用#括起来括起来TrueTrue类类 型型书书 写写 格格 式式举举 例例整型常整型常量量n%123，+123，-123，123%长整型长整型常量常量n&513&，-513233232&，32768单精度单精度型常量型常量n.n，n.，n!，nEm，n.nEm513.，513.24，513.24！，！，0.513

16、24E+3双精度双精度型常量型常量n.n，n#，nDm，n.nDm，n.nEm#513.24567890123，513.24#，0.51324D+3，0.51324E+3#货币型货币型常量常量数字后加数字后加513.24，5123八进制八进制常量常量数字前加数字前加&O&O761，&O543十六进十六进制常量制常量数字前加数字前加&H&H45AB，&H45FE第16页/共86页第十七页，共86页。18189.3.29.3.2变量变量(binling)(binling)和常量和常量(2)符号常量：定义一个符号来代替数据ConstAs=如：ConstPI=3.1415926(3)系统常量：实质是是

17、一种(yzhn)符号常量。由系统定义好的常量，编程者可直接使用。如：vbBlack代表黑色vbRed代表红色vbKeyReturn代表回车键第17页/共86页第十八页，共86页。19199.3.39.3.3运算符与表达式运算符与表达式算术运算符与算术表达式算术运算符与算术表达式 算术运算符算术运算符括号（）、幂运算括号（）、幂运算、负号、负号-、乘、乘*、除、除/、整除、整除、取余、取余ModMod、加、加+、减、减-算术表达式算术表达式用算术运算符将运算对象连接起来的式子。用算术运算符将运算对象连接起来的式子。优先级除了乘、除同级，加、减同级外，按以上排列优先级除了乘、除同级，加、减同级外，

18、按以上排列(pili)(pili)顺序依次递减顺序依次递减 字符串运算符与字符串表达式字符串运算符与字符串表达式 字符串运算符字符串运算符“+”“+”将两字符串连接成新的字符串；将两字符串连接成新的字符串；“&”“&”将其他类型数据转换成字符串并连接成新串。将其他类型数据转换成字符串并连接成新串。字符串表达式字符串表达式由字符串运算符连接起来的式子。字符串表达式，其值为字符串数据类型由字符串运算符连接起来的式子。字符串表达式，其值为字符串数据类型 第18页/共86页第十九页，共86页。20209.3.3运算符与表达式例如：数据库技术+与应用“计算(jsun)12+34=”&12+34若用+运算

19、符连接，则系统会报错第19页/共86页第二十页，共86页。21219.3.3运算符与表达式关系关系(gunx)(gunx)运算符与关系运算符与关系(gunx)(gunx)表达式表达式关系运算符关系运算符含含 义义关系表达式关系表达式结结 果果=等于等于2*5=102*5=10TrueTrue 大于大于abcdeabdabcdeabdFalseFalse=大于等于大于等于5*6=245*6=24TrueTrue 小于小于abcAbcabcAbcFalseFalse=小于等于小于等于5/2=105/2=10TrueTrue不等于不等于dDdDTrueTrueLikeLike字符串匹配字符串匹配go

20、od like g*good like g*TrueTrue第20页/共86页第二十一页，共86页。22229.3.3运算符与表达式逻辑逻辑(luj)(luj)运算符与逻辑运算符与逻辑(luj)(luj)表达式表达式 运算符运算符优先级优先级含含 义义说说 明明Not1取反取反将两个逻辑值互相转换将两个逻辑值互相转换And2与与两个操作数都为真，结果才为真，否则为假两个操作数都为真，结果才为真，否则为假Or3或或两个操作数中只要有一个为真，结果为真两个操作数中只要有一个为真，结果为真Xor3异或异或两个操作数不同时为真，否则为假两个操作数不同时为真，否则为假Eqv4等价等价两个操作数相同时为真

21、，否则为假两个操作数相同时为真，否则为假Imp5蕴含蕴含当第一个表达式为真，且第二个表达式为假时，结果当第一个表达式为真，且第二个表达式为假时，结果为假，否则为真为假，否则为真第21页/共86页第二十二页，共86页。23239.3.49.3.4数组与自定义类型数组与自定义类型(lixng)(lixng)数组一组具有相同类型的数据组成的集合，可用数组名代表这一批数据。一维数组Dim(To)As例如：Dima(1To10)AsIntegerDimb(10)AsInteger本例中b数组声明时省略下标(xibio)下界，默认为0，它有11个元素b(0)b(10)用OptionBase1语句设置数组下

22、标(xibio)下界为1a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)第22页/共86页第二十三页，共86页。24249.3.49.3.4数组与自定义类型数组与自定义类型(lixng)(lixng)多维数组Dim(,)As例如(lr)：Dimc(1To3,1To4)AsIntegerc为34的二维整型数组Dimd(2,3)AsString/*d为34的二维字符串数组，下标从0开始，元素为d(0,0)d(2,3)*/Dime(2,3,2)AsIntegere为232的三维整型数组第23页/共86页第二十四页，共86页。25259.3.49.3.4数组与自定义类

23、型数组与自定义类型(lixng)(lixng)数组种类动态数组动态数组是在声明数组时未给出数组的大小；使用前，随时用ReDim语句重新指出(zhch)大小的数组。例如：Dimf()AsSingleReDimf(4To12)控件数组：一组相同类型的控件。第24页/共86页第二十五页，共86页。26269.3.49.3.4数组与自定义类型数组与自定义类型(lixng)(lixng)VB中定义(dngy)数组的4个语句：Dim用在窗体模块或标准模块中，定义(dngy)窗体或标准模块数组，也可在过程中用。ReDim用在过程中。Static（静态的）用在过程中。Public用在标准模块中，定义(dngy

24、)全局数组。第25页/共86页第二十六页，共86页。27279.3.49.3.4数组与自定义类型数组与自定义类型(lixng)(lixng)自定义类型自定义类型 适应于表示一组内容相关但类型不同适应于表示一组内容相关但类型不同(btn)(btn)的数据。的数据。如：表示每个学生的情况，学号、姓名、性别、成绩等如：表示每个学生的情况，学号、姓名、性别、成绩等自定义类型的定义格式自定义类型的定义格式PrivatePrivate PublicTypePublicType()As)As()As)AsEndTypeEndType例例9-29-2：在窗体或模块的通用声明定义：在窗体或模块的通用声明定义St

25、udentStudent类型。类型。PrivateTypeStudentPrivateTypeStudentXHAsString*10XHAsString*10 学号学号(*(*表示定长表示定长)XMAsString*8XMAsString*8姓名姓名Score(1Score(1ToTo3)AsSingle33)AsSingle3门课的成绩门课的成绩EndTypeEndType第26页/共86页第二十七页，共86页。28289.3.49.3.4数组与自定义类型数组与自定义类型(lixng)(lixng)自定义类型(lixng)变量的声明例如：声明变量Stu1和数组MyStuDimStu1AsS

26、tudentDimMyStu(1To100)AsStudent自定义类型(lixng)变量的使用使用其成员：.如：方式如：方式(fngsh)一：一：方式方式(fngsh)二：二：With Stu1 Stu1.Xh=011072930 .Xh=011072930Stu1.XM=张三张三 .XM=张三张三 Stu1.Score(1)=90 .Score(1)=90 Stu1.Score(2)=85 .Score(2)=85Stu1.Score(3)=92 .Score(3)=92End WithWith 语句可以对某语句可以对某个对象执行一系列个对象执行一系列的语句，而不用重的语句，而不用重复指出

27、对象的名称。复指出对象的名称。第27页/共86页第二十八页，共86页。29299.49.4程序控制程序控制(chngxkngzh)(chngxkngzh)结构结构9.4.1选择(xunz)结构9.4.2循环控制结构第28页/共86页第二十九页，共86页。30309.49.4程序控制程序控制(chngxkngzh)(chngxkngzh)结构结构控制结构的控制结构的3 3种类型：种类型：顺序结构、选择结构、循环结构顺序结构、选择结构、循环结构顺序结构顺序结构 在通用中定义在通用中定义3 3个变量个变量DimxAsInteger,yAsInteger,zAsIntegerDimxAsInteger

28、,yAsInteger,zAsInteger 开始计算按钮代码开始计算按钮代码(dim)(dim)：完成输入及计算：完成输入及计算PrivateSubComd1_Click()PrivateSubComd1_Click()x=Val(Text1)x=Val(Text1)y=Val(Text2)y=Val(Text2)z=x+yz=x+yText3.Text=zText3.Text=zEndSubEndSub 退出按钮代码退出按钮代码(dim)(dim)PrivateSubComd2_Click()PrivateSubComd2_Click()EndEndEndSubEndSub控件控件事件事件

29、(shjin)过程过程 第29页/共86页第三十页，共86页。31319.4.19.4.1选择选择(xunz)(xunz)结构结构选择结构用If语句和SelectCase语句来实现(shxin)，其格式有：IfThenElseEndIf或者IfThenElse第30页/共86页第三十一页，共86页。32329.4.19.4.1选择选择(xunz)(xunz)结构结构双分支举例双分支举例l l例例9-39-3：假设有假设有x x、y y、z z三个变量三个变量(binling)(binling)，x x、y y均已均已有值，现要将有值，现要将x x、y y中大的值赋给中大的值赋给zz。方法方法方

30、法方法(fngf)2(fngf)2：If yx ThenIf yx Then z=y z=yElseElse z=x z=xEnd If End If 方法方法方法方法1 1：z=xz=xIf If yx yx ThenThen z=y z=yEnd IfEnd If 方法方法方法方法3 3：If If yx yx ThenThen z=y z=y ElseElse z=x z=x 第31页/共86页第三十二页，共86页。33339.4.19.4.1选择选择(xunz)(xunz)结构结构多分支举例多分支举例l l例例9-49-4：将输入将输入(shr)(shr)的一个百分制成绩转换为等级制成

31、绩输出。的一个百分制成绩转换为等级制成绩输出。l l“转换转换”按钮的代码如下：按钮的代码如下：l lPrivateSubCommand1_Click()PrivateSubCommand1_Click()l lIfText1=90ThenIfText1=90Thenl lText2=Text2=优优 l lElseElsel lIfText1=60ThenIfText1=60Thenl lText2=Text2=合格合格 l lElseElsel lText2=Text2=不及格不及格 l lEndIfEndIfl lEndIfEndIfl lEndSubEndSub第32页/共86页第三十

32、三页，共86页。34349.4.19.4.1选择选择(xunz)(xunz)结构结构SelectCase语句（多分支结构）当需要完成多重判定的任务时使用(shyng)。SelectCaseCaseCaseCaseElseEndSelect数值数值(shz)型或字符串表型或字符串表达式达式 与与同数据同数据类型的单个或几个值的列类型的单个或几个值的列表，如：可以是表，如：可以是“A”、2,4,6,8、60 To 100、Is=90l lText2=优l lCase60To89l lText2=合格l lCaseElsel lText2=不及格l lEndSelectl lEndSub转换转换(z

33、hunhun)按钮的代码按钮的代码第34页/共86页第三十五页，共86页。36369.4.29.4.2循环循环(xnhun)(xnhun)控制结构控制结构循环也就是重复地执行(zhxng)某些语句。ForNext结构For循环变量=初值勤to终值step步长语句块ExitFor循环体语句块Next循环变量0初值终值=1时，可省略步长=0死循环终值第35页/共86页第三十六页，共86页。37379.4.29.4.2循环循环(xnhun)(xnhun)控制结构控制结构例例9-59-5：计算：计算1+3+5+991+3+5+99分析：分析：设有变量：设有变量：i,i,取值为取值为1 1，3 3，5

34、5，9999。另设一变量另设一变量S S，S=0,i=1S=0,i=1 则任意则任意(rny)(rny)两数之和表示为：两数之和表示为：s+is+iPrivateSubForm_Click()PrivateSubForm_Click()s=0s=0Fori=1Fori=1ToTo99Step299Step2 s=s+is=s+i加法器加法器NextiNexti Text1=sText1=sEndSubEndSub第36页/共86页第三十七页，共86页。38389.4.29.4.2循环循环(xnhun)(xnhun)控制结构控制结构Do.Loop结构格式1：DoWhile|UntilLoop格式

35、2：DoLoopWhile|Until注意：格式注意：格式2 2要先执行一次循环体要先执行一次循环体 ，然后，然后(rnhu)(rnhu)才判才判断断 是否成立以确定是否循环。是否成立以确定是否循环。False False（零），（零），True True（非（非零）。零）。WhileWhile：“当当”型循环型循环 ；UntilUntil：“直到直到”型循环型循环 第37页/共86页第三十八页，共86页。39399.4.29.4.2循环循环(xnhun)(xnhun)控制结构控制结构举例举例例例9-69-6：用：用DoDo语句计算语句计算1+2+3+4+1+2+3+4+，直到累加和第一，直到

36、累加和第一次大于次大于10001000为止为止(wizh)(wizh)，输出，输出和值及最后一次所加的数。和值及最后一次所加的数。PrivateSubForm_Click()PrivateSubForm_Click()s=0:i=0s=0:i=0四种循环任取其一四种循环任取其一Dowhilels=1000Dowhilels=1000i=i+1i=i+1 s=s+is=s+iLoopLoopText1=sText1=sText2=iText2=iEndSubEndSubDo i=i+1 s=s+iLoop While s 1000Do While s 1000 i=i+1 s=s+iLoop第3

37、8页/共86页第三十九页，共86页。40409.4.29.4.2循环循环(xnhun)(xnhun)控制结构控制结构循环(xnhun)嵌套循环(xnhun)结构的循环(xnhun)体中又包含了循环(xnhun)结构。例：Fori=1To2Forj=1To3Printi;j,NextjPrintNextiPrint 语语句句若若使使用用逗逗号号“,”则则按按标标准准输输出出格格式式(分分区区(fn q)输输出出),以以14个个字字符符宽宽度为单位进行分区度为单位进行分区(fn q).j=123i=12j=123分析分析:第39页/共86页第四十页，共86页。41419.4.29.4.2循环循环(

38、xnhun)(xnhun)控制结构控制结构l l例例9-89-8：取一元：取一元(yyun)(yyun)、二元、五元的、二元、五元的纸币共纸币共1010张，付给张，付给2525元钱，有多少种不元钱，有多少种不同的取法同的取法?l l分析分析:l l设一元设一元(yyun)(yyun)硬币为硬币为a a枚，二元硬币为枚，二元硬币为b b枚，五元硬币为枚，五元硬币为c c枚，可列出方程：枚，可列出方程：l la+b+c=10a+b+c=10l la+2b+5c=25a+2b+5c=25PrivateSubForm_Click()PrivateSubForm_Click()PrintPrint五元五

39、元(wyun),(wyun),二元二元,一元一元 Fora=1Fora=1ToTo1010Forb=1Forb=1ToTo1010Forc=1Forc=1ToTo1010Ifa+2*b+5*c=25Anda+b+Ifa+2*b+5*c=25Anda+b+c=10Thenc=10ThenPrintc,b,aPrintc,b,aEndIfEndIfNextcNextcNextbNextbNextaNextaEndSubEndSub第40页/共86页第四十一页，共86页。42429.59.5控件控件9.5.1标签9.5.2文本框9.5.3图片框与图像框9.5.4菜单(cidn)9.5.5单选按钮与复

40、选框9.5.6列表框与组合框9.5.7滚动条与定时器第41页/共86页第四十二页，共86页。43439.59.5控件控件控件提供程序可见界面的可重用对象。VB中控件类型：（1）标准控件内部控件，其控件图标都已出现在工具箱中。（2）ActiveX控件ActiveX是Microsoft对于一系列策略性面向对象程序技术和工具的称呼，其中(qzhng)主要的技术是组件对象模型（COM）。（3）可插入对象。是Windows应用程序的对象，如Excel表格等。第42页/共86页第四十三页，共86页。44449.59.5控件控件VB中对象浏览器及代码窗口中图标Enum是一种自定义枚举(mij)数据Long类

41、型；Global（全局的）是Object的数据类型。第43页/共86页第四十四页，共86页。45459.5.19.5.1标签标签(bioqin)(bioqin)属性(属性窗口)NameCaptionAlignmentLeft等事件(代码编辑窗口)Click、DblClick、Chang、MouseDown、MouseUp等方法(可通过(tnggu)对象浏览器窗口)Move等(0,0)xyHeightWidthLeftTop第44页/共86页第四十五页，共86页。46469.5.19.5.1标签标签(bioqin)(bioqin)【例【例9.99.9】PrivateSubLabel1_Click

42、()PrivateSubLabel1_Click()单击标签时变为红色单击标签时变为红色Label1.ForeColor=vbRedLabel1.ForeColor=vbRedEndSubEndSubPrivateSubLabel1_DblClick()PrivateSubLabel1_DblClick()双击标签时变为黑色双击标签时变为黑色Label1.ForeColor=vbBlackLabel1.ForeColor=vbBlackEndSubEndSub 单击窗体，则单击窗体，则Label1Label1控件移到鼠标指针控件移到鼠标指针(zhzhn)(zhzhn)位置位置PrivateSu

43、bForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Single)IfButton=1ThenIfButton=1ThenLabel1.MoveX,YLabel1.MoveX,YEndIfEndIfEndSubEndSub第45页/共86页第四十六页，共86页。47479.5.29.5.2文本框文本框属性属性TextTextMultiLineMultiLineScrollBar

44、sScrollBarsSelTextSelTextSelStartSelStartSelLengthSelLengthPasswordCharPasswordChar等等 方法方法 MoveMove、SetFocusSetFocus（使本对象获得焦点（使本对象获得焦点(jiodin)(jiodin)）事件事件 GotFocusGotFocus（当控件获得焦点（当控件获得焦点(jiodin)(jiodin)后就触发此事件）、后就触发此事件）、ChangChang等等 第46页/共86页第四十七页，共86页。48489.5.29.5.2文本框文本框【例例9.109.10】“进入进入”按钮的代码按钮

45、的代码PrivateSubCommand1_Click()PrivateSubCommand1_Click()IfText1=user1AndText2=1234ThenIfText1=user1AndText2=1234ThenMsgBoxMsgBox密码正确密码正确(zhngqu)(zhngqu)，成功登录，成功登录,输入输入 Form2.ShowForm2.ShowUnloadMeUnloadMeElseElseMsgBoxMsgBox用户名或密码错误，重新输入用户名或密码错误，重新输入,输入输入 Text1.SelStart=0Text1.SelStart=0Text1.SelLeng

46、th=Len(Text1)Text1.SelLength=Len(Text1)Text1.SetFocusText1.SetFocusText2=Text2=EndIfEndIfEndSubEndSub第47页/共86页第四十八页，共86页。49499.5.29.5.2文本框文本框【例例9.109.10】控控 件件 名名 称称属属 性性 名名 称称属属 性性 值值控控 件件 名名 称称属属 性性 名名 称称属属 性性 值值FormFormNameNameForm1Form1TextBoxTextBoxNameNameText1Text1CaptionCaption登录登录ToolTipText

47、ToolTipText3 36 6位字符位字符LabelLabelNameNameLabel1Label1TextBoxTextBoxNameNameText2Text2CaptionCaption用户名用户名PasswordCharPasswordChar*LabelLabelNameNameLabel2Label2ToolTipTextToolTipText4 4位数字位数字CaptionCaption密码密码CommandButtonCommandButtonNameNameCommand1Command1LabelLabelNameNameLabel3Label3CaptionCapt

48、ion进入进入CaptionCaption空空第48页/共86页第四十九页，共86页。50509.5.29.5.2文本框文本框【例例9.109.10】MsgBoxMsgBox提示提示，按钮，按钮，标题，标题 例如例如:MsgBoxMsgBox用户名和密码用户名和密码(mm)(mm)正确，成功登录正确，成功登录,vbOKOnly,vbOKOnly,输入输入 MsgBoxMsgBox用户名和密码用户名和密码(mm)(mm)正确，成功登录正确，成功登录,4+32+256,4+32+256,输入输入 常数常数值值描述描述vbOKOnlyvbOKOnly0 0只显示只显示 OK 按钮。按钮。VbOKCa

49、ncelVbOKCancel1 1显示显示 OK 及及 Cancel 按钮。按钮。VbAbortRetryIgnoreVbAbortRetryIgnore2 2显示显示 AbortAbort、Retry Retry 及及 Ignore 按钮。按钮。VbYesNoCancelVbYesNoCancel3 3显示显示 YesYes、No No 及及 Cancel 按钮。按钮。VbYesNoVbYesNo4 4显示显示 Yes 及及 No 按钮。按钮。VbRetryCancelVbRetryCancel5 5显示显示 Retry 及及 Cancel 按钮。按钮。VbCriticalVbCritica

50、l1616显示显示 Critical Message Critical Message 图标。图标。VbQuestionVbQuestion3232显示显示 Warning Query 图标。图标。VbExclamationVbExclamation4848显示显示 Warning Message 图标。图标。VbInformationVbInformation6464显示显示 Information Message 图标。图标。vbDefaultButton1vbDefaultButton10 0第一个按钮是缺省值。第一个按钮是缺省值。vbDefaultButton2vbDefaultBut