?? sydcx1.pas
字號:
unit sydcx1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner, Db, ADODB,
StdCtrls, Buttons, ExtCtrls;
type
Tsydcx = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOQuery1: TADOQuery;
ADOQuery1code: TStringField;
ADOQuery1kdrq: TDateTimeField;
ADOQuery1dkr: TStringField;
ADOQuery1ck: TStringField;
ADOQuery1ckname: TStringField;
ADOQuery1ywy: TStringField;
ADOQuery1ywyname: TStringField;
ADOQuery1bz: TStringField;
DataSource1: TDataSource;
dxDBGrid1: TdxDBGrid;
ADOQuery1lx: TStringField;
ADOQuery1zt: TStringField;
dxDBGrid1code: TdxDBGridMaskColumn;
dxDBGrid1kdrq: TdxDBGridDateColumn;
dxDBGrid1dkr: TdxDBGridMaskColumn;
dxDBGrid1ck: TdxDBGridMaskColumn;
dxDBGrid1ckname: TdxDBGridMaskColumn;
dxDBGrid1ywy: TdxDBGridMaskColumn;
dxDBGrid1ywyname: TdxDBGridMaskColumn;
dxDBGrid1bz: TdxDBGridMaskColumn;
dxDBGrid1lx: TdxDBGridMaskColumn;
dxDBGrid1zt: TdxDBGridMaskColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
sydcx: Tsydcx;
implementation
uses MainForm1, syd1;
{$R *.DFM}
procedure Tsydcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
end;
procedure Tsydcx.BitBtn1Click(Sender: TObject);
begin
if ADOQuery1.fieldbyname('code').asstring = '' then exit;
syd.ADOTable1.Locate('code', ADOQuery1.fieldbyname('code').Value, [loCaseInsensitive]);
end;
procedure Tsydcx.dxDBGrid1DblClick(Sender: TObject);
begin
BitBtn1.Click;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -