unit13.pas

数字电路故障诊断系统

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unit14 , unit15 ,StdCtrls;

type
  Terrorlib = class(TForm)
    add: TButton;
    view: TButton;
    exit: TButton;
    Label1: TLabel;
    query: TButton;
    procedure exitClick(Sender: TObject);
    procedure viewClick(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure queryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  errorlib: Terrorlib;

implementation

uses Unit11;

{$R *.dfm}

procedure Terrorlib.exitClick(Sender: TObject);    //故障历库退出
begin
   close;
end;

procedure Terrorlib.viewClick(Sender: TObject);   //故障历库察看菜单
begin
    libview.Show;
    libview.Table1.Active:=true;
end;

procedure Terrorlib.addClick(Sender: TObject);  //故障历库添加
begin
    addlib.show;

end;

procedure Terrorlib.queryClick(Sender: TObject);
begin
    querylib.Show;

end;

end.