分类编号理工学院数据库应用课程设计专业班级电商L071学生姓名苏红艳学号071609131指导教师张娜萍、张冬丽2009年12月25日职工项目管理系统一系统功能分析系统开发的总体任务是实现职工项目信息关系的系统化，规范化和自动化。主要功能有：1有关职工等信息的输入，包括输入职工基本信息(职工号,职工姓名,性别,生日,评价)，所在部门，所参加项目和奖金等。2职工信息的查询，包括查询职工基本信息，所在部门，所参加项目和奖金等3部门管理信息(部门编号,部门名称,部门负责人,地址,电话)的输入，信息查询，信息修改4项目基本信息(项目编号,项目名称,负责人,项目类型,成员,开始时间,结束时间,金额)输入，信息修改，查询及统计，5职工—项目情况的设置和修改6职工参与项目情况的统计及查询二系统功能模块设计职工项目管理系统职工基本年息管理部门信息管理项目信息管理系统管理职工信息添加职工信息修改职工信息查询部门信息添加部门信息修改部门信息查询项目信息添加项目信息修改项目信息查询用户管理密码管理先设置部门，再添加职工基本情况和项目情况。三表1职工信息基本表（职工号、职工姓名、性别、生日、基本工资、联系电话、奖金、评价）2部门（部门编号、部门名称、部门负责人、地址、办公电话）3项目（项目编号、项目名称、合作单位、负责人、项目类型(设计类、工程类、开发类)、成员、开始时间、完工时间、项目金额）4职工项目表（职工号、项目号、分工）5分工系数表（分工、系数）6用户表（用户名、用户密码）四数据库概念结构设计根据数据库的设计规划出的实体有：职工实体，部门实体，项目实体，各个实体具体的描述E-R图如下职工实体职工基本信息职工系数信息职工项目信息职工部门信息部门实体部门编号部门名称领导人办公电话部门地址项目金额完工时间开始时间合作单位参加成员项目类型负责人项目名称项目编号项目实体实体和实体之间的关系E-R如下项目进行分工职工项目设置部门部门设置五程序总体结构：ZGXMSYSTEM系统的module1模块PublicfMainFormAsfrmmainPublicUserNameAsStringSubMain()DimfLoginAsNewfrmloginfLogin.ShowvbModalIfNotfLogin.OKThen'LoginFailedsoexitappEndEndIfUnloadfLoginSetfMainForm=NewfrmmainfMainForm.ShowEndSubPublicFunctionConnectString()_AsString'returnsaDBConnectStringConnectString="FileDSN=zgxmsystem.dsn;UID=;PWD="EndFunctionPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_AsADODB.Recordset'executesSQLandreturnsRecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",_UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&_"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,_adOpenKeyset,_adLockOptimistic'rst.MoveLast'getRecordCountSetExecuteSQL=rstMsgString="查询到"&rst.RecordCount&_"条记录"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查询错误:"&_Err.Description