?? detailbase.pas
字號:
unit DetailBase;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QueryBase, StdCtrls, wwdblook, DB, ADODB, ComCtrls, Grids,
DBGrids, ExtCtrls, ToolWin, ActnList, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid;
type
TfrmDetailBase = class(TfrmQueryBase)
Label1: TLabel;
Panel1: TPanel;
Label3: TLabel;
Label4: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
QinfoBase: TADOQuery;
dsinfoBase: TDataSource;
ALToolbar: TActionList;
acFirst: TAction;
acPrior: TAction;
acNext: TAction;
acLast: TAction;
acPrint: TAction;
acExit: TAction;
ToolBar: TToolBar;
tbtDivider1: TToolButton;
tbtFirst: TToolButton;
tbtPrior: TToolButton;
tbtNext: TToolButton;
tbtLast: TToolButton;
tbtDivider: TToolButton;
ToolButton5: TToolButton;
tbtDivider3: TToolButton;
tbtExit: TToolButton;
ToolButton2: TToolButton;
accOpen: TAction;
ToolButton1: TToolButton;
dxDBGrid1: TdxDBGrid;
procedure acExitExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDetailBase: TfrmDetailBase;
implementation
uses StockMain;
{$R *.dfm}
procedure TfrmDetailBase.acExitExecute(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmDetailBase.FormCreate(Sender: TObject);
begin
inherited;
DateTimePicker1.Date :=Date()-30;
DateTimePicker2.Date :=Date();
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -