基于Delphi7.0和SQL Server2000的追溯表软件开发

维普资讯

第２３卷第１１期　

甘肃科技　

Ｇａｎｓｕ　Ｓｃｉｅｎｃｅ　ａｎｄ　Ｔｅｃｈｎｏｌｏｇｙ　

Ｖ　Ｚ．２３　Ｎ０．１１　

Ｎｏｖ．２００７　

２００７年１ｉ月　

基于Ｄｅｌ　ｐｈ　ｉ　７．０和ＳＱＬ　Ｓｅｒｖｅｒ２　０００的追溯表软件开发　

王妍妍，孙素静　

（兰州大学信息科学与工程学院，甘肃兰州７３００００）　

摘要：使用Ｄｅｌｐｈｉ　７．０开发数据库应用程序的一个难点就是连接数据库。只要掌握了正确连接　

数据库的方法，就能保证开发的质量。文章主要论述了使用Ｄｅｌｐｈｉ　７．０和ＳＱＬ　Ｓｅｒｖｅｒ　２０００开发．　

数据库应用程序时，使用Ｄｅｌｐｈｉ　７．０访问机制ＡＤＯ作为连接应用程序和数据库的桥梁，来完成软≯　

件的开发。并且针对开发过程中遇到的两个问题，给出了解决方案。　

关键词：ＢＤＥ；ＡＤＯ；０ＬＥ　ＤＢ；远程数据服务；高层接口；　

中图分类号：ＴＰ３１５　

一　

由Ｂｏｒｌａｎｄ公司开发的Ｄｅｌｐｈｉ是Ｗｉｎｄｏｗｓ环　

ＯＬＥ　ＤＢ（数据库上的对象链接和嵌入）数据存取技　

境下功能强大的、面向对象的完全可视化的应用程　

序开发工具，尤其适合开发基于当前最流行的客户　

机／ＩＲ务器数据库的应用软件，这主要表现在数据库　

应用程序设计上的高可视化和高面向对象性。Ｄｅｌ—　

术，能屏蔽数据访问的复杂性，高效访问各种数据　

库。ＯＬＥ　ＤＢ是一种普通和简化了的基于ＣＯＭ的　

数据访问规则和ＡＰＩ（应用程序编程接Ｅ１）函数的集　

合，它被设计成对立于数据库的结构，驱动程序　

ｐｈｉ　７．０版本在数据库应用程序设计方面实现了从　

本地数据库到客户机／ＩＲ务器数据库的平滑升级，支　

持多种数据结构——从客户机／Ｎ务器模式到多层　

ＯＬＥ　ＤＢ　Ｐｒｏｖｉｄｅｒ可以通过ＯＬＥ　ＤＢ与任何数据存　

储建立链接，这样可是使用户更加方便的访问各种　

类型的数据库。　

概括地说，使用ＡＤＯ具有如下好处：　

（１）因为ＡＤＯ直接使用ＡＰＩ函数，所以易于使　

数据结构模式，采用了高效的数据库管理系统，以及　

更先进的数据库引擎。开发的数据库应用程序只有　

和数据库建立连接，才能存取数据库中的数据，在本　

追溯表开发实例中，使用Ｄｅｌｐｈｉ　７．０的ＡＤＯ和　

ＳＱＬ　Ｓｅｒｖｅｒ　２０００数据库建立连接，并给出了开发　

过程中遇到的两个问题的解决方法。　

用、速度快、占用内存小和低磁盘空间支出，此外，　

ＡＤＯ适用范围广，升级和维护比较方便。　

（２）支持基于Ｗｅｂ应用开发。ＡＤＯ的应用范　

围涵盖了基于Ｗｅｂ的数据驱动解决方案。　

（３）支持远程数据服务ＲＤＳ（Ｒｅｍｏｔｅ　Ｄａｔａ　

Ｓｅｒｖｉｃｅ）功能。即：通过ＲＤＳ可以在一次往返过程　

１　Ｄｅｌｐｈｉ　７．０访问ＳＱＬ　Ｓｅｒｖｅｒ　２０００数据库　

的基本原理　

Ｄｅｌｐｈｉ应用程序不能直接访问数据库中的数　

据，但可以使用Ｄｅｌｐｈｉ提供的数据引擎来对数据资　

源进行访问，Ｄｅｌｐｈｉ附带的数据引擎有ＢＤＥ、ＡＤＯ　

（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔ，ＡｃｔｉｖｅＸ数据对象）、ｄｂＥｘ—　

