main.pas

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

 end;

 with dm.DataModule1.ADO_BC1 do
 begin
 close;
 sql.Clear;
 SQL.Add('update BC1 set ') ;
 SQL.add('1路="'+zhuangtai1[1]+'"');
 SQL.add(',2路="'+zhuangtai1[2]+'"');
 SQL.add(',3路="'+zhuangtai1[3]+'"');
 SQL.add(',4路="'+zhuangtai1[4]+'"');
 SQL.add(',5路="'+zhuangtai1[5]+'"');
 SQL.add(',6路="'+zhuangtai1[6]+'"');
 SQL.add(',7路="'+zhuangtai1[7]+'"');
 SQL.add(',8路="'+zhuangtai1[8]+'"');
 SQL.add(',9路="'+zhuangtai1[9]+'"');
 SQL.add(',10路="'+zhuangtai1[10]+'"');
 SQL.add(',11路="'+zhuangtai1[11]+'"');
 SQL.add(',12路="'+zhuangtai1[12]+'"');
 SQL.add(',13路="'+zhuangtai1[13]+'"');
 SQL.add(',14路="'+zhuangtai1[14]+'"');
 SQL.add(',15路="'+zhuangtai1[15]+'"');
 SQL.add(',16路="'+zhuangtai1[16]+'"');
 SQL.add(',17路="'+zhuangtai1[17]+'"');
 SQL.add(',18路="'+zhuangtai1[18]+'"');
 SQL.add(',19路="'+zhuangtai1[19]+'"');
 SQL.add(',20路="'+zhuangtai1[20]+'"');
 SQL.add(',21路="'+zhuangtai1[21]+'"');
 SQL.add(',22路="'+zhuangtai1[22]+'"');
 SQL.add(',23路="'+zhuangtai1[23]+'"');
 SQL.add(',24路="'+zhuangtai1[24]+'"');
 SQL.add(',25路="'+zhuangtai1[25]+'"');
 SQL.add(',26路="'+zhuangtai1[26]+'"');
 SQL.add(',27路="'+zhuangtai1[27]+'"');
 SQL.add(',28路="'+zhuangtai1[28]+'"');



 ExecSql;
 end;




end;







function Tfrm_main.getorder:string;
var
s:array[1..6]of string;
k:string;
i:integer;
begin
if check1.Checked=true then s[1]:='01'
else                        s[1]:='00';

if check2.Checked=true then s[2]:='01'
else                        s[2]:='00';

if check3.Checked=true then s[3]:='01'
else                        s[3]:='00';

if check4.Checked=true then s[4]:='00'
else                        s[4]:='00';

if check5.Checked=true then s[5]:='00'
else                        s[5]:='00';

if check6.Checked=true then s[6]:='00'
else                        s[6]:='00';

k:='';
for i:=1 to 6 do
begin
k:=k+s[i];
end;

result:=k;

end;

////////////////////////////////////
procedure Tfrm_main.outorder;
var
m:string;
s:array[1..6]of string;

begin
m:=dm.DataModule1.ADO_SB.fieldbyname('路灯选择').AsString;

s[1]:=copy(m,1,2);
if s[1]='01' then check1.Checked:=true
else              check1.Checked:=false;

s[2]:=copy(m,3,2);
if s[2]='01' then check2.Checked:=true
else              check2.Checked:=false;

s[3]:=copy(m,5,2);
if s[3]='01' then check3.Checked:=true
else              check3.Checked:=false;

s[4]:=copy(m,7,2);
if s[4]='01' then check4.Checked:=false
else              check4.Checked:=false;

s[5]:=copy(m,9,2);
if s[5]='01' then check5.Checked:=false
else              check5.Checked:=false;

s[6]:=copy(m,11,2);
if s[6]='01' then check6.Checked:=false
else              check6.Checked:=false;



