1 / 15

第 13 讲 应用系统开发

第 13 讲 应用系统开发. 问题 如何开发一个 MIS 系统?. 问题. 系统目标. ( 1 )在 Delphi 集成开发环境中通过菜单命令 【File】→【New】→【Application】 建立一个新的工程。 ( 2 )在 【ADO】 组件页上选择 【ADOConnection】 控件 ADOConnection1 放在表单上。 ( 3 )设置 ADOConnection1 的“ ConnectionString” 属性。如图 16-1-1 所示,在属性窗口中单击 ConnectionString 旁的“”按钮。

Download Presentation

第 13 讲 应用系统开发

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. 第13讲 应用系统开发

  2. 问题 如何开发一个MIS系统? 问题

  3. 系统目标

  4. (1)在Delphi集成开发环境中通过菜单命令【File】→【New】→【Application】建立一个新的工程。(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所示对话框。 在Delphi中使用SQL Server 数据库表

  5. (6)我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。(6)我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。 • (7)选中“使用指定的用户名称和密码”。 • (8)在用户名称中输入“sa”,密码中输入相应的密码。 • (9)选中“允许保存密码”。 • (10)在“在服务器上选择数据库”下拉列表中选择数据库“Xk”。 在Delphi中使用SQL Server 数据库表

  6. (11)单击“测试连接”,测试成功后单击“确定”。(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。 在Delphi中使用SQL Server 数据库表

  7. (16)在【Data Controls】组件页上选择【DBGrid】控件DBGrid1放在表单上。设置DBGrid1的DataSource属性为DatsSource1。 • (17)在【Stand】组件页上选择【Button】控件Button1放在表单上。设置Button1的Caption属性为“使用表”。 • (18)双击Button1按钮,在OnClick事件中添加如下代码。 AdoTable1.Active:=True; • (19)在工具栏上单击“”按钮存盘。 • (20)在工具栏上单击“”运行按钮,运行后单击“使用表”按钮,可以看到Student表的相关数据。 在Delphi中使用SQL Server数据库表

  8. (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 基于SQL Server的动态WEB开发实例

  9. (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)单击“”按钮。 基于SQL Server的动态WEB开发实例

  10. (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+安装成功。 安装COM+对象

  11. (1)在Windows 2000中单击【开始】→【程序】→【管理工具】→【组件服务】。 • (2)在组件服务对话框中依次展开“组件服务”、“计算机”、“我得电脑”、“COM+ 应用程序”、“Xk”、“组件”。 • (3)如图16-2-29所示,单击“组件”,在详细窗格中右击PXk.AspObjectXk”,在弹出菜单中单击“属性”命令。 • (4)如图16-2-10所示,选择“激活”属性页,选中“启用对象共用”,单击“确定”。 配置组件提高性能

  12. (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 基于SQL Server的动态WEB开发实例

  13. (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 基于SQL Server的动态WEB开发实例

  14. (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 基于SQL Server的动态WEB开发实例

  15. 本章讲述了如何在Delphi中使用表、视图、存储过程,以及如何创建ASP对象,然后在ASP脚本中调用ASP对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。 总结

More Related