ｐｒｅｓｓ和平面文件访问机制，在本开发实例中，用的　

是ＡＤＯ访问机制来连接ＳＱＬ　Ｓｅｒｖｅｒ　２０００数据库。　

ＡＤＯ访问机制是Ｍｉｃｒｏｓｏｆｔ公司为了、解决通　

中实现将数据从服务器移动到客户端或Ｗｅｂ页上，　

等到客户端或Ｗｅｂ页上的数据做了修改以后，再将　

更新结果回传到服务器上。　

基于ＡＤＯ的应用程序可以是单层或多层的，　

比如。使用ＡＤＯ访问本地数据库（Ｄｂａｓｅ、或．Ｆｏｘ—　

Ｐｒｏ）的程序总是单层的，使用ＡＤＯ访问ＳＱＬ　Ｓｅｒｖ—　

ｅｒ　２０００数据库的程序总是两层的，这是因为ＳＱＬ　

Ｓｅｒｖｅｒ　２０００是一个远程数据库系统，数据库系统通　

用企业数据库存取需求所推出的一套功能强大且易　

于操作的数据库访问规范，是一种对多种数据格式　

高层接Ｅｌ（ｈｉｇｈｔ—ｌｅｖｅｌ　ｉｎｔｅｒｆａｃｅ）。ＡＤＯ对数据库　

的存取操作是通过ＯＬＥ　ＤＢ或ＯＤＢＣ驱动程序访　

问数据库来实现的，ＡＤＯ在ＣＯＭ（Ｃｏｍｐｏｎｅｎｔ　Ｏｂ—　

ｊｅｃｔ　Ｍｏｄｅ１）基础上。以ＡｃｔｉｖｅＸ控件的形式封装了　

常存放在一个远程专用的ＳＱＬ服务器上。通过　

ＡＤＯ连接数据库有两种方法，第一种是使用　

ＴＡＤＯＣｏｎｎｅｃｔｉｏｎ组件建立与数据库的连接，其他　

数据集组件的Ｃｏｎｎｅｃｔｉｏｎ属性设置为ＡＤＯＣｏｎ－　

ｎｅｃｔｉｏｎ组件的名字，这样可以使多个组件共用一个　

连接，从而便于对连接提供更多更强大的控制，设置　

维普资讯

第１１期　王妍妍等：基于Ｄｅｌｐｈｉ７．０和ＳＱＬ　Ｓｅｒｖｅｒ２０００的追溯表软件开发　４１　

也方便简捷。第二种是直接使用ＡＤＯ数据集组件　

或ＴＡＤＯＣｏｍｍａｎｄ组件连接到数据库。在本实例　

中使用第一种方法来连接数据库。　

在Ｄｅｌｐｈｉ下，直接通过ＡＤＯ组件可以访问包　

括本地数据库和远程数据库在内的几乎所有的数据　

库，工作流程如下：　

Ｉ数据域感组件：ＴＤＢＥｄｉｔ、ＴＤＢ，Ｇｒｉｄ、ＴＤＢＭｅｍ。、ＴＤＢＣｈａｎ　ｌ　

数据源组件：．Ｔｌ￣ｏｌ／Ｔｇｅ　

ｌ　ＡＤＯ．￣：ＴＡＤＯＴａｂｌｅ、ＴＡＤＯＱｕｅ　、ＴＡＤＯＤａｔａＳｅＩ、ＴＡＤＯＳｔＤ『ｅＰｒｏ￣　ｌ　

１．　．ＯＬＥ　ＤＢ（￣Ｊ：　对蒙链接和嵌入）　。　ｌ　应用程序　

Ｉ　ＯＤＢＣＡＰＩ．Ｉ　毅据库　

●　，　

远程数据库：ＳＱＬ　Ｓｅｒｖｅｒ、　本地数据库：Ｄｂａｓｅ、　其他数据格式：Ｅｍｉｌ、ＸＭＬ、　

ＤＢ２、Ｏｒａｃｌｅ等　ＦｏｘＰｒｏ、Ａｃｃｅｓｓ等　文本、声音、电影、图形等　

２开发中遇到的问题及解决方法　

本设计实例追溯表的主要功能是对企业的商品　

及零配件的信息以及维护维修记录进行登记和管　

理。追溯表的主要功能模块如下图所示：　

按照需求，建立ＳＱＬ数据库Ｗａｒｅ，创建７张表　

●　

进行数据的设计和存储，分别是用户信息表（Ｕｓｅ—　

