?? bm_idu.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -