unit1.pas

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

aaa:string;
time1:_systemtime;
time2:tdatetime;
begin
getsystemtime(time1);
time2:=1/3+systemtimetodatetime(time1);
if adoquery7.FieldByName('id').AsInteger>0 then
begin
aaa:=format('update warming set if_cy="是",cy_time="%s" where id=%s ',[datetimetostr(time2),adoquery7.fieldbyname('id').asstring]);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.ExecSQL;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if combobox1.Text <> '' then
jvpasswordform1.Execute;
end;

procedure TForm1.JvPasswordForm1Ok(Sender: TObject; Password: String;
  var Accept: Boolean);
var
aaa:string;
time1:_systemtime;
time2:tdatetime;
begin
getsystemtime(time1);
time2:=1/3+systemtimetodatetime(time1);
aaa:=format('select * from sys_users where user_name="%s" and user_password="%s" ',[combobox1.text,password]);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.Open;
if not adoquery3.Eof then
begin
if adoquery7.FieldByName('id').AsInteger>0 then
begin
aaa:=format('update warming set if_jc="是",jc_time="%s",jc_name="%s" where id=%s ',[datetimetostr(time2),combobox1.text,adoquery7.fieldbyname('id').asstring]);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.ExecSQL;
end;
accept:=true;
end
else showmessage('口令错误！请重输！');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
aaa:string;
time1:_systemtime;
time2:tdatetime;
begin
new_report:=0;
cx_td:=-1;
sx:=1;
xs_time:=tstringlist.Create;
xs_data:=tstringlist.Create;
xs_td:=8;
getsystemtime(time1);
time2:=1/3+systemtimetodatetime(time1);
datetimepicker1.DateTime:=time2;
datetimepicker2.DateTime:=time2;
datetimepicker3.DateTime:=time2;
datetimepicker4.DateTime:=time2;
datetimepicker6.DateTime:=time2;
datetimepicker5.DateTime:=time2;
datetimepicker7.DateTime:=time2;
datetimepicker8.DateTime:=time2;
sj:=time2;
no_user:=0;
baojing:=0;
stringgrid1.Cells[0,0]:='通道名称';
stringgrid1.Cells[1,0]:='数据时间';
stringgrid1.Cells[2,0]:='数据值';
stringgrid2.Cells[0,0]:='数据时间';
stringgrid2.Cells[1,0]:='数据值';
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from sys_users');
adoquery3.Open;
if adoquery3.Eof then
begin
jvlogindlg1.Username:='1001';
no_user:=1;
end;
jvlogindlg1.Execute;
if no_user=1 then
begin
if (jvlogindlg1.Username <> '1001') or (jvlogindlg1.Password <> '888888') then
   begin
      showmessage('口令错误！');
      application.Terminate;
   end
   else
   begin
      showmessage('作为系统管理员，你必须在“用户管理”中设置管理员帐号用户帐号！');
      user_name:='系统管理员';
      user_jibie:='系统管理员';
   end;
end
else
begin
   aaa:=format('select * from sys_users where user_code="%s" and user_password="%s" ',[jvlogindlg1.username,jvlogindlg1.password]);
   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.Add(aaa);
   adoquery3.Open;
   if adoquery3.Eof then
   begin
      showmessage('口令错误！');
      application.Terminate;
   end
   else
   begin
      user_name:=adoquery3.fieldbyname('user_name').AsString;
      user_jibie:=adoquery3.fieldbyname('user_jibie').AsString;
   end;

end;
   ////
   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.Add('select * from dde');
   adoquery3.Open;
   i:=0;
   while not adoquery3.Eof do
   begin
      i:=i+1;
      case i of
         1: begin
               ddeclientconv1.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem1.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv1.OpenLink;
               xx_td[1]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[2]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         2: begin
               ddeclientconv2.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem2.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv2.OpenLink;
               xx_td[3]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[4]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         3: begin
               ddeclientconv3.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem3.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv3.OpenLink;
               xx_td[5]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[6]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         4: begin
               ddeclientconv4.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem4.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv4.OpenLink;
               xx_td[7]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[8]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         5: begin
               ddeclientconv5.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem5.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv5.OpenLink;
               xx_td[9]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[10]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         6: begin
               ddeclientconv6.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem6.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv6.OpenLink;
               xx_td[11]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[12]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         7: begin
               ddeclientconv7.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem7.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv7.OpenLink;
               xx_td[13]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[14]:=adoquery3.fieldbyname('num').AsInteger;
            end;
         8: begin
               ddeclientconv8.SetLink(adoquery3.fieldbyname('application_name').AsString,adoquery3.fieldbyname('servername').AsString);
               ddeclientitem8.DdeItem:=adoquery3.fieldbyname('itemname').AsString;
               ddeclientconv8.OpenLink;
               xx_td[15]:=adoquery3.fieldbyname('start').AsInteger;
               xx_td[16]:=adoquery3.fieldbyname('num').AsInteger;
            end;
      end;
      adoquery3.Next;
   end;
