findunit.~pas

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

unit FindUnit;

interface

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

type
  TFind_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
  Find_Form: TFind_Form;

implementation

uses DataM;

{$R *.dfm}

procedure TFind_Form.BitBtn1Click(Sender: TObject);
Var SQLString:String;
begin
DM.Custom_Query.Close ;
DM.Custom_Query.SQL.Clear ;
SQLString := 'select * from tblCustom '; //where OrderNum='''+DD_List.Text+''' order by NUM,Sub_Num' ;
DM.Custom_Query.SQL.Add(SQLString) ;
DM.Custom_Query.Open ;
Close ;
end;

end.