名称 用户管理 角色管理 说明 对用户进行基本操作并确定其角色 管理角色所拥有的权限 工作计划管理 按照日期查看、修改、撰写工作计划 公文管理 管理公司的公文 员工信息管理 对员工的基本信息进行基本操作 考勤信息管理 对员工进行考勤 销售情况管理 对客户进行销售交易
2 系统总体设计
2.1系统总体结构设计
办公自动化仓库管理系统主要有用户角色管理系统模块、工作计划管理模块、公文管理模块、员工管理模块、工作情况管理模块等。具体模块图见下图：
系统结构总图： 系统登录 用户、角色管理 工作计划管理 公告管理 员工管理 工作情况管理 MyOA 图7：系统结构总图
各管理模块结构图：
删除 角色权限管理 用户角色管理 修改密码 添加 修改 工作计划管理 撰写 修改 查询 - 5 -
图8：用户角色管理模块结构图 图9：工作计划管理模块结构图
图12：工作情况管理模块结构图
工作情况管理 销量情况管理 月销售状况 商品销售成本表 销售统计 考勤信息管理 销售单 公告管理 公告查询 公告添加 公告审阅 员工信息管理 查看 添加 修改 删除 图10：公文管理模块结构图 图11：员工信息管理模块结构图
2.2系统数据模型设计
根据系统功能设计的要求、功能模块的划分以及数据字典的描述，下面给出此办公系统的各个组成部分的其中几张重要数据表。
表1：用户表（USER） 字段名 UserId LoginName Password RoleId
表2：部门表（Department） 字段名 DepartmentId 数据类型 长度 描述 int 4 50 部门编号 部门名称 数据类型 长度 描述 int varchar Varchar int 4 50 50 4 用户编号 登录名 密码 角色编号 DepartmentName varchar
表3：角色表（Role） 字段名 RoleId 数据类型 长度 描述 int 4 50 角色编号 角色名 RoleName varchar
表4：公文表（File） 字段名 FileId FileTitle FileContent 数据类型 长度 描述 int varchar text 4 50 50 50 4 公文编号 公文标题 公文内容 来源用户登录名 送达用户登录名 状态编号 FromUserName varchar ToUserName FileStatus
varchar int 表5：人事信息表（Personnel） 字段名 EmployeeId EmployeeName EmployeeSex EmployeeIDCard EmployeeBirth EmployeeAge EmployeeFolk EmployeeMarriage 数据类型 长度 描述 Varchar Varchar Varchar Varchar 50 50 50 50 员工编号 员工姓名 性别 身份证 出生日期 年龄 民族 婚姻状况 籍贯 联系电话 部门编号 职务 登记时间 datetime 8 Int Varchar Varchar 50 50 50 50 50 50 50 EmployeeNativePlace Varchar EmployeeTel EmployeeDeptId EmployeeDutyType BookInTime Varchar int Varchar datetime 8 表6：考勤信息表(Attendance)
- 7 -
字段名 Month Wage Employee ID 数据类型 长度 描述 varchar varchar 15 5 10 9 9 9 9 9 所属工资月份 员工编号 员工姓名 出勤天数 请假天数 迟到或早退次数 旷工天数 加班次数 EmployeeName varchar Appeared leave lateEarly AbsentWork Overtime
表7：工作计划表（Plan） 字段名 PlanId LoginName PlanDate numeric Numeric Numeric Numeric numeric 数据类型 长度 描述 Int varchar 4 50 计划编号 用户登录名 计划日期 计划内容 datetime 8 50 PlanContent Text
表8：销售主表（warehouse）
字段名 Billdate Billcode Units Handle 数据类型 长度 描述 Datetime 8 Varchar Varchar Varchar 20 30 10 8 8 录单日期 单据编号 客户 经手人 应付金额 实付金额
fullpayment Float Payment float 3．系统实施
1．连接数据库
// Profile store
SQLCA.DBMS = \SQLCA.Database = \
SQLCA.ServerName = \SQLCA.LogId = \
SQLCA.AutoCommit = False SQLCA.DBParm = \connect using Sqlca; open(w_main)
2．制作登陆窗口
“登陆”open代码为： string userid,userpwd
userid=trim(ddplb_1.text) userpwd=trim(sle_2.text)
select rtrim(operator_id),rtrim(password) into :userid,:userpwd from operator
where operator_id=:userid and password=:userpwd; if sqlca.sqlcode<>0 then messagebox(\，please input again!\ else open(w_login) close(w_main) end if
3．操作界面
当鼠标单击【职员登录】时，系统将弹出职员登录界面如图2.1所示。在用户名输入“mr”，密码为“mrsoft”，单击登录即可进入职员首页如图2.2所示。
如2.1职员登录界面
- 9 -
办公自动化管理系统
