www.pudn.com > 邮件群发程序1.2.rar > DateQuery.pas

unit DateQuery; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ComCtrls, Buttons; 
 
type 
  TfrmDateQuery = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    startDate: TDateTimePicker; 
    endDate: TDateTimePicker; 
    CheckBox1: TCheckBox; 
    BitBtn1: TBitBtn; 
    BitBtn4: TBitBtn; 
    BitBtn2: TBitBtn; 
    procedure FormCreate(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn4Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
    procedure setDate(); 
  end; 
 
var 
  frmDateQuery: TfrmDateQuery; 
 
implementation 
 
uses IniFiles; 
 
{$R *.dfm} 
 
procedure TfrmDateQuery.FormCreate(Sender: TObject); 
begin 
    LongDateFormat:='YYYY-mm-dd hh:nn:ss'; 
    endDate.DateTime:=now; 
    //startDate.DateTime:=strtodatetime('2003-5-22 00:00:00'); 
end; 
 
procedure TfrmDateQuery.setDate(); 
var 
    ini:TiniFile; 
    fn:string; 
begin 
        fn:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
        ini:=TiniFile.Create(fn); 
    if CheckBox1.Checked then 
    begin 
        ini.WriteBool('DATEQUERY','ISCHECK',TRUE); 
        ini.WriteDateTime('DATEQUERY','STARTDATE',startDate.DateTime); 
        ini.WriteDateTime('DATEQUERY','ENDDATE',endDate.DateTime); 
    end 
    else 
    begin 
        ini.WriteBool('DATEQUERY','ISCHECK',FALSE); 
        ini.WriteString('DATEQUERY','STARTDATE',''); 
        ini.WriteString('DATEQUERY','ENDDATE',''); 
    end; 
end; 
 
procedure TfrmDateQuery.FormClose(Sender: TObject; 
  var Action: TCloseAction); 
begin 
    free; 
end; 
 
procedure TfrmDateQuery.BitBtn1Click(Sender: TObject); 
var 
    ini:TiniFile; 
    fn:string; 
begin 
        fn:=ExtractFilePath(Paramstr(0))+'mail.ini'; 
        ini:=TiniFile.Create(fn); 
    if CheckBox1.Checked then 
    begin 
        ini.WriteInteger('DATEQUERY','ISCHECK',1); 
        ini.WriteDateTime('DATEQUERY','STARTDATE',startDate.DateTime); 
        ini.WriteDateTime('DATEQUERY','ENDDATE',endDate.DateTime); 
    end 
    else 
    begin 
        ini.WriteInteger('DATEQUERY','ISCHECK',0); 
        ini.WriteString('DATEQUERY','STARTDATE',''); 
        ini.WriteString('DATEQUERY','ENDDATE',''); 
     end; 
    ini.Free; 
    close; 
end; 
 
procedure TfrmDateQuery.BitBtn4Click(Sender: TObject); 
begin 
    close; 
end; 
 
procedure TfrmDateQuery.BitBtn2Click(Sender: TObject); 
begin 
    close; 
end; 
 
end.