help.pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Help;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm9 = class(TForm)
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    RichEdit1: TRichEdit;
    TreeView1: TTreeView;
    procedure TreeView1Click(Sender: TObject);
  private
    Function Help0 :Integer;     //自定义函数
    Function Help1 :Integer;
    Function Help2 :Integer;
    Function Help3 :Integer;
    Function Help4 :Integer;
    Function Help5 :Integer;
    Function Help6 :Integer;
    Function Help7 :Integer;
    Function Help8 :Integer;
    Function Help9 :Integer;
    Function Help10 :Integer;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

Function TForm9.Help0;      //自定义函数显示帮助文档的内容
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('                <简介>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('  本软件是用Delphi 7.0所编写.所用数据库');
Form9.RichEdit1.Lines.Add('为SQL Server 2000. 本软件界面简洁, 操作方便. 在软件开发过程中, 注重于功能细节方面的实现,力求做到软件操作简便, 快捷.');
Form9.RichEdit1.Lines.Add('   软件稳定不出错. 当然 ,由于编者能力有限, 软件依然存在某些潜在的错误是难免的. 在此, 诚心欢迎指正!');
end;

Function TForm9.Help1;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <查询信息>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('            查询基本的信息');

end;

Function TForm9.Help2;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <员工信息>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   对员工信息进行维护查询,可以根据员工的员工号、姓名进行查询，在用姓名查询时可采用模糊查询.');
Form9.RichEdit1.Lines.Add('   注意:登录用户必须是在员工表里!')
end;

Function TForm9.Help3;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('             <员工简历信息>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   对员工的简历信息进行查询，只能根据员工的员工号进行查询.');

end;

Function TForm9.Help4;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <信息录入>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   当新员工进入时，进行档案的收集，记录员工的各项信息，以便方便管理.');
Form9.RichEdit1.Lines.Add('   注意：该功能只能以管理员身份登陆才能使用！');

end;

Function TForm9.Help5;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <员工档案录入>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   记录员工的基本信息，以便管理！');

end;

Function TForm9.Help6;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <员工简历信息录入>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('  其中包括学习简历、工作简历、培训情况、奖惩情况等！');
Form9.RichEdit1.Lines.Add('   "保存"按钮只有在点击了 "查询"按钮后才会变得可用. "保存"用来保存当前学生的简历信息.');

end;

Function TForm9.Help7;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <信息维护>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   对员工基本信息进行维护！');
Form9.RichEdit1.Lines.Add('   注意:只有有管理员权限的用户才能进行上项操作!');
end;

Function TForm9.Help8;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <员工信息维护>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('   首先输入员工的员工号，查询员工的基本信息，查看该员工是否存在，如果存在会在相应的窗口中显示员工的相应信息，管理员可根据要求修改相应的信息！');
Form9.RichEdit1.Lines.Add('   注意:只有有管理权限的用户才能进行此项操作!');
end;

Function TForm9.Help9;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=20;
Form9.RichEdit1.Lines.Add('              <员工简历信息维护>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=15;
Form9.RichEdit1.Lines.Add('    输入员工号查找员工，并对其简历信息进行维护！.');

end;

Function TForm9.Help10;
begin
Form9.RichEdit1.Lines.Clear;
RichEdit1.Font.Size :=24;
Form9.RichEdit1.Lines.Add('              <信息跟踪>         ');
Form9.RichEdit1.Lines.Add('                             ');
RichEdit1.Font.Size :=18;
Form9.RichEdit1.Lines.Add('   当员工身份登陆时，可以提交自己对公司的建议和意见，当以管理员身份登陆时，输入员工号，可以查看到该员工所留下的意见或者建议！');

end;


procedure TForm9.TreeView1Click(Sender: TObject);
var
List :TTreeNode;
begin
List :=TreeView1.Selected;         //根据选择调用相应的函数，显示相关内容
   if List.Text  ='员工信息管理系统' then
      Help0;
   if List.Text ='查询信息' then
      Help1;
   if List.Text ='查询员工信息' then
      Help2;
   if List.Text ='查询员工简历信息' then
      Help3;
   if List.Text ='信息录入' then
      Help4;
   if List.Text ='录入员工档案' then
      Help5;
   if List.Text ='录入员工简历信息' then
      Help6;
   if List.Text ='信息维护' then
      Help7;
   if List.Text ='员工基本信息维护' then
      Help8;
   if List.Text ='员工简历信息维护' then
      Help9;
   if List.Text ='信息跟踪' then
      Help10;
end;

end.