《《精编》企业管理系统》由会员分享,可在线阅读,更多相关《《精编》企业管理系统(18页珍藏版)》请在金锄头文库上搜索。
1、企业管理系统企业管理系统 目 录 摘 要 2 第一章 绪 论 4 1 1 摘要背景 4 1 2 开发工具的选择 4 第二章 系统需求与分析 5 2 1 总体需求调查 5 2 1 1 企业的管理功能 5 2 1 2 系统目标调查 5 2 2 系统数据流程分析 5 第三章 系统设计 6 3 1 系统总体结构图 8 第四章 详细设计 9 4 1 界面设计 9 4 2 修改和删除用户和密码 1 2 4 3 删除修改界面 1 5 4 4 系统数据库设计结果 1 5 摘摘 要要 随着信息技术的不断发展 我们对数据和业务的要求越来越高 因此对应 聘人员的各种信息进行数字化和网络化的管理也成为必要 一个完善的
2、应聘人 员档案管理不仅有利于企业对应聘人员信息的统计和管理 且有利于提高应聘 人员信息查询速度 该系统分为账户管理模块 应聘人员档案添加 查询 修 改模块 专业 民族增删模块 数据的导入 导出模块 本次设计任务是通过 开发一个数据库企业管理系统 采用 VB6 0 和 Access 等软件为开发工具 对应 用领域进行调查分析 参考各种资料和进行数据库编程实践 通过我们一个小 组三个人的共同努力 已经基本上成功地实现了设计任务书的要求 使得设计 的数据库系统能够实现一般数据库的管理 我们研究了数据库的查询优化问题 论 文主要介绍了本课题的开发背景 所要完成的功能和开发的过程 全文由系统设计 设计工
3、具选择与简介 系统功能的实现等几部分组成 文中所设计的 企业管理系统 是使用 Visual Basic 6 0 中文版作为开发工 具 后台数据库则采用 Access 2003 企业管理系统 为工作人员提供信息咨 询等服务 信息录入项目齐全 完整 系统 系统灵活使用表格对各种信息分 门别类 组成企业管理系统 可以方便地查询 阅读 修改 和使用 在对企业管理系统各个方面进行调研后 在完成管理系统的设计与实现的基 础上 写下这篇论文 第一章 绪论 1 1 摘要背景 企业管理系统使原本手工操作的复杂性 繁琐工作在电脑键盘弹指之间就 可轻松完成 1 21 2 开发工具的选择 数据库系统的开发 作为后台的
4、 Access 是一个非常理想选择 数据库是 MIS 中的重要支持技术 在 MIS 开发过程中 如何选择数据库管理是一个重要 的问题 目前 数据库产品较多 每种产品都具有各自的特点和适用范围 在 本系统中主要采用 Access 作为后台工作 本系统选用的数据库语言 该开发工 具具有很多长处 Visual Basic 是一种可视化的 面对对象和条用事件驱动方式的结构化高 级程序设计 可用于开发 Windows 环境下的种类应用程序 它简单易学 效率 高 且功能强大 可以与 Windows 的专业开发工具 SDK 相媲美 在 Visual Basic 环境下 利用事件驱动的编程机制 新颖易用的可视
5、化设计工具 可以 高效 快速地开发出 Windows 环境下功能强大 图形界面丰富的应用软件系统 运用 VB 在加上 Access 作为其后台 会使系统更加完善 第 2 章 需求分析 2 1 总体需求调查 2 1 1 企业的管理功能 生产管理 采购管理 销售管理 人事管理 库存管理 财务管理 如图 1 1企业组织结构图企业组织结构图 总经理 副总副总副总 销售部人事部综合部财务部生产部品管部 1车间 2车间 物流部 2 1 2 系统目标 采用现有的软硬件及科学的管理系统开发方案 建立企业管理系统 实 现企业管理的计算机自动化 系统应符合企业管理制度 并达到操作直观 方便 实用 安全等要求 本系
6、统不但可以节省您的时间 而且会使您事半功倍 2 2 系统数据流程图 系统的数据是要达到数据的准确性 数据流程分析是系统分析中的基础环节 企业管理系统的数据流程如图 2 1 数据流程图数据流程图 第 3 章 系统设计 图图 1 21 2 业务流程图业务流程图 第四章第四章 系统实现系统实现 第 4 章 详细设计 4 1 界面设计 4 1 1 系统启动界面设计 图 1 4 图 1 4 是本系统的初始界面 其实现的是用户登陆系统 String name txtName getText trim String pass String valueOf txtPassword getPassword if
7、 name equals JOptionPane showMessageDialog this 用户名 警告 JOptionPane WARNING MESSAGE txtName requestFocus return if pass equals JOptionPane showMessageDialog this 密码 警告 JOptionPane WARNING MESSAGE txtPassword requestFocus return 创建 UserTable 类的对象 UserTable user new UserTable user setUserName name user
8、 setUserPassword pass if LoginBusiness userIsRight user MainFrm mainfrm new MainFrm MainFrm setFrameMiddle mainfrm mainfrm setVisible true this dispose else JOptionPane showMessageDialog this 用户名或密码错误 警告 JOptionPane WARNING MESSAGE boolean ret false Connection con null PreparedStatement prsm null Re
9、sultSet rs null 存储 sql 语句 String sql select userName userPassword from UserTable where userName and userPassword con ConnectionManager getCon 与数据库取得连接 try prsm con prepareStatement sql 预编译 sql 语句 prsm setString 1 user getUserName prsm setString 2 user getUserPassword rs prsm executeQuery if rs next
10、ret true System out println 查询成功 catch SQLException ex System out println UserTableDao 类中的 checkUser 方法出错了 ex getMessage finally ConnectionManager closeRet rs ConnectionManager closePre prsm ConnectionManager closeCon con return ret 4 1 2 主界面的设计 图 1 5 图 1 5 为系统的主界面其用菜单编辑器完善了主界面的菜单 Private Sub Form L
11、oad mzgl Hide dljm Show End Sub Private Sub sfgl Click mzgl Hide yfgl Show End Sub 4 1 3 医院药房管理系统界面 图 1 6 该界面显示了本系统要实现的药品信息维护 查询等功能 Private Sub wh Click Form3 Show End Sub Private Sub cx Click Form6 Show End Sub Private Sub note Click Shell notepad exe 1 End Sub Private Sub jsq Click Shell calc exe
12、1 End Sub Private Sub tjyh Click Form9 Show End Sub Private Sub ggmm Click Form8 Show End Sub 4 24 2 修改和添加用户和密码修改和添加用户和密码 4 2 14 2 1 添加用户添加用户 输入用户名 密码 确认密码点确认就可以了非常容易实现 Private Sub Command1 Click 此代码说明用户添加完用户名和密 码后进 行确认的功能 If Text1 Text Or Text2 Text Then MsgBox 请输入用户名或密码 Else If Text2 Text Text3 Te
13、xt Then Form9 Adodc1 Recordset AddNew Form9 Adodc1 Recordset Fields user Text1 Text Form9 Adodc1 Recordset Fields passwd Text2 Text Form9 Adodc1 Recordset Update MsgBox 用户添加成功 Text1 Text Text2 Text Text3 Text Form9 Adodc1 Refresh Else MsgBox 两次输入的密码不同 请重新输入 Text2 Text Text3 Text End If End If End Su
14、b Private Sub Command2 Click Unload Me End Sub Private Sub Form Load Left Screen Width Width 2 27 Top Screen Height Height 2 End Sub 4 2 24 2 2 修改密码 当用户改完原密码和用户口令后进行确认的代码 Private Sub Command1 Click On Error Resume Next Adodc1 Recordset MoveFirst Adodc1 Recordset Find user username If Adodc1 Recordse
15、t Fields passwd Value Text1 Text Then If Text2 Text Text3 Text Then Adodc1 Recordset Fields passwd Value Text2 Text Adodc1 Recordset Update MsgBox 密码修改成功 vbInformation 信息 Text1 Text Text2 Text Text3 Text Else MsgBox 新密码与验证码不一致 vbCritical 错误 Text1 Text Text2 Text Text3 Text 28 Else MsgBox 原密码不正确 vbCr
16、itical 错误 Text1 Text Text2 Text Text3 Text End If End Sub Private Sub Command2 Click Unload Me End Sub 退出代码 可以回到上一层界面 Private Sub Form Load Left Screen Width Width 2 Top Screen Height Height 2 Adodc1 Refresh End Sub 4 3 添加 修改界面 图 1 7 实现的功能 当有药品的进库 出库 库存信息改变时 可以此处完成 相关的添加 修改 删除操作 并及时将相关信息显示在此界面上 Private Sub Option1 Click If Option1 Value True Then Adodc1 RecordSource select 库存药品 药品 ID 药品名称 保质期 现储备量 进 货管理 进货价 进货价 现储备量 as 库存药品金额 from 进货管理 库存药品 where 进货管理 药品 ID 库存药品 药品 ID Adodc1 Refresh Set DataGrid