other_find2.pas

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

unit other_find2;

interface

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

type
  Tfother_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
  fother_find2: Tfother_find2;

implementation

uses Xs_re, Cg_otherin, dataform, Cg_otherout;

{$R *.dfm}

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

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

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

end.