p_sysearch.~pas

图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制

unit p_sysearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TF_sysearch = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sysearch: TF_sysearch;

implementation

uses p_main;

{$R *.dfm}

procedure TF_sysearch.Button1Click(Sender: TObject);
var
s:string;
begin
  With f_main.Query do
        begin
          Close;
          SQL.Clear;
          if trim(edit1.Text)='' then
             sql.Add('select * from 成书质检表 order by 质检开始时间 desc')
             else
               begin
                 SQL.Add('select * from 成书质检表 where ');
                 case combobox1.ItemIndex of
                 0: SQL.Add('代码 ');
                 1: SQL.Add('书名 ');
                 end;
                 s:='';
                 s:=s+'like "%'+trim(edit1.Text)+'%"'
                 sql.add(s)
                 //Parameters.ParamByName('a').Value := '"%' + Trim(edit1.Text) + '%"';
             end;
          Open;
        end;
end;

procedure TF_sysearch.Button2Click(Sender: TObject);
begin
close;
end;

end.