第13应用系统开发.pptVIP

第13讲 应用系统开发 问题 问题 如何开发一个MIS系统？ 系统目标 在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所示对话框。 在Delphi中使用SQL Server 数据库表 （6）我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。 （7）选中“使用指定的用户名称和密码”。 （8）在用户名称中输入“sa”，密码中输入相应的密码。 （9）选中“允许保存密码”。 （10）在“在服务器上选择数据库”下拉列表中选择数据库“Xk”。 在Delphi中使用SQL Server 数据库表 在Delphi中使用SQL Server数据库表 基于SQL Server的动态WEB开发实例 基于SQL Server的动态WEB开发实例 安装COM+对象 配置组件提高性能 基于SQL Server的动态WEB开发实例 基于SQL Server的动态WEB开发实例 基于SQL Server的动态WEB开发实例 总结 本章讲述了如何在Delphi中使用表、视图、存储过程，以及如何创建ASP对象，然后在ASP脚本中调用ASP对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。 * （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属性为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-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 Libra