upre.pas

前言 随着旅游业的发展

unit UPre;

interface

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

type
  TFPre = class(TForm)
    Panel1: TPanel;
    LBbumen: TLabel;
    LBdate: TLabel;
    LBztai: TLabel;
    CBoxbumen: TComboBox;
    CBoxZtai: TComboBox;
    EDdate: TEdit;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    LBren: TLabel;
    LBtel: TLabel;
    LBfangshi: TLabel;
    LBleibie: TLabel;
    LBCountry: TLabel;
    LBriqi: TLabel;
    LBbaoliu: TLabel;
    EDren: TEdit;
    EDtel: TEdit;
    LBguige: TLabel;
    LBcount: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    RByuding: TRadioButton;
    RByi: TRadioButton;
    RBwuxiao: TRadioButton;
    ListView1: TListView;
    Panel3: TPanel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    LBkefang: TLabel;
    LByuding: TLabel;
    Panel4: TPanel;
    SBTaddyu: TSpeedButton;
    SBTsave: TSpeedButton;
    SBTcancel: TSpeedButton;
    SBTback: TSpeedButton;
    SBTshuaxin: TSpeedButton;
    CBoxguige: TComboBox;
    SBTadd: TSpeedButton;
    SBTdel: TSpeedButton;
    CBoxkefang: TComboBox;
    EDyuding: TEdit;
    UpDown1: TUpDown;
    CBoxFangshi: TComboBox;
    EDleibie: TComboBox;
    CBoxCountry: TComboBox;
    EDRiqi: TEdit;
    EDbaoliu: TEdit;
    EDcount: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SetTime;
    procedure SBTshuaxinClick(Sender: TObject);
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPre: TFPre;

implementation

{$R *.dfm}

procedure TFPre.SetTime;
begin
    EDdate.Text:=FormatDateTime('yyyy-mm-dd',NOW);
end;

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



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

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

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

end.