u1_6.pas

前言 随着旅游业的发展

unit U1_6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids;

type
  TF1_6 = class(TForm)
    Panel1: TPanel;
    LBtiaojian: TLabel;
    LBriqi: TLabel;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    SBTback: TSpeedButton;
    CBoxtiaojian: TComboBox;
    CBoxkeren: TComboBox;
    EDtime: TEdit;
    SBTPrint: TSpeedButton;
    Label1: TLabel;
    LBtoday: TLabel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    DBGrid2: TDBGrid;
    LBinfo: TLabel;
    procedure SBTshuaxinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SetTime;
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TF1_6.SetTime;//设置时间
begin
  LBtoday.Caption:='本表截止日期：';
  Edtime.Text:=FormatDateTime('yyyy-mm-dd',NOW);
  LBtoday.Caption:=LBtoday.Caption
    +FormatDateTime('yyyy-mm-dd,hh:nn:ss',NOW)+'           ';
  LBtoday.AutoSize:=true;
end;

procedure TF1_6.SBTshuaxinClick(Sender: TObject);
begin
  SetTime;
end;

procedure TF1_6.FormCreate(Sender: TObject);
begin
  SetTime;
end;

procedure TF1_6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TF1_6.SBTbackClick(Sender: TObject);
begin
  Close;
end;

end.