?? unit_set_khzl.pas
字號:
unit Unit_set_khzl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit_jc_set, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
ExtCtrls;
type
Tform_set_khzl = class(Tform_jc_set)
Label2: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label10: TLabel;
DBEdit6: TDBEdit;
Label6: TLabel;
DBEdit3: TDBEdit;
procedure Button_reshowClick(Sender: TObject);
procedure Button_newClick(Sender: TObject);
procedure Button_deleteClick(Sender: TObject);
procedure Button_saveClick(Sender: TObject);
procedure Button_quitClick(Sender: TObject);
procedure Edit_queryChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
form_set_khzl: Tform_set_khzl;
implementation
{$R *.dfm}
procedure Tform_set_khzl.Button_reshowClick(Sender: TObject);
begin
// inherited;
adoquery1.Close;
adoquery1.Open;
end;
procedure Tform_set_khzl.Button_newClick(Sender: TObject);
begin
// inherited;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='insert into t02(t0202) values('''')';
adoquery2.ExecSQL;
adoquery2.Close;
adoquery1.Close;
adoquery1.Open;
adoquery1.Last;
end;
procedure Tform_set_khzl.Button_deleteClick(Sender: TObject);
begin
// inherited;
if (adoquery1.RecordCount=0) or (not adoquery1.Active) then exit;
if application.MessageBox('記錄刪除后不能恢復,真的刪除嗎?','刪除確認',mb_yesno)=idno then exit;
adoquery1.Delete;
end;
procedure Tform_set_khzl.Button_saveClick(Sender: TObject);
begin
// inherited;
if adoquery1.Active then
begin
adoquery1.Edit;
adoquery1.Post;
end;
end;
procedure Tform_set_khzl.Button_quitClick(Sender: TObject);
begin
// inherited;
self.Close;
end;
procedure Tform_set_khzl.Edit_queryChange(Sender: TObject);
begin
//inherited;
if edit_query.Text='' then
adoquery1.Filter:=''
else
adoquery1.Filter:='t0201 like ''%'+edit_query.Text+'%''or t0202 like ''%'+
edit_query.Text+ '%'' or t0203 like ''%'+
edit_query.Text+'%'' or t0206 like ''%'+
edit_query.Text+'%''';
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -