欢迎来到天天文库
浏览记录
ID:27278042
大小:472.50 KB
页数:15页
时间:2018-12-01
《《应用系统开发》ppt课件》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、第13讲应用系统开发问题问题如何开发一个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、-2所示对话框。(5)选中“MicrosoftOLEDBProviderforSQLServer”,单击“下一步”,出现图16-1-3所示对话框。在Delphi中使用SQLServer数据库表(6)我们这里使用的是本地数据库。在“选择或输入服务器名称”中输入“(local)”。(7)选中“使用指定的用户名称和密码”。(8)在用户名称中输入“sa”,密码中输入相应的密码。(9)选中“允许保存密码”。(10)在“在服务器上选择数据库”下拉列表中选择数据库“Xk”。在Delphi中使用SQLServer数据库表(11)单击“测试连接”,测试成功后单击“确定”。(12)单击“确定”按钮,
3、再单击“OK”按钮完成数据库连接的设置。(13)设置ADOConnection1的LoginPrompt”属性为“False”。(14)在【ADO】组件页上选择【ADOTable】控件ADOTable1放在表单上。设置ADOTable1的“Connection”属性为“AdoConnection1”,“TableName”属性为“Student”,“Active”属性为“True”。(15)在【DataAccess】组件页上选择【DataSource】控件DataSource1放在表单上。设置DataSource1的DataSet属性为ADOTable1。在Delphi中使用SQ
4、LServer数据库表(16)在【DataControls】组件页上选择【DBGrid】控件DBGrid1放在表单上。设置DBGrid1的DataSource属性为DatsSource1。(17)在【Stand】组件页上选择【Button】控件Button1放在表单上。设置Button1的Caption属性为“使用表”。(18)双击Button1按钮,在OnClick事件中添加如下代码。AdoTable1.Active:=True;(19)在工具栏上单击“”按钮存盘。(20)在工具栏上单击“”运行按钮,运行后单击“使用表”按钮,可以看到Student表的相关数据。基于SQLSer
5、ver的动态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”按钮,出现如
6、图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)
7、设置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
此文档下载收益归作者所有