基于Delphi的通用查询模块的设计与实现

合集下载

Delphi通用自定义数据查询

s := ‘学员证件号码,fcode,字符,学员准考证号,fexam,字符,缴款日期,fdate,日期,缴款金额,famount,数值‘;
iform.ListView1.Clear;
while trim(s) <> ‘‘ do
begin
myitem := iform.ListView1.Items.Add; //添加多个条件值必须复制本句
……
Delphi通用自定义数据查询(D6SQL2000)，通用查询设计,有三个通用查询设计方案，可以通过自定义建立SQL查询语句完成用户需要的查询数据要求。调用示orm, iform);
//以下是将查询关键字添加到列表中,格式:关键字,数据库中字段名,类型(分字符、数值、日期),最后一个不要加豆号
s := ‘学员证件号码,fcode,字符,学员准考证号,fexam,字符,缴款日期,fdate,日期,缴款金额,famount,数值‘;
uses iunit; //还需要引用ComCtrls单元以供Tlistitem调用。
procedure TeForm.S1Click(Sender: TObject);
myitem.Caption := ‘ ‘; //空着
myitem.SubItems.Add(copy(s, 1, pos(‘,‘, s) - 1)); //条件值名称
s := copy(s, pos(‘,‘, s) + 1, length(s));
myitem.SubItems.Add(copy(s, 1, pos(‘,‘, s) - 1)); //条件值对应的数据库字段
var myitem: Tlistitem; i: integer; s: string;

基于Delphi语言开发图书索书号查询系统

进行排架。因此，照清单中所提供的书号和书名查按
找该图书并进行下架是不行的。唯一的办法就是首
个简易的索书号查询系统来自动完成这个繁琐且
重复的操作过程。可视化编程语言Ｄｌｉ．开发ｅｈ７０在ｐ数据库系统方面具有强大的优势．是当前主流编程
先确定这些图书的索书号，然后，按照索书号在书架上查找相应的图书并进行下架，这样做才是比较
科学的。
开发工具之一。故文章采用Ｄｅｈ７０编写程序来实ｌｉ．ｐ现这个工作。
目前，图书馆图书管理系统采用的是北邮图书系统，该系统提供了的检索功能。因此，图书馆尝
第２４卷第（）６期
２１０２年０６月
农业书情报学ＪｕｎｌｆｉｒｙａｄＩｆｒｔｎＳｉｎｅｒｕｔｒｏｒａｏｂａｎｎｏｍａｏｃｃｓｎＡｇｉｌｅＬｒｉｅｉｃｕ
Ｖｏ．４１，ＮＯ０２６
一
些近期采购清单上的图书需要下架。这些采购清
单中图书数据包括包号、书号、书名、数量、折扣、实样和码洋，以Ｅｃｌｘｅ文件类型保存。图书馆的图
书是按《中图法》（五版）进行分类，按索书号第
试地检索了几条记录。可能是由于网络不太稳定、

Delphi数据库的拼音检索（查询）方案

Delphi数据库的拼音检索（查询）方案Delphi数据库的拼音检索(查询)方案-汉字转换成拼音昨夜看到一篇文章，可以用Delphi将汉字->拼音，可是将拼音转换成汉字又该如何操作哪？我的数据库：通讯录软件缺少用拼音查找功能.结果，搞到12点还是无果！唉！中午找到输入拼音可以检索汉字，可是在数据库中怎样实现哪？2个小时，无果！今天实现:1.首先建立字库；2.检索：先从数据库读出所要查询字段所有记录，将其放入控件ListBox,再按照拼音检索需要的数据.实现是靠的迂回策略(读取数据库汉字->转换成拼音->依据拼音检索结果->实现数据库的拼音检索)，没找到直接在数据库查询，然后显示结果的方法，希望高人指点一二。