ｒｌｎｆｏ）、商品信息表（ＷａｒｅＤａｔａ）、整机包含部件信息　

表（Ｃｏｎｔａｉｎ　Ｆｉｔｔｉｎｇｓ）、客户信息表（Ｂｕｙｅｒｌｎｆｏ）、所购　

物品表（ＢｏｕｇｈｔＧｏｏｄｓ）、维修记录表（Ｖｉｎｄｉ—　

ｃａｔｅＮｏｔｅ）、更换记录表（ＣｈａｎｇｅＮｏｔｅ）。　

本实例连接ＳＱＬ　Ｓｅｒｖｅｒ　２０００数据库的连接字　

符串如下：　

Ｐｒｏｖｉｄｅｒ＝ＳＱＬＯＬＥＤＢ．１；　

Ｐａｓｓｗｏｒｄ＝　＋Ｔｒｉｍ（Ｅｄｉｔ２．Ｔｅｘｔ）＋　；／／登录　

界面的“密码”框　

Ｐｅｒｓｉｓｔ　Ｓｅｃｕｒｉｔｙ　Ｉｎｆｏ＝Ｔｒｕｅ；　

Ｕｓｅｒ　ＩＤ＝　＋Ｔｒｉｍ（Ｅｄｉｔ１．Ｔｅｘｔ）＋　；／／登录界　

面的“用户名”框　

Ｉｎｉｔｉａｌ　Ｃａｔａｌｏｇ＝Ｗａｒｅ；　

Ｄａｔａ　Ｓｏｕｒｃｅ＝　＋Ｔｒｉｍ（Ｅｄｉｔ３．Ｔｅｘｔ）＋　；／／登　

录界面的“服务器名”框　

Ｕｓｅ　Ｐｒｏｃｅｄｕｒｅ　ｆｏｒ　Ｐｒｅｐａｒｅ＝１；　

Ａｕｔｏ　Ｔｒａｎｓｌａｔｅ＝Ｔｒｕｅ；　

Ｐａｃｋｅｔ　Ｓｉｚｅ＝４０９６；　

Ｕｓｅ　Ｅｎｃｒｙｐｔｉｏｎ　ｆｏｒ　Ｄａｔａ＝Ｆａｌｓｅ；　

Ｔａｇ　ｗｉｔｈ　ｃｏｌｕｍｎ　ｃｏｌｌａｔｉｏｎ　ｗｈｅｎ　ｐｏｓｓｉｂｌｅ：＝　

Ｆａｌｓｅ；　

２．１错误：未与信任ＳＱＬ　Ｓｅｒｖｅｒ连接相关联　

设置管理员和普通用户的用户名和密码，连接　

好数据库以后，当尝试使用ＳＱＬ　Ｓｅｒｖｅｒ登录连接　

到ＳＱＬ数据库Ｗａｒｅ时，可能出现以下错误信息：　

用户　ｕｓｅｒ　登录失败。原因：未与信任ＳＱＬ　

Ｓｅｒｖｅｒ连接相关联。　

出现这个错误的原因是在安装Ｍｉｃｒｏｓｏｆｔ　ＳＱＬ　

Ｓｅｒｖｅｒ　２０００时，未设置ＳＱＬ　Ｓｅｒｖｅｒ登录认证模式　

为混合认证模式，而ＳＱＬ　Ｓｅｒｖｅｒ默认安装后是　

Ｗｉｎｄｏｗｓ认证模式，因此用户无法使用ＳＱＬ　Ｓｅｒｖｅｒ　

的登录账户进行连接，从而导致出错。　

解决方案：这并不需要重新安装ＳＱＬ　Ｓｅｒｖｅｒ　

２０００，只需要在ＳＱＬ　Ｓｅｒｖｅｒ　２０００中的安全身份验　

证模式更改为“ＳＱＬ　Ｓｅｒｖｅｒ和Ｗｉｎｄｏｗｓ”即可。步　

骤：打开ＳＱＬ　Ｓｅｒｖｅｒ企业管理器；选择要更改认证　

模式设置的服务器，右击该服务器，选择“编辑ＳＱＬ　

Ｓｅｒｖｅｒ注册属性”，然后在对话框中选择“使用ＳＱＬ　

Ｓｅｒｖｅｒ身份验证”；如果还不行，那在弹出菜单中选　

择“属性”，ＳＱＬ　Ｓｅｒｖｅｒ弹出属性对话框，在属性对　

话框中选择“安全性”选项，在身份验证处选择“ＳＱＬ　

