wmfindform.~pas

管理

unit WMFindForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, ActnList, DB, ADODB;

type
  TFindForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ActionList1: TActionList;
    Action1: TAction;
    procedure BitBtn2Click(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindForm: TFindForm;
  Procedure ShowMalWMFind;

implementation

uses MainForm1;


{$R *.dfm}

Procedure ShowMalWMFind;
begin
  FindForm := TFindForm.Create(Nil);
  try
    FindForm.ShowModal;
  finally
    FindForm.Free;
  end;

end;

procedure TFindForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TFindForm.Action1Execute(Sender: TObject);
Const
  SQLTemp = 'AutoID =''%s'' or EnterTime =''%s'' or Veriety=''%s'' or Price=''%s'' or Number=''%s'' or Sumprice=''%s'' or SumMonth=''%s'' or SumYear=''%s''';
Var
  AStr : String;
begin
  AStr := Format(SQLTemp,[Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text]);
  {ADOQuery := TADOQuery.Create(Nil);
  ADOQuery.Connection := MainForm.ADOConnection1;
  try
    AStr := Format(SQLTemp,[Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text]);
    ADOQuery.Close;
    ADOQuery.SQL.Clear;
    ADOQuery.SQL.Add(AStr);
    ADOQuery.Open;
  finally
    ADOQuery.Free;
  end; }
  MainForm.adoRecord.Filtered := false;
  MainForm.adoRecord.Filter   := AStr;//Format(SQLTemp,[Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Edit5.Text,Edit6.Text,Edit7.Text,Edit8.Text]);
  MainForm.adoRecord.Filtered := True;

  MainForm.adoRecord.Requery();

  Close;

end;

end.