下面附上Code:1.字库Code:{//汉字拼音码检索对应的拼音字母}function GetCharInd(zzchar:string):char;begincase WORD(zzchar[1]) shl 8+WORD(zzchar[2]) of$B0A1..$B0C4:result:='A';$B0C5..$B2C0:result:='B';$B2C1..$B4ED:result:='C';$B4EE..$B6E9:result:='D';$B6EA..$B7A1:result:='E';$B7A2..$B8C0:result:='F';$B8C1..$B9FD:result:='G';$B9FE..$BBF6:result:='H';$BBF7..$BFA5:result:='J';$BFA6..$C0AB:result:='K';$C0AC..$C2E7:result:='L';$C2E8..$C4C2:result:='M';$C4C3..$C5B5:result:='N';$C5B6..$C5BD:result:='O';$C5BE..$C6D9:result:='P';$C6DA..$C8BA:result:='Q';$C8BB..$C8F5:result:='R';$C8F6..$CBF9:result:='S';$CBFA..$CDD9:result:='T';$CDDA..$CEF3:result:='W';$CEF4..$D188:result:='X';$D1B9..$D4D0:result:='Y';$D4D1..$D7F9:result:='Z';elseresult:=#0;end;end;2.查询实现部分:{汉字拼音码的检索}function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string; label NotFound;varzzchar :string;i,j:integer;beginfor i:=0 to ListBoxStr.Items.Count-1 dobeginfor j:=1 to Length(StrInd) dobeginzzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar))then goto NotFound;end;if result='' then result:=ListBoxStr.Items[i]else result:=result+#13+ListBoxStr.Items[i];NotFound:end;end;以下是Delphi7中 Unit单元的完整代码:{************************************************************** ******}{ *1.名称: SelectByPinYin 单元.*2.功能:本单元为此数据库程序的通过汉字拼音查询单元.*3.软件环境:Win98+Delphi7+AccessXp2002.*4.作者:Domain.*5.E-mail:******************6.制作日期:2008.04.15 }{********************************************************************}unit SelectByPinYin;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, NEOFORM, ComCtrls, MenuBar, T oolWin, ExtCtrls, StdCtrls, DBCtrls,Buttons;typeTSelectPY = class(TEDairyForm)Panel1: TPanel;Panel2: TPanel;Panel3: TPanel;Panel4: TPanel;ListBox2: TListBox;Edit1: TEdit;Label1: TLabel;Label2: TLabel;BitBtn1: TBitBtn;BitBtn2: TBitBtn;ListBox1: TListBox;Label3: TLabel;procedure FormCreate(Sender: TObject);procedure Edit1Change(Sender: TObject);procedure ListBox2Click(Sender: TObject);procedure ListBox1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varSelectPY: TSelectPY;getName:String;{函数在这里定义}function GetCharInd(zzchar:string):char;//汉字拼音码function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string; implementationuses DataMain;{$R *.dfm}{//汉字拼音码检索对应的拼音字母}function GetCharInd(zzchar:string):char;begincase WORD(zzchar[1]) shl 8+WORD(zzchar[2]) of$B0A1..$B0C4:result:='A';$B0C5..$B2C0:result:='B';$B2C1..$B4ED:result:='C';$B4EE..$B6E9:result:='D';$B6EA..$B7A1:result:='E';$B7A2..$B8C0:result:='F';$B8C1..$B9FD:result:='G';$B9FE..$BBF6:result:='H';$BBF7..$BFA5:result:='J';$BFA6..$C0AB:result:='K';$C0AC..$C2E7:result:='L';$C2E8..$C4C2:result:='M';$C4C3..$C5B5:result:='N';$C5B6..$C5BD:result:='O';$C5BE..$C6D9:result:='P';$C6DA..$C8BA:result:='Q';$C8BB..$C8F5:result:='R';$C8F6..$CBF9:result:='S';$CBFA..$CDD9:result:='T';$CDDA..$CEF3:result:='W';$CEF4..$D188:result:='X';$D1B9..$D4D0:result:='Y';$D4D1..$D7F9:result:='Z';elseresult:=#0;end;end;{汉字拼音码的检索}function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;label NotFound;varzzchar :string;i,j:integer;beginfor i:=0 to ListBoxStr.Items.Count-1 dobeginfor j:=1 to Length(StrInd) dobeginzzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar))then goto NotFound;end;if result='' then result:=ListBoxStr.Items[i]else result:=result+#13+ListBoxStr.Items[i];NotFound:end;end;{在 FormCreate 中,将联系人姓名加入 ListBox1}procedure TSelectPY.FormCreate(Sender: TObject);vari:integer;begininherited;with adodm.PersonName dobeginlistBox1.Clear;//用循环的方法加入for i:=0 to adodm.PersonName.RecordCount-1 dobeginself.ListBox1.Items.Add(adodm.PersonName.FieldByName('姓名').AsString);adodm.PersonName.Next;end;listBox1.Sorted:=true;adodm.PersonName.First;//DateSet指针指向第一条记录end;// edit1.SetFocus;end;//实现单击选择性名procedure TSelectPY.ListBox2Click(Sender: TObject);var xIndex:integer;begininherited;xIndex:=self.ListBox2.ItemIndex;//得到Item选项的Indexlabel3.Caption:=self.ListBox2.Items.Strings[xIndex];//从Index 得到 Text;getName:=self.ListBox2.Items.Strings[xIndex];end;{输入拼音查找汉字}procedure TSelectPY.Edit1Change(Sender: TObject);varSelStr:string;begininherited;SelStr:='';ListBox2.Items.Text:=DisByStrInd(listBox1,Edit1.Text);end;{单击选择}procedure TSelectPY.ListBox1Click(Sender: TObject);var nIndex:integer;begininherited;nIndex:=ListBox1.ItemIndex;ListBox2.Items.Text:=ListBox1.Items.Strings[nIndex];getName:=self.ListBox2.Items.Text;end;end.。

基于Delphi的通用查询模块的设计与实现

产生ｓＬＱ语句挂父膏ｑ一用
查询字段，关系运算符、多条件之问的逻辑关系等。⑤查询操作
表１要控件及说明主
－方便易用。询模块与其它模块间的调用简单。根据被查询字２２程序实现查 ⑥ 通用查询模块的主程序为函数ＰｂｉＱｅｙ（ａｅｔｏｉｕｌｕｒＰｔｎＦｒ：ｃｌｌ段，自动设置数据输入类型，检查数据输入合法性。能并１．２通用查询模块界面设计Ｔｏｍ；ａＳｔＴａＳｔｖｒｉｅｔｓｉｇ。其中参数ＰｒｔＦｒＤｔｅＤｔｅａｌｒｒｔｎ）ａ：ａ；ＦｔＳ：ｒａｅ．ｎ根据需求描述，面设计尽量使用户操作方便、询灵活。Ｆｒ是调用通用查询模块的父窗Ｅ．参数Ｄｔｅ是查询数据界查ｏｍ１ａａｔＳＦｌｒｔ是根据用户查询方案ｔ在实际运用中，条件查询的查询条件超过６种的比较少，以集，为通用查询模块提供数据源，ｉｅＳｒ多所我们在设计界面时保留６种查询条件的空间。如果超过６种．就而产生的ＳＬ查询语句，为返回值。Ｑ作．．要添加查询．查询条件的范围可以包括到整个数据库表中的所２２１主程序有字段。界面如图１。Ｓｔａｅａ（ａｅｔｏｍＮｍｅ／置查询方案名ｅＣｓＮｍｅｒｎＦｒ．ａ）／Ｐ；设Ｉｉｏｍ：／体初始化。ｎｔｒ／Ｆ窗

基于Delphi通用查询技术的实现

所不同，有时还需要保存这些频繁使用的检索条件。能够综合处理这些情况而形成的应用程序则会具有更加强大的生
命力，本文论述在Ｄｌｈ２０ｅｉ０７开发环境下的通用查询功能的实现技术。ｐ
关键词：ｅｈ；件；自定义；多功能查询Ｄｌｉ控ｐ中图分类号：ＰｌＴ３１文献标识码：Ａｄｉ０３６／．ｓ．０６２７．０１１．２ｏ：１．９９ｊｉｎ１０－５２１．２０８ｓ４
杨建平
（江苏省江阴中等专业学校，苏江阴２４３）江１４３摘要：应用程序功能设计的过程中，在通常需要设计数据记录查询功能。一般来说，查询因不同的数据集而体现不同的
检索条件和不同的结果集；时即使有相同的数据集，因应用需求、有但地点或者时间的不同，其检索条件和结果集也会有
计
２１年第１０１２期
算Leabharlann 机与现代化总第１６期９
ＪＵＮＩＹＩＮＡＨＡＩＡＪＵＸＡＤＩＵＳ
文章编号：０６２７（０）２０９－４１０－４５２１１－９０１０－
基于Ｄｌｈ通用查询技术的实现ｅｉｐ
ＲａｉｔｎｏｎｖｒａＱｕｒｅｈｏｏｙＢｓｄｏｌｈｅｌａｉｆｉｅｓｌｅｙＴｃｎｌｇａｅｎＤｅｉｚｏＵｐ
ＹＡＮＧＪａ —ｉｇｉｎｐｎ（ｉｎｙｐｃａｚｄＳｃｎａｃｏｌｏａｇｕＪｎｙｎ１４３ＣｉａＪｇｉＳｅｉｉｅｏｄｒＳｈｏｓｆｉｓ，ｉｇｉ２４３，ｈｎ）ａｎｌｅｙＪｎａ

一步步教你优化Delphi字串查找

一步步教你优化Delphi字串查找一步步教你优化Delphi字串查找本人在编写离线浏览器WebSeizer的过程中，用到大量字符串处理函数，这是很耗CPU的一个处理过程，为了编写出高效率的网页解析引擎，对优化代码作了一番研究。

1 、高精度的计时函数代码优化时需要用到精确的计时器。

常用的有GetTickCount函数，可以达到毫秒级的精度。

但还是很不够的，这时可以采用提高循环次数的办法。

另外，还有一个精度更高的定时——“高分辨率性能计数器”（high-resolution performance counter），它提供了两个API 函数，取得计数器频率的QueryPerformanceFrequency和取得计数器数值的QueryPerformanceCounter。

实现原理是利用计算机中的8253,8254可编程时间间隔定时器芯片实现的。

在计算机内部有三个独立的16位计数器。

计数器可以以二进制或二—十进制(BDC)计数。

计数器每秒产生1193180次脉冲，每次脉冲使计数器的数字减一，产生频率是可变的,用QueryPerformanceFrequency可以得到,一般情况下都是1193180。

QueryPerformance Counter可以得到当前的计数器值。

所以只要你的计算机够快，理论上精度可以达到1/1193180秒。

2 、代码优化实例下面以一个自定义的字符串函数的为例，说明代码优化过程。

Delphi提供的字符串函数里有一个Pos函数，它的定义是：function Pos(Substr: string; S: string): Integer;它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。

在本人编写WebSeizer软件（天空软件站有下载）过程中，Pos 已经不能满足要求。

一方面：在处理网页中的字符串时，要求对大小写不敏感，即< h t m l > 和<HTML>代表的含义完全一样。

基于Delphi7的通用数据查询模块设计与实现

Ｉｐｅｅｔｔｏｍｌｍｎａｉｎ
ＳＨＩＦｅｇｎ
（ｉｉｇＰｂｉＳｃｒｙＢｒｅｅｅｓｏｐｆｒｔｎＣｎｅ，ｒｍｑ３０１ＸｎａｕｌｅｕｉｏｄｒｆｎｅＣｒｓｎｏｍａｉｅｔｒＵｕｉ８００）ｊｎｃｔＤＩｏ
了程序的代码量，降低了软件开发和维护成本，提高了软件
开发效率，而开发出的软件也十分灵活和高效。
２开发环境选择
Ｄｌｈ是Ｂｒｎ司强力推出的基于Ｗｉｄｗ视窗的可ｅｉｐｏａｄ公ｌｎｏｓ
视化编程环境，它采用了弹性可复用的面向对象编程语言，可在短时间内快速开发出功能强大的数据库应用程序，被业界赞
ＮＬＵＬＮＬＵＬ
字段中文名字段名
ＶｑｓｉｇＣｓｒｔｉｒａｓｌｔｎ，Ｓｔ：ｓｒｎｇ；ｒ
— —
ｄｓａｎｍｃａｉｌａｅｈｒｐｙ
Ｆｅｄｙｅｉｔｌｐｓｘｆｘｃａｈｒｃａｈｒ
ＮＬＵＬ
ｅｔｘｉ；ｅｄ；ｎ
ＡＤＯｐｂｃＦｒｔｕｌ．ｉｓ；ｅｄｎ；
表１数据表结构
列名
ｉｄ
ｔｂｅａａｌｎｍｅ
ｅｄｎ；
３３３写通用查询窗体 “ ．－编开始查询”按钮单击事件
数据类型
ｍｔ
ｃａｈｒ
可否为空
说明
用户单击 “ 开始查询”按钮，当输入的查询条件正确时，通用查询模块根据查询条件自动在数据表中进行检索，并将符合条件的数据记录放在控件 “ ＢｒＥ ”中进行显示，核ＤＧｉｈｄ

Delphi中进行复杂查询的通用方法

if Val <>＇<所有>＇ then
SQL.Add(Format(＇%s = ＇＇%s＇＇＇,[FieldName,Val]));
end;
对于日期型字段，
procedure GetSql(SQL:TStrings;FieldName:String;dFrom,dTo:TDateTime);
begin
if Conditions.Count=0 then Exit;
temp:=TStringList.Create;
temp.AddStrings(Conditions);
temp[0]:=＇WHERE ＇+temp[0];
for i:=1 to temp.Count-1 do
procedure TDM.InitComboBox(FieldName, TableName: String; Cb: TComboBox);
var
Qry:TQuery;
begin
Qry:=TQuery.Create(self); //动态创建Query
Qry.DatabaseName:=Database1.DatabaseName;
三、小结
通过以上一些步骤，就可以完成复杂的查询工作。其中关键函数，InitComboBox、RefreshQuery、DelConditions、AddConditions、GetFieldName、AddOrder可以放在DataModule中供所有数据库窗体共享，而且对所有不同的数据库的查询来说是通用的，可以在不同的数据库系统中复制，不用修改。而GetSql重载函数可能根据不同的数据库系统有细微的差别。
while not Qry.Eof do

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

基于Ｄｅｌｐｈｉ的通用查询模块的设计与实现周飞１，胡众义２（１．温州大学现代教育中心浙江温州３２５０００２．温州大学计算机科学与工程学院浙江温州３２５０００）【摘要】：本文提供了基于Ｄｅｌｐｈｉ下的通用查询模块，给出了其设计原理及实现的主要技术。

该模块操作简单，用户可自定义查询，调用方便，并在多个ＭＩＳ中得到有效的应用。

【关键词】：通用；查询；面向对象开发环境０．前言目前管理信息系统中一个很重要的功能是查询。

查询模块的设计是整个系统设计的关键。

在以往的开发中，大多采用将查询静态地封装在系统内部，当查询需求发生变动时，对系统进行修改维护，然而用户对查询的需求往往是不断变化的，频繁的需求变动势必造成频繁地修改系统，使得维护的工作量及成本大大增加，因此设计开发支持用户自定义查询功能的通用查询模块，不仅能缩短系统的开发周期，而且易于维护。

本文使用Ｄｅｌ－ｐｈｉ设计，针对用户的需求，设计一个操作方便、查询高效的通用查询模块。

１．通用查询模块设计本模块的设计思想是根据用户自定义的各种查询条件，产生相应的ＳＱＬ语句供其它模块调用。

１．１需求描述①用户可自定义查询，选择数据库表中的任一字段作为查询字段。

②用户可任意的组合查询字段进行多条件查询。

③可按任一选定的字段进行排序。

④查询方案能保存，供下次查询使用，并且能进行修改、删除等操作。

查询方案包括：查询方案名、查询字段，关系运算符、多条件之间的逻辑关系等。

⑤查询操作方便易用，查询模块与其它模块间的调用简单。

⑥根据被查询字段，能自动设置数据输入类型，并检查数据输入合法性。

１．２通用查询模块界面设计根据需求描述，界面设计尽量使用户操作方便、查询灵活。

在实际运用中，多条件查询的查询条件超过６种的比较少，所以我们在设计界面时保留６种查询条件的空间。

如果超过６种，就要添加查询，查询条件的范围可以包括到整个数据库表中的所有字段。

界面如图１。

图１查询模块界面界面说明如下：①【方案】：此次查询方案以ＸＭＬ（可以扩展的标记语言）存储。

②【另存为】：保存此次查询方案，供下次查询使用。

③【删除】：删除被选择的查询方案。

④【添加查询】：当查询条件超过６种时，增加查询条件。

⑤【关系】：多种查询条件之间的逻辑关系，包括＂且＂、＂或＂等逻辑运算符。

⑥【字段】：查询字段，数据表中的所有字段都可以作为查询字段。

⑦【比较】：查询字段与用户输入的数值之间的关系。

⑧【数值】：用户根据查询字段而输入的查询内容。

⑨【确定】：根据用户自定义的查询方案产生并返回ＳＱＬ语句，供其它模块调用。

⑩【排序字段】：选择查询中的某一字段进行排序。

⑾【清除所有】：清空被选中的查询方案。

２．通用查询模块实现把查询字段名转换为数据库中对应的字段名，比较运算符、逻辑运算符转换为ＳＱＬ中的相应符号，设置数据输入类型，数据输入合法性的检查等是实现本模块的主要技术。

２．１主要控件及说明本模块中使用的主要控件及说明见表１表１主要控件及说明２．２程序实现通用查询模块的主程序为函数ＰｕｂｌｉｃＱｕｅｒｙ（ＰａｒｅｎｔＦｏｒｍ：ＴＦｏｒｍ；ＤａｔａＳｅｔ：ＴＤａｔａＳｅｔ；ｖａｒＦｉｌｔｅｒＳｔｒ：ｓｔｒｉｎｇ）。

其中参数Ｐａｒｅｎｔ－Ｆｏｒｍ是调用通用查询模块的父窗口，参数ＤａｔａＳｅｔ是查询数据集，为通用查询模块提供数据源，ＦｉｌｔｅｒＳｔｒ是根据用户查询方案而产生的ＳＱＬ查询语句，作为返回值。

２．２．１主程序ＳｅｔＣａｓｅＮａｍｅ（ＰａｒｅｎｔＦｏｒｍ．Ｎａｍｅ）；／／设置查询方案名。

ＩｎｉｔＦｏｒｍ；／／窗体初始化。

ＣｒｅａｔｅＦｉｅｌｄＤａｔｅＳｅｔ（ＤａｔａＳｅｔ）；／／创建字段数据集。

ＧｅｔＦｉｌｔｅｒＳｔｒ；／／产生ＳＱＬ语句。

２．２．２窗体初始化ＡｄｄＲｅｌａｔｉｏｎＬｉｓｔ（）；／／添加逻辑运算符。

ＡｄｄＣｏｍｐａｒｅＬｉｓｔ（）；／／添加关系运算符。

ＲｅｌａｔｉｏｎＣｏｍｂｏＢｏｘ１．ＫｅｙＶａｌｕｅ：＝＇ａｎｄ＇；ＲｅａｄＱｕｅｒｙＣａｓｅ；／／／／读取方案。

……／／将关系、字段、比较的下拉框存到数组中。

２．２．３设置输入类型当用户选择不同的查询字段，根据查询字段的数据类型自动设置数据输入类型。

输入的数据类型有数字、字母、时间等等。

比如当查询字段为数字型，则要禁止字母等其他数据类型的输入。

通过过程ＳｅｔＩｎｐｕｔＴｙｐｅ（ＦｉｅｌｄＣｏｍｂｏＢｏｘ：ＴＤＢＬｏｏｋｕｐＣｏｍ－ｂｏＢｏｘ；ｖａｒＫｅｙ：Ｃｈａｒ；Ｔｅｘｔ：ｓｔｒｉｎｇ）来实现。

关键代码如下：ＦｉｅｌｄＣＤＳ．Ｌｏｃａｔｅ（＇ＦｉｅｌｄＮａｍｅ＇，ＦｉｅｌｄＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ，［］）；／／取查询字段名ｃａｓｅＴＦｉｅｌｄＴｙｐｅ（ＦｉｅｌｄＣＤＳ．ＦｉｅｌｄＢｙＮａｍｅ（＇ＦｉｅｌｄＴｙｐｅ＇）．Ｖａｌｕｅ）ｏｆｆｔＤａｔｅ，ｆｔＴｉｍｅ，ｆｔＤａｔｅＴｉｍｅ：／／时间ｉｆｎｏｔ（Ｋｅｙｉｎ［＇０＇．．＇９＇，＇．＇，＇－＇，＇：＇，＇＇，＃１３，＃１０，＃８］）ｔｈｅｎＫｅｙ：＝＃０；ｆｔＳｍａｌｌｉｎｔ，ｆｔＩｎｔｅｇｅｒ，ｆｔＷｏｒｄ：／／整数ｉｆｎｏｔ（Ｋｅｙｉｎ［＇０＇．．＇９＇，＃１３，＃１０，＃８］）ｔｈｅｎＫｅｙ：＝＃０；ｆｔＦｌｏａｔ，ｆｔＣｕｒｒｅｎｃｙ，ｆｔＢＣＤ：／／实数ｉｆ（Ｐｏｓ（＇．＇，Ｔｅｘｔ）＜＝０）ｔｈｅｎｉｆｎｏｔ（Ｋｅｙｉｎ［＇０＇．．＇９＇，＇．＇，＃１３，＃１０，＃８］）ｔｈｅｎＫｅｙ：＝＃０（下转第１５７页）（上接第１５１页）!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ｅｌｓｅｉｆｎｏｔ（Ｋｅｙｉｎ［＇０＇．．＇９＇，＃１３，＃１０，＃８］）ｔｈｅｎＫｅｙ：＝＃０；ｅｎｄ；２．２．４检查输入合法性用户输入查询内容时，程序要自动检测输入的合法性，使用函数ＣｈｅｃｋＩｎｐｕｔＤａｔａ（ＦｉｅｌｄＣｏｍｂｏＢｏｘ：ＴＤＢＬｏｏｋｕｐＣｏｍｂｏＢｏｘ；Ｔｅｘｔ：ｓｔｒｉｎｇ）来实现。

关键代码如下：ＦｉｅｌｄＣＤＳ．Ｌｏｃａｔｅ（＇ＦｉｅｌｄＮａｍｅ＇，ＦｉｅｌｄＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ，［］）；ｃａｓｅＴＦｉｅｌｄＴｙｐｅ（ＦｉｅｌｄＣＤＳ．ＦｉｅｌｄＢｙＮａｍｅ（＇ＦｉｅｌｄＴｙｐｅ＇）．Ｖａｌｕｅ）ｏｆｆｔＤａｔｅ，ｆｔＴｉｍｅ，ｆｔＤａｔｅＴｉｍｅ：／／时间ｔｒｙＤａｔｅＴｉｍｅＲｅｓｕｌｔ：＝ＳｔｒＴｏＤａｔｅＴｉｍｅ（Ｔｅｘｔ）；ｅｘｃｅｐｔＲｅｓｕｌｔ：＝Ｆａｌｓｅ；ＭｅｓｓａｇｅＤｌｇ（＇日期或时间格式不对＇，ｍｔＷａｒｎｉｎｇ，［ｍｂＯｋ］，０）；ｅｎｄ；ｅｎｄ；２．２．５根据用户自定义的查询方案产生ＳＱＬ语句首先把查询方案进行分解，如果是多条件查询，先把第一项查询转换为ＳＱＬ语句，然后用同样的方法把其他几项查询逐个的转换成ＳＱＬ语句，最后把所有的ＳＱＬ语句加起来。

本模块使用函数ＡＦｉｌｔｅｒ（ＲｅｌａｔｉｏｎＣｏｍｂｏＢｏｘ，ＣｏｍｐａｒｅＣｏｍｂｏＢｏｘ，ＦｉｅｌｄＣｏｍ－ｂｏＢｏｘ：ＴＤＢＬｏｏｋｕｐＣｏｍｂｏＢｏｘ）获取一项查询。

参数说明见表１。

主要代码如下：ｉｆＦｉｅｌｄＣＤＳ．Ｌｏｃａｔｅ（＇ＦｉｅｌｄＮａｍｅ＇，ＦｉｅｌｄＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ，［］）ｔｈｅｎｃａｓｅＴＦｉｅｌｄＴｙｐｅ（ＦｉｅｌｄＣＤＳ．ＦｉｅｌｄＢｙＮａｍｅ（＇ＦｉｅｌｄＴｙｐｅ＇）．Ｖａｌｕｅ）ｏｆｆｔＳｔｒｉｎｇ，ｆｔＷｉｄｅＳｔｒｉｎｇ，ｆｔＭｅｍｏ：／／字符串或备注型ｉｆＣｏｍｐａｒｅＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ＝＇ｌｉｋｅ＇ｔｈｅｎＶａｌｕｅ：＝ＱｕｏｔｅｄＳｔｒ（＇％＇＋ＶａｌｕｅＥｄｉｔ．Ｔｅｘｔ＋＇％＇）ｅｌｓｅＶａｌｕｅ：＝ＱｕｏｔｅｄＳｔｒ（Ｖａｌ－ｕｅＥｄｉｔ．Ｔｅｘｔ）；ｆｔＳｍａｌｌｉｎｔ．．ｆｔＢＣＤ，ｆｔＢｙｔｅｓ．．ｆｔＡｕｔｏＩｎｃ：Ｖａｌｕｅ：＝ＶａｌｕｅＥｄｉｔ．Ｔｅｘｔ；ｆｔＤａｔｅ，ｆｔＴｉｍｅ，ｆｔＤａｔｅＴｉｍｅ：Ｖａｌｕｅ：＝ＱｕｏｔｅｄＳｔｒ（ＶａｌｕｅＥｄｉｔ．Ｔｅｘｔ）；ｅｎｄ；Ｒｅｓｕｌｔ：＝ＲｅｌａｔｉｏｎＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ＋＇＇＋ＦｉｅｌｄＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ＋＇＇＋ＣｏｍｐａｒｅＣｏｍｂｏＢｏｘ．ＫｅｙＶａｌｕｅ＋＇＇＋Ｖａｌｕｅ＋＇＇；代码说明：取查询字段，判断其数据类型。

如果是字符串或备注型并且比较运算符等于＂相似＂则在输入数值前后加上符号＂％＂，否则直接取值。

如果是数字型，直接取值。

如果是日期时间型则在输入数值前后加上引号。

最后把逻辑运算符、查询字段、比较运算符和数值相加作为返回值，即得ＳＱＬ语句。

２．３模块的调用此通用查询模块调用简单。

父窗口ＰａｒｅｎｔＦｏｒｍ可以通过函数ＰｕｂｌｉｃＱｕｅｒｙ（ＰａｒｅｎｔＦｏｒｍ，ＱｕｅｒｙＤａｔａＳｅｔ，ＦｉｌｔｅｒＳｔｒ）来调用查询模块。

参数说明见主程序。

３．结束语本文通过ＭＩＳ中用户动态查询需求进行分析，设计并实现了支持用户自定义查询功能的通用查询模快。

该模块在温州多家药品流通企业的ＭＩＳ中得到使用，能很好地满足系统运行期间用户提出的新查询需求的要求，避免了因需求变动对原系统频繁修改而造成的系列问题，提高了系统的开放性和健壮性。

参考文献：１．胡和平，等通用数据库查询系统研究与实现［Ｊ］，计算机工程与应用，１９９８．５：３－４２．王瑞霞，等基于复用的动态查询构件系统的设计与实现［Ｊ］，计算机应用研究，２００６．１：１４４－１４６３．周新会，等Ｄｅｌｐｈｉ数据库通用模块及典型系统开发实例导航［Ｍ］，北京：人民邮电出版社，２００６式，通过ＨＴＴＰ或ＨＴＴＰＳ协议直接访问。

ＨＴＴＰ协议采用了请求／响应模型。

一个客户机与服务器建立连接后，发送一个请求给服务器，请求方式的格式为：统一资源标识符（ＵＲＬ）、协议版本号，后边是ＭＩＭＥ信息包括请求修饰符、客户机信息和可能的内容。

服务器接到请求后，给予相应的响应信息，其格式为一个状态行，包括信息的协议版本号、一个成功或错误的代码，后边是ＭＩＭＥ信息包括服务器信息、实体信息和可能的内容。

（２）封装协议本系统所提供的接口都是使用ＷｅｂＳｅｒｖｉｃｅ、ＸＭＬ技术组织及实现的。

ＤａｔａＥｘｃｈａｎｇｅ客户端与ＤａｔａＥｘｃｈａｎｇｅ服务端、各应用系统与ＤａｔａＥｘｃｈａｎｇｅ客户端都是通过ＷｅｂＳｅｒｖｉｃｅ实现消息交换和功能调用接口。

以ＷｅｂＳｅｒｖｉｃｅ为基础的接口设计是基于ＳＯＡＰ的接口设计。

ＳＯＡＰ（ＳｉｍｐｌｅＯｂｊｅｃｔＡｃｃｅｓｓＰｒｏｔｏｃｏｌ）简单对象访问协议是在分散或分布式的环境中交换信息的简单的协议，是一个基于ＸＭＬ的协议，它包括四个部分：ＳＯＡＰ封装（ｅｎｖｅｌｏｐ），封装定义了一个描述消息中的内容是什么，是谁发送的，谁应当接受并处理它以及如何处理它们的框架；ＳＯＡＰ编码规则（ｅｎｃｏｄｉｎｇｒｕｌｅｓ），用于表示应用程序需要使用的数据类型的实例；ＳＯＡＰＲＰＣ表示（ＲＰＣｒｅｐｒｅｓｅｎｔａｔｉｏｎ），表示远程过程调用和应答的协定；ＳＯＡＰ绑定（ｂｉｎｄｉｎｇ），使用底层协议交换信息。