phy_find.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

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.