u3_8.pas

前言 随着旅游业的发展

unit U3_8;

interface

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

type
  TF3_8 = class(TForm)
    Pkf: TPanel;
    LBtj: TLabel;
    CBtj1: TComboBox;
    CBoxjiezhang: TComboBox;
    CBtj3: TComboBox;
    SBsx: TSpeedButton;
    SBfh: TSpeedButton;
    EDtime1: TEdit;
    EDtime2: TEdit;
    LB1: TLabel;
    P1: TPanel;
    Panel1: TPanel;
    P2: TPanel;
    DBGrid1: TDBGrid;
    LBky: TLabel;
    LBriqi: TLabel;
    LBhj: TLabel;
    LBtime: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SBfhClick(Sender: TObject);
    procedure setTime;
    procedure SBsxClick(Sender: TObject);
    procedure CBoxjiezhangChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F3_8: TF3_8;

implementation

{$R *.dfm}

procedure TF3_8.setTime;
var
  time:String;
begin
  time:=FormatDateTime('yyyy-mm-dd',NOW);
  LBtime.Caption:=time+'   ';
  EDtime1.Text:=time;
  EDtime2.Text:=time;
end;


procedure TF3_8.FormCreate(Sender: TObject);
begin
  setTime;
end;

procedure TF3_8.SBfhClick(Sender: TObject);
begin
  Close;
end;

procedure TF3_8.SBsxClick(Sender: TObject);
begin
  setTime;
end;

procedure TF3_8.CBoxjiezhangChange(Sender: TObject);
begin
  if (CBoxjiezhang.ItemIndex=0) or (CBoxjiezhang.ItemIndex=2)  then
  begin
    EDtime1.Enabled:=false;
    EDtime1.Color:=clScrollBar;
    Edtime2.Enabled:=false;
    Edtime2.Color:=ClScrollBar;
    Edtime2.Text:='';
  end else
  begin
    EDtime1.Enabled:=true;
    EDtime1.Color:=clWindow;
    EDtime2.Enabled:=true;
    EDtime2.Color:=clWindow;
    setTime;
  end;
end;

end.