文档介绍：第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 数据库表
(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。
在Delphi中使用SQL Server数据库表
(16)在【Data Controls】组件页上选择【DBGrid】控件DBGrid1放在表单上。设置DBGrid1的DataSource属性为DatsSource1。
(17)在【Stand】组件页上选择【Button】控件Button1放在表单上。设置Button1的Caption属性为“使用表”。
(18)双击Button1按钮,在OnClick事件中添加如下代码。
:=True;
(19)在工具栏上单击“”按钮存盘。
(20)在工具栏上单击“”运行按钮,运行后单击“使用表”按钮,可以看到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,如图16-2-2所示。
(5)单击“OK”按钮,出现如图16-2-3所示对话框,设置如下属性:
CoClass Name:ASPObjectXk
Threading ural
Instancing:Multiple Instance
Active Server Type:Object Context
基于SQL Server的动态WEB开发实例
(6)单击“OK”按钮
(7)单击“”(Save All),单元名为“”,对象名为“ASPObjectXk”。
(8)通过菜单命令【View】→【Type Library】,出现如图16-2-4所示对话框,右击“IASPObjectXk”,在弹出菜单中选择“New”下的“Method”。
(9)设置Method的名称,在如图16-2-5所示对话框中输入“ShowCourse”。
(10)单击“”按钮。
+对象
(1)在Delphi集成开发环境中通过菜单命令【Run】→【+ Objects】,出现如图16-2-6所示对话框。
(2)选中“AspObjectXk”,选择Install into