logslt.pas

DelphiHelper---Delphi帮助源代码

unit logslt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzEdit, StdCtrls, Mask, RzButton, RzRadChk;

type
  Tfrmlogslt = class(TForm)
    RzCheckBox1: TRzCheckBox;
    RzCheckBox2: TRzCheckBox;
    RzDateTimeEdit1: TRzDateTimeEdit;
    RzDateTimeEdit2: TRzDateTimeEdit;
    RzEdit1: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure RzCheckBox1Click(Sender: TObject);
    procedure RzCheckBox2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogslt: Tfrmlogslt;

implementation

uses main, data;

{$R *.dfm}

procedure Tfrmlogslt.RzCheckBox1Click(Sender: TObject);
begin
if rzcheckbox1.Checked then
  begin
  rzdatetimeedit1.Enabled:=true;
  rzdatetimeedit2.Enabled:=true;
  end
  else
  begin
  rzdatetimeedit1.Enabled:=false;
  rzdatetimeedit2.Enabled:=false;
  end;
end;

procedure Tfrmlogslt.RzCheckBox2Click(Sender: TObject);
begin
if rzcheckbox2.Checked then
   rzedit1.Enabled:=true
   else
   rzedit1.Enabled:=false;
end;

procedure Tfrmlogslt.RzBitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tfrmlogslt.RzBitBtn2Click(Sender: TObject);
var
str1,str2:string;
begin
if rzcheckbox1.Checked then
  str1:=' and log_date>=#'+ datetostr(rzdatetimeedit1.Date)+'# and log_date<=#'+ datetostr(rzdatetimeedit2.Date)+'#'
  else
  str1:='';
if rzcheckbox2.Checked then
  str2:=' and log_title like '+''''+'%'+rzedit1.Text+'%'+''''
  else
  str2:='';
with dm do
begin
set_log.Close;
set_log.CommandText:='';
set_log.CommandText:='select * from tbl_log where log_id is not null'+str1+str2;
//showmessage(set_log.CommandText);
set_log.Prepared;
set_log.Open;
end;
end;

end.