unit_wxp_j.pas

来自「主要是介绍DELPHI三层应用以及分布式数据库的应用」· PAS 代码 · 共 72 行

unit Unit_wxp_j;

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;
FilterArray:array[0..150] of boolean;
FilterNum:integer;
WhichForm:integer;
//注册的办事处名称
//QuerySql: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;
begin
   //showmessage(FieldType[FieldIndex]);
   case FieldType[FieldIndex] of
   ftSmallint,ftInteger ,ftFloat:Result:='number';
   ftCurrency:Result:='money';
   ftDateTime:Result:='date';
   ftString,ftMemo:Result:='string';
   else
   Result:='money';

   end;
end;




end.