end;
///////////////////////////////////////
function tfrm_main.strtobin(src:string):string;
var
ss,s1,s2,src1,src2:string;
begin
 if src='' then result:='' else
 begin
 ss:=inttohex(strtoint(src),2);
 s1:=copy(ss,1,1);
 if s1='0' then src1:='0000';
 if s1='1' then src1:='0001';
 if s1='2' then src1:='0010';
 if s1='3' then src1:='0011';
 if s1='4' then src1:='0100';
 if s1='5' then src1:='0101';
 if s1='6' then src1:='0110';
 if s1='7' then src1:='0111';
 if s1='8' then src1:='1000';
 if s1='9' then src1:='1001';
 if s1='A' then src1:='1010';
 if s1='B' then src1:='1011';
 if s1='C' then src1:='1100';
 if s1='D' then src1:='1101';
 if s1='E' then src1:='1110';
 if s1='F' then src1:='1111';
 S2:=copy(ss,2,1);
 if s2='0' then src2:='0000';
 if s2='1' then src2:='0001';
 if s2='2' then src2:='0010';
 if s2='3' then src2:='0011';
 if s2='4' then src2:='0100';
 if s2='5' then src2:='0101';
 if s2='6' then src2:='0110';
 if s2='7' then src2:='0111';
 if s2='8' then src2:='1000';
 if s2='9' then src2:='1001';
 if s2='A' then src2:='1010';
 if s2='B' then src2:='1011';
 if s2='C' then src2:='1100';
 if s2='D' then src2:='1101';
 if s2='E' then src2:='1110';
 if s2='F' then src2:='1111';

 result:=src1+src2;
 end;


end;



procedure TFrm_Main.DataSource_YHDataChange(Sender: TObject;
  Field: TField);
begin
   with dm.DataModule1.ADO_YH  do
   begin
    Edit1.Text:=fieldbyname('用户代号').AsString;
    Edit3.Text:=fieldbyname('用户密码').AsString;
    combobox1.Text:=fieldbyname('用户权限').AsString;

  end;
end;

