1、第 6 章 数据库应用系统开发第6章数据库应用系统开发学习目标 了解: C/S 和 B/S 体系结构的机制、优缺点； 了解:嵌入式 SQL 的概念和机理； 掌握: C/S 应用系统的开发方法。6.1 数据库应用系统开发概述一、数据库应用系统开发的基本思路：将 SQL 语言嵌入到高级语言中， SQL 语句负责操纵数据库，高级语言负责控制程序流程，完成各种复杂的数据库应用。二、嵌入式 SQL： 使用嵌入式 SQL 在编写程序时，必须从普通的编程语言开始（宿主语言），再把 SQL 加入到程序中。也就是说嵌入式 SQL 就是将 SQL 语句直接嵌入到程序的源代码中，与其他程序设计语言混合。 处理过程：
2、为了区分 SQL 语句和宿主语言语句，所有 SQL 语句必须加前缀, 前缀一般格式：EXEC SQL三、应用程序开发模式 C/S：客户机/服务器，基于企业内部网络的应用系统，不依赖企业外网环境，也就是说无论企业是否能上网，都不影响应用。 B/S：浏览器/服务器。1C/S 体系结构： 两层结构的系统，第一层是在客户机上结合了业务逻辑；第二层通过网络结合了数据库服务器。如图示，主要由客户应用程序和数据库两部分组成。优点：交互性强，有效地降低网络通信量和服务器运算量，适用于用户数量不多的局域网内使用。 2B/S 体系结构：三层结构 C/S 模式，如图示。它是基于 Intranet 的需求发展的，In
3、tranet 是应用 TCP/IP 协议建立的企事业单位内部专用网络，采取 TCP/IP、HTTP、SMTP、HTML 等技术和标准，能为企事业内部交换信息提供服务；具有连接 Internet 的功能和防止外界入侵的安全措施；可以实现大量信息的网上发布，为广大用户提供动态的信息查询和数据处理服务。 3. 两种模式的比较：C/S 模式采用点对点的结构模式，适用于局域网、安全性可以得到保证； B/S 采用点对多点或多点对多点的结构模式，采用 TCP/IP 协议，安全性只能靠数据服务器上管理密码的数据库来保证。 1）系统的性能：B/S 异地浏览和信息采集灵活性高，但客户端只能完成浏览、查询、数据输入
4、等简单功能，大部分工作由服务器承担，因此，服务器的负担很重。C/S 模式客户端和服务器端都能够处理任务，虽然对客户端的要求较高，但减轻了服务器的负担。 2）系统的开发：要求应用开发者自己去处理事务管理、消息队列、数据的复制和同步、通信安全等系统级的问题。使得应用程序的维护、移植和互操作复杂。 3）系统的升级维护：由于C/S 系统的各部分中有一部分改变，就要关联到其他模块的变化，因此升级成本大。B/S 系统开发、维护等所有工作都集中在服务器，当企业对网络应用进行升级时，只需更新服务器端的软件就可。6.2 VB 应用系统开发方法 通常采用 VB, Delphi等开发C/S 模式的数据库应用系统，采
5、用 ASP.net 或 JSP 等开发 B/S 模式的数据库应用系统。一、数据库应用程序的基本框架：前台软件为 VB 程序，后台为数据库管理系统（包括增加、删除、修改和查询操作）。利用 VB 开发数据库应用程序的基本框架： 1.声明一个全局数据库连接对象； 2.创建 Main 子过程，并将它设置为启动对象。其中包括： 以非模态方式显示飞溅窗； 创建全局数据库连接对象，连接 SQL Server 或 Access 等数据库； 以模态方式显示登录窗，等待用户登录； 登录成功后，以非模态方式显示主窗体，否则退出程序。 3.主窗体提供增加（Insert)、删除 (Delete)、修改 (Update)
6、 和查询 (Select) 等对数据库操作功能，所有操作均使用全局数据库连接对象作为与数据库交互的通道，通过 SQL 语句对数据进行处理。 4.其他功能：数据库备份和恢复、用户权限等管理。二、ADO 对象模型 1数据库访问引擎 VB 提供了3种数据库访问引擎，它是应用程序与数据库之间的数据通道。 Jet 引擎： 联合数据库引擎，用于本地数据库（ACCESS）、外部数据库（EXCEL）的数据库引擎。也可以访问远程数据库（SQL Server），但必须通过 ODBC 来转接。 ODBC：开放式数据库连接，是一种建立数据库驱动程序的标准，当前几乎所有的 DBMS 都支持这种数据库引擎。通过 ODBC
7、 可以使用本地化的协议来访问所有支持 ODBC 的数据库。 OLE DB：它是一系列组件对象模型接口。 2. 数据访问对象：VB 采用面向对象技术，将三种数据库引擎封装成三种访问数据库的对象： 1）DAO 对象模型：可以使用 Jet 引擎和 ODBC 两种方式访问数据库，是一种分层的树型结构。 2）RDO 对象模型：一般采用 ODBC 访问数据库, 也是一种分层的树型结构。 3）ADO 对象模型：是目前常用的数据访问对象。 目前主要采用 ADO 对象，它把 OLE DB 封装在一个数据对象中，使得 VB 程序可以方便地实现对数据库的访问。它与上述两种主要的区别是它采用非层次结构。包含 7 个对
8、象。主要有：Connection、Command、Recordset、Parameter、Property、Field 和 Error 对象，最常用的是 Connection、Command、Recordset 和 Field。 （1）Connection 对象：主要用于建立与数据库的连接。 声明并创建对象：语句格式 Dim ADOcn As New Connection 声明对象 Set ADOcn = New Connection 创建新对象 建立数据库连接：语句格式：ADOcn.Open 连接字符串 对数据表进行更新操作：利用 Connection 对象可以实现对数据库中的数据表进行增加
9、、删除、修改等操作。 语句格式：ADOcn.Execute SQL 语句字符串 如：删除学生成绩表中学号为 001 的记录，语句为： ADOcn.Execute “DELETE FROM 学生成绩表 WHERE 学号001” 或者用以下等效语句实现： Dim strSQL As String strSQL=“DELETE FROM 学生成绩表 WHERE 学号001” ADOcn.Execute strSQL 如：更新学生成绩表中学号 001 的记录，语句为： ADOcn.Execute “Update 学生成绩表 SET 学号=002 Where 学号=001”（2）Command 对象：用
10、于不需返回结果集的 SQL 语句操作，如：INSERT、DELETE 和 UPDATE。 （3）Recordset 和 Field 对象：记录集 Recordset 对象是数据表的查询结果，通常使用它进行 Select 语句的操作，基本使用方法： 声明 Recordset 对象: Dim ADOrs As New Recordset 与ADO 链接对象建立关联:ADOrs.ActiveConnection=ADOcn 执行 Select 操作:ADOrs.OpenSelect * From 学生成绩表 关闭记录集对象:ADOrs.Close 当使用 OPEN 方法打开一个记录集后，就可以访问其
11、中的数据了。 方法是：ADOrs.Field（“学号”）或者 ADOrs（“学号”） （4）将记录显示在窗体上：显示方法 在 TextBox 控件中显示 Text1.Text=ADOrs.Fields（“学号”） 读取到变量中 Dim strNo AS String strNo=ADOrs.Fields（“学号”） Text1.Text=strNo三、程序主要功能开发 1. 数据库设计：设成绩数据库包括 3 张数据表，结构和记录如表所示：表名结构学生成绩学号,课程号,成绩学生情况学号,姓名课程情况课程号,课程名表名表记录学生成绩通过程序添加学生情况手工添加课程情况手工添加 2. 基本 SQL
12、语句：开发的数据库程序具有如下功能。 1) 插入记录:INSERT INTO （,)VALUES( 列值 ,) ； INSERT INTO 学生成绩表 (学号,课程号,成绩 ) VALUES (001,001,85) 2) 删除记录: DELETE FROM WHERE 条件 DELETE FROM 学生成绩表 WHERE 学号=001AND 课程号=001 3) 修改记录: UPDATE SET=,WHERE 条件； UPDATE 学生成绩表 SET 成绩=90 WHERE 学号=“001”AND 课程号=001 4）按学号查询 SELECT * FROM WHERE 条件 SELECT *
13、 FROM 学生成绩表 WHERE 学号=“001” 5）打印成绩单3. 界面设计(1) 创建工程, 工程名为：“成绩查询”；(2) 创建主窗体(窗体名:frmMain), 由主窗体调用其它窗体，主窗体使用菜单和工具条创建，主窗体如下图左所示。（3）创建“新增记录” 窗体（窗体名:frmAdd), 包括：标签、文本框、组合框、命令按钮等，将成绩文本框的Alignment属性设置为 1-Right Justify,使数据在右端显示。窗体如上图右所示。（4）创建“修改记录”窗体（窗体名:frmUpdate), 包括：标签、文本框、组合框、命令按钮等，将成绩文本框的Alignment属性设置为 1-
14、Right Justify,使数据在右端显示。窗体如下图左所示。（5）创建“删除记录” 窗体（窗体名 :frmUDelete), 包括：标签、组合框、命令按钮等，如上图右所示。6）创建“查询记录”窗体（窗体名:frmQuery), 首先使用工程-部件菜单添加表格控件，窗体包括：标签、组合框、命令按钮和FlexGrid表格控件等，窗体如下图。4.代码设计 （1）编写连接数据库的代码，步骤： 通过“工程-引用”菜单添加对象库：Microsoft ActiveX Data Objects 2.7 Library(Ado数据对象）； 通过“工程”菜单项添加一个模块，设计如下代码； 通过“工程-工程项目
15、属性”菜单，将Main过程设置为启动对象。(2)设置窗体间的调用:在主窗体上双击工具栏控件,设计如下代码。 （3）设计frmAdd 窗体代码。代码分两部分，Load事件代码，完成窗体初始化；“确认”按钮代码，完成添加记录工作。4）设计frmUpdate窗体代码。Load事件代码同上；“确认”按钮代码如下左所示，完成修改记录。 （5）设计frmUDelete窗体代码。Load事件代码同上；“确认”按钮代码如下右所示，完成删除记录。 （6）设计frmQuery 窗体代码。查询按钮代码如下所示。四、报表:报表用于输出查询结果。常用的报表设计工具：报表设计器、利用 excel 、利用专用软件。 1.
16、利用生成报表：（1）在计算机中安装 EXCEL 应用程序，建立一张 Excel工作簿，用于存放数据库中表的数据；（2）首先在 VB 中通过工程 - 引用加载 Microsoft Excel Object Library；（3）使用 Dim 语句声明一个 Excel 应用程序、工作簿、工作表对象，（4）最后编写程序，如下图所示，利用 Excel 对象与后台 Excel 应用程序进行数据交换，最终将数据传输到 Excel 表中。 2利用报表设计器生成报表。它是 VB 自带的报表设计器，通过“工程 - 添加 Data Report”菜单打开报表设计器，进行报表设计。 （1）报表结构：如下图所示。 报
17、表标头：用于显示报表的标题，在整个报表的顶部显示一次； 页标头：用于显示页的标题，在每页的顶部显示； 细节：用于显示报表的细节内容，每一行显示一次； 页脚注：用于显示页的尾注，在每页的尾部显示； 报表尾注：用于显示报表的尾注，在整个报表的尾部显示一次。（2）数据报表工具箱：常用的控件如上右图所示. RptLable 控件：用于静态文本的显示，与 Lable 控件功能相似； RptTextBox 控件：用于显示数据表中的记录字段，与 TextBox 控件功能相似； RptLine：用于画线； RptImage：用于显示静态图形。（3）设计报表： 报表界面设计：如上页图所示，将 Caption 属性设置为：学生成绩查询报表，窗体名取缺省值：DataReport1。 编写代码如下图所示，首先打开一个 ADO 记录集，然后将报表控件的 DataSource 和 DataMember 属性指向该记录集的对应记录，最后通过 Show 方法打开报表窗体。
