u4_3.pas

前言 随着旅游业的发展

unit U4_3;

interface

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

type
  TF4_3 = 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;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    syTabSheet3: TTabSheet;
    syDBGrid1: TDBGrid;
    Panel2: TPanel;
    procedure setTime;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTbackClick(Sender: TObject);
    procedure CBoxRiqiChange(Sender: TObject);
    procedure SBTshuaxinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation



{$R *.dfm}

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

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

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

procedure TF4_3.CBoxRiqiChange(Sender: TObject);
begin
  if CBoxRiqi.Text='进店日期' then
  begin
    CBoxkeren.Enabled:=true;
    CBoxkeren.Color:=clWindow;
  end else
  begin
    CBoxkeren.Enabled:=false;
    CBoxkeren.Color:=clScrollBar;
  end;
end;

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

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

end.