用Delphi 6开发基于Web成绩查询系统.docVIP

用Delphi 6开发基于Web的成绩查询系统 [日期：2006-05-20] 来源：? 作者： [字体：大 中 小] 刘利强 ???? ? 摘? 要：本文介绍了用SQL Server7.0建立数据库，以Delphi6.0作为开发平台，利用WebSnap技术来开发基于Web的学生成绩查询系统设计方法和步骤。 关键词：Web，Websnap，Delphi，数据库，IIS ? 1、引言 Web服务器应用程序是电子商务系统中必不可少的一部分。WebSnap是Borland公司在Delphi6中最新推出的一种开发Web服务器应用程序的技术。WebSnap允许程序员使用组件和可视化的方式快速开发复杂的Internet/Intranet应用系统。WebSnap的特点是允许程序员直接在这些组件之中加入脚本语言的能力，并且能够直接在Delphi的整合发展环境中撰写脚本语言，预览Web应用程序的输出结果，以及Web应用程序产生的HTML程序代码。此外，WebSnap已经制作的许多服务组件，如处理图形、上传档案、登录和注销等可以让程序员直接使用。WebSnap向导程序员建立不同的Web应用程序。程序员如果能够结合WebSnap和Delphi的数据库能力以及COM+的功能，能够开发出威力十足的Web应用系统。我们开发的成绩查询系统就是以支持分布式C/S体系结构的SQL Server7.0数据库系统创建网络数据库，以Delphi6.0作为开发平台，利用WebSnap技术来进行开发的。 2、WebSnap响应过程 一个Web服务器应用程序接受来自Web服务器的HTML请求消息,，并对这些消息做出响应，然后返回给Web服务器。WebSnap响应请求过程如图1所示。  图1? WebSnap响应请求过程示意图 3、实现步骤 3.1新建数据库 首先启动“Microsoft SQL Server”打开“Enterprise Manager”，在“Database”中建立名为“成绩库”的数据库，并在其下建立名为“成绩表”的数据表，随后向里面添加学生成绩，并建立一个user用户。 3.2新建项目 (1)启动Delphi6.0，在Delphi6.0菜单中选择File→New→Other。 (2)在弹出的“New Items”对话框中，选中WebSnap页面并选中WebSnap Application，然后确认。 (3)在弹出“New WebSnap Application”对话框中，选择Server类型为“ISAPI/NSAPI Dynamic Link Library”类型，在“Application Module Components”中选择“Page Module”, 单击“Components”按钮，在弹出的“Web App Components”窗口中将“Application Adapter”、“End User Adapter”、“Page Dispatcher”、“Adapter Dispatcher”、“Sessions Service”、“User List Service”勾上，注意在“End User Adapter”下拉框中选择“TEndUserSessionAdapter”组件，其它选默认值，单击“OK”按钮关闭“Web App Components”窗口，在Page Name项中填入“Main”后，单击“OK”按钮完成了新建WebSnap应用程序的工作。 (4)单击Delphi主窗口工具栏中的“Save All”按钮保存新建的项目。各个文件命名如下：Unit.pas为UMain.pas；Project1.dpr为cj.dpr。 3.3建数据模块 (1)在Delphi6.0菜单中选择File→New→Other。 (2)在弹出的“New Items”对话框中，选中WebSnap页面并选中WebSnap Data Module，然后确认。 (3)在弹出的“New WebSnap Data Module”窗口中保持缺省值不变，单击“OK”按钮，新建一个WebSnap数据模块。 (4)在数据模块中增加数据集组件。选择组件面板的“ADO”标签页，从中选择“ADOConnection”和“ADOTable”组件加入到数据模块中。单击ADOConnection1控件，在“Object Inspector”窗口中单击Connectionstring属性右边的省略号，在窗口中单击“Build”按钮，在“数据连接属性”窗口中选择数据驱动Microsoft OLE DB Provider for SQL Server，然后单击下一步按钮，在“连接”页面中，输入前面创建了成绩库的服务器名称（如：win2000）、用户名称为user及用户密码，选择数据库