第09章 数据库应用程序开发[详版课资]

QryTMNR.Next
end;
end;
end;
课堂优质
28
9.2.4 C/S数据库应用程序设计
试题库管理系统主窗体
试题库管理系统主窗体和组件对象属性表
课堂优质
19
9.2.4 C/S数据库应用程序设计
程序代码如下:
// 引用stwh, sjwh, sjsc三个单元。 // 可以手工写入，也可以在完成模块单元后，使用File->Use Unit命令。 uses stwh, sjwh, sjsc; // 按钮BtnSTWH的OnClick事件代码，用于调用“试题维护”窗体。 // 其它两个按钮BtnSJWH、BtnSJSC的OnClick事件代码与它类似。 procedure TFrmMain.BtnSTWHClick(Sender: TObject); begin
FrmSTWH.ShowModal; end; 保存该单元为main，保存项目为StkPrj。
课堂优质
20
9.2.4 C/S数据库应用程序设计
4. 试题维护窗体 试题维护窗体主要用于试题和答案的输入和修改，其界面如图所 示，试题维护窗体所包含的组件及其属性值列于表中。
通过从数据模块DMStk中拖 拽永久字段TabSTtmnr、 TabSTckda获得
通过从数据模块 DMStk中拖拽永久字
段DSetSJsjnr、
DSetSJjspj获得
试题维护窗体
课堂优质
试卷内容为三位 数，以逗号分开
22
9.2.4 C/S数据库应用程序设计
6. 试卷生成窗体 试卷生成窗体主要用于显示试卷内容，其界面及结构分别如图所 示，该窗体所包含的组件及其属性见下表。
试卷生成窗体
Delphi实用教程
第9章 数据库应用程序开发
课堂优质
1
9.1数据库应用系统的开发过程
通常开发数据库应用程序有以下三个阶段：
分析阶段。明确应用程序需做什么及需要什么数据、谁将使用这些 数据。 设计阶段。确定数据表的形式和所需的程序块，编写为了实现设计 中的功能的程序代码。 维护阶段。对应用程序进行维护，根据用户使用情况进一步优化应 用程序。
BEGIN SET @i=@i+4; INSERT INTO paper(txdm,tmnr) SELECT txdm,tmnr from st
WHERE th IN (SELECT substring(sjnr,@i,3) FROM sj WHERE sjbh=@sjbh)
end;
课堂优质
6
9.2.2建立存储过程
where th in (select substring(sjnr,@i,3)
from sj where sjbh=@sjbh)
课堂优质
7
9.2.2建立存储过程
因为sj表中sjnr存放的是以逗号分割的试题编号，所以通过把试题编 号提取出来，逻辑上构成了一个试题编号的集合。并通过以下的 Where子句产生符合条件的题号（th）所对应的试卷内容（sjnr）。 where th in (select substring(sjnr,@i,3)
数据模块DMSTK
课堂优质
14
9.2.4 C/S数据库应用程序设计
数据模块组件对象属性表
课堂优质
15
9.2.4 C/S数据库应用程序设计
Ⅱ 使用字段编辑器把QryTMNR，DSetSJ，TabST组件中的所有字 段设置为永久字段，再设置这些永久字段的DisplayLabel属性， 以便于阅读。
Ⅲ DMstk数据模块保存了对试题库的ADO连接、数据集、存储过 程及查询等信息。利用属性编辑器生成ConStk的连接字符串
利用Delphi进行客户机/服务器数据库应用系统的开发，通常按以 下步骤进行：
系统总体设计与规划。 网络和SQL服务器建设。 数据库设计。 前端开发。 调试与应用程序的发布。
课堂优质
2
9.2 试题库管理系统的设计实例
9.2.1 创建stkgl（试题库管理）数据库
创建包含试题信息表和试卷信息表，结构分别如下两表所示。
试题维护窗体
试题维护窗体和组件对象属性表
在程序的实现部分要引用数据模块单元DMUSTK，即使用语句：
uses DMUSTK;
课堂优质
21
9.2.4 C/S数据库应用程序设计
5. 试卷维护窗体 试卷维护窗体主要用于试卷内容和评价等信息的输入和修改，其 界面如图所示。其中的组件对象属性表及源程序与试题维护窗体 及程序类似。
DMStkDy.QryXZ.Active:=false; DMStkDy.QryXZ.Active:=true; ...... // 下面四条语句根据试卷编号，获得试卷名。 // 用于在打印出的试卷卷头中加入试卷名。 DMStkDy.QrySJM.Close; DMStkDy.QrySJM.Parameters.ParamByName('bh').Value:= strtoint(EdtSJBH.Text); DMStkDy.QrySJM.Open; FrmDY.RvProSJ.Execute; //打印试卷 end质
3
9.2.1 创建stkgl（试题库管理）数据库
试卷信息表（表名sj）
课堂优质
4
9.2.2建立存储过程
编写试题库管理系统中使用的试卷生成存储过程。
思路： 根据试卷信息表（sj）的试卷编号（sjbh），查找到相应 记 录的试卷内容。根据试卷内容（sjnr），创建一个新的试卷 表（paper）。试卷表（paper）包含两个字段：题型代码 （txdm）和题目内容（tmnr）。代码如下：
例SQL服务器名为cjhdb，如图所示。
课堂优质
17
9.2.4 C/S数据库应用程序设计
（2）在“登录服务器的信息”中，输入相应SQL Server数据服
务
器的登录信息。本例以系统管理员sa身份登录计算机。
（3）选中“选择数据库”单选框，单击其列表框的下拉按钮，
如
果在第（2）步输入的登录信息正确，则会显示在第1步选
（ConnectionString），步骤如下： ● 首先, 鼠标双击ConStk，弹出设置连接属性对话框，选择其
中的“Use Connection String”单选框，单击“Build…”按钮， 系统将弹出“数据链接属性”对话框。
● 其次，本例中，将访问基于Microsoft SQL Server的数据库， 因此选择“Microsoft OLE DB Provider for SQL Server” 选项，选择完毕后单击“Next>>”按钮。
DMSTK.QryTMNR.Active:=false; MenSJ.Lines.Clear; end;
课堂优质
25
9.2.4 C/S数据库应用程序设计
// 菜单项MIDY的OnClick事件代码。用于打印试卷。 procedure TFrmSJSC.MIDYClick(Sender: TObject); begin { 重新打开数据集，获得最新的数据。这里只列出了QryXZ组件的代码， 其它的组件QryTK、QryPD、QryJD、QryJS、QryLS、QryWD、QryBC 的代码从略。}
说明: 该存储过程的功能是把符合条件的题型代码（txdm）和题目 内 容（tmnr），插入paper表中，paper表即为生成的试卷。 Where条件子句使以下的select语句所产生的题型代码 （txdm） 和题目内容（tmnr）所对应的题号（th）必须在sj 表中试卷 内容（sjnr）中。 select txdm,tmnr from st
课堂优质
16
9.2.4 C/S数据库应用程序设计
● 第三，选择连接属性，这个界面上要求选择的内容较多。 需根据SQL Server数据服务器的设置来定。本例中按以下 步骤进行设置：
（1）单击“选择或输入服务器名称”下拉列表框的下拉按钮，
显
示当前系统可以访问的SQL服务器的列表，选择其中的一
个，单击“Refresh”按钮，获得最新的SQL服务器列表。本
（3）明了型
明了型用户界面
课堂优质
12
9.2.4 C/S数据库应用程序设计
1. “试题库管理系统”的系统结构 “试题库管理系统”应用程序的结构设计如图所示:
课堂优质
13
9.2.4 C/S数据库应用程序设计
2. 建立数据模块DMSTK
Ⅰ 新建一个数据模块DataModule1（最终保存该数据模块单元为 DMUStk），如图所示，该数据模块所包含的组件及其属性设置值 如下张表所示。
课堂优质
5
9.2.2建立存储过程
CREATE PROCEDURE sjsc @sjbh tinyint
AS DROP TABLE paper; CREATE TABLE paper(txdm tinyint,tmnr text); DECLARE @i int; SET @i=-3; WHILE @i<40
from sj where sjbh=@sjbh) 局部变量@i，控制从sj表中试卷内容（sjnr）中选取试题的数量。 最后，返回生成的试卷给客户端程序。
课堂优质
8
9.2.3 用户界面设计
用户界面设计应根据用户的要求进行，不同的用户有不同的要求。 通常，下面的原则具有一定的普遍意义。 （1）力求界面美观大方，避免界面布局过分拥挤，一般来说，
窗体结构
课堂优质
23
9.2.4 C/S数据库应用程序设计
试卷生成窗体和组件对象属性表
课堂优质
24
9.2.4 C/S数据库应用程序设计
程序代码如下:
// 在程序的实现部分引入以下三个单元 uses DMUStk, dysj, DMUStkDy; // 窗体FrmSJSC的OnHide事件代码。 procedure TFrmSJSC.FormHide(Sender: TObject); begin