log.pas

路灯控制 可以实现路灯远程开关等

unit log;

interface

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

type
  Tfrm_log = class(TForm)
    Panel1: TPanel;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Edit_JL: TEdit;
    ComboBox1: TComboBox;
    Panel2: TPanel;
    Button1: TButton;
    Button3: TButton;
    DataSource_log: TDataSource;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
      DQSstr,DJSstr:string;
    s:array[1..8] of string;
    QSstr,JSstr:string;
    QS,Js:real;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_log: Tfrm_log;

implementation

uses DM;

{$R *.dfm}

procedure Tfrm_log.Button3Click(Sender: TObject);
begin
close;
end;



procedure Tfrm_log.Button1Click(Sender: TObject);
var
count,i:integer;
begin
 if  combobox1.Text='日期时间' then
 begin
         Qs:=Trunc(DateTimePicker1.Date)+(DateTimePicker2.Time-Trunc(DateTimePicker2.Time));
         Js:=Trunc(DateTimePicker3.Date)+(DateTimePicker4.Time-Trunc(DateTimePicker4.Time));
         QsStr:=FormatDateTime('YYYY-MM-DD HH:NN:SS',Qs);
         JsStr:=FormatDateTime('YYYY-MM-DD HH:NN:SS',Js);
        if qsstr>jsstr then
        MessageBox(Handle,'时间选择错误！','错误',MB_OK+MB_ICONERROR)
      else
      begin
           with dm.DataModule1.ADO_log do
              begin
              close;
              sql.Clear;
              sql.Add('select * from log where 日期时间>"'+QsStr+'" and 日期时间<"'+JsStr+'" order by 日期时间');
              open;
              count:=recordcount;
              edit_Jl.Text:=inttostr(count);
            if count<=0 then
               begin
               application.MessageBox('没有查到开关灯记录！','提示',64);

              end
            end;
     end;
 end;



 if combobox1.Text='开灯' then
 begin
   with dm.DataModule1.ADO_log do
   begin
   close;
   sql.Clear;
   sql.Add('select * from log where 开关灯记录 like ''%开灯%''');
   //showmessage(sql.Text);
   open;
   count:=recordcount;
    edit_Jl.Text:=inttostr(count);
    if count<=0 then
    begin
    application.MessageBox('没有查到开灯记录！','提示',64);

    end ;
   end;
 end;

 if combobox1.Text='关灯' then
 begin
  with dm.DataModule1.ADO_log do
   begin
   close;
   sql.Clear;
   sql.Add('select *  from log where 开关灯记录 like ''%关灯%'' ');
   open;
   count:=recordcount;
    edit_Jl.Text:=inttostr(count);
    if count<=0 then
    begin
    application.MessageBox('没有查到关灯记录！','提示',64);

    end ;
   end;


 end;

end;

end.