《Visual_Basic程序设计项目教程 教学课件 ppt 作者 李天真 李宏伟 《Visual Basic程序设计项目教程》电子教案(任务7）》由会员分享，可在线阅读，更多相关《Visual_Basic程序设计项目教程 教学课件 ppt 作者 李天真 李宏伟 《Visual Basic程序设计项目教程》电子教案(任务7）（28页珍藏版）》请在金锄头文库上搜索。
1、任务1 系统开发任务分析及开发方法,任务2 系统数据库创建,任务3 系统登录界面设计,任务4 简单登录密码设计,任务5 数据库访问的实现,任务6 系统主界面设计,任务7 系统管理模块设计, Visual Basic程序设计项目教程电子教案,任务8 信息管理模块设计,任务9 报表生成和打印,任务10 Splash 界面设计,任务11 Visual Basic 程序调试,任务12 应用程序的文件操作,任务13 应用程序的打包和发布,任务7 系统管理模块设计,知识 使用记录集对象访问和修改数据库数据,过程1 密码维护模块,过程2 添加用户模块,过程3 重新登录代码设计,知识教学目标和技能训练目标,1
2、学习Visual Basic数组的定义与使用方法，重点掌握Visual Basic控件数组的创建与使用方法； 2学习使用ADO对象的Recordset对象对数据库数据进行增删改操作。,返回章首,能使用记录集对象访问和修改数据库数据。,利用访问和修改数据库数据为学生学籍管理系统设计系统管理模块，主要负责用户和密码的管理，包括修改用户密码、添加用户、重新登录三个功能子模块。,返回章首,返回章首,1）当用户登录成功打开主界面后，选择“系统管理”的子菜单“密码维护”选项后，会出现如图7.1所示的对话框。无论如何拖动此对话框，都不会拖出主窗口，这就是MDI模式的主要特点。在此对话框中，可以输入新旧密码后
3、，单击“确定”按钮进行密码的修改，下次登录时就可以使用新密码了。,图7.1 “密码维护”对话框,2）选择“系统管理”的子菜单“用户管理”选项后，会出现如图7.2所示的“用户管理”对话框。如果没有输入，单击“确定”按钮会出现输入有误的提示信息；如果输入的是已经存在的用户，会出现“该用户已经存在”的提示信息。如果上面的两项都已通过，则会把这个用户添加到数据库中，下次就可以按该用户登录。 3）选择“系统管理”的子菜单“重新登录”选项后，会关闭主窗口，重新打开登录窗口。,图7.2 “用户管理”对话框,1. 数组 （1）数组的定义 数组是具有相同数据类型的一组变量的集合。对于数组，每个元素的引用由数组的
4、索引或下标来确定。在内存中数组表现为一个连续的内存块，必须用Global或Dim语句定义。Dim语句的语法格式如下： Dim 数组名(lower To upper，lower To upper)As type 在这里，每对lower和upper为数组维数，lower是数组下标的下限，upper是数组下标的上限，如不标明lower，其默认值为0。下面是数组定义的若干例子。 1）一维数组的定义。 例如： Dim Record (5) As Integer 这里定义的数组是含有6个元素的一维数组，每个数组元素可存储一个整数。下面是该数组在内存中存放的结构：,返回章首,知识 使用记录集对象访问和修改数
5、据库数据,2）二维数组的定义。 Dim Matrix(2,3) As Integer 该数组定义了一个二维数组，可以存储12个整数。 3）三维数组的定义。 例如： Dim myArray(2，l to 5，1 to 15) 该数组定义了一个三维数组，可以存储3515=225个元素。 （2）动态数组 带有空括号的Dim可以声明一个动态数组，例如： Dim dynArray() 在需要指定数组大小时，再用ReDim语句定义动态数组的维数和元素个数。申请或重新申请存储空间的一般格式如下： ReDim Preserve 数组名(lower Toupper ，lower Toupper)As Type,
6、返回章首,知识 使用记录集对象访问和修改数据库数据,（3）数组的清除 格式： Erase 数组名,数组名 （4）数组元素的输入和引用 1）数组元素的输入。 在Visual Basic中，可以通过以下三种方法给数组中的元素输入数据： 用InputBox函数。 用赋值语句输入：数组名（下标）=。 用Array函数输入。 2）数组元素的引用。 数组的引用就是指使用数组中的元素。引用数组元素的格式如下： 数组名（下标） 在开发过程中可以用Lbound和Ubound函数取得数组的下标和上标。,返回章首,知识 使用记录集对象访问和修改数据库数据,3）For EachNext语句。 For EachNext
7、语句可以根据数组上下界取出数组中的每一个元素，ForEachNext语句比ForNext语句更为方便，因为它不需要指明结束循环的条件。 格式： For Each 成员 In 数组 循环体 Exit For Next 成员 2控件数组 如果在应用程序中用到一些类型相同且功能相近的控件，则可以把它们视为特殊的数组控件数组。组成控件数组的元素是一组相同类型的控件，它们共用一个相同的控件名称，拥有相同的Name属性设置。当建立控件数组时，系统给每个元素赋予一个唯一的下标索引号（Index）作为标识，下标值由Index属性指定。 控件数组可用于命令按钮、标签组、单选按钮组及复选框组等常用控件。,返回章首
8、,知识 使用记录集对象访问和修改数据库数据,（1）创建控件数组 控件数组是针对控件建立的，因此与普通数组的定义不一样，可以通过以下三种方法来建立控件数组。 1）通过改变控件名称添加控件数组元素。 通过改变已有控件名称，可以将一组控件组成控件数组，具体操作步骤如下： 在窗体上画出要添加到控件数组中的控件（必须为同一类型的控件）。 选定要作为数组元素的控件，在属性窗口中将其Name（名称）属性设置为数组名称。 依次对其他要加入数组中的控件重复执行操作步骤。 在为数组中的第二个控件输入相同名称时，系统会显示一个对话框，要求确认是否要创建控件数组。这时选择“是”，将确认创建控件数组。,返回章首,知识
9、使用记录集对象访问和修改数据库数据,2）通过复制已有控件添加控件数组元素。 利用复制、粘贴功能建立控件数组的具体操作步骤如下： 在窗体上画出一个控件，单击将其选中。 选择“编辑复制”选项（或按Ctrl+C键），将其放入剪贴板中。 选择“编辑粘贴”选项（或按Ctrl+V键），系统将显示一个如图7.3所示的对话框询问是否确认创建控件数组。单击“是”按钮，窗体的左上角将出现一个相同的控件，这就是控件数组中的第二个控件。 依次对其他要加入数组中的控件重复执行操作步骤。 每个数组元素的索引值与其添加到控件数组中的次序有关，分别为0，1，2，3在设计阶段，可以改变控件数组元素的Index属性，但不能在运行
10、时改变。在添加控件时，大多数可视属性，例如，高度、宽度和颜色，将从数组中第一个控件复制到新控件中。,返回章首,知识 使用记录集对象访问和修改数据库数据,3）通过指定控件的索引值创建控件数组。 如果直接指定控件数组中第一个控件的索引值为0，然后利用前两种方法中的任何一种添加控件数组的成员。通过这种方法，系统将不会出现对话框询问是否确认创建控件数组。 （2）控件数组的应用 利用控件数组设计一个简单的计算器程序，只要求实现加减乘除四则运算，如图7.4所示。 1）设计程序界面及设置控件属性。 启动Visual Basic，进入窗体设计器，并根据题目要求设计如图7.5所示的窗体界面。,返回章首,知识 使
11、用记录集对象访问和修改数据库数据,首先在窗体上添加一个Frame控件，用来放置按钮和文本框。然后在窗体上添 加10个命令按钮组成控件数组：Command10，Command11，Command19；再添加4个命令按钮组成另外一组控件数组：Command2（0），Command21，Command2（2），Command23；再添加两个独立的按钮和一个文本框。,返回章首,知识 使用记录集对象访问和修改数据库数据,图7.4 简单计算器 图7.5 计算器设计界面,如表7.1所示，设置窗体中控件的属性。,返回章首,知识 使用记录集对象访问和修改数据库数据,表7.1 控件属性列表,2）编写程序代码。,返
12、回章首,知识 使用记录集对象访问和修改数据库数据,Dim shu1 As Long 保存第一个操作数 Dim fuhao As String 保存运算符 Private Sub Command1_Click(Index As Integer) 数字按钮 If Text1.Text = “0“ Then Text1.Text = Index 如果是第一个数字 Else 如果文本框是非零的数字，就直接把该数字连在原来数字的后面 Text1.Text = Text1.Text & Index End If End Sub Private Sub Command2_Click(Index As Int
13、eger)运算符按钮 shu1 = Val(Text1.Text) fuhao = Command2(Index).Caption End Sub,2）编写程序代码。,返回章首,知识 使用记录集对象访问和修改数据库数据,Private Sub Command4_Click() 等号按钮 Dim shu2 As Long shu2 = Val(Text1.Text) 求值函数 Select Case fuhao Case “+“ Text1.Text = shu1 + shu2 Case “-“ Text1.Text = shu1 - shu2 Case “*“ Text1.Text = shu
14、1 * shu2 Case “/“,If shu2 = 0 Then Text1.Text = “无意义“ Else Text1.Text = shu1 / shu2 End If End Select End Sub Private Sub Command3_Click() C按钮的代码，把文本框的内容清零 Text1.Text = 0 End Sub,（3）动态加载控件数组,返回章首,知识 使用记录集对象访问和修改数据库数据,建立动态控件数组时首先应在窗体上画出一个控件，并将该控件Index属性值设置为0，表明该控件是数组；然后在编程过程中通过Load方法添加其他的若干控件元素，也可以通过
15、UnLoad方法删除某个添加的元素；对于在程序中动态加载的控件数组，要通过Left和Top属性确定其在窗体中的位置，并将其Visible属性值设置为True。 3自定义数据类型 1）在模块或窗体的声明部分，可用Type语句来建立自定义类型，一般语法格式如下： Private |Public Type varname elementname As type elementname As type End Type,返回章首,知识 使用记录集对象访问和修改数据库数据,2）一旦用Type语句建立了自定义类型后，就可以用它声明自定义类型的变量了。这种变量也可用Dim、Pub1ic、Private、Re
16、Dim或Static来修饰。例如： Private Type Student 自定义类型的定义 Name As String Birthday As Date Age as Integer Others As Variant End Type Dim myStu As Student，youStu As Student 自定义类型变量的声明 可以通过自定义类型“变量名.成员名”来访问自定义类型变量中的元素。例如： myStu.Name=“LiLi“,返回章首,知识 使用记录集对象访问和修改数据库数据,3）自定义类型的定义允许嵌套，即自定义类型的定义中可含有自定义类型的成员。例如： Type AddreType AddName As String zip As Integer End Typ
