www.pudn.com > 电话产品防伪伺服系统(tw8).rar > 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.