u_set_date.pas

企业安防管理系统

unit U_set_date;

interface

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

type
  TFrm_Set_Date = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Dtp11: TDateTimePicker;
    Dtp12: TDateTimePicker;
    Dtp21: TDateTimePicker;
    Dtp22: TDateTimePicker;
    Dtp31: TDateTimePicker;
    Dtp32: TDateTimePicker;
    Dtp41: TDateTimePicker;
    Dtp42: TDateTimePicker;
    Dtp51: TDateTimePicker;
    Dtp52: TDateTimePicker;
    Dtp61: TDateTimePicker;
    Dtp62: TDateTimePicker;
    Dtp71: TDateTimePicker;
    Dtp72: TDateTimePicker;
    Dtp81: TDateTimePicker;
    Dtp82: TDateTimePicker;
    Ch1: TCheckBox;
    Ch2: TCheckBox;
    Ch3: TCheckBox;
    Ch4: TCheckBox;
    Ch5: TCheckBox;
    Ch6: TCheckBox;
    Ch7: TCheckBox;
    Ch8: TCheckBox;
    Chk1: TCheckBox;
    Chk2: TCheckBox;
    Chk3: TCheckBox;
    Chk4: TCheckBox;
    Chk5: TCheckBox;
    Chk6: TCheckBox;
    Chk7: TCheckBox;
    Chk8: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Frm_Set_Date: TFrm_Set_Date;

implementation
  uses  Datamodal;
{$R *.dfm}

procedure TFrm_Set_Date.FormShow(Sender: TObject);
var
   A,B,C:String;
begin
   data.G_Con.Open();
   data.G_Rst.SQL.Clear;
   data.G_Rst.SQL.Add('select * from SP_sjb order by name_id');
   data.G_Rst.ExecSQL;
   data.G_Rst.Open;
   while not data.G_Rst.Eof do
      begin
       if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='01') then
         chk1.Checked:=true;
       if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='02') then
         chk2.Checked:=true;
      if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='03') then
         chk3.Checked:=true;
      if (data.G_Rst.FieldValues['sy']='1') and  (data.G_Rst.FieldValues['name_id']='04') then
         chk4.Checked:=true;
      if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='05') then
         chk5.Checked:=true;
      if (trim(data.G_Rst.FieldValues['sy'])='1') and (trim(data.G_Rst.FieldValues['name_id'])='06') then
         chk6.Checked:=true;
       if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='07') then
         chk7.Checked:=true;
      if (trim(data.G_Rst.FieldValues['sy'])='1') and  (trim(data.G_Rst.FieldValues['name_id'])='08') then
         chk8.Checked:=true;
      if (trim(data.G_Rst.FieldValues['sj11'])<>'') and  (trim(data.G_Rst.FieldValues['sj12'])<>'') then
         begin
           ch1.Checked:=true;
           dtp11.DateTime:=strtotime(data.G_Rst.FieldValues['sj11']);
           dtp12.DateTime:=strtotime(data.G_Rst.FieldValues['sj12']);
         end;

      if (trim(data.G_Rst.FieldValues['sj21'])<>'') and  (trim(data.G_Rst.FieldValues['sj22'])<>'') then
         begin
           ch2.Checked:=true;
           dtp21.DateTime:=strtotime(data.G_Rst.FieldValues['sj21']);
           dtp22.DateTime:=strtotime(data.G_Rst.FieldValues['sj22']);
         end;

      if (trim(data.G_Rst.FieldValues['sj31'])<>'') and  (trim(data.G_Rst.FieldValues['sj32'])<>'') then
         begin
           ch3.Checked:=true;
           dtp31.DateTime:=strtotime(data.G_Rst.FieldValues['sj31']);
           dtp32.DateTime:=strtotime(data.G_Rst.FieldValues['sj32']);
         end;
      if (trim(data.G_Rst.FieldValues['sj41'])<>'') and  (trim(data.G_Rst.FieldValues['sj42'])<>'') then
         begin
           ch4.Checked:=true;
           dtp41.DateTime:=strtotime(data.G_Rst.FieldValues['sj41']);
           dtp42.DateTime:=strtotime(data.G_Rst.FieldValues['sj42']);
         end;
      if (trim(data.G_Rst.FieldValues['sj51'])<>'') and  (trim(data.G_Rst.FieldValues['sj52'])<>'') then
         begin
           ch5.Checked:=true;
           dtp51.DateTime:=strtotime(data.G_Rst.FieldValues['sj51']);
           dtp52.DateTime:=strtotime(data.G_Rst.FieldValues['sj52']);
         end;
      if (trim(data.G_Rst.FieldValues['sj61'])<>'') and  (trim(data.G_Rst.FieldValues['sj62'])<>'') then
         begin
           ch6.Checked:=true;
           dtp61.DateTime:=strtotime(data.G_Rst.FieldValues['sj61']);
           dtp62.DateTime:=strtotime(data.G_Rst.FieldValues['sj62']);
         end;
       if (trim(data.G_Rst.FieldValues['sj71'])<>'') and  (trim(data.G_Rst.FieldValues['sj72'])<>'') then
         begin
           ch7.Checked:=true;
           dtp71.DateTime:=strtotime(data.G_Rst.FieldValues['sj71']);
           dtp72.DateTime:=strtotime(data.G_Rst.FieldValues['sj72']);
         end;
       if (trim(data.G_Rst.FieldValues['sj81'])<>'') and  (trim(data.G_Rst.FieldValues['sj82'])<>'') then
         begin
           ch8.Checked:=true;
           dtp81.DateTime:=strtotime(data.G_Rst.FieldValues['sj81']);
           dtp82.DateTime:=strtotime(data.G_Rst.FieldValues['sj82']);
         end;
        data.G_Rst.Next;
      end;
      data.G_Rst.Close;
      data.G_Con.Close;
 end;
