基于DELPHI公司人事管理系统的设计与实现

4.2.6 员工信息浏览模块设计

可以通过浏览模块查看员工的详细信息，还可以修改和删除信息，并通过条件查询来查看某人的信息。员工信息浏览模块的运行结果如图11所示。

 

图11 员工信息浏览模块

此模块主要运用了以下组件：“TPanel”组件、“TLabel”组件、“TCombobox”组件、“TEdit”组件、“TBitbtn”组件、“Treeview”组件、“Datasource”组件、“TDBGrid”组件，其中“Datasource”组件和“TDBGrid”组件是显示数据库中内容的组件，在运行时页面上看不到的。

TTreeView是显示单位信息和员工信息，如果在设计时就设计好，在公司增加部门的时候就会无法添加，所以在这里是通过对单位信息表和部门信息表进行检索后动态地创建树形选项。在窗体的OnShow事件中添加如下代码：

procedure Tfrm_ygxill.FormShow(Sender: TObject);

var

a,b:string;

subt:TTreenode;

begin

with data1.ADOQuery1 do

   begin

      close;

      sql.Clear;

      sql.Add(''select * from 人事表'');

      open;

   end;

   data1.ADOQuery1.Active:=true;

with data1.ADOpublic do

   begin

      close;

      sql.Clear;

      sql.Add(''select distinct 单位名称 from 单位信息表'');

      open;

   end;

   a:=data1.ADOpublic.FieldByName(''单位名称'').Value;

   subt:=Treeview1.Items.Add(nil,a);

with data1.ADOpublic do

   begin

      close;

      sql.Clear;

      sql.Add(''select distinct 部门名称 from 部门表'');

      open;

   end;

   while Not Data1.ADOpublic.Eof do

   begin

     b:=Data1.ADOpublic.FieldByName(''部门名称'').Value;

     Data1.ADOpublic.Next;

     Treeview1.Items.AddChild(subt,b);

  end;

TreeView1.FullExpand;

end;

在以上代码中，主要运用了select distinct来保证名称的唯一性，以及ADOquery组件的Eof属性返回数据集的最后一条记录，ADOquery组件的Next属性返回数据集中当前记录的下一条记录，这样就保证了对数据表中的所有行进行查询。

以上六个模块是了整个系统的主要模块，包含了员工信息添加，修改，删除，以及工资管理模块和系统最重要的连接数据库模块，其他模块的代码与组件设置和以上代码都有相同之处，在这里就不全部列出。

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167