delphi实验室仪器管理系统(十二)

delphi实验室仪器管理系统(十二) odeExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HelpAboutExecute(Sender: TObject);
    procedure Tools_SortExecute(Sender: TObject);
    procedure Tools_ChartExecute(Sender: TObject);
    procedure N0Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Tools_Chart1Execute(Sender: TObject);
    procedure Tools_Chart2Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    function GetExePath: String;
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

uses Child_lab, Chind_Address, Child_Code, Child_Borrow,
  About, Child_Sort, Child_Chart, Child_Chart1, Child_Chart2;

procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;

function TMainForm.GetExePath:String;
begin
  Result:=ExtractFilePath(ParamStr(0));
  if Result[Length(Result)]<>'\' then
    Result:=Result+'\';
end;

procedure TMainForm.YQ_LabExecute(Sender: TObject);
begin
  OpenForm(Tfrm_YQ_Lab,frm_YQ_Lab, self);
end;

procedure TMainForm.YQ_BorrowExecute(Sender: TObject);
begin
  OpenForm(Tfrm_Borrow,frm_Borrow, self);
end;

procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
//  AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.AddressListExecute(Sender: TObject);
begin
  OpenForm(Tfrm_Address,frm_Address, self);
end;

procedure TMainForm.YQ_CodeExecute(Sender: TObject);
begin
  OpenForm(Tfrm_Code,frm_Code, self);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
//  Application.HintColor:=clWhite;
  Application.Hi

首页 上一页 9 10 11 12 13 下一页 尾页 12/13/13

delphi实验室仪器管理系统(十二)由毕业论文网（www.huoyuandh.com）会员上传。