u3_6.pas

前言 随着旅游业的发展

unit U3_6;

interface

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

type
  TF3_6 = class(TForm)
    Panel1: TPanel;
    LBzhi: TLabel;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    Bevel3: TBevel;
    SBTback: TSpeedButton;
    LBzai: TLabel;
    SBTprint: TSpeedButton;
    EDtime: TEdit;
    EDtime1: TEdit;
    Panel3: TPanel;
    bmzPanel1: TPanel;
    bmPanel1: TPanel;
    bmLabel1: TLabel;
    CBoxbumen: TComboBox;
    bmCheckListBox1: TCheckListBox;
    dwPanel1: TPanel;
    dwLabel1: TLabel;
    EDdingwei: TEdit;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    syTabSheet3: TTabSheet;
    syDBGrid1: TDBGrid;
    Panel2: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SetTime;
    procedure SBTshuaxinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F3_6: TF3_6;

implementation

{$R *.dfm}

procedure TF3_6.SetTime;
begin
  EDtime1.Text:=FormatDateTime('yyyy-mm-dd',NOW);
  EDtime.Text:=FormatDateTime('yyyy-mm-dd',NOW-10);
end;

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

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

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

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

end.