main.pas

完成虚拟的多功能电能表

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Buttons, ToolWin, Menus;

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    J1: TMenuItem;
    E1: TMenuItem;
    ToolBar1: TToolBar;
    SpeedItem1: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    N2: TMenuItem;
    N3: TMenuItem;
    SpeedItem4: TSpeedButton;
    ToolButton3: TToolButton;
    SpeedButton4: TSpeedButton;
    N4: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure J1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

uses sqsd_set, cssz, dbjy, xndgnb;

{$R *.DFM}

procedure TmainForm.N3Click(Sender: TObject);
begin
//  GLCSD_MODI:=False;
  sqsdForm:=TsqsdForm.create(self);
  try
    sqsdForm.ShowModal;
  finally
    sqsdForm.Free;
  end;

///  if GLCSD_MODI then
//    if application.messageBox('您修改了某些测试项目，需要刷新吗？','多功能',mb_YesNo+mb_IconQuestion+mb_DefButton1)=IDYES then
//      data_init;

end;

procedure TmainForm.N2Click(Sender: TObject);
begin
  csszForm:=TcsszForm.create(self);
//  try
  csszForm.Top:=250;//(height-DbjyForm.height) div 2;
  csszForm.Left:=(width-csszForm.Width) div 2;
    csszForm.Show;
//  finally
//    csszForm.Free;
//  end;

end;

procedure TmainForm.J1Click(Sender: TObject);
begin
  xndgnbForm:=TxndgnbForm.create(self);
  xndgnbForm.Top:=60;//(height-DbjyForm.height) div 2;
  xndgnbForm.Left:=(width-xndgnbForm.Width) div 2;
  xndgnbForm.Show;
end;

procedure TmainForm.E1Click(Sender: TObject);
begin
close;
end;

end.