bm_idu.pas

Delphi办公管理系统

unit BM_IDU;

interface

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

type
  TBM_IDF = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    ADOID: TADOQuery;
    D_ID: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BM_IDF: TBM_IDF;

implementation

uses BM_DMU;

{$R *.dfm}

procedure TBM_IDF.SpeedButton1Click(Sender: TObject);
VAR
 sql1:string;
begin
   sql1:='select * from 身份证 ';
    if edit1.Text <>'' then
    begin
      sql1:=sql1+'where name like "%'+Edit1.text+'%"';
      //  if edit2.Text <>'' then sql1:=sql1+' and 地区名称="'+edit2.Text +'"';
     end ;
    // else
    ///////////////////////////
  //   if edit2.Text <>'' then
    //     begin
       //     sql1:=sql1+' where 地区名称="'+edit2.Text +'"';
     //    if edit3.Text <>'' then sql1:=sql1+' and 邮政编码="'+edit3.Text +'"';
    //   end ;


      with adoid do
                  begin
                  close;
                  sql.Clear ;
                  sql.Add(sql1);
                  Open ;
              end;

end;

procedure TBM_IDF.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TBM_IDF.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN SpeedButton1.Click ;
end;

procedure TBM_IDF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TBM_IDF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=true;
end;

end.