procedure TFrm_Set_Date.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_Set_Date.SpeedButton1Click(Sender: TObject);
var BB,AA,CC:String;
  II:Integer;
begin
   bb:='update sp_sjb set ';
  if ch1.Checked then
     begin
       bb:=bb+' sj11='+quotedstr(timetostr(dtp11.Time))+', sj12='+quotedstr(timetostr(dtp12.Time))+',';
     end
   else
     begin
       bb:=bb+' sj11='+quotedstr('')+', sj12='+quotedstr('')+',';
     end;
  if ch2.Checked then
     begin
       bb:=bb+' sj21='+quotedstr(timetostr(dtp21.Time))+', sj22='+quotedstr(timetostr(dtp22.Time))+',';
     end
  else
     begin
       bb:=bb+' sj21='+quotedstr('')+', sj22='+quotedstr('')+',';
     end;
  if ch3.Checked then
     begin
       bb:=bb+' sj31='+quotedstr(timetostr(dtp31.Time))+', sj32='+quotedstr(timetostr(dtp32.Time))+',';
     end
  else
     begin
       bb:=bb+' sj31='+quotedstr('')+', sj32='+quotedstr('')+',';
     end;

  if ch4.Checked then
     begin
       bb:=bb+' sj41='+quotedstr(timetostr(dtp41.Time))+', sj42='+quotedstr(timetostr(dtp42.Time))+',';
     end
    else
     begin
       bb:=bb+' sj41='+quotedstr('')+', sj42='+quotedstr('')+',';
     end;

   if ch5.Checked then
     begin
       bb:=bb+' sj51='+quotedstr(timetostr(dtp51.Time))+', sj52='+quotedstr(timetostr(dtp52.Time))+',';
     end
    else
     begin
       bb:=bb+' sj51='+quotedstr('')+', sj52='+quotedstr('')+',';
     end;

    if ch6.Checked then
     begin
       bb:=bb+' sj61='+quotedstr(timetostr(dtp61.Time))+', sj62='+quotedstr(timetostr(dtp62.Time))+',';
     end
    else
     begin
       bb:=bb+' sj61='+quotedstr('')+', sj62='+quotedstr('')+',';