unit1.pas

企业污染源在线监控软件（delphi7.0+mysql）可以按说明文件自行扩充驱动（用DDE数据交换技术）来实现任意多个信号的可视化监控及报警。

image13.Visible:=false;
tabsheet1.tabvisible:=false;
tabsheet2.tabvisible:=false;
tabsheet3.tabvisible:=false;
tabsheet4.tabvisible:=false;
tabsheet5.tabvisible:=false;
tabsheet8.tabvisible:=false;
tabsheet9.tabvisible:=false;
tabsheet6.tabvisible:=false;
tabsheet7.tabvisible:=false;
tabsheet11.tabvisible:=false;
tabsheet10.tabvisible:=false;
tabsheet15.tabvisible:=false;
tabsheet16.tabvisible:=false;
tabsheet17.tabvisible:=false;
tabsheet18.tabvisible:=false;
tabsheet19.TabVisible:=true;
////
exefilename:=application.ExeName;
exefilepath:=extractfiledir(exefilename);
helpfilename:=exefilepath+'\help.chm';
ddd:=pchar('hh '+ helpfilename);
winexec(ddd,SW_RESTORE);
end;

procedure TForm1.Image7Click(Sender: TObject);
begin
image7.Visible:=false;
image13.Visible:=true;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
image11.Visible:=false;
image12.Visible:=false;
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
adotable1.Post;
showmessage('“企业信息”已成功保存！');
button1.Enabled:=false;
except
showmessage('“企业信息”保存失败，请检查数据的完整性！');
end;
end;


procedure TForm1.ADOTable1AfterEdit(DataSet: TDataSet);
begin
button1.Enabled:=true;

end;

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
if adotable1.Eof then
begin
adotable1.Append;
button1.Enabled:=true;
end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then dbgrid1.ReadOnly:=true;
if radiogroup1.ItemIndex=1 then dbgrid1.ReadOnly:=false;
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.ItemIndex=0 then dbgrid2.ReadOnly:=true;
if radiogroup2.ItemIndex=1 then dbgrid2.ReadOnly:=false;
end;

procedure TForm1.RadioGroup3Click(Sender: TObject);
begin
if radiogroup3.ItemIndex=0 then
begin
dbgrid3.ReadOnly:=true;
dbgrid5.ReadOnly:=true;
button4.Enabled:=false;
button7.Enabled:=false;
end;
if radiogroup3.ItemIndex=1 then
begin
dbgrid3.ReadOnly:=false;
dbgrid5.ReadOnly:=false;
button4.Enabled:=true;
button7.Enabled:=true;
end;
end;


procedure TForm1.DBGrid3CellClick(Column: TColumn);
var
aaa:string;
begin
if (adoquery6.FieldByName('sj_type').AsString='离散') or (adoquery6.FieldByName('sj_type').AsString='开关') then
begin
   button2.Enabled:=false;
   dbgrid5.Enabled:=true;
   aaa:=format('select * from youxiao where td_id=%s',[adoquery6.fieldbyname('id').asstring]);
   adoquery2.Close;
   adoquery2.SQL.Clear;
   adoquery2.SQL.Add(aaa);
   adoquery2.Open;
end
else
begin
   baojing:=0;
   if adoquery6.FieldByName('warming').AsString='是' then button2.Enabled:=true else button2.Enabled:=false;
   adoquery2.Close;
   dbgrid5.Enabled:=false;
end;
if adoquery6.FieldByName('sj_type').AsString='计算' then
begin
   dbgrid5.Visible:=false;
   groupbox2.Visible:=true;
   adoquery3.Close;
   adoquery3.sql.Clear;
   adoquery3.SQL.Add('select sj_id from tongdao ');
   adoquery3.Open;
   combobox2.Items.Clear;
   if not adoquery3.Eof  then
   begin
      combobox2.Items.Add(adoquery3.fieldbyname('sj_id').AsString);
      adoquery3.Next;
   end;
   aaa:=format('select * from jishuantongdao where data_id=%s',[adoquery6.fieldbyname('sj_id').asstring]);
   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.Add(aaa);
   adoquery3.Open;
   combobox2.Text:='';
   edit1.Text:='';
   jishuan:=0;
   if not adoquery3.Eof then
   begin
      jishuan:=1;
      combobox1.Text:=adoquery3.fieldbyname('num_td').asstring;
      edit1.Text:=adoquery3.fieldbyname('jishuan').asstring;
   end;
