findguestadunit.pas

帮朋友编写的幼儿教育的管理平台

unit FindGuestADUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFindGuestAD_Form = class(TForm)
    Client_Panel: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    BB_Name: TEdit;
    JZ_Name: TEdit;
    KC_Name: TComboBox;
    DJ_DateB: TEdit;
    DJ_DateE: TEdit;
    LX_Tel: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindGuestAD_Form: TFindGuestAD_Form;

implementation

uses DataM;

{$R *.dfm}

procedure TFindGuestAD_Form.BitBtn1Click(Sender: TObject);
Var SQLString:String;
begin
DM.Guest_Query.Close ;
DM.Guest_Query.SQL.Clear ;
SQLString := 'select * from tblGuest where 1=1';
if BB_Name.Text <>'' then SQLString:=SQlString+' and 幼儿姓名 like ''%' +BB_Name.Text+'%'' ' ;
if JZ_Name.Text <>'' then SQLString:=SQlString+' and 家长姓名 like ''%' +JZ_Name.Text+'%'' ' ;
if LX_Tel.Text <>'' then SQLString:=SQlString+' and 联系电话 like ''%' +LX_Tel.Text+'%'' ' ;
if KC_Name.Text <>'' then SQLString:=SQlString+' and 报名课程 like ''%' +KC_Name.Text+'%'' ' ;
if DJ_DateB.Text <>'' then SQLString:=SQlString+' and 登记时间>=#' +DJ_DateB.Text+'# ' ;
if DJ_DateE.Text <>'' then SQLString:=SQlString+' and 登记时间<=#' +DJ_DateE.Text+'# ' ;
SQLString:= SQLString+' order by 登记时间' ;
DM.Guest_Query.SQL.Add(SQLString) ;
DM.Guest_Query.Open ;
Close ;
end;

end.