u_set_bfyy.pas

企业安防管理系统

unit U_Set_Bfyy;

interface

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

type
  TFrm_Set_BFYY = class(TForm)
    Panel1: TPanel;
    Lvw_Lb1: TListView;
    Label1: TLabel;
    Lvw_LB2: TListView;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Chk: TCheckBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label2: TLabel;
    Cmx_Lb: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Frm_Set_BFYY: TFrm_Set_BFYY;

implementation
   uses u_set_date,u_set_jjr, Datamodal;
{$R *.dfm}

procedure TFrm_Set_BFYY.SpeedButton1Click(Sender: TObject);
begin
 frm_set_date:=Tfrm_set_date.Create(application);
 frm_set_date.ShowModal;
  FormShow(Sender);
end;

procedure TFrm_Set_BFYY.SpeedButton5Click(Sender: TObject);
begin
   frm_set_jjr:=Tfrm_set_jjr.Create(application);
   frm_set_jjr.ShowModal;
end;

procedure TFrm_Set_BFYY.FormShow(Sender: TObject);
 var
   A,B,C:String;
begin
   lvw_lb1.Items.Clear;
   lvw_lb1.Items.Add.Caption:='通道0';
   lvw_lb2.Items.Clear;

   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
        A:=Data.G_Rst.FieldValues['name'];
        B:=data.G_Rst.FieldValues['sj11'];
        B:=B+data.G_Rst.FieldValues['sj12']+' ';
        B:=B+data.G_Rst.FieldValues['sj21'];
        B:=B+data.G_Rst.FieldValues['sj22']+' ';
        B:=B+data.G_Rst.FieldValues['sj31'];
        B:=B+data.G_Rst.FieldValues['sj32']+' ';
        B:=B+data.G_Rst.FieldValues['sj41'];
        B:=B+data.G_Rst.FieldValues['sj42']+' ';
        B:=B+data.G_Rst.FieldValues['sj51'];
        B:=B+data.G_Rst.FieldValues['sj52']+' ';
        B:=B+data.G_Rst.FieldValues['sj61'];
        B:=B+data.G_Rst.FieldValues['sj62']+' ';
        B:=B+data.G_Rst.FieldValues['sj71'];
        B:=B+data.G_Rst.FieldValues['sj72']+' ';
        B:=B+data.G_Rst.FieldValues['sj81'];
        B:=B+data.G_Rst.FieldValues['sj81']+' ';
        C:=data.G_Rst.FieldValues['name_Id'];
         with lvw_lb2.Items.Add do
            begin
             caption:=A;
             subitems.Add(b);
             subitems.Add(c);
            end;
        data.G_Rst.Next;
      end;
    // 录像计时表0停止
     data.G_Rst.SQL.Clear;
     data.G_Rst.SQL.Add('select * from SP_sjks');
     data.G_Rst.ExecSQL;
     data.G_Rst.Open;
    while not data.G_Rst.Eof do
      begin
       if trim(data.G_Rst.FieldValues['sjks'])='1' then
         chk.Checked:=true
       else
         chk.Checked:=false;
         data.G_Rst.Next;
      end;
      data.G_Rst.Close;
      data.G_Con.Close;

   cmx_lb.Items.Clear;
   cmx_lb.Items.Add('全天');

end;

procedure TFrm_Set_BFYY.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_Set_BFYY.SpeedButton2Click(Sender: TObject);
var BB,AA:String;
 
begin
   bb:='update sp_sjb set ';
   bb:=bb+' sj11='+quotedstr('')+', sj12='+quotedstr('')+',';
   bb:=bb+' sj21='+quotedstr('')+', sj22='+quotedstr('')+',';
   bb:=bb+' sj31='+quotedstr('')+', sj32='+quotedstr('')+',';
   bb:=bb+' sj41='+quotedstr('')+', sj42='+quotedstr('')+',';
   bb:=bb+' sj51='+quotedstr('')+', sj52='+quotedstr('')+',';
   bb:=bb+' sj61='+quotedstr('')+', sj62='+quotedstr('')+',';
   bb:=bb+' sj71='+quotedstr('')+', sj72='+quotedstr('')+',';
   bb:=bb+' sj81='+quotedstr('')+', sj82='+quotedstr('')+',';
    data.G_Con.Open();
        AA:=BB+'sy='+quotedstr('0');
        data.G_Rst.SQL.Clear;
        data.G_Rst.SQL.Add(AA);
        data.G_Rst.ExecSQL;
       data.G_Con.Close;
        FormShow(Sender);
end;

procedure TFrm_Set_BFYY.SpeedButton3Click(Sender: TObject);
begin
     data.G_Con.Open();
      data.G_Rst.SQL.Clear;

      if chk.Checked then
        begin
          data.G_Rst.SQL.Add('update sp_sjks set  sjks='+quotedstr('1'));
        end
      else
       begin
        data.G_Rst.SQL.Add('update sp_sjks set sjks='+quotedstr('0'));
       end;

      data.G_Rst.ExecSQL;
       data.G_Con.Close;

end;

end.