xs_find.pas

来自「一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码」· PAS 代码 · 共 83 行

unit xs_find;

interface

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

type
  Tfxs_find = class(Tfbaseform)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fxs_find: Tfxs_find;

implementation

uses Xs_re;

{$R *.dfm}

procedure Tfxs_find.FormCreate(Sender: TObject);
begin
  inherited;
//默认当天
dxDateEdit1.Text:=FormatDateTime('YYYY-MM-DD',Date());
dxDateEdit2.Text:=FormatDateTime('YYYY-MM-DD',Date());
end;

procedure Tfxs_find.BitBtn1Click(Sender: TObject);
begin
  inherited;
//查询条件
fXs_re.Qmaster.Close;
fXs_re.Qmaster.SQL.Clear;
fXs_re.Qmaster.SQL.Add('select * from xs_open where (Op_date between :f1 and :f2)');
fXs_re.Qmaster.Parameters.ParamByName('f1').value:=dxDateEdit1.Text;
fXs_re.Qmaster.Parameters.ParamByName('f2').value:=dxDateEdit2.Text;
if Edit1.Text<>'' then
   fXs_re.Qmaster.SQL.Add(' and (fcode like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
if Edit2.Text<>'' then
   fXs_re.Qmaster.SQL.Add(' and (Op_worker like '+''''+'%'+Trim(Edit2.Text)+'%'+''''+')');
if Edit3.Text<>'' then
   fXs_re.Qmaster.SQL.Add(' and (Op_name like '+''''+'%'+Trim(Edit3.Text)+'%'+''''+')');
if Edit4.Text<>'' then
   fXs_re.Qmaster.SQL.Add(' and (Op_sex like '+''''+'%'+Trim(Edit4.Text)+'%'+''''+')');
fXs_re.Qmaster.Open;
fXs_re.Qdetail.DataSource:=fXs_re.Sourcemaster;
end;

procedure Tfxs_find.SpeedButton1Click(Sender: TObject);
begin
  inherited;
//当月
dxDateEdit1.Date:=date-30;
dxDateEdit2.Date:=date;
end;

end.