第 13讲应用系统开发问题
问题如何开发一个 MIS系统？
系统目标在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Application】 建立一个新的工程。
（ 2）在 【 ADO】 组件页上选择 【 ADOConnection】
控件 ADOConnection1放在表单上。
（ 3）设置 ADOConnection1的,ConnectionString”
属性。如图 16-1-1所示，在属性窗口中单击
ConnectionString旁的“”按钮。
（ 4）选中,Use Connection String”，单击,Build”
按钮。出现图 16-1-2所示对话框。
（ 5）选中,Microsoft OLE DB Provider for SQL
Server”，单击“下一步”，出现图 16-1-3所示对话框。
在De
lph
i
中使用SQ
L S
erv
er
数据库表
（ 6）我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入,(local)”。
（ 7）选中“使用指定的用户名称和密码”。
（ 8）在用户名称中输入,sa”，密码中输入相应的密码。
（ 9）选中“允许保存密码”。
（ 10）在“在服务器上选择数据库”下拉列表中选择数据库,Xk”。
在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 11）单击“测试连接”，测试成功后单击
“确定”。
（ 12）单击“确定”按钮，再单击,OK”按钮完成数据库连接的设置。
（ 13）设置 ADOConnection1的 LoginPrompt”属性为,False”。
（ 14）在 【 ADO】 组件页上选择 【 ADOTable】
控件 ADOTable1放在表单上。设置 ADOTable1
的,Connection”属性为,AdoConnection1”，
,TableName”属性为,Student”，,Active”属性为,True”。
（ 15）在 【 Data Access】 组件页上选择
【 DataSource】 控件 DataSource1放在表单上。
设置 DataSource1的 DataSet属性为 ADOTable1。
在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 16）在 【 Data Controls】 组件页上选择
【 DBGrid】 控件 DBGrid1放在表单上。设置
DBGrid1的 DataSource属性为 DatsSource1。
（ 17）在 【 Stand】 组件页上选择 【 Button】 控件 Button1放在表单上。设置 Button1的 Caption
属性为“使用表”。
（ 18）双击 Button1按钮，在 OnClick事件中添加如下代码。
AdoTable1.Active:=True;
（ 19）在工具栏上单击“”按钮存盘。
（ 20）在工具栏上单击“”运行按钮，运行后单击“使用表”按钮，可以看到 Student表的相关数据。
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 6）单击,OK”按钮
（ 7）单击“”（ Save All），单元名为
,Uxk.pas”，对象名为,ASPObjectXk”。
（ 8）通过菜单命令 【 View】 → 【 Type
Library】,出现如图 16-2-4所示对话框，右击
,IASPObjectXk”，在弹出菜单中选择,New”
下的,Method”。
（ 9）设置 Method的名称，在如图 16-2-5所示对话框中输入,ShowCourse”。
(10）单击“”按钮。
安装CO
M+
对象
（ 1） 在 Delphi集成开发环境中通过菜单命令 【 Run】 → 【 Install Com+
Objects】,出现如图 16-2-6所示对话框 。
（ 2） 选中,AspObjectXk”,选择 Install
into new Application 选项卡,在
Application Name编辑框中输入,Xk”，
如图 16-2-7所示,单击,OK”按钮 。
（ 3） 单击,OK”按钮,出现如图 16-2-8
所示对话框,表示 COM+安装成功 。
配置组件提高性能
（ 1）在 Windows 2000中单击 【 开始 】 → 【 程序 】
→ 【 管理工具 】 → 【 组件服务 】 。
（ 2）在组件服务对话框中依次展开“组件服务”、“计算机”、“我得电脑”、,COM+
应用程序”、,Xk”、“组件”。
（ 3）如图 16-2-29所示，单击“组件”，在详细窗格中右击 PXk.AspObjectXk”，在弹出菜单中单击“属性”命令。
（ 4）如图 16-2-10所示，选择“激活”属性页，
选中“启用对象共用”，单击“确定”。
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
总结
本章讲述了如何在 Delphi中使用表、视图、存储过程，以及如何创建 ASP对象，然后在
ASP脚本中调用 ASP对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。
问题如何开发一个 MIS系统？
系统目标在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Application】 建立一个新的工程。
（ 2）在 【 ADO】 组件页上选择 【 ADOConnection】
控件 ADOConnection1放在表单上。
（ 3）设置 ADOConnection1的,ConnectionString”
属性。如图 16-1-1所示，在属性窗口中单击
ConnectionString旁的“”按钮。
（ 4）选中,Use Connection String”，单击,Build”
按钮。出现图 16-1-2所示对话框。
（ 5）选中,Microsoft OLE DB Provider for SQL
Server”，单击“下一步”，出现图 16-1-3所示对话框。
在De
lph
i
中使用SQ
L S
erv
er
数据库表
（ 6）我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入,(local)”。
（ 7）选中“使用指定的用户名称和密码”。
（ 8）在用户名称中输入,sa”，密码中输入相应的密码。
（ 9）选中“允许保存密码”。
（ 10）在“在服务器上选择数据库”下拉列表中选择数据库,Xk”。
在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 11）单击“测试连接”，测试成功后单击
“确定”。
（ 12）单击“确定”按钮，再单击,OK”按钮完成数据库连接的设置。
（ 13）设置 ADOConnection1的 LoginPrompt”属性为,False”。
（ 14）在 【 ADO】 组件页上选择 【 ADOTable】
控件 ADOTable1放在表单上。设置 ADOTable1
的,Connection”属性为,AdoConnection1”，
,TableName”属性为,Student”，,Active”属性为,True”。
（ 15）在 【 Data Access】 组件页上选择
【 DataSource】 控件 DataSource1放在表单上。
设置 DataSource1的 DataSet属性为 ADOTable1。
在De
lph
i
中使用SQ
L
Se
rve
r
数据库表
（ 16）在 【 Data Controls】 组件页上选择
【 DBGrid】 控件 DBGrid1放在表单上。设置
DBGrid1的 DataSource属性为 DatsSource1。
（ 17）在 【 Stand】 组件页上选择 【 Button】 控件 Button1放在表单上。设置 Button1的 Caption
属性为“使用表”。
（ 18）双击 Button1按钮，在 OnClick事件中添加如下代码。
AdoTable1.Active:=True;
（ 19）在工具栏上单击“”按钮存盘。
（ 20）在工具栏上单击“”运行按钮，运行后单击“使用表”按钮，可以看到 Student表的相关数据。
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 6）单击,OK”按钮
（ 7）单击“”（ Save All），单元名为
,Uxk.pas”，对象名为,ASPObjectXk”。
（ 8）通过菜单命令 【 View】 → 【 Type
Library】,出现如图 16-2-4所示对话框，右击
,IASPObjectXk”，在弹出菜单中选择,New”
下的,Method”。
（ 9）设置 Method的名称，在如图 16-2-5所示对话框中输入,ShowCourse”。
(10）单击“”按钮。
安装CO
M+
对象
（ 1） 在 Delphi集成开发环境中通过菜单命令 【 Run】 → 【 Install Com+
Objects】,出现如图 16-2-6所示对话框 。
（ 2） 选中,AspObjectXk”,选择 Install
into new Application 选项卡,在
Application Name编辑框中输入,Xk”，
如图 16-2-7所示,单击,OK”按钮 。
（ 3） 单击,OK”按钮,出现如图 16-2-8
所示对话框,表示 COM+安装成功 。
配置组件提高性能
（ 1）在 Windows 2000中单击 【 开始 】 → 【 程序 】
→ 【 管理工具 】 → 【 组件服务 】 。
（ 2）在组件服务对话框中依次展开“组件服务”、“计算机”、“我得电脑”、,COM+
应用程序”、,Xk”、“组件”。
（ 3）如图 16-2-29所示，单击“组件”，在详细窗格中右击 PXk.AspObjectXk”，在弹出菜单中单击“属性”命令。
（ 4）如图 16-2-10所示，选择“激活”属性页，
选中“启用对象共用”，单击“确定”。
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQ
L S
erv
er
的动态
W
EB
开发实例
（ 1）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 Close All】 关闭所有文件。
（ 2）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 ActiveX Library，如图 16-2-1所示，单击 【 OK】 建立一个 ActiveX DLL。
（ 3）单击“”（ Save All），工程名为,PXk”。
（ 4）在 Delphi集成开发环境中通过菜单命令
【 File】 → 【 New】 → 【 Other】,选择 ActiveX
页，选中 Active Server Object，如图 16-2-2所示。
（ 5）单击,OK”按钮，出现如图 16-2-3所示对话框，设置如下属性：
CoClass Name,ASPObjectXk
Threading Model:Netural
Instancing:Multiple Instance
Active Server Type:Object Context
总结
本章讲述了如何在 Delphi中使用表、视图、存储过程，以及如何创建 ASP对象，然后在
ASP脚本中调用 ASP对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。
