u1_7.pas

前言 随着旅游业的发展

unit U1_7;

interface

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

type
  TF1_7 = class(TForm)
    Panel1: TPanel;
    LBtiaojian: TLabel;
    LBriqi: TLabel;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    Bevel2: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    SBTback: TSpeedButton;
    SBTPrint: TSpeedButton;
    CBoxtiaojian: TComboBox;
    EDmonth: TEdit;
    Label1: TLabel;
    EDyear: TEdit;
    UPDyear: TUpDown;
    UPDmonth: TUpDown;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    Bevel3: TBevel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTbackClick(Sender: TObject);
    Procedure SetTime;
    procedure FormCreate(Sender: TObject);
    procedure SBTshuaxinClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F1_7: TF1_7;

implementation

{$R *.dfm}

procedure TF1_7.SetTime;
begin
  UPDyear.Position:=strToint(FormatDateTime('yyyy',NOW));
  UPDmonth.Position:=strToint(FormatDateTime('mm',NOW));
end;
procedure TF1_7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

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

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

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

end.