Ｓｅｒｖｅｒ和Ｗｉｎｄｏｗｓ”，其他不变，然后单击“确定”；　

当提示重新启动ＳＱＬ　Ｓｅｒｖｅｒ服务时，单击“是”。　

如果仍然无法连接ＳＱＬ　Ｓｅｒｖｅｒ，这是在ＳＱＬ　

Ｓｅｒｖｅｒ中有缺省的登录账户（如ｕｓｅｒ），要恢复缺省　

的账户，步骤：打开企业管理器，展开服务器组，展开　

服务器；展开安全性，右击“登录”，然后单击“新建登　

录”；在“名称”框中，输入ｕｓｅｒ，在“身份验证”处选择　

“ＳＱＬ　Ｓｅｒｖｅｒ身份验证”；在“服务器角色”选项卡　

中，选择“Ｓｙｓｔｅｍ　Ａｄｍｉｎｉｓｔｒａｔｏｒｓ”；在“服务器访问”　

选项卡中选择此登录可以访问的数据库Ｗａｒｅ；单击　

“确定”。可以使用同样的方法添加其他的用户名登　

录。　

２．２登录远程ＳＱＬ数据库　

开发基于客户机／服务器数据库的应用软件时，　

维普资讯

４２　甘肃科技　第２３卷　

本地能连通服务器，但是在客户机连接远程服务器　

时，却出现无法登录远程ＳＱＬ数据库的连接错误。　

法连通，则检查上面的各步。　

（４）检查客户端设置：在客户端的ＭｉｃｒＯｓ￣ｔ　

ＳＱＬ　Ｓｅｒｖｅｒ中的客户端网络实用工具里面，确保客　

户端启用ＴＣＰ／ＩＰ协议，以及默认端口是１４３３。　

（５）在查询分析器做连接测试。在Ｍｉｃｒｏｓｏｆｔ　

这是因为在连接本地服务器时，通常使用的是命名　

管道协议，默认端口是４４５，这在ＳＱＬ　Ｓｅｒｖｅｒ　２０００　

的服务器网络实用工具可以看到启动了这个协议。　

而连接远程服务器使用完全不同的协议，远程连接　

要使用ＴＣＰ／ＩＰ协议，默认端口是１４３３，这也可以　

在服务器网络实用工具启动的协议里面查看是否启　

用。　

ｓＱＬ　Ｓｅｒｖｅｒ的查询分析器中，单击工具栏上的“文　

件”中的“连接”，出现连接对话框，输人服务器名，并　

选择ＳＱＬ　Ｓｅｒｖｅｒ身份验证，点“确定”，就可以连通　

了。通过企业管理器连接远程ＳＱＬ　Ｓｅｒｖｅｒ的默认　

要解决无法登录远程ＳＱＬ数据库这样的连接　

错误，可以按如下方案解决：　

（１）确保服务器端启用了ＳＱＬ　Ｓｅｒｖｅｒ　２０００服　

务和ＴＣＰ／ＩＰ协议，并确保启用的ＴＣＰ／ＩＰ协议属　

超时设置是１５秒，但是可以在工具菜单中的“选项”　

卡中的“连接”处修改默认连接超时。　

３　结束语　

本文在开发ｃ／ｓ模式的追溯表软件的基础上　

介绍了Ｄｅｌｐｈｉ　７．０访问ＳＱＬ　Ｓｅｒｖｅｒ　２０００的基本原　

性里面的默认端口是１４３３。要使防火墙对１４３３端　

口开放，也可在测试时直接关掉防火墙。　

（２）确保服务器端在１４３３端口侦听，检查的方　

法是：在服务器端单击“开始”，单击“运行”，输人　

“

理，并给出了开发过程中碰到的两个问题的解决方　

案。本追溯表软件现在已投人使用，使用情况良好，　

方便了公司管理商品及零配件维护、维修和跟踪。　

参考文献：　

ｃｍｄ”单击“确定”，在出现的命令行输人“ｎｅｔｓｔａｔ—　

，

ａｎ”

在出现的列表中有“ｔｃｐ　１２７．０．０．１　１４３３　ｌｉｓｔｅｎ—　

ｉｎｇ”这样的项，如果没有，则要给ＳＱＬ　Ｓｅｒｖｅｒ　２０００　

打上ｓｐ３补丁。其实启动查询分析器，输人ｓｅｌｅｃｔ　

＠＠ｖｅｒｓｉｏｎ，执行后就可以看到版本号，版本号在　

