p_jysearch.~pas

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

unit p_jysearch;

interface

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

type
  TF_jysearch = 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_jysearch: TF_jysearch;

implementation

uses p_jiayin;

{$R *.dfm}

procedure TF_jysearch.Button1Click(Sender: TObject);
var
s:string;
begin
   With f_jiayin.Query_jy 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_jysearch.Button2Click(Sender: TObject);
begin
close;
end;

end.