第13讲 发 应用系统开
第13讲 应用系统开发
问题 如何开发一个MS系统? 题
问 题 问题 如何开发一个MIS系统？
退,,③团益魏索国收夹守媒体③卧当回目良国 地址D)hp/ cohost/ WebXk'main, asp →转到链接 欢迎光临网上选课系统(全院任选课) 学号 密码: 查询 第一志愿:「第二志愿:「第三志愿:「第四志愿:「第五志愿: 系 统 课程名称 分/教师 开课系部上课时间 001 SOL Server实用技术 信息技术3徐人凤计算机应用工程系调二5-6节522-43-22 00JAVA技木的开发应用信息技术2程伟彬计算机应用工程系周二5-6节103510 003网络信息检索原理与技术信息技术2李涛汁算机应用工程系周二晚102910 004Limx操作系统 信息技术2郑星计算机应用工程系周二56节103310 标 005 Premiere.视制作信息技术2李韵婷计算机应用工程系周二5-6节20278 6 Director动画电影计与制作信息技术2陈子仪计算机应用工程系周二5-6节1027 007 Delphi初级程序员 信息技术2李兰计算机应用工程系周二5-6节102710 008 ASP. NET应用 信息技术2.5曾建华计算机应用工程系周二5-6节104510 009资源利用管理与保护工程技术2叶艳茵建筑工程系周二晚103110 010中级电工理论 工程技术3范敬丽建筑工程系周二5-6节524 011中外建筑欣赏 人文2林泉建筑工程系周二56节202713 012智能建筑 工程技2王娜建筑工程系周二5-6节102110 完毕 本地 intranet
系统目标
(1)在 Delphi集成开发环境中通过菜单命令 在 【Fle】→【New】→【 Application】建立一个新 的工程。 (2)在【ADO】组件页上选择【 ADOConnection】 控件 ADOConnection1放在表单上。 (3)设置 ADOConnection 1的“ Connection String 属性。如图16-1-1所示,在属性窗口中单击 数中 Connection String旁的“”按钮。 (4)选中“ Use Connection String”,单击“ Build” 据使 按钮。出现图16-1-2所示对话框。 库用 (5)选中“ Microsoft OlE DB Provider for SQL Server”,单击“下一步”,出现图16-1-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)我们这里使用的是本地数据库。在“选择或输 入服务器名称”中输入“(loca (7)选中“使用指定的用户名称和密码”。 ●(8)在用户名称中输入“sa”,密码中输入相应的密 码 ●(9)选中“允许保存密码”。 数中· 0)在“在服务器上选择数据库”下拉列表中选 择数据库“Xk 据使 库用 表
在Delphi 中 使 用SQL Server 数 据 库 表 （6）我们这里使用的是本地数据库。在“选择或输 入服务器名称”中输入“(local)”。 （7）选中“使用指定的用户名称和密码”。 （8）在用户名称中输入“sa”，密码中输入相应的密 码。 （9）选中“允许保存密码”。 （10）在“在服务器上选择数据库”下拉列表中选 择数据库“Xk
(11)单击“测试连接”,测试成功后单击 “确定”。 在 ●(12)单击“确定”按钮,再单击“OK”按钮 完成数据库连接的设置 (13)设置 ADOConnectionl的 Login Prompt属 性为“ False'。 (14)在【ADO】组件页上选择【 ADOTable】 数中 控件 ADOTable1放在表单上。设置 ADOTable l “ Connection?属性为“ Ado Connection1”, 据使 “ TableName'属性为“ Student',“ active¨属 库用 性为“True。 (15)在【 Data access】组件页上选择 表 【 DataSource】控件 Data 1放在表单上 设置 Data l的 Data Set属性为 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属性为 Dats source l。 (17)在【 Stand】组件页上选择【 Button】控 件 Button放在表单上。设置 Button的 Caption 属性为“使用表” 。(18)双击 Button按钮,在 OnClick事件中添 数中 加如下代码。 ado Tablel. 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集成开发环境中通过菜单命令 基于 【Fil】→【 Close a】关闭所有文件。 (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
基 于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”。 (8)通过菜单命令【View】→【Type Library】,出现如图16-24所示对话框,右击 IASPObjectXk”,在弹出菜单中选择“New 下的“ Metho 开发实 (9)设置 Method的名称,在如图16-2-5所示对 话框中输入“ Show Course”。 (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）单击“”按钮
(1)在 Delphi集成开发环境中通过菜 单命令【Run】→【 Install Com+ Objects】,出现如图16-2-6所示对话框。 (2)选中“ AspObjectXk”,选择 Install 安装QQ+对象 into new Application选项卡,在 Application Name编辑框中输入“Xk”, 如图16-2-7所示,单击“OK”按钮。 (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+安装成功