《Delphi课程设计论文delphi人事管理系统课程设计》由会员分享，可在线阅读，更多相关《Delphi课程设计论文delphi人事管理系统课程设计（19页珍藏版）》请在金锄头文库上搜索。
1、Delphi课程设计目录一.需求分析31.1.系统性能要求31.2.系统运行环境31.3.系统功能分析31.4.数据库需求分析4二.概要设计42.1.模块说明图42.2.数据流程图52.3.程序中部分窗体的说明5三.详细设计63.1.登陆代码63.1.1登陆界面63.1.2代码73.2. 添加用户代码83.3. 密码修改代码93.4. 用户删除代码113.4.1.用户删除界面113.4.2.代码113.5. 添加员工代码123.5.1.添加员工界面123.5.2.代码133.6.人事变动代码153.6.1.人事变动界面153.6.2.代码153.7.员工修改代码163.7.1.员工修改界面16
2、3.7.2.代码17四.测试分析174.1.服务器端运行情况174.2.客户端运行情况18五.心得体会18六.参考文献19七.致谢19【摘 要】科技的飞速发展，将人类带入了信息时代， 计算机越来越贴近人的生活，速度成为人们成功的前提条件，以致于人们必须不断尝试着使用各种手段来提高自身的工作效率。在人事管理中如果仍使用手工操作，既浪费了人力，又浪费了物力，效率无法提高，为此开发人事管理系统软件，能够适应现今社会并提高生产效率。企业人事管理系统主要用于员工个人资料的录入、职务变动的记录和管理。使用人事管理系统，便于公司领导掌握人员的动向，及时调整人才的分配。本设计是采用多层分布式结构，随着网络技术
3、的飞速发展，多层分布式数据库应用程序的开发成了数据库程序开发的主流之一。【关键词】服务器、客户端、分布式、图形界面、引用、数据库一.需求分析1.1.系统性能要求(1).用户操作直观，方便，界面友好。(2).系统使用功能齐全，可靠，稳定。(3).更快更稳定的执行速度完成要求；(4).便于维护与修改。1.2.系统运行环境硬件环境：(1).用486或更高级处理器（推荐使用INTEL Pentium 处理器），PowerPCMIPS/R4或Apple AXP 处理器系统；(2).16MB以上内存；(3).80MB以上硬盘空间.；(4).打印机；(5).Microsoft Mouse 或兼容设备；(6)
4、.显示器；(7)软驱、键盘；软件环境：(1)Window 98或更高版本；(2)Delphi 7.0 (3)Microsoft Excel97或Microsoft Excel2000；1.3.系统功能分析人事管理系统主要有以下几个方面的功能要求：(1)新员工资料的输入。(2)自动分配员工号。(3)人事变动的详细记录，包括岗位和部门的调整。(4)员工信息的查询和修改，包括员工的个人信息等。1.4.数据库需求分析员工信息：员工号、姓名、性别、生日、部门、职务、教育程序、专业、通讯地址、电话、其化。人事变动：记录号、员工号、变动信息、变动时间。用户信息：用户名、密码、权限。记数信息：记数种类、值。二
5、.概要设计2.1.模块说明图人事管理系统用户的管理新员工档案输入人事变动修改员工信息查看员工信息报表的打印 图2.1程序模块图2.2.数据流程图人事科招聘新员工分配员工号岗位调整员工辞退员工信息数据人事变动记录人个信息 图2.2程序数据流程图2.3.程序中部分窗体的说明服务器端* 窗体名：KCSJ * 作用：存放各数据控件，建立与数据库之间的联系 * 使用控件：ADOConnection、ADOTable、ADOQuery、DataSetProvider * 包括方法、函数：Tkcsj.RemoteDataModuleCreate(Sender: TObject)*TForm1.FormCre
6、ate(Sender: TObject) 获得当前数据库的路径*客户端* 窗体名：Datamodule2 * 作用：存放各数据控件，与数据服务器之间的联系 * 使用控件：SocketConnection1、ClientDataset、DataSource * 类名：Login * 作用：用户登录窗体 * 使用控件：Button、Edit、Lable * 包括方法、函数：TLogin.Button1Click(Sender: TObject) 检测用户的有效性 * TLogin.Button2Click(Sender: TObject) 按取消按钮时退出程序 * 窗体名：Main1 * 作用：程
7、序主窗体，提供各功能的菜单选择 *使用控件：MainMenu、ImageList、StatusBar、Toolbar * *包括方法、函数：各菜单和按钮的响应事件* 窗体名：User1 * 作用：对用户进行管理窗口 * 使用控件：PageControl、Lable、Button、Edit *Tuser1.Button1Click(Sender: TObject)用户的添加事件* Tuser1.Button3Click(Sender: TObject)用户密码修改事件* Tuser1.Button5Click(Sender: TObject)用户的查找事件* Tuser1.Button7Clic
8、k(Sender: TObject)用户的删除事件*另外还有Addwork员工添加管理窗体、Chang人事变更管理窗体、modify_work员工信息修改管理窗体、Find_work员工信息查询窗体、report报表打印窗体这里不一一说明，请参看源程序三详细设计3.1.登陆代码3.1.1登陆界面3.1.2代码procedure TLogin.Button1Click(Sender: TObject);var s1:string; s3:string;begin if times2 then begin DataModule2.Login1_Client.Close; Datamodule2.L
9、ogin1_Client.CommandText:=select ID,AUTHORITY from Auser where ID=:a1 and ps=:a2;Datamodule2.Login1_Client.Params.ParamByName(a1).Value:=edit1.Text; Datamodule2.Login1_Client.Params.ParamByName(a2).Value:=edit2.TextDatamodule2.Login1_Client.Open; if not DataModule2.Login1_Client.Eof then begin s1:=D
10、atamodule2.Login1_Client.FieldValuesAUTHORITY; s2:=Datamodule2.Login1_Client.FieldvaluesID; s3:=管理员; Main1.Show; Login.Hide; if s1=1 then begin s3:=普通用户; Main1.U1.Enabled:=false; Main1.C1.Enabled:=false; Main1.A1.Enabled:=false; Main1.M2.Enabled:=false; Main1.N4.Enabled:=false; Main1.ToolButton1.Enabled:=false; Main1.ToolButton3.Enabled:=false; Main1.ToolButton4.Enabled:=false; Main1.ToolButton5.Enabled:=false; end; Main1.StatusBar1.Panels0.Text:=当前用户是:+s2; Main1.StatusBar1.
