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