u4_7.pas

前言 随着旅游业的发展

unit U4_7;

interface

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

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

var
  F4_7: TF4_7;

implementation

{$R *.dfm}

procedure TF4_7.SetTime;
begin
  EDdate.Text:=formatDateTime('yyyy-mm-dd',NOW);
  EDriqi.Text:=EDdate.Text;
  EDbaoliu.Text:=EDdate.Text+' 23:00:00';
end;

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

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

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

end.