unt1main.pas

本软件是我公司开发的具有实际用途即核磁共振含油率测试分析的源代码。

unit Unt1Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ToolWin, ComCtrls, ImgList, jpeg, StdCtrls;

type
  TFrm1Main = class(TForm)
    MainMenu1: TMainMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    ToolBar1: TToolBar;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Image1: TImage;
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm1Main: TFrm1Main;

implementation

uses   Untbd2, Unttest1, Untchaxun, Unit4, ABOUT;

{$R *.dfm}


procedure TFrm1Main.N11Click(Sender: TObject);
begin
   close;
end;

procedure TFrm1Main.N7Click(Sender: TObject);
begin
 frmbd2.ShowModal;
end;

procedure TFrm1Main.ToolButton4Click(Sender: TObject);

begin
  Frmabout.Show;
end;

procedure TFrm1Main.ToolButton5Click(Sender: TObject);
begin
  close;
end;

procedure TFrm1Main.ToolButton1Click(Sender: TObject);
begin
  frmbd2.ShowModal;
end;

procedure TFrm1Main.ToolButton2Click(Sender: TObject);
begin
    frmtest1.ShowModal;
end;

procedure TFrm1Main.N8Click(Sender: TObject);
begin
   frmtest1.ShowModal;
end;

procedure TFrm1Main.N9Click(Sender: TObject);
begin
    frmchaxun.ShowModal;
end;

procedure TFrm1Main.ToolButton3Click(Sender: TObject);
begin
   frmchaxun.ShowModal;
end;

procedure TFrm1Main.N10Click(Sender: TObject);

begin
    Frmabout.Show;
end;

end.