mainfrm.pas

自已写的IP扫描工具

unit Mainfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ImgList, ToolWin, StdActns, ActnList,
  clsGlobal;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    FILE1: TMenuItem;
    DatabaseConnection1: TMenuItem;
    Exit1: TMenuItem;
    BOM1: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditUndo1: TEditUndo;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    tlbAPSForm: TToolBar;
    tlbCut: TToolButton;
    tlbCopy: TToolButton;
    tlbPaste: TToolButton;
    tlbUndo: TToolButton;
    tlbCascade: TToolButton;
    tlbHorizontal: TToolButton;
    tlbVertical: TToolButton;
    tlbClose: TToolButton;
    ilAPSForm: TImageList;
    NetScoutInfor: TMenuItem;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Exit1Click(Sender: TObject);
    procedure DatabaseConnection1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure NetScoutInforClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  MainForm: TMainForm;

implementation

uses NetMonitorForm;


{$R *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: integer;
begin
  for I := MDIChildCount - 1 downto 0 do
    MDIChildren[I].Close;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg(' Are you sure that you want to leave system?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    CanClose := true
  else
    CanClose := false;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  close;
end;

procedure TMainForm.DatabaseConnection1Click(Sender: TObject);
begin
  objGlobal.objDataConnect.DataConnection;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := DateToStr(date) + '  ' + TimeToStr(time);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  objGlobal := TGlobal.Create;
  objGlobal.gDBType := 1;
  StatusBar1.Panels[2].Text := objGlobal.objUser.FName;
end;

procedure TMainForm.NetScoutInforClick(Sender: TObject);
begin
  if NetMonitorFrm = nil then  NetMonitorFrm := TNetMonitorFrm.Create(nil);
  NetMonitorFrm.Show;
end;

end.