u3_10.pas

前言 随着旅游业的发展

unit U3_10;

interface

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

type
  TF3_10 = class(TForm)
    Panel1: TPanel;
    LBzhi: TLabel;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    Bevel3: TBevel;
    SBTback: TSpeedButton;
    LBzai: TLabel;
    LByesOrno: TLabel;
    SBTprint: TSpeedButton;
    CBoxRiqi: TComboBox;
    CBoxkeren: TComboBox;
    EDtime: TEdit;
    EDtime1: TEdit;
    bmzPanel1: TPanel;
    Splitter1: TSplitter;
    bmPanel1: TPanel;
    LBbumen: TLabel;
    CBoxBumen: TComboBox;
    bmCheckListBox1: TCheckListBox;
    dwPanel1: TPanel;
    LBdingwei: TLabel;
    EDdingwei: TEdit;
    ListBoxInfo: TListBox;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    syTabSheet3: TTabSheet;
    syDBGrid1: TDBGrid;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F3_10: TF3_10;

implementation

{$R *.dfm}

procedure TF3_10.FormCreate(Sender: TObject);
begin
   F3_10.Caption:='补印结账单';
   CBoxRiqi.ItemIndex:=1;
   EdTime.Text:=FormatDateTime('yyyy-mm-dd',NOW);
   EDtime1.Text:=FormatDateTime('yyyy-mm-dd',Now);
end;

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

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

end.