draw_find.pas

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

unit draw_find;

interface

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

type
  Tfdraw_find = class(Tfbaseform)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    dxDateEdit1: TdxDateEdit;
    dxDateEdit2: TdxDateEdit;
    dxDateEdit3: TdxDateEdit;
    dxDateEdit4: TdxDateEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Edit5: TEdit;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdraw_find: Tfdraw_find;

implementation

uses Hi_draw, dataform;

{$R *.dfm}

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

procedure Tfdraw_find.FormCreate(Sender: TObject);
begin
  inherited;
dxDateEdit1.Text:=FormatDateTime('YYYY-MM-DD',Date());
dxDateEdit2.Text:=FormatDateTime('YYYY-MM-DD',Date()); 
end;

procedure Tfdraw_find.BitBtn1Click(Sender: TObject);
begin
  inherited;
//查询条件
fHi_draw.Qbaseinfo.Close;
fHi_draw.Qbaseinfo.SQL.Clear;
fHi_draw.Qbaseinfo.SQL.Add('select * from Hi_draw where (Fdate between :f1 and :f2)');
fHi_draw.Qbaseinfo.Parameters.ParamByName('f1').value:=dxDateEdit1.Text;
fHi_draw.Qbaseinfo.Parameters.ParamByName('f2').value:=dxDateEdit2.Text;

if Trim(Edit1.Text)<>'' then
  fHi_draw.Qbaseinfo.SQL.Add(' and (Dr_name like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');

if Trim(Edit2.Text)<>'' then
  fHi_draw.Qbaseinfo.SQL.Add(' and (Dr_age like '+''''+'%'+Trim(Edit2.Text)+'%'+''''+')');

if ComboBox1.ItemIndex<>0 then
  fHi_draw.Qbaseinfo.SQL.Add(' and (Dr_sex like '+''''+'%'+Trim(ComboBox1.Text)+'%'+''''+')');

if Trim(Edit5.Text)<>'' then
  fHi_draw.Qbaseinfo.SQL.Add(' and (Dr_tel like '+''''+'%'+Trim(Edit5.Text)+'%'+''''+')');

if  Trim(Edit4.Text)<>'' then
  fHi_draw.Qbaseinfo.SQL.Add(' and (Dr_adds like '+''''+'%'+Trim(Edit4.Text)+'%'+''''+')'); 
  
fHi_draw.Qbaseinfo.Open;

end;

end.