《第13讲应用系统开发》由会员分享,可在线阅读,更多相关《第13讲应用系统开发(15页珍藏版)》请在金锄头文库上搜索。
1、第13讲 应用系统开发问题|问题 如何开发一个MIS系统? 系统目标在Delphi中使用SQL Server 数据库表 |(1 1)在)在DelphiDelphi集成开发环境中通过菜单命令集成开发环境中通过菜单命令【FileFile】【NewNew】【ApplicationApplication】建立一个新的建立一个新的工程。工程。|(2 2)在)在【ADOADO】组件页上选择组件页上选择【ADOConnectionADOConnection】控件控件ADOConnection1ADOConnection1放在表单上。放在表单上。|(3 3)设置)设置ADOConnection1ADOConn
2、ection1的的“ “ConnectionStringConnectionString” ”属性。如图属性。如图16-1-116-1-1所示,所示,在属性窗口中单击在属性窗口中单击ConnectionStringConnectionString旁的旁的“”“”按钮。按钮。|(4 4)选中)选中“ “Use Connection String”Use Connection String”,单击单击“ “Build”Build”按钮。出现图按钮。出现图16-1-216-1-2所示对话框。所示对话框。|(5 5)选中)选中“ “Microsoft OLE DB Provider for SQL M
3、icrosoft OLE DB Provider for SQL Server”Server”,单击单击“ “下一步下一步” ”,出现图,出现图16-1-316-1-3所示对所示对话框。话框。在Delphi中使用SQL Server 数据库表|(6)我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。|(7)选中“使用指定的用户名称和密码”。|(8)在用户名称中输入“sa”,密码中输入相应的密码。|(9)选中“允许保存密码”。|(10)在“在服务器上选择数据库”下拉列表中选择数据库“Xk”。在Delphi中使用SQL Server 数据库表|(11)单击“测试连接”
4、,测试成功后单击“确定”。|(12)单击“确定”按钮,再单击“OK”按钮完成数据库连接的设置。|(13)设置ADOConnection1的LoginPrompt”属性为“False”。|(14)在【ADO】组件页上选择【ADOTable】控件ADOTable1放在表单上。设置ADOTable1 的“Connection”属性为“AdoConnection1”,“TableName”属性为“Student”,“Active”属性为“True”。|(15)在【Data Access】组件页上选择【DataSource】控件DataSource1放在表单上。设置DataSource1的DataSet
5、属性为ADOTable1。在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)在工具栏上单击“”运行按钮,运行后单击“使用表”按钮,
6、可以看到Student表的相关数据。基于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
7、,如图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开发实例 |(6)单击“OK”按钮|(7)单击“”(Save All),单元名为“Uxk.pas”,对象名为“ASPObjectXk”。|(8)通过菜单命令【View】【Type Library】,出现如图16-2-4所示对话框,右击“IASP
8、ObjectXk”,在弹出菜单中选择“New”下的“Method”。 |(9)设置Method的名称,在如图16-2-5所示对话框中输入“ShowCourse”。|(10)单击“”按钮。安装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”按钮,出现如
9、图16-2-8所示对话框,表示COM+安装成功。 配置组件提高性能|(1)在Windows 2000中单击【开始】【程序】【管理工具】【组件服务】。|(2)在组件服务对话框中依次展开“组件服务”、“计算机”、“我得电脑”、“COM+ 应用程序”、“Xk”、“组件”。|(3)如图16-2-29所示,单击“组件”,在详细窗格中右击PXk.AspObjectXk”,在弹出菜单中单击“属性”命令。|(4)如图16-2-10所示,选择“激活”属性页,选中“启用对象共用”,单击“确定”。基于SQL Server的动态WEB开发实例 |(1)在Delphi集成开发环境中通过菜单命令【File】【Close
10、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 Thre
11、ading 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集
12、成开发环境中通过菜单命令【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)在
13、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对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。