1、使用Move方法遍历整个记录集中的记录。Move方法是：MoveFirst或MoveLast方法移至第一个或最后一个记录。MoveNext或MovePrevious方法移至下一个或上一个记录。Move n方法向前或向后移n个记录，n为指定的数值。（二）Find方法可在指定的Dynaset或Snapshot类型的Recordset对象中查找与指定条件相符的一个记录，并使之成为当前记录。4种Find方法是：FindFirst或FindLast方法 找到满足条件的第一个或最后一个记录。FindNext或FindPrevious方法 找到满足条件的下一个或上一个记录。4种Find方法的语法格式相同：数
2、据集合.Find方法 条件（三）Seek方法使用Seek方法可在Table表中查找与指定索引规则相符的第一个记录，并使之成为当前记录。其语法格式为：数据表对象.Seek comparison,key1,key2（四）Refresh方法如果在设计状态没有为打开数据库控件的有关属性全部赋值，或当RecordSource在运行时被改变后，必须使用激活数据控件的Refresh方法激活这些变化。例如：Data1.DatabaseName=C:VBBiblio.mdbData1.RecordSource=TitlesData1.Refresh（五）Close方法关闭指定的数据库、记录集并释放分配给它的资源
3、其语法格式为：对象.Close （六）AddNew方法向数据库中添加记录的步骤如下：首先，调用AddNew方法，打开一个空白记录；然后，通过相关约束控件给各字段赋值；最后，单击数据控件上的箭头按钮，移动记录指针，或调用UpdateRecord方法确定所做添加。（七）Delete方法删除数据库中记录的步骤如下：首先，将要删除的记录定位为当前记录；然后，调用Delete方法；最后，移动记录指针，确定所做删除操作。（八）Edit方法编辑数据库中记录的步骤如下：首先，将要修改的记录定位为当前记录；然后，调用Edit方法；然后，通过相关约束控件修改各字段值；最后，移动记录指针，确定所做编辑操作。 13.
4、3.2 数据库网格控件（DBGrid）DBGrid控件属于ActiveX控件，需要执行“工程”菜单中的“部件”命令项，在“部件”对话框中选择“Microsoft Data Bound Gird Control 5.0（sp3）”添加到工具箱中。数据库网格控件DBGrid，几乎不用写代码就可直接将学生成绩数据库的记录显示在网格内。如图13-10所示。当DBGrid控件的DataSource属性设置为一个Data控件时，DBGrid控件会被自动地填充并且其列标题会用Data控件的记录集里的数据自动地设置。创建DBGrid控件时，它只有一列和一行。当控件的AllowUpdate属性设为True，可编
5、辑表里的任意单元表格，而当移动到新的一行时，它被自动地更新。将AllowAddNew和AllowDelete属性设置为True，可增删记录。图13-10 学生成绩记录表格13.4 SQL在VB中的应用SQL中最经常使用的是从数据库中的获取数据。从数据库中的获取数据称为查询数据库，查询数据库通过使用SELECT语句。常见的Select语句包含六部分，其语法形式为：SELECT ALL|DISTINCTFROM WHERE GROUP BY HAVING ORDER BY ASC|DESC使用SELECT语句查询无论是数据控件还是数据对象都可使用SELECT语句查询数据。功能：从指定的表中选出满足
6、条件的记录，记录中包含指定的字段。ALL：缺省值，显示查询到的所有记录。DISTINCT：在显示查询结果中如果有多个相同的记录，只取其中的一个。使用DISTINCT可以保证查询结果每一条记录的唯一性。：指出所要查询的表，可以指定多个表，各表名之间用逗号隔开。：指出查询的条件。 ：指明要在查询结果中包含的字段名，具体形式为：表名.字段名，各项之间用逗号隔开，如果选择所有字段，则不用一一列出字段名，只需写成：表名.* 。 ：将查询结果按该字段排序。ASC：指定按升序排序。ESC：指定按降序排序。SELECT语句可以看作记录集的定义语句，它从一个或多个表中获取指定字段，生成一个较小的记录集。根据表1
7、3-1学生成绩表score CL1数据库的查询操作举例说明SELECT语句的基本用法。1、选取表中部分列【例】查询学生成绩表中的英语和计算机成绩。SELECT 英语，计算机 FROM score2、选取表中所有列【例】查询学生成绩表中的所有信息。SELECT * FROM 3、WHERE子句【例】查询数学成绩不及格的学生信息。SELECT * FROM score WHERE 数学60 4、复合条件【例】查询数学和英语成绩均不及格的学生信息。SELECT * FROM score WHERE 数学60 AND 英语=60 ORDER BY 数学 DESC6、统计信息【例】查询数学成绩不及格的人
8、数、数学平均分、最高分。SELECT COUNT（*）AS 人数 FROM score WHERE 数学60SELECT AVG（数学）AS 平均分，MAX（数学）AS 最高分 FROM score 7、GROUP BY子句【例】查询男生与女生的数学平均分。SELECT 性别，AVG（数学）AS 平均分FROM score GROUP BY 性别8、HAVING子句【例】查询数学成绩不及格的人数大于10人的班级和相应人数。SELECT 班级，COUNT（*）AS 人数 FROM score WHERE 数学10 9、多表查询【例】查询学生的学号、姓名和籍贯（假设有一个student表，其中包含
9、了学生的学号、籍贯等信息）。SELECT score . 学号，score . 姓名，score . 数学，student . 籍贯 FROM score，student WHERE score . 学号= student . 学号 如前所述，数据控件的RecordSource属性除了可以设置成表名外，还可以设置为一条SQL语句，格式下：数据控件名. RecordSource=“SQL语句”第十三章 数据库编程基础 本章主要教学内容总结本章介绍了VB数据库的编程基础。首先讲述了数据库的基本概念。详尽描述了使用可视化数据管理器创建数据库并对其进行各种操作，如排序和查找等。还介绍了Data数据控件
10、访问数据库和数据绑定控件、数据库网格控件的使用技巧。使用数据控件的记录集Recordset对象的Find、Seek、Updata、AddNew、Delete等方法编写程序对数据库访问功能。最后介绍了结构化查询语言SQL功能，SQL应用在VB中查询数据的方法。壕壕通过本章的学习，使学生了解了VB的图形功能，学习了VB的图形控件和图形方法，掌握了建立图形坐标系的方法。学习了常用的几何图形绘制，掌握了窗体与图片框对象以及图像框对象的绘图方法以及与绘图有关的属性。11.1.1 默认坐标系统Visual Basic系统中的每个容器都有一个坐标系，如图11-1所示。构成一个坐标系，需要三个要素：坐标原点、
11、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。图11-111.1.2 用户自定义坐标系统一、设置坐标系统的刻度单位 用户可根据实际需要用ScaleMode属性设置坐标系统的刻度单位。ScaleMode属性的取值及含义如下表11-1所示。表11-1内部常数值含义VbUser0指出ScalHeight、ScalWidth、ScaleLeft、ScaleTop属性中的一个或多个设置为自定义的值。VbTwips1（缺省值）单位是缇VbPoints2磅VbPixels3像素（监视器或打印机分辨率的最
12、小单位）VbCharacters4字符（水平每个单位=120缇；垂直每个单位=240缇）VbInches5英寸VbMillimeters6毫米VbCentimeters7厘米说明： 当设置容器对象（例如，窗体或图片框）的ScaleMode属性值0，将使容器对象的ScaleLeft和ScaleTop自动设置为0，ScaleHeight和ScaleWidth 的度量单位也将发生改变。 用ScaleMode属性只能改变刻度单位，不能改变坐标原点及坐标轴的方向。二、使用Scale属性建立自己的坐标系 （一）重新定义坐标原点属性ScaleTop，ScaleLeft的值用于控制对象左上角坐标，改变坐标系的
13、原点位置。所有对象的ScaleTop，ScaleLeft属性的缺省值为0，坐标原点在对象的左上角。同样，ScaleLeft的设置值可向左或向右平移坐标系的Y轴。【例】在图11-2所示的窗体中，按下命令按钮将标签移动到坐标原点。若使用以下代码：Private Sub Command1_Click()Label1.Left=0Label1.Top=0End Sub 则使用默认的坐标系统，原点在窗体的左上角，运行时单击按钮“将标签移动到原点”，标签位置则如图11-3所示。如果改用以下代码：Private Sub Command1_Click()Form1.ScaleLeft=200Form1.Sca
14、leTop=300Label1.Left=0Label1.Top=0End Sub 运行时单击按钮，标签的位置如图11-4所示。这是因为ScaleLeft和ScaleTop属性将窗体左上角的坐标定义为（200，300）。若将代码改写为：Private Sub Command1_Click()Form1.ScaleLeft=200Form1.ScaleTop=300Label1.Left=200Label1.Top=300End Sub 则运行时单击按钮，标签的位置如图11-3所示。图11-2 图11-3 图11-4（二）重定义坐标轴方向和度量单位属性ScaleWidth，ScaleHeight
15、的值可确定对象坐标系X轴与Y轴的正向及最大坐标值。缺省时其值均大于0，此时，X轴的正向向右，Y轴的正向向下。对象右下角坐标值为(ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。注意：如果ScaleWidth的值小于0，则X轴的正向向左，如果ScaleHeight的值小于0，则Y轴的正向向上。【例】使用ScaleWidth和ScaleHeightzd改变窗体刻度单位。设窗体高度是2000Twips，宽度是3000Twips。此时水平和垂直刻度单位均为1Twips。如果设置：ScaleHeight=500，则将窗体的高度划分为500个单位，每个单位为2000/
16、500，即4Twips。如果设置：ScaleWidth=1000，则将窗体的宽度划分为1000个单位，每个单位为3000/1000，即3Twips。注意：将ScaleHeight、ScaleWidth、ScaleLeft与ScaleTop属性设置为任何值都自动将ScaleMode设置为0。（三）利用Scale方法设置坐标系格式：对象.Scale(xLeft,yTop)-(xRight,yBottom)其中：xLeft,yTop：对象的左上角坐标值。xRight,yBottom：对象的右下角坐标值。注意：可在程序中使用Scale方法改变坐标系统。当Scale方法不带参数时，取消用户定义的坐标系，
17、采用缺省坐标系。【例】在图片框Picture1中打印5行5列的单位矩阵。Private Sub Picture1_Click()Dim a(5, 5) As IntegerPicture1.Scale (0, 0)-(6, 6)For i=1 To 5Picture1.CurrentY=iFor j=1 To 5If i=j Then a(i, j) =1 Else a(i, j)=0Picture1.CurrentX=jPicture1.Print a(i, j);Next jNext iEnd Sub图11-511.2.1 CurrentX、CurrentY属性CurrentX属性：设置或
18、返回窗体或图形框或打印机在绘图时的当前坐标的水平坐标。CurrentY属性：设置或返回窗体或图形框或打印机在绘图时的当前坐标的垂直坐标。格式：object.CurrentX =xobject.CurrentY =y注意：当使用某些图形方法后，对象的CurrentX和CurrentY的设置值将发生变化。这两个属性在设计阶段不能使用。【例】以窗体中心为原心，随机向各个方向绘200条直线。代码如下：Private Sub Form_Click()Dim i As Integer定义坐标系统Form1.Scale(-100,100)-(100,-100)For i=0 To 200CurrentX=R
19、nd*100*Sgn(Rnd-0.5)CurrentY=Rnd*100*Sgn(Rnd-0.5)ForeColor=QBColor(i Mod 16) 设置前景颜色Line (0,0)-(CurrentX,CurrentY)Next iEnd Sub11.2.2 线宽与线型一、设置线宽DrawWidth属性窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。格式：Object.DrawWidth =Size其中：Object：为对象表达式，可以是窗体、图片框和打印机对象。Size：为数值表达式，其范围从1到32767。该值以像素为单位表示线宽。缺省值为 1，即一个
20、像素宽。二、设置线型DrawStyle属性窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。格式：Object.DrawWidth =number其中：Object：为对象表达式，可以是窗体、图片框和打印机对象。Number：为整型表达式，值的范围是06，用来指定图形方法输出的线型。其设置值及含义如下表11-2所示。 表11-2内部常数设置值线 型图 示VbSolid0实线(缺省)VbDash1长划线VbDot2点线VbDashDot3点划线VbDashDotDot4点点划线VbInvisible5透明线VbInsideSolid6内实线【例】用不同的DrawStyle属
21、性值，在窗体分别画一条直线。代码如下：Private Sub Form_Click()Dim I As Integer 声明变量.DrawWidth=1ScaleHeight=8 将窗高设置为8个单位For I=0 To 6DrawStyle=I 改变线形Line (0,I+1)-(ScaleWidth*2/3,I+1) 画新线 在当前点Y坐标向上移0.25个刻度单位CurrentY=CurrentY-0.25 Print DrawStyle=；DrawStyle 在当前点输出DrawStyleNext IEnd Sub11.2.3 图形的填充封闭图形的填充方式由FillStyle决定，填充颜色和线条颜色由FillColor属性决定。一、填充方式FillStyle属性FillStyle属性用来设置填充Shape控件及由Circle和Line图形方法生产的圆和方框的方式。图11-8是形状控件的FillStyle属性设置为08时的填充效果。图11-8说明：
个人主页
