unit_wxp.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit Unit_wxp;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ComCtrls, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls,
  Mask, DBCtrls,ADODB;
//定义函数获得操作符
function GetOperator(OperatorStr:string):string;
//定义函数获得条件关系
function GetRelation(Rel:string):string;
//定义函数获得一个字段的类型
function GetFieldType(FieldIndex:Integer):String;



var
FieldType:array[0..150] of TFieldType;
//TransADO: TADOQuery;
sellstyle:string;
SearchSql:string;
//最终查询语句
FinalSql:string;
FilterArray:array[0..150] of boolean;
FilterNum:integer;
WhichForm:integer;
//注册的办事处名称
myOffice:string;
UserName:string;

QuerySql:string;



mUserright:TStringlist;
mUsername:string;
mUserpass:string;
mpname:string;
mUserid:string;//用户帐号
//用来表示是上报数据还是接收数据
datastyle:string;


implementation
//获得操作符的函数实现
function GetOperator(OperatorStr:string):string;
begin
        if OperatorStr='等于(=)' then   Result:='='
        else if  OperatorStr='大于(>)' then  Result:='>'
        else if  OperatorStr='小于(<)' then Result:='<'
        else if  OperatorStr='大于等于(>=)' then Result:='>='
        else if  OperatorStr='小于等于(<=)' then  Result:='<='
        else if  OperatorStr='不等于(<>)' then Result:='<>'
        else   Result:=' like ';
end;

//实现获得条件操作符的函数
function GetRelation(Rel:string):string;
begin
    if Rel= '同时满足(and)' then  Result:='and'
    else  Result:='or';
    
end;

function GetFieldType(FieldIndex:Integer):String;
var
i:integer;
begin
   //showmessage(FieldType[FieldIndex]);
   i:=FieldIndex;
   case FieldType[FieldIndex] of
   ftSmallint,ftInteger ,ftFloat:Result:='number';
   ftCurrency:Result:='money';
   ftDateTime:Result:='date';
   ftBoolean:Result:='boolean';	
   ftString,ftMemo:Result:='string';
   else
   Result:='money';

   end;
end;




end.