⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 rlzy_main_unit.pas

📁 通用人力资源系统,分类可以自设定 可以熟练掌握DELPHI语言
💻 PAS
字号:
🔍 
unit rlzy_main_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinSkinData, ComCtrls, ExtCtrls, Animate, GIFCtrl,
  Menus, ImgList, RzStatus, jpeg, ToolWin, shellapi;

type
  Trlzy_main = class(TForm)
    SkinData1: TSkinData;
    sb1: TStatusBar;
    img1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ImageList1: TImageList;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    ImageList2: TImageList;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  rlzy_main: Trlzy_main;
  zhuce: integer;
implementation
uses
  regobj, public_unit, gzlr_unit, gz_shezhi_unit, gz_qj_shezhi_unit, gz_zhglr_unit,
  gz_dwxx_unit, lr_shezhi_unit, rl_sjtz_unit, rl_yuefen_unit, rl_qjtz_unit,
  rl_zhuanyi_Unit, rl_bfshuju_unit, rl_jszw_wh_unit, rl_byxx_wh_unit,
  rl_whcd_wh_unit, rl_gzzw_wh_unit, rl_sxzy_wh_unit, rl_gw_wh_unit,
  rl_ygxx_unit, rl_wait_unit, rl_ryxx_gj_unit, rl_yhzc_unit, rl_dbpack_unit,
  rl_bqxx_unit, rl_lssj_unit;
{$R *.dfm}

procedure Trlzy_main.N2Click(Sender: TObject);
begin
 wait.Show;
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  gzlrshezhi := 0;
  gzlrbz := 1;
     Application.ProcessMessages;
  with Tgzlr.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N5Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Tgz_shezhi.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
end;

procedure Trlzy_main.N3Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  gzlrshezhi := 1;
  gzlrbz := 1;
  with Tgzlr.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N6Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Tgz_qj_shezhi.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N7Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  gzlrshezhi := 0;
  with Tlr_shezhi.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N8Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  gzlrshezhi := 1;
  with Tlr_shezhi.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N10Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Tgz_zhglr.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N12Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Tgz_dwxx.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N14Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_sjtz.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N16Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_yuefen.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N15Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_qjtz.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N20Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_zhuanyi.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.FormPaint(Sender: TObject);
begin
{
  with Canvas do
  try
    Brush.Bitmap := Img1.Picture.Bitmap;
    FillRect(ClientRect);
  finally
    Brush.Bitmap := nil;
  end;
  }
end;

procedure Trlzy_main.N18Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_bfshuju.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N21Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_jszw_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N22Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_byxx_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N23Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_whcd_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N24Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_gzzw_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N25Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_sxzy_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间     04.06.07';
  sb1.Refresh;
end;

procedure Trlzy_main.N26Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_gw_wh.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N27Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_ygxx.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N28Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_ryxx_gj.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.FormCreate(Sender: TObject);
var
  AObj: TRegObj;
begin

  try
    AObj := TRegObj.Create;
    AObj.MaxTimes := 200;
    AObj.Company := '〔遥遥软件工作室〕';
    AObj.Email := 'yaowenxin@pushb2b.com';
    AObj.Execute;
  finally
    AObj.Free;
  end;
  if zhuce = 0 then
    rlzy_main.Caption := rlzy_main.Caption + '   [非正式用户]   ';
end;


procedure Trlzy_main.N33Click(Sender: TObject);
begin
  if zhuce = 1 then
    showmessage('此软件已经注册，如有问题请发邮件到：yaowenxin@pushb2b.com')
  else
  begin
    sb1.Panels[0].Text := '正在导入系统，请稍候.............';
    sb1.Refresh;
    with Trl_yhzc.Create(Self) do
    try
      ShowModal;
    finally
      Free;
    end;
    sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
    sb1.Refresh;
  end;
end;

procedure Trlzy_main.N30Click(Sender: TObject);
var
  filename, MyPath: string;
begin
  MyPath := ExtractFilePath(ParamStr(0));
  filename := mypath + 'aa.chm';

  Shellexecute(Application.Handle, nil, pchar(filename), nil, nil, sw_shownormal);

end;

procedure Trlzy_main.N36Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_dbpack.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N35Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_bqxx.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

procedure Trlzy_main.N19Click(Sender: TObject);
begin
  sb1.Panels[0].Text := '正在导入系统，请稍候.............';
  sb1.Refresh;
  with Trl_lssj.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  sb1.Panels[0].Text := '     作者：姚文新  VER 000-99-812-001      最新升级时间 04.06';
  sb1.Refresh;
end;

end.

⌨️ 快捷键说明

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