信息资源管理设计.doc

题目：学校的工资管理信息系统 学号姓名： 项目 选题适当 内容充实 新颖与创新 总评 成绩 一、设计目的 我们知道，随着数据库技术的不断进步和数据库系统如今的广泛应用，企业的工资管理系统如今已经逐渐成为很多企业事业单位常用的一种计算机管理工具。所以本次设计将采取我校的工资管理为背景，设计了一个工资管理系统。 二、系统的简述 2.1 系统目标 很好地利用计算机快速整理、传输、处理各种数据的特点，处理会计业务，从而更为全面、更为准确的提供管理、决策所需的财务信息，并可快速查询职工的个人基本信息以及工资的各项信息 2.2 系统功能 该系统主要具有系统用户的管理，员工基本信息的管理，工资标准的设定以及工资的结算和查询等一般工资管理系统都具有的的功能。 2.3 系统环境 本系统是在Visuai Basic 上开发的，因而只要求基本的操作系统运行环境。在Windows XP及以上系统下均能应用。 三、具体设计内容 （1）建立数据库，添加五个表（系统用户表，员工基本信息数据表，职务工资标准数据表，职称工资标准数据表，其他工资标准数据表） （2）前台界面的设计，前台与数据库的连接 （3）连接过后，能够显示所有员工的的信息，通过工号，能够查询该员工的信息及其工资 （4）在查询界面，通过工号能够删除某个员工的信息 （5）显示工资类别表的信息，并且可以修改其中的信息 系统用户表结构 员工基本信息数据表结构 工资信息管理系统主窗体的设计 程序部分代码如下： Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuCount_Click() ShowWage.Show:ShowWage.SeFocus End Sub Private Sub mnuElse_Click() ElseWage.Show:ElseWage.SetFocus End Sub Private Sub mnuDuty_Click() DutyWage.Show: DutyWage.SetFocus End Sub Private Sub mnuQuery_Click() QueryWage.Show:QueryWage.SetFocus End Sub Private Sub mnuffManage_Click() StuffManage.Show:StuffManage.SetFocus End sub Private Sub mnuSysPassword_Click() ChangePassword.Show:ChangePassword.SetFocus End Sub Private Sub mnuSyUsers_Click() SyUserManage.Show:SysUserManage.SetFocus End Sub Private Sub mnuArrangeIcons_Click() SystemMain.Arrange vbCascade End Sub Private Sub mnuHorizontal_Click() SystemMain.Arrange bnTitleHorizontal End Sub Private Sub mnuVertical_Click() SytemMain.Arrange vnTitleVertical End Sub Private Sub MDIForm_Load() If ThisStatus<> ＂管理员＂Then mmuSyUsers.Visible=False mnuStuffManage.Visible=False mnuCount.Visible=False Toolbar1.Buttons(1).Visible=False Toolbar1.Buttons(2).Visible=False Toolbar1.Buttons(3).Visible=False Else mmuSyUsers.Visible=Ture mnuStuffManage.Visible=Ture mmuSyUsers.Visi