📄 unitmain.pas

📁 一个不错的系统
💻 PAS
字号:
unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, ExtCtrls, DBCtrls;

type
  TFrmMain = class(TForm)
    MMMain: TMainMenu;
    miSystem: TMenuItem;
    i111: TMenuItem;
    i21: TMenuItem;
    StatusBar1: TStatusBar;
    sadfsd1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    S1: TMenuItem;
    H1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N12: TMenuItem;
    ILMain: TImageList;
    R1: TMenuItem;
    miWindow: TMenuItem;
    C1: TMenuItem;
    N10: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    N9: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton10: TToolButton;
    procedure i111Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
    function CHKForm(PClassName:String):Boolean;
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses UnitPassword, UnitRegister, UnitAbout, UnitCommon, UnitModPass,
  UnitEmployee, UnitExport, UnitImport, UnitSearch, UnitUsers, UnitReport;

{$R *.dfm}

function TFrmMain.CHKForm(PClassName: String): Boolean;
var
  i:integer;
begin
  result:=false;
  for i:=0 to Application.ComponentCount-1 do begin
    if (Application.Components[i].ClassName=PClassName) then begin
      result:=True;
      Break;
    end;
  end;
end;

procedure TFrmMain.i111Click(Sender: TObject);
begin
  if CHKForm('TFrmRegister') then begin
    FrmRegister.SetFocus;
  end else begin
    FrmRegister:=TFrmRegister.Create(Application);
    frmRegister.Left:=(frmMain.ClientWidth-frmRegister.Width) div 2;
    frmRegister.Top:=(frmMain.ClientHeight-frmRegister.Height-60) div 2;
    if frmRegister.Left<0 then frmRegister.Left:=0;
    if frmRegister.Top<0 then frmRegister.Top:=0;
    FrmRegister.Show;
  end;
end;

procedure TFrmMain.N5Click(Sender: TObject);
begin
  if CHKForm('TFrmAbout') then begin
    FrmAbout.SetFocus;
  end else begin
    frmAbout:=TFrmAbout.Create(Application);
    frmAbout.Left:=(frmMain.ClientWidth-frmAbout.Width) div 2;
    frmAbout.Top:=(frmMain.ClientHeight-frmAbout.Height-60) div 2;
    if frmAbout.Left<0 then frmAbout.Left:=0;
    if frmAbout.Top<0 then frmAbout.Top:=0;
    FrmAbout.Show;
  end;
end;

procedure TFrmMain.N3Click(Sender: TObject);
begin
  FrmMain.Close;
end;

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Users.Rule<>'' then
    if MessageBox(Handle,'请确认您的数据已经保存，然后才退出系统。'+#13+'您是否真的要退出本系统？','系统信息',MB_YESNO+32)<>IDYES then
      CanClose:=false;
end;

procedure TFrmMain.N4Click(Sender: TObject);
begin
  if MessageBox(Handle,'请确认您的数据已经保存。'+#13+'您是否真的要登出？','系统信息',MB_YESNO+32)=IDYES then begin
    C1Click(Sender);
    Users.Rule:='';
    try
      FrmPassWord:=TFrmPassWord.Create(Application);
      FrmPassWord.ShowModal;
      if Users.Rule='' then FrmMain.Close;
      FormShow(Sender);
    finally
      FrmPassWord.Free;
    end;
  end;
end;

procedure TFrmMain.N1Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmUsers') then begin
      FrmUsers.SetFocus;
    end else begin
      FrmUsers:=TFrmUsers.Create(Application);
      FrmUsers.Left:=(frmMain.ClientWidth-FrmUsers.Width) div 2;
      FrmUsers.Top:=(frmMain.ClientHeight-FrmUsers.Height-60) div 2;
      if FrmUsers.Left<0 then FrmUsers.Left:=0;
      if FrmUsers.Top<0 then FrmUsers.Top:=0;
      FrmUsers.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请先与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

procedure TFrmMain.N7Click(Sender: TObject);
begin
  if CHKForm('TFrmModPass') then begin
    FrmModPass.SetFocus;
  end else begin
    FrmModPass:=TFrmModPass.Create(Application);
    FrmModPass.Left:=(frmMain.ClientWidth-FrmModPass.Width) div 2;
    FrmModPass.Top:=(frmMain.ClientHeight-FrmModPass.Height-60) div 2;
    if FrmModPass.Left<0 then FrmModPass.Left:=0;
    if FrmModPass.Top<0 then FrmModPass.Top:=0;
    FrmModPass.Show;
  end;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  FrmMain.StatusBar1.Panels[1].Text:='操作员：'+Users.Name;
end;

procedure TFrmMain.N8Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmEmployee') then begin
      FrmEmployee.SetFocus;
    end else begin
      FrmEmployee:=TFrmEmployee.Create(Application);
      FrmEmployee.Left:=(frmMain.ClientWidth-FrmEmployee.Width) div 2;
      FrmEmployee.Top:=(frmMain.ClientHeight-FrmEmployee.Height-60) div 2;
      if FrmEmployee.Left<0 then FrmEmployee.Left:=0;
      if FrmEmployee.Top<0 then FrmEmployee.Top:=0;
      FrmEmployee.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

procedure TFrmMain.N12Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmSearch') then begin
      FrmSearch.SetFocus;
    end else begin
      FrmSearch:=TFrmSearch.Create(Application);
      frmSearch.Left:=(frmMain.ClientWidth-frmSearch.Width) div 2;
      frmSearch.Top:=(frmMain.ClientHeight-frmSearch.Height-60) div 2;
      if frmSearch.Left<0 then frmSearch.Left:=0;
      if frmSearch.Top<0 then frmSearch.Top:=0;
      FrmSearch.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

procedure TFrmMain.R1Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmReport') then begin
      FrmReport.SetFocus;
    end else begin
      FrmReport:=TFrmReport.Create(Application);
      FrmReport.Left:=(frmMain.ClientWidth-FrmReport.Width) div 2;
      FrmReport.Top:=(frmMain.ClientHeight-FrmReport.Height-60) div 2;
      if FrmReport.Left<0 then FrmReport.Left:=0;
      if FrmReport.Top<0 then FrmReport.Top:=0;
      FrmReport.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

procedure TFrmMain.C1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to FrmMain.MDIChildCount-1 do
    FrmMain.MDIChildren[i].Close;
end;

procedure TFrmMain.N13Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmExport') then begin
      FrmExport.SetFocus;
    end else begin
      FrmExport:=TFrmExport.Create(Application);
      FrmExport.Left:=(frmMain.ClientWidth-FrmExport.Width) div 2;
      FrmExport.Top:=(frmMain.ClientHeight-FrmExport.Height-60) div 2;
      if FrmExport.Left<0 then FrmExport.Left:=0;
      if FrmExport.Top<0 then FrmExport.Top:=0;
      FrmExport.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

procedure TFrmMain.N11Click(Sender: TObject);
begin
  if BenRegistered then begin
    if CHKForm('TFrmImport') then begin
      FrmImport.SetFocus;
    end else begin
      FrmImport:=TFrmImport.Create(Application);
      FrmImport.Left:=(frmMain.ClientWidth-FrmImport.Width) div 2;
      FrmImport.Top:=(frmMain.ClientHeight-FrmImport.Height-60) div 2;
      if FrmImport.Left<0 then FrmImport.Left:=0;
      if FrmImport.Top<0 then FrmImport.Top:=0;
      FrmImport.Show;
    end;
  end else
    MessageBox(Handle,'软件未注册，请与惠锋软件工作室联系获取软件使用授权号。','系统信息',64);
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -