unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, DB, ADODB, StdCtrls,
  Mask, DBCtrls, Grids, DBGrids, JvToolEdit, JvDBCtrl, DdeMan, JvEdit,
  JvFloatEdit, DBTables, TeeProcs, TeEngine, Chart, JvComponent, JvBaseDlg,
  JvPasswordForm, JvLoginDlg, JvTransLED, JvSQLS, Series, Wwdbigrd,
  Wwdbgrid, wwcheckbox, DbChart,Spin,printers;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    JvDBDateEdit1: TJvDBDateEdit;
    JvDBDateEdit2: TJvDBDateEdit;
    DBGrid2: TDBGrid;
    RadioGroup2: TRadioGroup;
    DdeClientConv1: TDdeClientConv;
    DdeClientItem1: TDdeClientItem;
    DBGrid3: TDBGrid;
    RadioGroup3: TRadioGroup;
    DBGrid5: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource3: TDataSource;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    CheckBox1: TCheckBox;
    JvFloatEdit1: TJvFloatEdit;
    JvFloatEdit2: TJvFloatEdit;
    JvFloatEdit3: TJvFloatEdit;
    JvFloatEdit4: TJvFloatEdit;
    JvFloatEdit5: TJvFloatEdit;
    JvFloatEdit6: TJvFloatEdit;
    JvFloatEdit7: TJvFloatEdit;
    JvFloatEdit8: TJvFloatEdit;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label15: TLabel;
    Label16: TLabel;
    CheckBox4: TCheckBox;
    Label17: TLabel;
    Label18: TLabel;
    CheckBox5: TCheckBox;
    Label19: TLabel;
    Label20: TLabel;
    Button4: TButton;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DataSource4: TDataSource;
    adoQuery3: TQuery;
    JvPasswordForm1: TJvPasswordForm;
    TabSheet8: TTabSheet;
    Label21: TLabel;
    StringGrid1: TStringGrid;
    DBGrid4: TDBGrid;
    Label22: TLabel;
    Panel2: TPanel;
    Label29: TLabel;
    Button5: TButton;
    ComboBox1: TComboBox;
    Button6: TButton;
    TabSheet9: TTabSheet;
    Label30: TLabel;
    StringGrid2: TStringGrid;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    ComboBox2: TComboBox;
    Label31: TLabel;
    Label32: TLabel;
    Edit1: TEdit;
    Button7: TButton;
    RadioGroup4: TRadioGroup;
    DBGrid6: TDBGrid;
    DdeClientConv2: TDdeClientConv;
    DdeClientConv3: TDdeClientConv;
    DdeClientConv4: TDdeClientConv;
    DdeClientConv5: TDdeClientConv;
    DdeClientConv6: TDdeClientConv;
    DdeClientConv7: TDdeClientConv;
    DdeClientConv8: TDdeClientConv;
    DdeClientItem2: TDdeClientItem;
    DdeClientItem3: TDdeClientItem;
    DdeClientItem4: TDdeClientItem;
    DdeClientItem5: TDdeClientItem;
    DdeClientItem6: TDdeClientItem;
    DdeClientItem7: TDdeClientItem;
    DdeClientItem8: TDdeClientItem;
    Database1: TDatabase;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    ADOQuery7: TADOQuery;
    DataSource8: TDataSource;
    JvLoginDlg1: TJvLoginDlg;
    TabSheet6: TTabSheet;
    Panel3: TPanel;
    Label33: TLabel;
    JvTransLED1: TJvTransLED;
    JvTransLED2: TJvTransLED;
    JvTransLED3: TJvTransLED;
    JvTransLED4: TJvTransLED;
    JvTransLED5: TJvTransLED;
    JvTransLED6: TJvTransLED;
    JvTransLED7: TJvTransLED;
    JvTransLED8: TJvTransLED;
    JvaSQLScript1: TJvaSQLScript;
    ADOQuery8: TADOQuery;
    ADOQuery9: TADOQuery;
    ADOQuery10: TADOQuery;
    Timer1: TTimer;
    JvaSQLScript9: TJvaSQLScript;
    Timer2: TTimer;
    ADOQuery11: TADOQuery;
    Chart2: TChart;
    LineSeries1: TLineSeries;
    Label34: TLabel;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label40: TLabel;
    JvaSQLScript10: TJvaSQLScript;
    Timer3: TTimer;
    TabSheet7: TTabSheet;
    TabSheet11: TTabSheet;
    ComboBox3: TComboBox;
    Label41: TLabel;
    Label42: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label43: TLabel;
    DateTimePicker2: TDateTimePicker;
    Button8: TButton;
    ADOQuery12: TADOQuery;
    DataSource9: TDataSource;
    wwDBGrid1: TwwDBGrid;
    wwExpandButton1: TwwExpandButton;
    wwDBGrid2: TwwDBGrid;
    ADOQuery12shu: TLargeintField;
    ADOQuery12tian: TStringField;
    ADOQuery12order: TStringField;
    ADOQuery13: TADOQuery;
    DataSource10: TDataSource;
    wwExpandButton2: TwwExpandButton;
    ADOQuery14: TADOQuery;
    DataSource11: TDataSource;
    wwDBGrid3: TwwDBGrid;
    ADOQuery13shu: TLargeintField;
    ADOQuery13td_name: TStringField;
    ADOQuery13pk: TStringField;
    Label44: TLabel;
    ComboBox4: TComboBox;
    Label45: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label46: TLabel;
    DateTimePicker4: TDateTimePicker;
    Button9: TButton;
    PageControl2: TPageControl;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    DBGrid7: TDBGrid;
    DBChart1: TDBChart;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Series1: TLineSeries;
    ADOQuery15: TADOQuery;
    DataSource12: TDataSource;
    ADOQuery16: TADOQuery;
    ComboBox5: TComboBox;
    Label47: TLabel;
    ComboBox6: TComboBox;
    Label48: TLabel;
    Label49: TLabel;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    DateTimePicker7: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Label50: TLabel;
    DBGrid8: TDBGrid;
    Label51: TLabel;
    ComboBox7: TComboBox;
    JvFloatEdit9: TJvFloatEdit;
    JvFloatEdit10: TJvFloatEdit;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    Button13: TButton;
    Label52: TLabel;
    Edit4: TEdit;
    Label53: TLabel;
    Label54: TLabel;
    Edit5: TEdit;
    Label55: TLabel;
    Label56: TLabel;
    Edit6: TEdit;
    Label57: TLabel;
    Label58: TLabel;
    Edit7: TEdit;
    Label59: TLabel;
    Label60: TLabel;
    Edit8: TEdit;
    Label61: TLabel;
    ADOQuery18: TADOQuery;
    DataSource13: TDataSource;
    Label62: TLabel;
    Label63: TLabel;
    TabSheet10: TTabSheet;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    TabSheet17: TTabSheet;
    TabSheet18: TTabSheet;
    TabSheet19: TTabSheet;
    Image14: TImage;
    DBGrid9: TDBGrid;
    ADOQuery19: TADOQuery;
    DataSource14: TDataSource;
    ComboBox10: TComboBox;
    Label64: TLabel;
    Button15: TButton;
    Button16: TButton;
    GroupBox3: TGroupBox;
    Label65: TLabel;
    ComboBox11: TComboBox;
    Label66: TLabel;
    ComboBox12: TComboBox;
    Label67: TLabel;
    ComboBox13: TComboBox;
    Label68: TLabel;
    ComboBox14: TComboBox;
    Label69: TLabel;
    ComboBox15: TComboBox;
    Label70: TLabel;
    ComboBox16: TComboBox;
    Label71: TLabel;
    ComboBox17: TComboBox;
    Label72: TLabel;
    ComboBox18: TComboBox;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    GroupBox4: TGroupBox;
    DateTimePicker9: TDateTimePicker;
    DateTimePicker10: TDateTimePicker;
    ComboBox19: TComboBox;
    Button14: TButton;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    SpinEdit1: TSpinEdit;
    ADOQuery20: TADOQuery;
    ADOQuery21: TADOQuery;
    Chart1: TChart;
    Series5: TLineSeries;
    Series6: TBarSeries;
    Series7: TPieSeries;
    Chart3: TChart;
    Series2: TLineSeries;
    Series3: TBarSeries;
    Series4: TPieSeries;
    JvPasswordForm2: TJvPasswordForm;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

    procedure ADOTable1AfterEdit(DataSet: TDataSet);
    procedure TabSheet1Show(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);

    procedure DBGrid3CellClick(Column: TColumn);