⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 企业污染源在线监控软件（delphi7.0+mysql）可以按说明文件自行扩充驱动（用DDE数据交换技术）来实现任意多个信号的可视化监控及报警。
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    procedure ADOQuery2AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1BeforeScroll(DataSet: TDataSet);
    procedure ADOQuery2BeforeScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure DBGrid5CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
    procedure TabSheet6Show(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure JvPasswordForm1Ok(Sender: TObject; Password: String;
      var Accept: Boolean);
    procedure FormCreate(Sender: TObject);

    procedure RadioGroup4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure ADOQuery4BeforeScroll(DataSet: TDataSet);
    procedure ADOQuery5BeforeScroll(DataSet: TDataSet);
    procedure ADOQuery6BeforeScroll(DataSet: TDataSet);
    procedure DdeClientItem1Change(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure StringGrid1DblClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ScrollBar2Change(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure wwExpandButton1AfterExpand(Sender: TObject);
    procedure wwExpandButton1BeforeExpand(Sender: TObject);
    procedure wwExpandButton2AfterExpand(Sender: TObject);
    procedure wwExpandButton2BeforeExpand(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure DBGrid7DblClick(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure ComboBox10CloseUp(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure ADOQuery19AfterScroll(DataSet: TDataSet);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure ComboBox19Change(Sender: TObject);
    procedure TabSheet15Show(Sender: TObject);
    procedure printhead;
    procedure printbom;
    procedure JvPasswordForm2Ok(Sender: TObject; Password: String;
      var Accept: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
type info=record
   time:Tdatetime;
   tongdao:integer;
   shuju:real;
end ;
type leiji_td=record
   day:real;
   month:real;
   year:real;
   modify:boolean;
end;
type warm=record
   max:boolean;
   min:boolean;
   day:boolean;
   month:boolean;
   year:boolean;
end;
type
   pxs_date=^txs_date;
   txs_date=record
   time:Tdatetime;
   data:real;
   pre:^pxs_date;
   next:^pxs_date;
end;
var
  Form1: TForm1;
  baojing:integer;
  jishuan:integer;
  td_shuju: array [0..99] of info;  //暂存各通道数据
  bg_jishuan: array [0..300] of string;  //暂存计算通道表格
  no_user:integer; //标志数据库中没有用户
  user_name:string;
  user_jibie:string;
  xx_td:array [1..16] of integer; //存放dde的起始标识和标识数目
  td_total:array [1..1000] of leiji_td;    //存放每通道的累计值
  yx_total:array [1..1000] of leiji_td;    //存放每个有效值的累计值
  td_warm:array [1..1000] of warm;  //存放每个通道的报警信息
  yx_warm:array [1..1000] of warm;
  xs_td:integer; //当前显示通道
  front,tmp,head:pxs_date;
  xs_time,xs_data:tstrings;
  sj:tdatetime; //上次回存时间
  sx:integer; //允许刷新
  cx_td:integer; //查询的数据通道
  rp_id:integer; //报表类型id
  new_report:integer; //新报表标志
  report_id:integer; //当前要被打印报表的id;
  page:integer; //报表页码
  x_pix,y_pix:integer;   //打印机x,y方向的点数
  xcm,ycm:real; //1cm的点数
  sqlline:string; //图表的sql语句
  rp_y:real; //  当前报表页的y轴值
  
implementation
  
{$R *.dfm}

procedure tform1.printhead;
var
x,y:integer;
aaa:string;
begin
   printer.BeginDoc;
   x:=trunc(1.5*xcm);
   y:=trunc(1.5*ycm);
   printer.Canvas.Font.Size:=10;
   aaa:='单位名称：';
   aaa:=aaa + ADOTable1.fieldbyname('dwmc').asstring;
   printer.Canvas.TextOut(x,y,aaa);
   x:=trunc(15.7*xcm);
   y:=trunc(1.5*ycm);
   aaa:='制表人：'+user_name;
   printer.Canvas.TextOut(x,y,aaa);
   x:=trunc(0.5*xcm);
   y:=trunc(2.1*ycm);
   printer.Canvas.MoveTo(x,y);
   x:=trunc(20.5*xcm);
   printer.Canvas.Pen.Width:=2;
   printer.Canvas.LineTo(x,y);
   x:=trunc(7.5*xcm);
   y:=trunc(2.8*ycm);
   printer.Canvas.Font.Size:=20;
   aaa:='企业污染'+combobox19.text;
   printer.Canvas.TextOut(x,y,aaa);
   aaa:='日期：'+datetostr(datetimepicker9.date)+'到'+datetostr(datetimepicker10.date);
   printer.Canvas.Font.Size:=12;
   x:=trunc(14.0*xcm);
   y:=trunc(3.0*ycm);
   printer.Canvas.TextOut(x,y,aaa);
   x:=trunc(0.5*xcm);
   y:=trunc(3.8*ycm);
   printer.Canvas.MoveTo(x,y);
   x:=trunc(20.5*xcm);
   printer.Canvas.Pen.Width:=3;
   printer.Canvas.LineTo(x,y);

end;
procedure tform1.printbom;
var
aaa:string;
x,y:integer;
time1:_systemtime;
time2:tdatetime;
begin
////
getsystemtime(time1);
time2:=1/3+systemtimetodatetime(time1);
   x:=trunc(0.5*xcm);
   y:=trunc(28.0*ycm);
   printer.Canvas.MoveTo(x,y);
   x:=trunc(20.5*xcm);
   printer.Canvas.Pen.Width:=2;
   printer.Canvas.LineTo(x,y);
   x:=trunc(9.0*xcm);
   y:=trunc(28.2*ycm);
   aaa:='《第'+inttostr(page)+'页》';
   printer.Canvas.TextOut(x,y,aaa);
   x:=trunc(13.5*xcm);
   aaa:='制表时间：'+datetimetostr(time2);
   printer.Canvas.TextOut(x,y,aaa);
   printer.EndDoc;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (x>1) and (x<77)then
   begin
   if (y>72)and(y<148) then image2.Visible:=true else image2.Visible:=false;
   if (y>148) and (y<225) then image3.Visible:=true else image3.Visible:=false;
   if (y>226) and (y<302) then image4.Visible:=true else image4.Visible:=false;
   if (y>303) and (y<378) then image5.Visible:=true else image5.Visible:=false;
   if (y>379) and (y<455) then image6.Visible:=true else image6.Visible:=false;
   if (y>455) and (y<531) then image7.Visible:=true else image7.Visible:=false;
   end;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
image8.Visible:=true;
image9.Visible:=false;
image10.Visible:=false;
image11.Visible:=false;
image12.Visible:=false;
image13.Visible:=false;
tabsheet1.tabvisible:=false;
tabsheet2.tabvisible:=false;
tabsheet3.tabvisible:=false;
tabsheet4.tabvisible:=false;
tabsheet5.tabvisible:=false;
tabsheet8.tabvisible:=true;
tabsheet9.tabvisible:=true;
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:=false;
tabsheet8.Show;
end;



procedure TForm1.Image3Click(Sender: TObject);
begin
if not ((user_jibie='系统管理员') or (user_jibie='数据管理员')) then exit;
image3.Visible:=false;
image9.Visible:=true;
image8.Visible:=false;
image10.Visible:=false;
image11.Visible:=false;
image12.Visible:=false;
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:=true;
tabsheet7.tabvisible:=true;
tabsheet11.tabvisible:=true;
tabsheet10.tabvisible:=false;
tabsheet15.tabvisible:=false;
tabsheet16.tabvisible:=false;
tabsheet17.tabvisible:=false;
tabsheet18.tabvisible:=false;
tabsheet19.TabVisible:=false;
tabsheet11.Show;
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
if not ((user_jibie='系统管理员') or (user_jibie='数据管理员')) then exit;
image4.Visible:=false;
image9.Visible:=false;
image8.Visible:=false;
image10.Visible:=true;
image11.Visible:=false;
image12.Visible:=false;
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:=true;
tabsheet15.tabvisible:=true;
//tabsheet16.tabvisible:=true;
//tabsheet17.tabvisible:=true;
//tabsheet18.tabvisible:=true;
tabsheet19.TabVisible:=false;
adoquery3.Close;
adoquery3.sql.Clear;
adoquery3.SQL.Add('select * from rp_type');
adoquery3.Open;
combobox10.Items.Clear;
while not adoquery3.Eof do
   begin
      combobox10.Items.Add(adoquery3.Fields[1].AsString);
      adoquery3.Next;
   end;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select name from tongdao');
adoquery3.Open;
combobox11.Items.Clear;
while not adoquery3.Eof do
   begin
      combobox11.Items.Add(adoquery3.Fields[0].AsString);
      adoquery3.Next;
   end;
tabsheet10.Show;
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
if not (user_jibie='系统管理员') then exit;
image5.Visible:=false;
image11.Visible:=true;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
image12.Visible:=false;
image13.Visible:=false;
tabsheet1.tabvisible:=true;
tabsheet2.tabvisible:=true;
tabsheet3.tabvisible:=true;
tabsheet4.tabvisible:=true;
tabsheet5.tabvisible:=true;
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:=false;
tabsheet1.Show;
end;

procedure TForm1.Image6Click(Sender: TObject);
var
exefilename,exefilepath,helpfilename:string;
ddd:pchar;
begin
image6.Visible:=false;
image12.Visible:=true;
image8.Visible:=false;
image9.Visible:=false;
image10.Visible:=false;
image11.Visible:=false;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -