td.pas

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

unit TD;

interface

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

type
  TFrm_TD = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    TabbedNotebook1: TTabbedNotebook;
    GroupBox4: TGroupBox;
    DBGrid3: TDBGrid;
    Label16: TLabel;
    Edit15: TEdit;
    Label18: TLabel;
    Edit17: TEdit;
    CheckBox3: TCheckBox;
    Button1: TButton;
    DataSource_mntd: TDataSource;
    DataSource_sztd: TDataSource;
    DataSource_kztd: TDataSource;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure DataSource_mntdDataChange(Sender: TObject; Field: TField);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DataSource_sztdDataChange(Sender: TObject; Field: TField);
    procedure DataSource_kztdDataChange(Sender: TObject; Field: TField);
    procedure BitBtn4Click(Sender: TObject);
    procedure TabbedNotebook1Click(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_TD: TFrm_TD;

implementation

uses DM, main, Timeset;

{$R *.dfm}



procedure TFrm_TD.FormCreate(Sender: TObject);
begin


      tabbednotebook1.ActivePage:='区域配置' ;
      datasource_mntd.DataSet:=dm.DataModule1.ADO_KZTD ;



  with dm.DataModule1.ADO_KZTD do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 区域配置');
  open;
  end;
end;

procedure TFrm_TD.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
if tabbednotebook1.ActivePage='模拟通道' then
begin

 datasource_mntd.DataSet:=dm.DataModule1.ADO_MNTD ;
  with dm.DataModule1.ADO_MNTD do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 模拟通道');
  open;
  end;
end;

if tabbednotebook1.ActivePage='数字通道' then
begin

 datasource_sztd.DataSet:=dm.DataModule1.ADO_SZTD;
   with dm.DataModule1.ADO_SZTD  do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 数字通道');
  open;
  end;
end;

if tabbednotebook1.ActivePage='区域配置' then
begin


   with dm.DataModule1.ADO_KZTD   do
  begin
  close;
  sql.Clear;
  sql.Add('select * from 区域配置');
  open;
  end;
  dbgrid3.DataSource:=datasource_kztd;
end;

end;


//------------------通道保存-------------------------
procedure TFrm_TD.BitBtn1Click(Sender: TObject);
var
s1,s2:string;
s:array[1..12]of string;
begin
/////////////////////////////////////////////////////////////////////////////////////////////////

 {if tabbednotebook1.ActivePage='模拟通道' then
 begin


   if messagedlg('确定要增加模拟通道吗?',mtWarning,[mbyes,mbno],0)=mryes then
   begin

      if checkbox1.Checked=true then s2:='是';
      if checkbox1.Checked=false then s2:='否';

     if edit1.Text='' then
       begin
       Application.MessageBox('通道编号不能为空！','提示！',64);
       edit1.SetFocus;
       exit;
       end;
    with dm.DataModule1.ADO_MNTD do
      begin
        s[1]:=edit1.Text;
        s[2]:=edit2.Text;
        s[3]:=edit3.Text;
        s[4]:=edit4.Text;
        s[5]:=edit5.Text;
        s[6]:=edit6.Text;
        s[7]:=edit7.Text;
        s[8]:=edit8.Text;
        s[9]:=edit9.Text;
        s[10]:=edit10.Text;
        s[11]:=edit11.Text;

       Close;
       SQL.Clear;
       SQL.Add('select *  from 模拟通道 where 通道号='''+s[1]+'''');
       Open;
      if not Eof then
      Application.MessageBox('通道号不能重复！','提示！',64)
      else

   begin
   with DM.DataModule1.ADO_MNTD  do
   begin
    Close;
    SQL.Clear;
    SQL.Add('Insert Into 模拟通道 values(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,');
    SQl.Add(':a11,:a12)');
    parameters.ParamByName('a1').Value:=s[1];
    parameters.ParamByName('a2').Value:=s[2];
    parameters.ParamByName('a3').Value:=s[3];
    parameters.ParamByName('a4').Value:=s[4];
    parameters.ParamByName('a5').Value:=s[5];
    parameters.ParamByName('a6').Value:=s[6];
    parameters.ParamByName('a7').Value:=s[7];
    parameters.ParamByName('a8').Value:=s[8];
    parameters.ParamByName('a9').Value:=s[9];
    parameters.ParamByName('a10').Value:=s[10];
    parameters.ParamByName('a11').Value:=s[11];
    parameters.ParamByName('a12').Value:=s2;
    execsql;
    end;
    end;
    end;
    with dm.DataModule1.ADO_MNTD do
    begin
    close;
    sql.Clear;
    sql.Add('select * from 模拟通道');
    open;
    end;
    end;

    end;



    //---/////////////////////////----------------------------------------------
    if tabbednotebook1.ActivePage='数字通道' then
   begin



   if messagedlg('确定要增加数字通道吗?',mtWarning,[mbyes,mbno],0)=mryes then
   begin

      if checkbox2.Checked then s2:='是';
      if checkbox2.Checked=false then s2:='否';
      if edit12.Text='' then
       begin
       Application.MessageBox('通道编号不能为空！','提示！',64);
       edit12.SetFocus;
       exit;
       end;

       with dm.DataModule1.ADO_SZTD do
       begin
        s[1]:=edit12.Text;
        s[2]:=edit13.Text;
        s[3]:=edit14.Text;
        s[4]:=edit16.Text;


       Close;
       SQL.Clear;
       SQL.Add('select *  from 数字通道 where 通道号='''+s[1]+'''');
       Open;
      if not Eof then
      Application.MessageBox('通道号不能重复！','提示！',64)
      else
       begin
       with dm.DataModule1.ADO_SZTD do
       begin
       Close;
       SQL.Clear;
       SQL.Add('Insert Into 数字通道 values(:a1,:a2,:a3,:a4,:a5)');


        parameters.ParamByName('a1').Value:=s[1];
        parameters.ParamByName('a2').Value:=s[2];
        parameters.ParamByName('a3').Value:=s[3];
        parameters.ParamByName('a4').Value:=s[4];
        parameters.ParamByName('a5').Value:=s2;
        execsql;
       end;
       end;
       end;
       with dm.DataModule1.ADO_SZTD do
       begin
       close;
       sql.Clear;
       sql.Add('select * from 数字通道');
       open;
       end;
       end;




   end;         }


   /////////////////////////////////////////////////////////////////

    if tabbednotebook1.ActivePage='区域配置' then
   begin

   if messagedlg('确定要增加区域配置吗?',mtWarning,[mbyes,mbno],0)=mryes then
   begin

      if checkbox3.Checked=true  then s2:='是';
      if checkbox3.Checked=false then s2:='否';
      if edit15.Text='' then
       begin
       Application.MessageBox('区域号不能为空！','提示！',64);
       edit15.SetFocus;
       exit;
       end;

       with dm.DataModule1.ADO_KZTD  do
       begin
        s[1]:=edit15.Text;
        s[2]:=edit17.Text;
        s[3]:=s2;



       Close;
       SQL.Clear;
       SQL.Add('select *  from 区域配置 where 区域号='''+s[1]+'''');
       Open;
      if not Eof then
      Application.MessageBox('区域号不能重复！','提示！',64)
      else
       begin
       with dm.DataModule1.ADO_KZTD do
       begin
       Close;
       SQL.Clear;
       SQL.Add('Insert Into 区域配置 values(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8)');


        parameters.ParamByName('a1').Value:=s[1];
        parameters.ParamByName('a2').Value:=s[2];
        parameters.ParamByName('a3').Value:=s2;
        parameters.ParamByName('a4').Value:='19:00:00';
        parameters.ParamByName('a5').Value:='06:00:00';
        parameters.ParamByName('a6').Value:='0';
        parameters.ParamByName('a7').Value:='0';
        parameters.ParamByName('a8').Value:='0';
        execsql;
       end;
       end;
       end;
       with dm.DataModule1.ADO_KZTD do
       begin
       close;
       sql.Clear;
       sql.Add('select * from 区域配置');
       open;
       end;
       end;

   end;