main.pas

劳保用品管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ToolWin, Buttons, uTiler,shellapi;

type
  Tmainfm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Tiler1: TTiler;
    N12: TMenuItem;
    procedure SpeedButton1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfm: Tmainfm;

implementation
uses input, fixdata, query, fuzhu, repairdb,pass, changepass, About;

{$R *.dfm}

//*****************************************************
//模块编号：01
//目的： 打开MDI子窗体，如果已经打开或最小化则恢复，否则创建子窗体
//定位于主窗体的左上角，以普通方式打开（原来大小）
//编写日期：20002.03.01
//*****************************************************

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);
  child.WindowState := wsNormal;
  if child.Name = 'login' then
  begin
    child.Position := poScreenCenter
  end
  else
  begin
    child.Left := 0;
    child.top := 0;
  end;

end;

procedure Tmainfm.SpeedButton1Click(Sender: TObject);
begin
  openform(Tinputfm, inputfm, self);
end;

procedure Tmainfm.N9Click(Sender: TObject);
begin
  close;
end;

procedure Tmainfm.SpeedButton2Click(Sender: TObject);
begin
  openform(Tfixdatafm, fixdatafm, self);
end;

procedure Tmainfm.SpeedButton3Click(Sender: TObject);
begin
  openform(Tqueryfm, queryfm, self);
end;

procedure Tmainfm.SpeedButton4Click(Sender: TObject);
begin
  openform(Tfuzhufm, fuzhufm, self);
end;

procedure Tmainfm.N10Click(Sender: TObject);
begin
  openform(Trepair, repair, self);
end;

procedure Tmainfm.N13Click(Sender: TObject);
begin
  Winexec('CALC.EXE', sw_Normal);
end;

procedure Tmainfm.N14Click(Sender: TObject);
begin
  Winexec('Notepad.exe', sw_Normal);
end;

procedure Tmainfm.FormCreate(Sender: TObject);
begin
//设定日期显示格式
  DateSeparator := '-';
  ShortDateFormat := 'yyyy-mm-dd';
end;

procedure Tmainfm.FormShow(Sender: TObject);
begin
passfm.ShowModal;
end;

procedure Tmainfm.N12Click(Sender: TObject);
begin
changepassfm.showmodal;
end;

procedure Tmainfm.N16Click(Sender: TObject);
var fpath: string;
begin
  fpath := ExtractFilePath(ParamStr(0)) + 'help.chm';
  ShellExecute(handle, nil, pchar(fpath), nil, nil, sw_shownormal);
end;

procedure Tmainfm.N17Click(Sender: TObject);
begin
  aboutbox.showmodal;
end;

end.