procedure TFrm_Main.BitBtn1Click(Sender: TObject);
var
s:array[1..4] of string;
begin
     if edit1.Text='' then
      begin
       Application.MessageBox('用户代号不能为空！','提示！',64);
       edit1.SetFocus;
       exit;
       end;
    with dm.DataModule1.ADO_YH do
     begin
        s[1]:=edit1.Text;
        s[3]:=edit3.Text;
        s[4]:=combobox1.Text;
       Close;
       SQL.Clear;
       SQL.Add('select *  from 用户 where 用户代号='''+s[1]+'''');
       Open;
       dbgrid1.Fields[1].Visible:=false;
     if not Eof then
      Application.MessageBox('用户代号不能重复！','提示！',64)
      else
    begin //开始添加
       Close;
       SQL.Clear;
       sql.Add('insert into 用户 values(:a1,:a2,:a3)');
       parameters.ParamByName('a1').Value:=s[1];
       parameters.ParamByName('a2').Value:=s[3];
       parameters.ParamByName('a3').Value:=s[4];
        ExecSQL;
      Close;
      SQL.Clear;
      SQL.Add('Select * From 用户');
      Open;
      dbgrid1.Fields[1].Visible:=false;
      end;
   end;
    with dm.DataModule1.ADO_YH do
     begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From 用户');
    Open;
    dbgrid1.Fields[1].Visible:=false;
    end;
end;



//--------------------create-------------------
procedure TFrm_Main.FormCreate(Sender: TObject);

begin
tabbednotebook1.ActivePage:='模拟画面';
button2.Visible:=false;
button3.Visible:=false;
Bitbtn8.Visible:=false;
bitbtn9.Visible:=false;
button5.Visible:=false;
led12.Visible:=false;
speedbutton12.Visible:=false;


statusbar1.Panels[1].Text:='用户权限：'+frm_login.quanxian;
    if frm_login.quanxian='普通用户'  then
    begin
    frm_main.BitBtn1.Enabled:=false;
    frm_main.BitBtn2.Enabled:=false;
    frm_main.BitBtn3.Enabled:=false;
    end;
{c1:=c[1];
c2:=c[2];
c3:=c[3];
c4:=c[4];
c5:=c[5];
c6:=c[6];
c7:=c[7];
c8:=c[8];
c9:=c[9];
c10:=c[10];
c11:=c[11];
c12:=c[12];
c13:=c[13];
c14:=c[14];
c15:=c[15];
c16:=c[16];
c17:=c[17];
c18:=c[18];
c19:=c[19];
c20:=c[20];
c21:=c[21];
c22:=c[22];
c23:=c[23];
c24:=c[24];
c25:=c[25];
c26:=c[26];
c27:=c[27];
c28:=c[28];
c29:=c[29];
c30:=c[30];   }
led[1]:=led1;
led[2]:=led2;
led[3]:=led3;
led[4]:=led4;
led[5]:=led5;
led[6]:=led6;
led[7]:=led7;
led[8]:=led8;
led[9]:=led9;
led[10]:=led10;
led[11]:=led11;
led[12]:=led12;
led[13]:=led13;
led[14]:=led14;
led[15]:=led15;
led[16]:=led16;
led[17]:=led17;
led[18]:=led18;
led[19]:=led19;
led[20]:=led20;
led[21]:=led21;
led[22]:=led22;
led[23]:=led23;
led[24]:=led24;
led[25]:=led25;
led[26]:=led26;
led[27]:=led27;
led[28]:=led28;


end;




procedure TFrm_Main.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
if tabbednotebook1.ActivePage='用户信息' then
begin
   with dm.DataModule1.ADO_YH do
    begin
     close;
     sql.Clear;
     sql.Add('select * from 用户');
     open;
    end;
    dbgrid1.Fields[1].Visible:=false;
end;

if tabbednotebook1.ActivePage='设备信息管理' then

begin
    datasource_sb.DataSet:=dm.DataModule1.ADO_SB;
   with dm.DataModule1.ADO_SB  do
    begin
     close;
     sql.Clear;
     sql.Add('select * from 设备档案');
     open;
    end;



end;



end;

procedure TFrm_Main.BitBtn2Click(Sender: TObject);
var
s:string;
begin
if MessageDlg('确实要删除吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
  begin
    s:=dm.DataModule1.ADO_YH.FieldByName('用户代号').AsString;
    if s='mz' then
    begin
     MessageBox(Handle,'您无权删除此用户！','操作错误',MB_ICONERROR+MB_OK);
     exit;
     end;
     with dm.DataModule1.ADO_YH do
       begin
       Close;
       SQL.Clear;
       SQL.Add('Delete From 用户 where (用户代号='''+edit1.Text+''')');
       execsql;
      end;
  end;
   with dm.DataModule1.ADO_YH do
      begin
     Close;
    SQL.Clear;
    SQL.Add('Select * From 用户');
    Open;
    dbgrid1.Fields[1].Visible:=false;
  end;
end;



procedure TFrm_Main.BitBtn3Click(Sender: TObject);
var
s:string;
begin
with dm.DataModule1.ADO_YH do
 begin
    s:=fieldbyname('用户代号').AsString;
    Close;
    SQL.Clear;
    SQL.Add('update 用户 set ');
    SQL.add('用户代号='''+Edit1.text+'''');
    SQL.add(',用户密码='''+Edit3.text+'''');
    SQL.add(',用户权限='''+combobox1.text+'''');
    SQL.Add('where 用户代号='''+s+'''');
     ExecSQL;
    Close;
    SQL.Clear;
    SQL.Add('Select * From 用户');
    Open;
    dbgrid1.Fields[1].Visible:=false;
  end;
end;

//------------yonghu-------------------
procedure TFrm_Main.N3Click(Sender: TObject);
begin
 tabbednotebook1.ActivePage:='用户信息';
end;


//----------设备增加-----------------
procedure TFrm_Main.BitBtn4Click(Sender: TObject);
var
s:array[1..6]of string;
s2:string;
begin
      if checkbox1.Checked=true then s2:='1';
      if checkbox1.Checked=false then s2:='0';

if edit2.Text='' then
      begin
       Application.MessageBox('设备编号不能为空！','提示！',64);
       edit2.SetFocus;
       exit;
       end;
    with dm.DataModule1.ADO_SB do
     begin
        s[1]:=edit2.Text;
        s[2]:=edit4.Text;
        s[3]:=combobox2.Text;
        s[4]:=edit6.Text;
        s[5]:=edit7.Text;
        s[6]:=edit8.Text;
       Close;
       SQL.Clear;
       SQL.Add('select *  from 设备档案 where 设备编号='''+s[1]+'''');
       Open;

     if not Eof then
      Application.MessageBox('设备编号不能重复！','提示！',64)
      else
    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:=s[3];
       parameters.ParamByName('a4').Value:=s[4];
       parameters.ParamByName('a5').Value:=getorder;
       parameters.ParamByName('a6').Value:=s2;
       parameters.ParamByName('a7').Value:=s[5];
       parameters.ParamByName('a8').Value:=s[6];
       ExecSQL;
      Close;
      SQL.Clear;
      SQL.Add('Select * From 设备档案');
      Open;

      end;
   end;
    with dm.DataModule1.ADO_SB do
     begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From 设备档案');
    Open;
    
    end;

end;

procedure TFrm_Main.BitBtn5Click(Sender: TObject);
begin

 if MessageDlg('确实要删除吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
  begin
     with dm.DataModule1.ADO_SB do
       begin
       Close;
       SQL.Clear;
       SQL.Add('Delete From 设备档案 where (设备编号='''+edit2.Text+''')');
       execsql;
       end;
  end;
   with dm.DataModule1.ADO_SB do
      begin
     Close;
    SQL.Clear;
    SQL.Add('Select * From 设备档案');
    Open;
  end;


end;

procedure TFrm_Main.BitBtn6Click(Sender: TObject);
var
s:string;
s2:string;