phy_find.pas

来自「这是一个实用的软件」· PAS 代码 · 共 65 行

unit phy_find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, StdCtrls, Buttons, dxCntner, dxEditor, dxExEdtr,
  dxEdLib;

type
  Tfphy_find = class(Tfbaseform)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    lbl1: TLabel;
    Label2: TLabel;
    Edit5: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fphy_find: Tfphy_find;

implementation

uses Bs_physic;



{$R *.dfm}

procedure Tfphy_find.BitBtn1Click(Sender: TObject);
begin
  inherited;
//查询条件
fBs_physic.Qbaseinfo.Close;
fBs_physic.Qbaseinfo.SQL.Clear;
fBs_physic.Qbaseinfo.SQL.Add('select * from Bs_physic where (1=1) '); 
if Edit1.Text<>'' then
   fBs_physic.Qbaseinfo.SQL.Add(' and (Phy_code like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
if Edit2.Text<>'' then
   fBs_physic.Qbaseinfo.SQL.Add(' and (Phy_name like '+''''+'%'+Trim(Edit2.Text)+'%'+''''+')');
if Edit4.Text<>'' then
   fBs_physic.Qbaseinfo.SQL.Add(' and (Phy_marking like '+''''+'%'+Trim(Edit4.Text)+'%'+''''+')');
if Edit5.Text<>'' then
   fBs_physic.Qbaseinfo.SQL.Add(' and (Phy_abc like '+''''+'%'+Trim(Edit5.Text)+'%'+''''+')');
if Edit3.Text<>'' then
   fBs_physic.Qbaseinfo.SQL.Add(' and (phy_factory like '+''''+'%'+Trim(Edit3.Text)+'%'+''''+')');

fBs_physic.Qbaseinfo.Open;

end;

end.