unit_main.pas

来自「delphi开发的简单的在固定资产管理系统」· PAS 代码 · 共 72 行

unit unit_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type
  Tmainform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Image1: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;
    mypath: string;
implementation

{$R *.dfm}
uses unit_manage,unit_scrap,unit_scrapsearch,unit_search,DM;

procedure Tmainform.BitBtn1Click(Sender: TObject);
begin
  manageform.Show;
  mainform.WindowState:=wsMinimized;
end;

procedure Tmainform.FormCreate(Sender: TObject);
begin
  mypath:=extractfilepath(paramstr(0));
end;

procedure Tmainform.BitBtn2Click(Sender: TObject);
begin
   searchform.Show;
   mainform.WindowState:=wsMinimized;
end;

procedure Tmainform.BitBtn3Click(Sender: TObject);
begin
    scrapform.Show;
    mainform.WindowState:=wsMinimized;
end;

procedure Tmainform.BitBtn4Click(Sender: TObject);
begin
    scrapsearch.Show;
    mainform.WindowState:=wsMinimized;
end;

procedure Tmainform.BitBtn5Click(Sender: TObject);
begin
close;
end;

end.