应用系统开发

第16讲应用系统开发问题问题如何开发一个MIS系统？系统目标在Delphi中使用SQLServer数据库表（1）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Application】建立一个新的工程。（2）在【ADO】组件页上选择【ADOConnection】控件ADOConnection1放在表单上。（3）设置ADOConnection1的“ConnectionString”属性。如图16-1-1所示，在属性窗口中单击ConnectionString旁的“”按钮。（4）选中“UseConnectionString”，单击“Build”按钮。出现图16-1-2所示对话框。（5）选中“MicrosoftOLEDBProviderforSQLServer”，单击“下一步”，出现图16-1-3所示对话框。在Delphi中使用SQLServer数据库表（6）我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。（7）选中“使用指定的用户名称和密码”。（8）在用户名称中输入“sa”，密码中输入相应的密码。（9）选中“允许保存密码”。（10）在“在服务器上选择数据库”下拉列表中选择数据库“Xk”。在Delphi中使用SQLServer数据库表（11）单击“测试连接”，测试成功后单击“确定”。（12）单击“确定”按钮，再单击“OK”按钮完成数据库连接的设置。（13）设置ADOConnection1的LoginPrompt”属性为“False”。（14）在【ADO】组件页上选择【ADOTable】控件ADOTable1放在表单上。设置ADOTable1的“Connection”属性为“AdoConnection1”，“TableName”属性为“Student”，“Active”属性为“True”。（15）在【DataAccess】组件页上选择【DataSource】控件DataSource1放在表单上。设置DataSource1的DataSet属性为ADOTable1。在Delphi中使用SQLServer数据库表（16）在【DataControls】组件页上选择【DBGrid】控件DBGrid1放在表单上。设置DBGrid1的DataSource属性为DatsSource1。（17）在【Stand】组件页上选择【Button】控件Button1放在表单上。设置Button1的Caption属性为“使用表”。（18）双击Button1按钮，在OnClick事件中添加如下代码。AdoTable1.Active:=True;（19）在工具栏上单击“”按钮存盘。（20）在工具栏上单击“”运行按钮，运行后单击“使用表”按钮，可以看到Student表的相关数据。基于SQLServer的动态WEB开发实例（1）在Delphi集成开发环境中通过菜单命令【File】→【CloseAll】关闭所有文件。（2）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveXLibrary，如图16-2-1所示，单击【OK】建立一个ActiveXDLL。（3）单击“”（SaveAll），工程名为“PXk”。（4）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveServerObject，如图16-2-2所示。（5）单击“OK”按钮，出现如图16-2-3所示对话框，设置如下属性：CoClassName：ASPObjectXkThreadingModel:NeturalInstancing:MultipleInstanceActiveServerType:ObjectContext基于SQLServer的动态WEB开发实例（6）单击“OK”按钮（7）单击“”（SaveAll），单元名为“Uxk.pas”，对象名为“ASPObjectXk”。（8）通过菜单命令【View】→【TypeLibrary】，出现如图16-2-4所示对话框，右击“IASPObjectXk”，在弹出菜单中选择“New”下的“Method”。（9）设置Method的名称，在如图16-2-5所示对话框中输入“ShowCourse”。(10）单击“”按钮。安装COM+对象（1）在Delphi集成开发环境中通过菜单命令【Run】→【InstallCom+Objects】，出现如图16-2-6所示对话框。（2）选中“AspObjectXk”，选择InstallintonewApplication选项卡，在ApplicationName编辑框中输入“Xk”，如图16-2-7所示，单击“OK”按钮。（3）单击“OK”按钮，出现如图16-2-8所示对话框，表示COM+安装成功。配置组件提高性能（1）在Windows2000中单击【开始】→【程序】→【管理工具】→【组件服务】。（2）在组件服务对话框中依次展开“组件服务”、“计算机”、“我得电脑”、“COM+应用程序”、“Xk”、“组件”。（3）如图16-2-29所示，单击“组件”，在详细窗格中右击PXk.AspObjectXk”，在弹出菜单中单击“属性”命令。（4）如图16-2-10所示，选择“激活”属性页，选中“启用对象共用”，单击“确定”。基于SQLServer的动态WEB开发实例（1）在Delphi集成开发环境中通过菜单命令【File】→【CloseAll】关闭所有文件。（2）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveXLibrary，如图16-2-1所示，单击【OK】建立一个ActiveXDLL。（3）单击“”（SaveAll），工程名为“PXk”。（4）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveServerObject，如图16-2-2所示。（5）单击“OK”按钮，出现如图16-2-3所示对话框，设置如下属性：CoClassName：ASPObjectXkThreadingModel:NeturalInstancing:MultipleInstanceActiveServerType:ObjectContext基于SQLServer的动态WEB开发实例（1）在Delphi集成开发环境中通过菜单命令【File】→【CloseAll】关闭所有文件。（2）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveXLibrary，如图16-2-1所示，单击【OK】建立一个ActiveXDLL。（3）单击“”（SaveAll），工程名为“PXk”。（4）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveServerObject，如图16-2-2所示。（5）单击“OK”按钮，出现如图16-2-3所示对话框，设置如下属性：CoClassName：ASPObjectXkThreadingModel:NeturalInstancing:MultipleInstanceActiveServerType:ObjectContext基于SQLServer的动态WEB开发实例（1）在Delphi集成开发环境中通过菜单命令【File】→【CloseAll】关闭所有文件。（2）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveXLibrary，如图16-2-1所示，单击【OK】建立一个ActiveXDLL。（3）单击“”（SaveAll），工程名为“PXk”。（4）在Delphi集成开发环境中通过菜单命令【File】→【New】→【Other】，选择ActiveX页，选中ActiveServerObject，如图16-2-2所示。（5）单击“OK”按钮，出现如图16-2-3所示对话框，设置如下属性：CoClassName：ASPObjectXkThreadingModel:NeturalInstancing:MultipleInstanceActiveServerType:ObjectContext总结本章讲述了如何在Delphi中使用表、视图、存储过程，以及如何创建ASP对象，然后在ASP脚本中调用ASP对象的方法创建动态网页。应在理解示例的基础上在实际中灵活运用。