jfos.pas

计算机房管理系统

unit jfos;

interface

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

type
  Tf_jfos = class(TForm)
    jfos_menu: TMainMenu;
    menu_glxt: TMenuItem;
    menu_glxt_sbgl: TMenuItem;
    menu_glxt_yhgl: TMenuItem;
    fg: TMenuItem;
    menu_glxt_exit: TMenuItem;
    menu_sjxt: TMenuItem;
    menu_sjxt_yhsj: TMenuItem;
    menu_sjxt_yysj: TMenuItem;
    menu_tjxt: TMenuItem;
    menu_tjxt_sbtj: TMenuItem;
    fg1: TMenuItem;
    menu_tjxt_clear: TMenuItem;
    menu_xtsz: TMenuItem;
    menu_xtsz_szkl: TMenuItem;
    menu_help: TMenuItem;
    menu_help_topic: TMenuItem;
    fg2: TMenuItem;
    menu_help_about: TMenuItem;
    jfos_menu_fg: TGroupBox;
    jfos_bmp: TImage;
    jfos_bmp_text: TLabel;
    menu_glxt_zx: TMenuItem;
    menu_tjxt_jftj: TMenuItem;
    menu_xtsz_xfsjk: TMenuItem;
    mmshow: TTimer;
    covershow: TTimer;
    procedure menu_glxt_exitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure menu_help_aboutClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure menu_glxt_yhglClick(Sender: TObject);
    procedure menu_glxt_sbglClick(Sender: TObject);
    procedure menu_sjxt_yhsjClick(Sender: TObject);
    procedure menu_glxt_zxClick(Sender: TObject);
    procedure menu_sjxt_yysjClick(Sender: TObject);
    procedure menu_xtsz_szklClick(Sender: TObject);
    procedure menu_help_topicClick(Sender: TObject);
    procedure mmshowTimer(Sender: TObject);
    procedure covershowTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_jfos: Tf_jfos;
  errorst : integer;
  
implementation

uses help_about, sbgl, yhgl, yhsj, data, gbv, mmxn, yysb, szkl, cover, ShellAPI;

{$R *.DFM}

procedure Tf_jfos.menu_glxt_exitClick(Sender: TObject);
begin
  f_jfos.close;
end;

procedure Tf_jfos.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if menu_glxt_exit.Enabled then
  begin  //询问是否退出
       if Application.MessageBox('此命令将结束本管理系统？', '询问', Mb_OKCancel)=Id_Cancel then
          Action:=caNone;
  end
  else
     Action:=caNone;
end;

procedure Tf_jfos.menu_help_aboutClick(Sender: TObject);
begin  //关于
  f_jfos.enabled:=false;
  f_help_about.show;
end;

procedure Tf_jfos.FormShow(Sender: TObject);
begin
  if f_cover.Timer1.Interval=1 then
  begin
       if FileExists('avi\jfos.avi') then
          covershow.Enabled:=True
       else
          mmshow.Enabled:=True;
  end;
end;

procedure Tf_jfos.FormResize(Sender: TObject);
begin
  //封面调整
  jfos_bmp.width:=f_jfos.ClientWidth;
  jfos_bmp.height:=f_jfos.ClientHeight;

  //文字调整
  jfos_bmp_text.left:=f_jfos.ClientWidth-jfos_bmp_text.width-12;
  jfos_bmp_text.top:=f_jfos.ClientHeight-jfos_bmp_text.height-12;

  //菜单分隔线调整
  jfos_menu_fg.width:=f_jfos.width+100;
end;

procedure Tf_jfos.menu_glxt_yhglClick(Sender: TObject);
begin  //用户管理
  f_jfos.Enabled:=false;
  f_yhgl.show;
end;

procedure Tf_jfos.menu_glxt_sbglClick(Sender: TObject);
begin  //设备管理
  ds_data.search_old;  //清除过期数据
  f_jfos.Enabled:=false;
  f_sbgl.show;
end;

procedure Tf_jfos.menu_sjxt_yhsjClick(Sender: TObject);
begin  //用户上机
  ds_data.search_old;  //清除过期数据
  f_jfos.Enabled:=false;
  f_yhsj.show;
end;

procedure Tf_jfos.menu_glxt_zxClick(Sender: TObject);
begin  //注销
  f_jfos.Enabled:=False;
  f_mmxn.Show;
end;

procedure Tf_jfos.menu_sjxt_yysjClick(Sender: TObject);
begin  //预约上机
  f_jfos.Enabled:=false;
  f_yysb.show;
end;

procedure Tf_jfos.menu_xtsz_szklClick(Sender: TObject);
begin  //设置口令
  f_jfos.Enabled:=false;
  f_szkl.show;
end;

procedure Tf_jfos.menu_help_topicClick(Sender: TObject);
begin
  ShellExecute(f_jfos.Handle,nil,'jfos.hlp','','',SW_SHOWNORMAL);
end;

procedure Tf_jfos.mmshowTimer(Sender: TObject);
begin
  mmshow.Enabled:=False;
  //询问口令
  f_mmxn.Show;
end;

procedure Tf_jfos.covershowTimer(Sender: TObject);
begin
  covershow.Enabled:=False;
  //县显示封面
  f_cover.Timer1.Interval:=5000;
  f_cover.Show;
end;

procedure Tf_jfos.FormCreate(Sender: TObject);
begin
  ModifyMenu(jfos_menu.Handle, 4, mf_ByPosition or mf_Popup or mf_Help,
             menu_help.Handle,PChar(menu_help.Caption));
end;

end.