［１３　肖庆航，陆定淑等．Ｄｅｌｐｈｉ　７数据库开发教程［Ｍ］．北　

京：清华大学出版社，２００４　

Ｅ２３　张增强，刘成．Ｄｅｌｐｈｉ　７数据库开发完全手册［Ｍ］．北　

京：清华大学出版社，２００３　

８．０．２０３９下的都需要打补丁。　

（３）在服务器端做ｔｅｌｎｅｔ测试，同样在上面的命　

令行中输人“ｔｅｌｎｅｔ　ｉｐ　１４３３”，看能否连通。如果无　

ｕ●…・●…

［３］丁明海，武俊虎．基于Ｃ／Ｓ结构的配件寿命管理信息　

系统ＥＪ］．甘肃科技，２００６，２２，３：６２—６３，１０１　

－●…・●…－●…・●…－●…・●…・●…－●…・●…－●…・●…－●－・・・●…－●…・●…・●…・●…－●…・●…・●…－●…－●…・●…・●…－●…－●…・●…・●…－●…・●…・●…・●…・●…・●…・●…・●…－●…－●…－●…・●…●…・●…・●・・　

（上接第７４页）　

一

个页面传递的各种数据类型的值、表单数据等。　

页面数据代码如下：　

Ｓｅｒｖｅｒ．Ｔｒａｎｓｆｅｒ（“ｄｅｓｔｉｎａｔｉｏｎＷｅｂＦｏｒｍ．ａｓ－　

７　结语　

以上是作者通过实践总结出的五种Ａｓｐ．ｎｅｔ　

页面参数传递的方法，对一般Ａｓｐ．ｎｅｔ使用者来说　

ｐｘ”，“ｆａｌｓｅ”）。　

在目的页面中，使用Ｃｏｎｔｅｘｔ．Ｈａｎｄｌｅｒ来接收　

数据，代码如下：　

ＦｏｒｍｅｒＰａｇｅ　ｆｏｒｍｅｒＰａｇｅ一

Ｃｏｎｔｅｘｔ．Ｈａｎｄｌｅｒ；　

使用Ｑｕｅｒ￣Ｓｔｒｉｎｇ实现参数传递最简单最常用的方　

（ＦｏｒｍｅｒＰａｇｅ）　

法；然而根据需要选择合适的参数传送方法会使开　

发出的动态网站更安全、更高效。也使得开发动态　

网站更加容易。　

参考文献：　

然后用ｆｏｒｍｅｒＰａｇｅ的属性和方法来获取前一　

个页面的值，或者用Ｃｏｎｔｅｘｔ．Ｉｔｅｍｓ［“ｍｙＰａｒａｍｅｔｅｒ　

”］直接获取前一个页面的值。需要注意的是获取这　

些值必须在新的页面首次加载时，才能正确获取上　

一

［１］龚赤兵．ＡＳＰ．ＮＥＴ　２．０网站开发实例教程［Ｍ３．北京：　

人民邮电出版社，２００６．７　

页面的各种数据类型或是控件的值；如果在以后　

［２３　马军．精通ＡＳＰ．ＮＥＴ　２．０网络应用系统开发［Ｍ］．北　

京：人民邮电出版社，２００６．６　

［３３　ｈｔｔｐ：／／ｂｌｏｇ．ｃｎｂｉｅ．ｃｏｍ／ｂｌｏｇ　５２１０５．ｈｔｍｌ　

［４３　ｈｔｔｐ：／／ｓａｄｉｅｒ．ｃｎｂｌｏｇｓ．ｔｏｍ／ａｒｔｉｃｌｅｓ／４８２９９．ｈｔｍｌ　

［５３　ｈｔｔｐ：／／ｄｉｇｅｓｔ．ｑｑ．ｔｏｍ／ｃｇｉ—ｂｉｎ／ｗｅｎｊｉ—ｃｏｎｔｅｎｔ．？ｉ＇ｄ＝　

５１　７５Ｒ１　

的ｐｏｓｔｂａｅｋ时，就无法获取上一页面的各种数据类　

型或是控件的值了，因为此时得到的是当前页面的　

实例；所以需要在新页面（ｄｅｓｔｉｎａｔｉｏｎＷｅｂＦｏｒｍ．ａｓ—　

ｐｘ）的Ｐａｇｅ—Ｌｏａｄ（）事件中使用ｉｆ（！ＩｓＰｏｓｔＢａｃｋ）把　

获取前一个页面的值的代码包含起来，才能获得前