bs_find2.pas

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

unit bs_find2;

interface

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

type
  Tfbs_find2 = 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
  fbs_find2: Tfbs_find2;

implementation

uses Xs_re, dataform , Cg_bs;

{$R *.dfm}

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

procedure Tfbs_find2.BitBtn1Click(Sender: TObject);
begin
  inherited;
//查询条件
fCg_bs.Qbaseinfo.Close;
fCg_bs.Qbaseinfo.SQL.Clear;
fCg_bs.Qbaseinfo.SQL.Add('select * from cg_master where (fcode like '+''''+'%'+'BS'+'%'+''''+' ) and (Fdate between :f1 and :f2)');
fCg_bs.Qbaseinfo.Parameters.ParamByName('f1').value:=dxDateEdit1.Text;
fCg_bs.Qbaseinfo.Parameters.ParamByName('f2').value:=dxDateEdit2.Text;
if Edit1.Text<>'' then
   fCg_bs.Qbaseinfo.SQL.Add(' and (fcode like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
if Edit2.Text<>'' then
   fCg_bs.Qbaseinfo.SQL.Add(' and (Ma_worker like '+''''+'%'+Trim(Edit2.Text)+'%'+''''+')');
if Edit3.Text<>'' then
   fCg_bs.Qbaseinfo.SQL.Add(' and (Ma_pcode like '+''''+'%'+Trim(Edit3.Text)+'%'+''''+')');
if Edit4.Text<>'' then
   fCg_bs.Qbaseinfo.SQL.Add(' and (Ma_factory like '+''''+'%'+Trim(Edit4.Text)+'%'+''''+')');
fCg_bs.Qbaseinfo.Open;
end;

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

end.