otc_find.pas

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

unit otc_find;

interface

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

type
  Tfotc_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;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fotc_find: Tfotc_find;

implementation

uses Xs_re, Xs_otc;

{$R *.dfm}

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

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

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

end.