第13讲 应用系统开发
第13讲 应用系统开发
。问题 如何开发一个MIS系统？ 题
问 题 问题 如何开发一个MIS系统？
htp://localhost/Webxk/mns-Microsof Intemet Explorer 文件描日查看（收工具(D制助 周 ←后品·⊙边合@提果白收豫夹号煤体卧：自目少习区口 t埔址D同wt:ocbost/webkm3n.n 可特到接 欢迎光临网上选课系统（全院任选课 学号，■ 密码，—询习 第一志愿： 第二志愿，一第三志愿 第四志愿一第五志愿 确定清除 系统目标 课程名称 髯送软师 开课系部 人上详时间限委氨庆费 SOL VA技术的开用 信息技未2 徐人页计算机应用工程系二56节2 网络信息检专理与技术 程伟彬计算机应用工程系周二6带10 计机应用工程系用二晚 200 Linu澡作系统 算机应用工 二5-6节 Prenieree6.0影视制作 十算机应用工 周二5-6节20 Director动画电影设计与制作 陈子仪计算机应用工程系周二5-6节0 278 Delphi初级程序员 信息技术2 手兰 计算机应用工程系周二5-6节102？10 ASP.ET应用 信息技术2.5普建华计算机应用工程系周二5-6节104510 009水资源利用管理与保护 工程技2叶艳茵建筑工程系 周二晚 103110 010中级电工理论 工程技术3范敬丽建筑工程系 周二5-6节5245 011中外建筑欣赏 人文 2林泉建筑工程系 周二5-6节202713 2智能建筑 工程技2王娜建筑工程系 周二5-6节102110 入
系统目标
(I)在Delphi集成开发环境中通过菜单命令 【File】→【New】→【Application】建立一个新 的工程。 Server (2)在【ADO】组件页上选择【ADOConnection】 控件ADOConnection1放在表单上。 (3)设置ADOConnection1的“ConnectionString 属性。如图16-1-1所示，在属性窗口中单击 ConnectionString旁的“”按钮。 数据库表 在0epe中使用SOL (4)选中“Use Connection String',单击“Build' 按钮。出现图16-1-2所示对话框。 (5)选中“Microsoft OLE DB Provider for SQL Server'”,单击“下一步”，出现图16-l-3所示对 话框
在Delphi 中 使 用SQL Server 数 据 库 表 （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所示对 话框
(6)我们这里使用的是本地数据库。在“选择或输 入服务器名称中输入“(oca （7)选中“使用指定的用户名称和密码” 在中使用S0 (8)在用户名称中输入“sa”,密码中输入相应的密 码。 (9)选中“允许保存密码” ,(10)在“在服务器上选择数据库”下拉列表中选 数据库表 择数据库“Xk
在Delphi 中 使 用SQL Server 数 据 库 表 （6）我们这里使用的是本地数据库。在“选择或输 入服务器名称”中输入“(local)”。 （7）选中“使用指定的用户名称和密码”。 （8）在用户名称中输入“sa”，密码中输入相应的密 码。 （9）选中“允许保存密码”。 （10）在“在服务器上选择数据库”下拉列表中选 择数据库“Xk
(11)单击“测试连接”，测试成功后单击 “确定”。 (12)单击“确定”按钮，再单击“OK按钮 完成数据库连接的设置。 ScT数据库表 在DeoE中使用S0L (13)设置ADOConnection1的LoginPrompt'”属 性为“False”。 (14)在【ADO】组件页上选择【ADOTable】 控件ADOTable1放在表单上。设置ADOTable1 的“Connection”属性为“AdoConnection1”, “TableName”属性为“Student”,“Active”属 性为“True”。 (I5)在【Data Access】组件页上选择 【DataSource】控件DataSource1)放在表单上。 设置DataSourcel的DataSet属性为ADOTablel
在Delphi 中 使 用SQL Server 数 据 库 表 （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
(16)在【Data Controls】组件页上选择 【DBGrid】控件DBGrid1放在表单上。设置 DBGrid1的DataSource属性为DatsSourcel。. (17)在【Stand】组件页上选择【Button】控 Scc数据库表 在Deo中使用S0L 件Button1)放在表单上。设置Buttonl的Caption 属性为“使用表”。 (18)双击Button1按钮， 在OnClick事件中添 加如下代码。 AdoTable1.Active:=True; (19)在工具栏上单击“”按钮存盘。 (20)在工具栏上单击“”运行按钮，运行后 单击“使用表”按钮，可以看到Student表的相 关数据
在Delphi 中 使 用SQL Server 数 据 库 表 （16）在【Data Controls】组件页上选择 【DBGrid】控件DBGrid1放在表单上。设置 DBGrid1的DataSource属性为DatsSource1。 （17）在【Stand】组件页上选择【Button】控 件Button1放在表单上。设置Button1的Caption 属性为“使用表”。 （18）双击Button1按钮，在OnClick事件中添 加如下代码。 AdoTable1.Active:=True; （19）在工具栏上单击“”按钮存盘。 （20）在工具栏上单击“”运行按钮，运行后 单击“使用表”按钮，可以看到Student表的相 关数据
(1)在Delphi集成开发环境中通过菜单命令 【File】→【Close All】关闭所有文件。 (2)在Delphi集成开发环境中通过菜单命令 【File】→【New】→【Other】,选择ActiveX 页，选中ActiveX Library,如图16-2-l所示，单 艺ED开发实例 基于50L0c2c.的动态 击【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
基 于SQL Server 的 动 态 WEB 开 发 实 例 （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
(6)单击“OK按钮 (7)单击“”(Save All),单元名为 “Uxk.pas”,对象名为“ASPObjectXk' 艺EB开发实例 基于S0L0c2e的动态 (8)通过菜单命令【View】→【Type Library】,出现如图16-2-4所示对话框，右击 “IASPObjectXk”,在弹出菜单中选择“New 下的“Method”。 (9)设置Method的名称，在如图16-2-5所示对 话框中输入“ShowCourse'”。 (10)单击“”按钮
基 于SQL Server 的 动 态 WEB 开 发 实 例 （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）单击“”按钮
(I)在Delphi集成开发环境中通过菜 单命令【Run】→【Install Com+ Objects】,出现如图16-2-6所示对话框。 （2)选中“AspObjectXk”,选择Install 安装COM+对象 into new Application选项卡，在 Application Name编辑框中输入“Xk”, 如图16-2-7所示，单击“0K按钮。 (3)单击“OK按钮，出现如图16-2-8 所示对话框，表示COM+安装成功
安 装COM+ 对 象 （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+安装成功