selectfromguestunit.pas

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

unit SelectFromGuestUnit;

interface

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

type
  TSelectFromGuest_Form = class(TForm)
    Client_Panel: TPanel;
    StatusBar1: TStatusBar;
    Top_Panel: TPanel;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BB_Name: TEdit;
    Label4: TLabel;
    Label1: TLabel;
    JZ_Name: TEdit;
    Label5: TLabel;
    LX_Tel: TEdit;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectFromGuest_Form: TSelectFromGuest_Form;

implementation

uses DataM;

{$R *.dfm}

procedure TSelectFromGuest_Form.BitBtn1Click(Sender: TObject);
begin
DM.Custom_Query.FieldByName('幼儿姓名').AsString :=DM.Guest_Query.FieldByName('幼儿姓名').AsString ;
DM.Custom_Query.FieldByName('性别').AsString :=DM.Guest_Query.FieldByName('性别').AsString ;
DM.Custom_Query.FieldByName('家长姓名').AsString :=DM.Guest_Query.FieldByName('家长姓名').AsString ;
DM.Custom_Query.FieldByName('出生日期').AsDateTime :=DM.Guest_Query.FieldByName('出生日期').AsDateTime ;
DM.Custom_Query.FieldByName('家长姓名').AsString :=DM.Guest_Query.FieldByName('家长姓名').AsString ;
DM.Custom_Query.FieldByName('联系电话').AsString :=DM.Guest_Query.FieldByName('联系电话').AsString ;
DM.Custom_Query.Post ;
DM.Guest_Query.Edit ;
DM.Guest_Query.FieldByName('IsDisplay').AsString :='0' ;
DM.Guest_Query.Post ;
end;

procedure TSelectFromGuest_Form.Button1Click(Sender: TObject);
Var SQLString:String;
begin
DM.Guest_Query.Close ;
DM.Guest_Query.SQL.Clear ;
SQLString := 'select * from tblGuest where IsDisplay=''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+'%'' ' ;
SQLString:= SQLString+' order by 登记时间' ;
DM.Guest_Query.SQL.Add(SQLString) ;
DM.Guest_Query.Open ;
end;

end.