end
else
begin
   dbgrid5.Visible:=true;
   groupbox2.Visible:=false;
end;

end;

procedure TForm1.ADOQuery2AfterInsert(DataSet: TDataSet);
var
aaa:string;
begin
aaa:=format('update youxiao set td_id=%s where td_id=-1',[adoquery6.fieldbyname('id').asstring]);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.sql.Add(aaa);
adoquery3.ExecSQL;
end;

procedure TForm1.ADOQuery1BeforeScroll(DataSet: TDataSet);
var
aaa:string;
begin
if pagecontrol1.ActivePageIndex=1 then
begin
aaa:='';
if (adoquery1.FieldByName('user_name').AsString='') then aaa:=aaa+'请输入用户名称！';
if (adoquery1.FieldByName('user_code').AsString='') then aaa:=aaa+'请输入用户编号！';
if (adoquery1.FieldByName('user_jibie').AsString='') then aaa:=aaa+'请输入用户级别！';
if aaa <> '' then showmessage(aaa);
end;



end;

procedure TForm1.ADOQuery2BeforeScroll(DataSet: TDataSet);
var
aaa:string;
begin
aaa:='';
if adoquery2.FieldByName('name').AsString='' then aaa:=aaa+'请输入状态名称！';
if adoquery2.FieldByName('xuhao').AsString='' then aaa:=aaa+'请输入状态序号！';
if adoquery2.FieldByName('ztz').AsString='' then aaa:=aaa+'请输入状态值！';
if aaa <> '' then showmessage(aaa);
////
end;




procedure TForm1.Button2Click(Sender: TObject);
var
aaa:string;
begin
if baojing=0 then
begin
checkbox1.Visible:=true;
checkbox2.Visible:=true;
jvfloatedit1.Visible:=true;
jvfloatedit2.Visible:=true;
aaa:=format('select * from sewarming where td_id=%s',[adoquery6.fieldbyname('id').asstring]);
label23.Visible:=false;
label24.Visible:=false;
label25.Visible:=false;
label26.Visible:=false;
label27.Visible:=false;
label28.Visible:=false;
end
else
begin
checkbox1.Visible:=false;
checkbox2.Visible:=false;
jvfloatedit1.Visible:=false;
jvfloatedit2.Visible:=false;
aaa:=format('select * from sewarming where td_id=%s and xuhao=%s',[adoquery2.fieldbyname('td_id').asstring,adoquery2.fieldbyname('xuhao').asstring]);
label23.Visible:=true;
label24.Visible:=true;
label25.Visible:=true;
label26.Visible:=true;
label27.Visible:=true;
label28.Visible:=true;
end;
adoquery3.Close;
adoquery3.sql.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.Open;
if adoquery3.Eof=true then
begin
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
checkbox5.Checked:=false;
jvfloatedit1.Value:=0;
jvfloatedit2.Value:=0;
jvfloatedit3.Value:=0;
jvfloatedit4.Value:=0;
jvfloatedit5.Value:=0;
jvfloatedit6.Value:=0;
jvfloatedit7.Value:=0;
jvfloatedit8.Value:=0;
end
else
begin
if adoquery3.Fields[3].AsString='是' then checkbox1.Checked:=true else checkbox1.Checked:=false;
if adoquery3.Fields[5].AsString='是' then checkbox2.Checked:=true else checkbox2.Checked:=false;
if adoquery3.Fields[8].AsString='是' then checkbox3.Checked:=true else checkbox3.Checked:=false;
if adoquery3.Fields[11].AsString='是' then checkbox4.Checked:=true else checkbox4.Checked:=false;
if adoquery3.Fields[14].AsString='是' then checkbox5.Checked:=true else checkbox5.Checked:=false;
jvfloatedit1.Value:=adoquery3.Fields[2].AsFloat;
jvfloatedit2.Value:=adoquery3.Fields[4].AsFloat;
jvfloatedit3.Value:=adoquery3.Fields[6].AsFloat;
jvfloatedit4.Value:=adoquery3.Fields[7].AsFloat;
jvfloatedit5.Value:=adoquery3.Fields[9].AsFloat;
jvfloatedit6.Value:=adoquery3.Fields[10].AsFloat;
jvfloatedit7.Value:=adoquery3.Fields[12].AsFloat;
jvfloatedit8.Value:=adoquery3.Fields[13].AsFloat;
end;
radiogroup3.Visible:=false;
dbgrid3.Visible:=false;
dbgrid5.Visible:=false;
button2.Visible:=false;
groupbox1.Visible:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

