usearch.pas

进销存以及BOM管理,SQl Server数据库程序

unit usearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, StdCtrls, Grids, DBGrids, DBGridEh, DB, DBClient, wwdblook,
  ComCtrls;

type
  Tfrmsearch = class(TfrmBase)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    createtiao: TButton;
    cleartiao: TButton;
    search: TButton;
    exit: TButton;
    CDSsearch: TClientDataSet;
    dssearch: TDataSource;
    Grid: TDBGridEh;
    CDSsearchfield: TStringField;
    CDSsearchvalue: TStringField;
    fieldname: TLabel;
    tiaovalue: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    tiaoset: TwwDBLookupCombo;
    CDStiaoset: TClientDataSet;
    CDStiaosetField: TStringField;
    ListView1: TListView;
    CDSss: TClientDataSet;
    procedure exitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dssearchDataChange(Sender: TObject; Field: TField);
    procedure createtiaoClick(Sender: TObject);
    procedure searchClick(Sender: TObject);
    procedure cleartiaoClick(Sender: TObject);
  private
    procedure CreatefindData();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsearch: Tfrmsearch;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmsearch.CreatefindData;
begin
  With CDSSearch do
    begin
      Close;
      FieldDefs.Add('Field',ftString,50);
      FieldDefs.Add('Value',ftString,50);
      Createdataset;
      open;
    end;

  With CDStiaoset do
    begin
      Close;
      FieldDefs.Add('比较符',ftString,50);
      CreateDataset;
      AppendRecord(['>']);
      AppendRecord(['<']);
      AppendRecord(['=']);
      AppendRecord(['Like']);
      open;
    end;
end;

procedure Tfrmsearch.exitClick(Sender: TObject);
begin
  inherited;
  Searchtiao:='';
  initArray;
  close;
end;

procedure Tfrmsearch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmSearch:=nil;
end;

procedure Tfrmsearch.FormCreate(Sender: TObject);
begin
  inherited;
  CreatefindData;
  Searchtiao:='';
end;

procedure Tfrmsearch.FormShow(Sender: TObject);
var
  i:integer;
begin
  inherited;
  for i:=low(findArray1) to high(findArray1) do
    CDSSearch.AppendRecord([findArray1[i],findArray2[i]]);
  for i:=0 to CDSSearch.RecordCount - 1 do
    begin
      if (CDSSearch['field']='') or (CDSSearch['value']='') then
        CDSSearch.Delete; 
    end;
  CDSSearch.First;     
end;

procedure Tfrmsearch.dssearchDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  Fieldname.Caption:=CDSSearch.fieldbyname('value').AsString; 
end;

procedure Tfrmsearch.createtiaoClick(Sender: TObject);
var
   SQL:TListItem;
begin
  inherited;
  if (Trim(tiaoValue.Text)='') then
    tiaoValue.Text:='';
  if Trim(tiaoset.Text)='' then
    Tiaoset.Text:='Like';

  if Trim(tiaoset.Text)='Like' then
    begin
      if Searchtiao='' then
        begin
           Searchtiao:=CDSSearch.fieldbyname('field').AsString+space(2)+
                       Trim(tiaoset.Text)+space(2)+
                       Vartosql('%'+Trim(tiaovalue.Text)+'%')+space(2);
        end
        else
        begin
           Searchtiao:=Searchtiao+space(2)+' and '+
                       CDSSearch.fieldbyname('field').AsString+space(2)+
                       Trim(tiaoset.Text)+space(2)+
                       Vartosql('%'+Trim(tiaovalue.Text)+'%')+space(2);
        end;
       Sql:=ListView1.Items.Add;
       Sql.Caption:=CDSSearch.fieldbyname('Value').AsString;
       Sql.SubItems.Add(Trim(tiaoset.Text)+space(2)+Vartosql('%'+Trim(tiaovalue.Text)+'%'));
    end
    else
    begin
      if Searchtiao='' then
        begin
           Searchtiao:=CDSSearch.fieldbyname('field').AsString+space(2)+
                       Trim(tiaoset.Text)+space(2)+
                       Vartosql(Trim(tiaovalue.Text))+space(2);
        end
        else
        begin
           Searchtiao:=Searchtiao+space(2)+' and '+
                       CDSSearch.fieldbyname('field').AsString+space(2)+
                       Trim(tiaoset.Text)+space(2)+
                       Vartosql(Trim(tiaovalue.Text))+space(2);
        end;
       Sql:=ListView1.Items.Add;
       Sql.Caption:=CDSSearch.fieldbyname('Value').AsString;
       Sql.SubItems.Add(Trim(tiaoset.Text)+space(2)+Vartosql(Trim(tiaovalue.Text)));
    end;
end;

procedure Tfrmsearch.searchClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmsearch.cleartiaoClick(Sender: TObject);
begin
  inherited;
  Searchtiao:='';
  ListView1.Items.Clear;
  tiaoset.Text:='';
  tiaovalue.Text:='';
end;

end.