ID
自动编号
部门ID
主关键字
DepartmentName
文本
部门名称
Remard
备注
备注
表2公司职位信息数据(Positions)
字段名称
数据类型
说明
备注
ID
自动编号
主关键字
PositionName
文本
职位名称
PositionID
数字
职位ID
表3公司财务信息数据表(FinancialRecord)
字段名称
数据类型
说明
备注
ID
自动编号
主关键字
Name
文本
记录经手人
Department
文本
部门
ProjectName
文本
所属财务项目
FundTypeA
货币
款项A的数额
FundTypeB
货币
款项B的数额
FundTypeC
货币
款项C的数额
FundTypeD
货币
款项D的数额
Sun
货币
各款项求和
Summary
文本
摘要
Remark
文本
备注
AccountName
文本
会计经手人
AddDate
日期/时间
记录添加日期
ModifyDate
日期/时间
记录修改日期
表4公司财务项目信息数据表(FinancialProject)
字段名称
数据类型
说明
备注
FinancialProjectID
自动编号
主关键字
FinancialProjectName
文本
财务项目名称
AddDate
日期/时间
项目添加日期
FinancialManager
文本
项目主管
表5公司通知公告牌数据表(SuggestionRecords)
字段名称
数据类型
说明
备注
MessageID
自动编号
主关键字
MessageContent
文本
通知内容
MessageType
文本
通知类型
MessageSender
文本
通知发送者
MessageSendDate
日期/时间
通知发送日期
MessageSendTime
日期/时间
通知发送时间
MessageValidTime
数字
通知有效天数
表6系统用户信息数据表(PSLogins):
字段名称
数据类型
说明
备注
ID
自动编号
主关键字
LoginID
文本
系统用户的登录名
Name
文本
系统用户的姓名
Password
文本
用户密码
EmailAddress
文本
用户电子邮件地址
Department
文本
用户所在部门
Position
文本
用户的职位
InternalPhone
文本
用户的内部分机号码
HomePhone
文本
用户的家庭电话
MobilePhone
文本
用户的手机号
QQ
文本
用户的QQ号
HomeAddress
文本
用户的家庭住址
IsSystemManager
是/否
用户是否是系统管理员
Birthday
日期/时间
用户的生日
IsFinancialManager
是/否
用户是否是财务管理员
Sex
文本
用户性别
Education
文本
用户教育程度
Remark
备注
备注
表7公司内部意见信息数据表(SuggestionRecords)
字段名称
数据类型
说明
备注
SuggestionID
自动编号
主关键字
SenderName
文本
意见发送者
Todepartment
文本
意见发往部门
SuggestionType
文本
意见类型
SuggestionText
备注
意见内容
Status
文本
意见处理状态
Comments
文本
意见处理评论
WhenSent
日期/时间
意见发送日期
表8公司内部意见类型数据表(SuggestionTypes)
字段名称
数据类型
说明
备注
ID
自动编号
主关键字
SuggestionType
文本
意见建议的类型
1.7E-R图
系统用户信息实体图:
图1-1系统用户信息实体图
公司部门信息实体图:
图1-2公司部门信息实体图
公司职位信息实体图:
图1-3公司职位信息实体图
公司财务信息实体图:
图1-4公司财务信息实体图
公司财务项目信息实体图:
图1-5公司财务项目信息实体图
公司通知公告牌实体图:
图1-6公司通知公告牌实体图
公司内部意见信息实体图:
图1-7公司内部意见信息实体图
公司内部意见类型实体图:
图1-8公司内部意见类型实体图
第二章系统实现
下面给出系统开发出来的详细界面以阐述公司内部管理系统的具体功能。
2.1数据库连接
代码如下:
<%
dimconn '数据库连接
dimconnstr '连接字符串
dimdb '数据库文件路径
db="Database/office.mdb" '演示时用ACCESS数据库
connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)
Setconn=Server.CreateObject("ADODB.Connection")
iferrThen
err.clear
endif
conn.Openconnstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
subCloseConn()
conn.Close()
Setconn=Nothing
endsub
'替换单引号
functionRealString(strSrc)
RealString=Replace(Trim(strSrc),"'","''")
endfunction
%>
2.2登陆界面设计
首先是进入登陆界面,本窗体显示用户名称,密码校验等信息,本系统的用户分为三类:系统管理员,财务管理员,普通员工。使用者可以输入相应的用户名和密码,单击"确定"就会将输入提交给系统以验证用户、密码及身份。如果用户名及密码正确,则会进入系统的主体。
本模块的流程图如下:
代码如下:
'校验用户提交的用户信息
else
TheUsername=Request.Form("Username")
ThePassword=Request.Form("Password")
IfInstr(TheUsername,"'")=0andInstr(ThePassword,"'")=0andInstr(TheUsername,"'")=0_
andInstr(ThePassword,"'")=0then
setRSLogin=conn.Execute("select*fromPSLoginswhere"&"LoginID='"_
&TheUsername&"'and"&"Password='"&ThePassword&"'")
ifRSLogin.EOFthen
Session("NumAttempts")=Session("NumAttempts")+1
ifApplication("NumAttempts")=0then
TheMessage="登录不成功,请重试:"
elseifSession("NumAttempts")>Application("NumAttempts")then
TheMessage="登录不成功,登录次数已满,无法重试"
else
TheTimes=Application("NumAttempts")-Session("NumAttempts")+1
TheMessage="登录不成功,还有"&TheTimes&"次机会,请重试:"
endif
else
Session("ID")=RSLogin("LoginID")
Application("ID")=RSLogin("LoginID")
Session("Name")=RSLogin("Name")
Session("Password")=RSLogin("Password")
Session("Department")=RSLogin("Department")
Session("EmailAddress")=RSLogin("EmailAddress")
Session("Position")=RSLogin("Position")
Session("InternalPhone")=RSLogin("InternalPhone")
Session("HomePhone")=RSLogin("HomePhone")
Session("MobilePhone")=RSLogin("MobilePhone")
Session("QQ")=RSLogin("QQ")
Session("Birthday")=RSLogin("Birthday")
Session("HomeAddress")=RSLogin("HomeAddress")
Session("IsSystemManager")=RSLogin("IsSystemManager")
Session("IsFinancialManager")=RSLogin("IsFinancialManager")
Response.Redirect"home.asp"
endif
else
TheMessage="用户名或者密码输入不合格式"
endif
endif
<%response.writeTheMessage%>
<%
ifTheMessage<>"登录不成功,登录次数已满,无法重试"then
%>
用户
密码
2.3用户登录界面及编码设计
本节以对用户进行管理为例,介绍管理员的编码设计。管理员进入"用户管理"中的各种功能。
代码如下:
<%IfTime>=#12:00:00AM#AndTime<#12:00:00PM#Then
Response.Write"早上好!"
ElseifTime>=#12:00:00PM#AndTime<#18:00:00AM#Then
Response.Write"下午好!"
Else
Response.Write"晚上好!"
EndIf
%><%response.writeSession("Name")%>,欢迎您访问内网!今天是<%response.writeDate%>
企业员工信息管理系统
公司财务信息管理系统
公司内部交流信息系统
2.4进入员工信息管理系统
代码如下:
查询所有员工信息
按姓名排序
按部门排序
按生日排序
查询某个部门员工信息
<%
DoUntilRSDepartments.EOF
%>
">
<%Response.WriteRSDepartments("DepartmentName")%>
<%
RSDepartments.Movenext
loop
%>
查询某个员工信息
从列表中选择
<%
DoUntilRSRoles.EOF
%>
"><%Response.WriteRSRoles("Name")%>
<%
RSRoles.Movenext
loop
%>
从输入的名字查询
修改关于我的信息
系统管理员选项
以姓名排序进入
以部门排序进入
以生日排序进入
上一篇:ASP出租车管理系统(论文和程序)
下一篇:成都住宅小区施工组织设计及预算参考资料