?? unit1.pas.~3~
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit,
GridsEh, DBGridEh, cxLabel, cxDBEdit, cxNavigator, cxDBNavigator, cxContainer,
cxEdit, cxGroupBox, cxPC, cxControls;
type
TForm1 = class(TForm)
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxGroupBox1: TcxGroupBox;
cxDBNavigator1: TcxDBNavigator;
cxDBTextEdit1: TcxDBTextEdit;
cxDBTextEdit2: TcxDBTextEdit;
cxDBTextEdit3: TcxDBTextEdit;
cxDBTextEdit4: TcxDBTextEdit;
cxDBTextEdit5: TcxDBTextEdit;
cxDBTextEdit6: TcxDBTextEdit;
cxDBTextEdit7: TcxDBTextEdit;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
cxLabel3: TcxLabel;
cxLabel4: TcxLabel;
cxLabel5: TcxLabel;
cxLabel6: TcxLabel;
cxLabel7: TcxLabel;
cxDBTextEdit8: TcxDBTextEdit;
cxLabel8: TcxLabel;
cxDBTextEdit9: TcxDBTextEdit;
cxLabel9: TcxLabel;
cxDBTextEdit10: TcxDBTextEdit;
cxGroupBox2: TcxGroupBox;
DBGridEh1: TDBGridEh;
cxTextEdit1: TcxTextEdit;
cxButton1: TcxButton;
cxButton2: TcxButton;
procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with DM.qry7 do begin
Close;
with SQL do begin
Clear;
Add('select * from dwgl where dwmc like :p_dwmc or dh like :p_dh or ch like :P_ch');
end;
Parameters.ParamByName('p_dwmc').Value := '%' + cxTextEdit1.text + '%';
Parameters.ParamByName('p_dh').Value := '%' + cxTextEdit1.text + '%';
Parameters.ParamByName('P_ch').Value := '%' + cxTextEdit1.text + '%';
Open;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -