detailbase.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 71 行

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

{$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.