udate_format.pas

电话防伪系统

unit Udate_format;

interface

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

type
  Tdate_format = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image2: TImage;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Bevel4: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yesno:boolean;
    s_date:tdate;
    e_date:tdate;
    xd_bool:boolean;
    xd1_bool:boolean;
    xd2_bool:boolean;
    xd3_bool:boolean;
    xd4_bool:boolean;
  end;

var
  date_format: Tdate_format;

implementation

{$R *.dfm}

procedure Tdate_format.FormShow(Sender: TObject);
begin
   //show the form 2001-12-20a
   datetimepicker1.DateTime :=now;
   DateTimePicker2.DateTime :=now;
   checkbox1.Checked :=false;
   checkbox2.Checked :=false;
   checkbox3.Checked :=false;
   checkbox4.Checked :=false;
   checkbox5.Checked :=false;

   checkbox2.Enabled :=false;
   checkbox3.Enabled :=false;
   checkbox4.Enabled :=false;
   checkbox5.Enabled :=false;

   yesno:=false;

end;

procedure Tdate_format.CheckBox1Click(Sender: TObject);
begin
   //check the checkbox1 2001-12-20
   if checkbox1.Checked =true then
   begin
      checkbox2.Enabled :=true;
      checkbox3.Enabled :=true;
      checkbox4.Enabled :=true;
      checkbox5.Enabled :=true;
   end
   else
   begin
      checkbox2.Checked :=false;
      checkbox3.Checked :=false;
      checkbox4.Checked :=false;
      checkbox5.Checked :=false;

      checkbox2.Enabled :=false;
      checkbox3.Enabled :=false;
      checkbox4.Enabled :=false;
      checkbox5.Enabled :=false;
   end;
end;

procedure Tdate_format.BitBtn2Click(Sender: TObject);
begin
   //close the windows 2001-12-20a
   close;
end;

procedure Tdate_format.BitBtn1Click(Sender: TObject);
begin
   //click the ok and close the windows 2001-12-20a

   //format the time
   if datetimepicker1.Date >datetimepicker2.Date then
   begin
      showmessage('起始日期比终止日期还要大!');
      datetimepicker1.SetFocus ;
      exit;
   end;

   s_date:=datetimepicker1.Date ;
   e_date:=datetimepicker2.Date ;
   xd_bool:=checkbox1.Checked ;
   if xd_bool=true then
   begin
      xd1_bool:=checkbox2.Checked ;
      xd2_bool:=checkbox3.Checked ;
      xd3_bool:=checkbox4.Checked ;
      xd4_bool:=checkbox5.Checked ;
   end
   else
   begin
      xd1_bool:=true;
      xd2_bool:=true;
      xd3_bool:=true;
      xd4_bool:=true;
   end;

   yesno:=true;
   close;

end;

end.