radiogroup3.Visible:=true;
dbgrid3.Visible:=true;
dbgrid5.Visible:=true;
button2.Visible:=true;
groupbox1.Visible:=false;
end;

procedure TForm1.DBGrid5CellClick(Column: TColumn);
begin
baojing:=1;
if adoquery2.FieldByName('warming').AsString='是' then button2.Enabled:=true else button2.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
aaa:string;
b1, b2,b3,b4,b5:string;
begin

if adoquery3.Eof=true then
begin

aaa:='INSERT INTO sewarming (id, td_id, ma, imax, mi, imin, maday, miday, iday, mamonth, mimonth, imonth, mayear, miyear, iyear, iyouxiao, xuhao) VALUES (NULL,';
aaa:=aaa+format(' %s,',[adoquery6.fieldbyname('id').asstring]);
if checkbox1.Checked=true then aaa:=aaa+format(' %s,"是",',[floattostr(jvfloatedit1.value)]) else aaa:=aaa+' NULL,"否" ,';
if checkbox2.Checked=true then aaa:=aaa+format(' %s,"是",',[floattostr(jvfloatedit2.value)]) else aaa:=aaa+' NULL,"否" ,';
if checkbox3.Checked=true then aaa:=aaa+format(' %s,%s,"是",',[floattostr(jvfloatedit3.value),floattostr(jvfloatedit4.value)]) else aaa:=aaa+' NULL,NULL,"否" ,';
if checkbox4.Checked=true then aaa:=aaa+format(' %s,%s,"是",',[floattostr(jvfloatedit5.value),floattostr(jvfloatedit6.value)]) else aaa:=aaa+' NULL,NULL,"否" ,';
if checkbox5.Checked=true then aaa:=aaa+format(' %s,%s,"是",',[floattostr(jvfloatedit7.value),floattostr(jvfloatedit8.value)]) else aaa:=aaa+' NULL,NULL,"否" ,';
if baojing=0 then aaa:=aaa + ' "否" ,NULL)' else aaa:=aaa + format(' "是", %s)',[adoquery2.fieldbyname('xuhao').asstring]);
end
else
begin
if checkbox1.Checked =true then b1:='是' else b1:='否' ;
if checkbox2.Checked =true then b2:='是' else b2:='否' ;
if checkbox3.Checked =true then b3:='是' else b3:='否' ;
if checkbox4.Checked =true then b4:='是' else b4:='否' ;
if checkbox5.Checked =true then b5:='是' else b5:='否' ;
aaa:=format('UPDATE sewarming SET ma=%s,imax="%s",mi=%s,imin="%s",maday=%s,miday=%s,iday="%s",mamonth=%s,mimonth=%s,imonth="%s",mayear=%s,miyear=%s,iyear="%s" WHERE id=%s',[floattostr(jvfloatedit1.value),b1,floattostr(jvfloatedit2.value),b2,floattostr(jvfloatedit3.value),floattostr(jvfloatedit4.value),b3,floattostr(jvfloatedit5.value),floattostr(jvfloatedit6.value),b4,floattostr(jvfloatedit7.value),floattostr(jvfloatedit8.value),b5,adoquery3.fieldbyname('id').asstring]);
end;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.sql.Add(aaa);
adoquery3.ExecSQL;

radiogroup3.Visible:=true;
dbgrid3.Visible:=true;
dbgrid5.Visible:=true;
button2.Visible:=true;
groupbox1.Visible:=false;
end;

procedure TForm1.TabSheet6Show(Sender: TObject);
begin
adoquery7.Close;
adoquery7.SQL.Clear;
adoquery7.SQL.Add('select * from warming where if_jc <> "是"');
adoquery7.Open;
adoquery3.Close;
adoquery3.sql.Clear;
adoquery3.SQL.Add('select user_name from sys_users where user_jibie="警报管理员"');
adoquery3.Open;
combobox1.Items.Clear;
while not adoquery3.Eof  do
begin
combobox1.Items.Add(adoquery3.Fields[0].asstring);
adoquery3.Next;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var