aaa:='select sbmc,jstd from shebei where jstd>=0';
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.Open;
while not adoquery3.Eof do
   begin
      i:=adoquery3.fieldbyname('jstd').AsInteger;
      case i of
         0: begin
               jvtransled1.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled1.ShowHint:=true;
            end;
         1: begin
               jvtransled2.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled2.ShowHint:=true;
            end;
         2: begin
               jvtransled3.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled3.ShowHint:=true;
            end;
         3: begin
               jvtransled4.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled4.ShowHint:=true;
            end;
         4: begin
               jvtransled5.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled5.ShowHint:=true;
            end;
         5: begin
               jvtransled6.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled6.ShowHint:=true;
            end;
         6: begin
               jvtransled7.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled7.ShowHint:=true;
            end;
         7: begin
               jvtransled8.Hint:=adoquery3.fieldbyname('sbmc').asstring;
               jvtransled8.ShowHint:=true;
            end;
      end;
      adoquery3.Next;
   end;
aaa:='select name,sj_id from tongdao';
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.Open;

while not adoquery3.Eof do
   begin
      combobox6.Items.Add(adoquery3.fieldbyname('name').AsString);
      combobox5.Items.Add(adoquery3.fieldbyname('name').AsString);
      i:=adoquery3.fieldbyname('sj_id').AsInteger;
      stringgrid1.Cells[0,i-7]:=adoquery3.fieldbyname('name').AsString;
      adoquery3.Next;
   end;
for i:=0 to 99 do
   begin
      td_shuju[i].time:=time2;
      td_shuju[i].tongdao:=i;
      td_shuju[i].shuju:=0;
   end;
for i:=1 to 1000 do
   begin
      td_total[i].day:=0;
      td_total[i].month:=0;
      td_total[i].year:=0;
      td_total[i].modify:=false;
      yx_total[i].day:=0;
      yx_total[i].month:=0;
      yx_total[i].month:=0;
      yx_total[i].modify:=false;
      td_warm[i].max:=false;
      td_warm[i].min:=false;
      td_warm[i].day:=false;
      td_warm[i].month:=false;
      td_warm[i].year:=false;
      yx_warm[i].max:=false;
      yx_warm[i].min:=false;
      yx_warm[i].day:=false;
      yx_warm[i].month:=false;
      yx_warm[i].year:=false;
   end;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select id,day,month,year from tongdao');
adoquery3.Open;
while not adoquery3.Eof do
   begin
      i:=adoquery3.Fields[0].AsInteger;
      td_total[i].day:=adoquery3.Fields[1].AsFloat;
      td_total[i].month:=adoquery3.Fields[2].AsFloat;
      td_total[i].year:=adoquery3.Fields[3].AsFloat;
      adoquery3.Next;
   end;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select id,day,month,year from youxiao');
adoquery3.Open;
while not adoquery3.Eof do
   begin
      i:=adoquery3.Fields[0].AsInteger;
      yx_total[i].day:=adoquery3.Fields[1].AsFloat;
      yx_total[i].month:=adoquery3.Fields[2].AsFloat;
      yx_total[i].year:=adoquery3.Fields[3].AsFloat;
      adoquery3.Next;
   end;
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;
end;


procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
if radiogroup4.ItemIndex=0 then dbgrid6.ReadOnly:=true;
if radiogroup4.ItemIndex=1 then dbgrid6.ReadOnly:=false;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
aaa:string;
begin
////
if jishuan=0 then  aaa:=format('insert into jishuantongdao (data_id,num_td,jishuan) values (%s,%s,"%s")',[adoquery6.fieldbyname('id').asstring,combobox2.text,edit1.text]) else aaa:=format('update jishuantongdao set num_td=%s,jishuan="%s" where data_id=%s',[combobox2.text,edit1.text,adoquery6.fieldbyname('id').asstring]);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add(aaa);
adoquery3.ExecSQL;
showmessage('通道参数已被保存！');
end;

procedure TForm1.ADOQuery4BeforeScroll(DataSet: TDataSet);
var
aaa:string;
begin
if pagecontrol1.ActivePageIndex=2 then
begin
aaa:='';