《应用系统开发》ppt课件

1、|问题| 如何开发一个MIS系统？ |6我们这里运用的是本地数据库。在“选择或输入效能器称号中输入“(local)。|7选中“运用指定的用户称号和密码。|8在用户称号中输入“sa，密码中输入相应的密码。|9选中“允许保管密码。|10在“在效能器上选择数据库下拉列表中选择数据库“Xk。|11单击“测试衔接，测试胜利后单击“确定。|12单击“确定按钮，再单击“OK按钮完成数据库衔接的设置。|13设置ADOConnection1的LoginPrompt属性为“False。|14在【ADO】组件页上选择【ADOTable】控件ADOTable1放在表单上。设置ADOTable1 的“Connectio

2、n属性为“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双击B

3、utton1按钮，在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集成开发

4、环境中经过菜单命令【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

5、ry】，出现如图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 into new Application选项卡，在Application Name编辑框中输入“Xk，如图16-2-7所示，单击“OK按钮。|3单击“OK按钮，出现如图16-2-8所示对话框

6、，表示COM+安装胜利。 |1在Windows 2000中单击【开场】【程序】【管理工具】【组件效能】。|2在组件效能对话框中依次展开“组件效能、“计算机、“我得电脑、“COM+ 运用程序、“Xk、“组件。|3如图16-2-29所示，单击“组件，在详细窗格中右击PXk.AspObjectXk，在弹出菜单中单击“属性命令。|4如图16-2-10所示，选择“激活属性页，选中“启用对象共用，单击“确定。|1在Delphi集成开发环境中经过菜单命令【File】【Close All】封锁一切文件。|2在Delphi集成开发环境中经过菜单命令【File】【New】【Other】，选择ActiveX页，选中

7、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

8、 Context|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所示对话框，设置如下属性：

9、| CoClass Name：ASPObjectXk| Threading Model:Netural| Instancing:Multiple Instance| Active Server Type:Object Context|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