unit2.~pas

数字电路故障诊断系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unit3, unit4, unit5, unit6, unit7, unit8, unit12, unit13, Menus;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    Help2: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    c1: TMenuItem;
    N3: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N7: TMenuItem;
    procedure c1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Help2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.c1Click(Sender: TObject);
begin
    form4.Show ;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
    form5.Show ;
end;

procedure TForm2.N13Click(Sender: TObject);    // 察看电路图
begin
    systemcircuit.Show ;
end;

procedure TForm2.N14Click(Sender: TObject);    // 察看真值表
begin
    errortable.Show ;
end;

procedure TForm2.N12Click(Sender: TObject);   //规则学习
begin
     form3.Show;
     form3.Edit1.Clear ;

end;

procedure TForm2.N8Click(Sender: TObject);     //系统版本“关于“
begin
     about.Show;
end;

procedure TForm2.Help2Click(Sender: TObject);  //帮助系统
begin
   application.HelpCommand(HELP_CONTENTS,0);
end;

procedure TForm2.N11Click(Sender: TObject);  //进入故障历库系统
begin
    errorlib.Show;
end;

end.