unit1.pas

一个小的设备管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, ActnMan,unit2,
  Buttons,DangAn, StdCtrls, jpeg,SQL_unit, ImgList, WinSkinData;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    StatusBar1: TStatusBar;
    Bevel1: TBevel;
    N8: TMenuItem;
    N9: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    SQL1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    SkinData1: TSkinData;
    N7: TMenuItem;



    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);

    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit4, Weihu_unit, Unit3;

{$R *.dfm}










procedure TMainForm.N5Click(Sender: TObject);
var
newform:TDangAn_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='档案清单' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TDangAn_F.Create(application);

 end;
end;

procedure TMainForm.N6Click(Sender: TObject);
var
newform:TWeihu_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='后期维护' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TWeihu_F.Create(application);

 end;
end;



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

procedure TMainForm.N9Click(Sender: TObject);
begin
 form3.show;
end;

procedure TMainForm.N4Click(Sender: TObject);
var
newform:TShebei_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='设备基本信息' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;

     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TShebei_F.Create(application);

 end;
end;

procedure TMainForm.SQL1Click(Sender: TObject);
var
newform:TSQL_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='SQL查询' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TSQL_F.Create(application);

 end;
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
var
newform:TShebei_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='设备基本信息' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TShebei_F.Create(application);

 end;
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
var
newform:TDangAn_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='档案清单' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TDangAn_F.Create(application);

 end;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
var
newform:TWeihu_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='后期维护' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TWeihu_F.Create(application);

 end;
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);
var
newform:TSQL_F;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='SQL查询' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TSQL_F.Create(application);

 end;
end;
procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
  form3.show;
end;

procedure TMainForm.N7Click(Sender: TObject);
var
newform:TForm4;
i,flag:integer;
begin
//flag＝0表示该窗体不存在
  flag:=0;
  for i:=0 to mainForm.MDIChildCount do
 begin
// 通过对窗体标题判断窗体是否存在
  if mainForm.MDIChildren[i].Caption='设备购买' then
   begin
   //如果窗体已存在，则恢复窗体
     SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0);
     mdichildren[i].Show;
     mdichildren[i].Enabled:=true;
     flag:=1;
   //退出循环
   break;
   end;
   end;
  //若窗体不存在，则创建窗体
   if flag=0 then
 begin
 newform:=TForm4.Create(application);

 end;
end;

end.