utest1.pas

自已写的IP扫描工具

unit Utest1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, CheckLst, clsGlobal, clsQuery,
  shellapi, Winsock, clsCommFunction, dxCntner, dxEditor, dxExEdtr,
  dxEdLib, Grids, DBGrids;

type
  TNetMonitorFrm = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheetMain: TTabSheet;
    TabSheetMail: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    lstPingDataInfor: TListBox;
    chklstIPLocal: TCheckListBox;
    Panel5: TPanel;
    btnInIPChooseAll: TButton;
    btnInIPCancel: TButton;
    Panel6: TPanel;
    btnDataClear: TButton;
    Panel7: TPanel;
    GroupBox3: TGroupBox;
    Panel8: TPanel;
    Label2: TLabel;
    edtUserID: TEdit;
    Label5: TLabel;
    btnMailAdd: TButton;
    btnMailDelete: TButton;
    Label6: TLabel;
    edtUserName: TEdit;
    TabSheetQuery: TTabSheet;
    Panel9: TPanel;
    lstMail: TCheckListBox;
    Label7: TLabel;
    edtDepartment: TEdit;
    RadioGroup1: TRadioGroup;
    rdoSendYes: TRadioButton;
    rdoSendNo: TRadioButton;
    cboMailType: TComboBox;
    Panel10: TPanel;
    btnMailChoose: TButton;
    btnMailCancel: TButton;
    Panel11: TPanel;
    Label1: TLabel;
    edtHostIP: TEdit;
    Label3: TLabel;
    edtRunNum: TEdit;
    Label4: TLabel;
    btnDone: TButton;
    btnStop: TButton;
    Panel12: TPanel;
    Label8: TLabel;
    edtInIP: TEdit;
    Label9: TLabel;
    edtIPPosition: TEdit;
    gbPingState: TRadioGroup;
    rdoPingYes: TRadioButton;
    rdoPingNo: TRadioButton;
    btnInIPAdd: TButton;
    btnInIPDelete: TButton;
    btnMailSave: TButton;
    RunPing: TTimer;
    btnInIPSave: TButton;
    Panel13: TPanel;
    Panel14: TPanel;
    DBGrid1: TDBGrid;
    Label10: TLabel;
    Label11: TLabel;
    btnQuery: TButton;
    btnCancelQuery: TButton;
    labTo: TLabel;
    DateTimePicker1: TDateTimePicker;
    TimerSendMail: TTimer;
    Label12: TLabel;
    DateTimePicker2: TDateTimePicker;
    Button1: TButton;
    cboIPLocalQry: TComboBox;
    cboIPServerQry: TComboBox;
    Label13: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure btnMailAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnMailChooseClick(Sender: TObject);
    procedure btnMailCancelClick(Sender: TObject);
    procedure btnMailSaveClick(Sender: TObject);
    procedure btnDoneClick(Sender: TObject);
    procedure btnInIPChooseAllClick(Sender: TObject);
    procedure btnInIPCancelClick(Sender: TObject);
    procedure btnDataClearClick(Sender: TObject);
    procedure btnInIPAddClick(Sender: TObject);
    procedure btnInIPDeleteClick(Sender: TObject);
    procedure RunPingTimer(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnInIPSaveClick(Sender: TObject);
    procedure btnMailDeleteClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
  private
    objQuery: TQuery;
    procedure FillListMailItems;
    procedure ClearTabSheetMailData;
    procedure FillListIPLocalItems;
    procedure ClearTabSheetMainData;
    procedure ChangeRunSectionState;
    procedure ChangeStopSectionState;
    procedure GetFailData;
    procedure SureDataLost(AIPLocal: string);
      { Private declarations }
  public
    { Public declarations }
  end;
resourcestring
  rsNetMonitorFrmInputDepartment = '叫块