下载 >  开发技术 >  VB > vb办公用品课程设计

vb办公用品课程设计

vb办公用品课程设计说明书 希望呢感对大家有所帮助拉哈哈
2009-06-11 上传大小:396KB
分享
收藏 举报
办公用品管理软件破解版

适用于中小企业 ,低值办公用品管理。 互相学习。可以下载来试试。

立即下载
金字塔办公用品管理增强版4.0完整破解程序+补丁

完整的金字塔办公用品管理增强版安装程序+补丁

立即下载
恒达办公用品管理系统(连锁版)网络版9.98注册版 完整版

恒达办公用品管理系统(连锁版)网络版9.98注册版 完整版\ 全功能 不限制

立即下载
办公用品批发商城系统源代码

办公用品批发商城系统源代码

立即下载
超级简单的办公用品管理软件

没有任何使用限制,操作简单实用,适用于一般小型公司或单位使用

立即下载
办公用品管理系统(JAVA+JSP+servlet).rar

实习课题研究的主要内容与方法 办公自动化是新时期政府部门的一项重要基础性建设,是国民经济信息化在政府部门的具体体现之一,对推进政府管理现代化、决策科学化、运作高效化起着积极和重要的作用。办公自动化系统主要是为机关工作人员处理政务提供一个办公辅助手段。政府办公活动就是对各类办公信息(数据、文字、声音、图象、图形)进行采集、存储、处理、传送和输出的过程。办公自动化(Office Automation,OA),是利用先进的科学技术(主要是计算机、软件、网络技术),使办公室部分工作逐步物化于各种现代化设备和软件系统中,由办公室人员、设备和软件共同构成服务于某种目标的人机信息处理系统,包括自动办公辅助、报文审批、公文流转及内部交流系统等。其目的是尽可能充分利用现代技术资源与信息资源,提高政府部门行政管理工作效率和质量,辅助决策,以取得更好的工作效果。办公自动化系统是电子政务的基础,主要是辅助解决办公室事务的时间管理、成本管理、质量管理等三个管理要素。 特别应提出的是办公系统不单是公文管理,而是对包括业务数据资源在内的办公资源进行全面规范和利用以及提供协同办公的辅助手段。 本模块属于《国税总局综合办公平台》的“办公用品管理”子模块。本系统的总体结构图如下: 使用的主要技术: 技术:Java Swing编程,web技术; 开发工具:Jbuilder 数据库:Oracle 9i 数据访问方式:JDBC oracle thin 模式 参考设计模式:单态、工厂、DAO、MVC等 具体实现的功能及模块划分如下表: 功能类别 子功能 功能描述 办公用品使用 浏览办公用品 用户根据自己的权限,浏览可以申请的办公用品,可以查看要领用物品的详细信息及剩余数量 申请办公用品 填写办公用品申领单,提交申请后,即可根据该用品设定的申请流程进行申请流转 查看申领单 申请办公用品的用户可以看到自己的申请是否审批通过,没有申请通过的单子可以撤销或重新申请 查询办公用品 用户可以根据类别、办公用品名称、购入时间、使用者等进行查询 办公用品审批、签发 审批办公用品 具有审批权限的用户,核实申请单后,可以对申领单进行审批通过或驳回申领单 申请人可以看到自己申请单的状态。 查询审批单 具有审批权限的用户可以根据申请人名称查询到审批单,并按时间倒排序 签发办公用品 具有签发权限的用户可以看到审批通过的申领单,根据申领单的内容和审批意见签发办公用品,对已经签发的办公用品添上使用者和签发时间; 查询签发单 具有签发权限的用户可以查询到未签发的审批单; 可以根据使用者查询到已签发的审批单; 可以根据签发时间查询到已签发的审批单; 办公用品管理 设置办公用品类别 可以添加、删除、修改、查询办公用品的类别(不同的办公用品类别,拥有不同的属性) 分类办公用品 根据办公用品的用途、属性等,将办公用品归类,例如可分为文具类、计算机类、耗材类、外设类等 登记入库 根据办公用品类别的不同,选择不同的属性登记页面,并设置安全存储量(默认可以是0,表示不需要设置该值)进行登记入库 统计办公用品 根据使用者统计办公用品申领列表 存量提醒 对设置了安全存量数量的办公用品,当剩余数量小于安全存量值的时候,提示管理员该物品存量不足,并可以查看该物品的详细信息 权限管理 设置权限 可以添加、删除、修改一个权限 设置用户 可以添加、删除、修改一个用户 分配权限 对指定用户分配权限,也可以重新分配权限

立即下载
办公用品web系统

基于web的办公用品管理系统。源码简洁易懂,可移植可修改

立即下载
公司办公用品管理系统设计与实现

摘要:公司办公用品管理系统设计采用C#进行编制而成,具有稳定性好、安全性高的优点,可以供各公司相关人员管理办公用品。本系统拥有用户管理、不同级别用户管理、办公用品信息管理、购入与损坏管理等信息录入功能,并可以对相关交易活动进行记录。MDI窗体的使用,简洁明了,使用方便,所以研制的办公用品管理系统应该能够为用户提供充足的信息和快捷的数据处理手段,并具有非常好的功能扩展功能。本系统的设计解决了一直以来人们使用传统人工的方式进行办公用品管理存在着许多缺点,如:效率低、保密性差等。使用本系统对办公用品信息进行管理,具有手工管理所无法比拟的优点,能够极大地提高办公用品管理的效率。 关键词:办公用品;管理系统;.NET技术;C#;SQL

立即下载
办公用品管理课程设计

办公用品管理系统源码是很适用于企事业单位工作的

立即下载
课程设计办公用品管理系统

软件项目开发综合训练,课程设计办公用品管理系统

立即下载
办公用品管理系统课程设计

软件项目管理课程设计公司办公用品管理系统设计采用C#进行编制而成,具有稳定性好、安全性高的优点,可以供各公司相关人员管理办公用品。本系统拥有用户管理、不同级别用户管理、办公用品信息管理、购入与损坏管理等信息录入功能,并可以对相关交易活动进行记录。MDI窗体的使用,简洁明了,使用方便,所以研制的办公用品管理系统应该能够为用户提供充足的信息和快捷的数据处理手段,并具有非常好的功能扩展功能。本系统的设计解决了一直以来人们使用传统人工的方式进行办公用品管理存在着许多缺点,如:效率低、保密性差等。使用本系统对办公用品信息进行管理,具有手工管理所无法比拟的优点,能够极大地提高办公用品管理的效率。

立即下载
办公用品管理系统源码

办公用品管理系统源码 办公用品管理系统源码办公用品管理系统源码 办公用品管理系统源码

立即下载
办公用品库存表用函数和公式易学代总表自动生成

简单的进出库表带总表,excele格式,代价格只要输入品名的代码就能得到你要出入库的名称,输入数量就可以自动生成金额。没有宏代码,用的函数和公式。

立即下载
用SQL数据库做的办公用品库存管理系统

课程设计 SQL 办公用品库存管理 数据库 是本人的SQL 数据库课程设计,文档 什么都有

立即下载
金字塔办公用品管理系统(增强版)V4.0最终版注册版

金字塔办公用品管理系统(增强版)V4.0最终版注册版.rar

立即下载
vb课程设计 电子书

vb的两个设计。从其他地方靠过来的,不知能不能用》烦死了。仅供参考

立即下载
红管家办公用品出入库软件

《红管家》是为行政机关、企事业单位设计的,对办公用品进行管理的办公自动化软件。根据单位的办公用品的购买,入库,领用流程而开发,特别适用于分批次购买,各部门领用的模式,具有完善的输入,统计,打印功能。解决了办公用品手工管理中工作量大的矛盾。能精确的进行库存统计、库存价值统计、库存警示;进行采购统计、各部门领用的数量、金额统计及时地考核、计量各部门费用消耗情况。

立即下载
办公用品管理系统Access版

办公用品管理系统Access版

立即下载
基于数据库的VB课程设计

4.设计体会 通过本次课程设计,使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中,我从中学到了很多有用的方法,比如通过本次设计,我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中,我对课本上的知识进行了复习,从中找出了不少盲点,由衷地感觉到学习过程中应该把学的知识作扎实,多动手多思考,这样才能最大限度的减少知识的漏洞。 把课本上的东西变成实际的东西,让其有使用的价值,是一件很让人高兴的事。我切实的体会到VB这门课程是有用处的,它解释了我平时学习中的很多疑惑,让我增长了很多见识。 5.参考文献 [1] 刘天惠.Visual Basic程序设计教程[M]. 北京: 清华大学大学出版社,2003.12-24 [2] 龚沛曾.Visual Basic程序设计教程[M]. 高等教育出版社, 2004.28-45 [3] 蒋加伏.Visual Basic程序设计教程[M].北京: 北京邮电大学出版社,2003.10-56 [4] Microsoft .Visual Basic 6.0 中文版控件大全[M]北京:电子工业出版社,2004.15-23 6.附录 源程序代码如下: (1)用户登录窗体 Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset 沈 阳 大 学 课程设计说明书 NO.16 If Trim(UserName.Text = "") Then MsgBox "没有输入用户名称,请重新输入!", vbOKOnly + vbExclamation, "警告" UserName.SetFocus Else '查询用户 SQL = "select * from UserInfo where UserID='" & UserName.Text & "'" Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True Then MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告" UserName.SetFocus Else If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then rs.Close Me.Hide gUserName = Trim(UserName.Text) '保存用户名称 FrmMain.Show Unload Me Else MsgBox "密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告" PassWord.SetFocus PassWord.Text = "" 沈 阳 大 学 课程设计说明书 NO.17 End If End If Else Unload Me End If End If pwdCount = pwdCount + 1 '判断输入次数 If pwdCount = 3 Then Unload Me Exit Sub End If End Sub Private Sub Form_Load() pwdCount = 0 gUserName = "" End Sub Private Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub Private Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub 沈 阳 大 学 课程设计说明书 NO.18 (2)添加用户窗体 Option Explicit Public str1 As String '保存修改时的SQL语句 Public ID As Integer '保存记录编号 Private baddflag As Boolean rivate Sub AID_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCode End Sub Private Sub AID_LostFocus() Dim SQL As String Dim rs As New ADODB.Recordset SQL = "select SName,SDept,SPosition from StuffInfo where SID='" & Me.AID.Text & "'" Set rs = TransactSQL(SQL) If rs.EOF = False Then Me.AName = rs(0) '初始化员工姓名 Me.AOldDept = rs(1) Me.AOldPosition = rs(2) Else MsgBox "员工编号输入错误,或者没有这个员工!", vbOKOnly + vbExclamation, "警告!" Me.AID = "" Me.AID.SetFocus Me.AID.ListIndex = 0 End If rs.Close End Sub 沈 阳 大 学 课程设计说明书 NO.19 Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub rivate Sub checkinput() If Me.ANewPosition = "" Then MsgBox "请输入新的职务!", vbOKOnly + vbExclamation, "警告!" Me.ANewPosition.SetFocus ElseIf Me.AOutTime = "" Or IsDate(Me.AOutTime) = False Then MsgBox "请输入正确的调出时间!", vbOKOnly + vbExclamation, "警告!" Me.AOutTime = "" Me.AOutTime.SetFocus ElseIf Me.AInTime = "" Or IsDate(Me.AInTime) = False Then MsgBox "请输入正确的调入时间!", vbOKOnly + vbExclamation, "警告!" Me.AInTime = "" Me.AInTime.SetFocus Else baddflag = True End If End Sub Private Sub cmdOK_Click() Dim SQL As String Dim rs As New ADODB.Recordset 沈 阳 大 学 课程设计说明书 NO.20 baddflag = False Call checkinput If baddflag = True Then If flag = 1 Then 'Call checkinput SQL = "select * from AlterationInfo" Set rs = TransactSQL(SQL) rs.AddNew rs.Fields(1) = Me.AID rs.Fields(2) = Me.AName rs.Fields(3) = Me.AOldDept rs.Fields(4) = Me.ANewDept rs.Fields(5) = Me.AOldPosition rs.Fields(6) = Me.ANewPosition rs.Fields(7) = Me.AOutTime rs.Fields(8) = Me.AInTime rs.Fields(9) = Me.ARemark rs.Update rs.Close SQL = "update StuffInfo set SDept='" & Me.ANewDept & "', SPosition='" SQL = SQL & Me.ANewPosition & "' where SID='" & Me.AID & "'" TransactSQL (SQL) MsgBox "已经添加调动信息!", vbOKOnly + vbExclamation, "添加结果!" SQL = "select * from AlterationInfo order by ID" 沈 阳 大 学 课程设计说明书 NO.21 frmAlterationResult.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Person.mdb" frmAlterationResult.Adodc1.RecordSource = SQL If SQL <> "" Then frmAlterationResult.Adodc1.Refresh End If Else '修改记录 'Call checkinput SQL = "update StuffInfo set SDept='" & Me.ANewDept & "', SPosition='" SQL = SQL & Me.ANewPosition & "' where SID='" & Me.AID & "'" TransactSQL (SQL) SQL = "update AlterationInfo set AOldDept='" & Me.AOldDept & "',ANewDept='" SQL = SQL & Me.ANewDept & "',AOldPosition='" & Me.AOldPosition SQL = SQL & "',ANewPosition='" & Me.ANewPosition & "',AOutTime=#" & Me.AOutTime SQL = SQL & "#,AInTime=#" & Me.AInTime & "# where ID=" & ID TransactSQL (SQL) MsgBox "已经修改信息!", vbOKOnly + vbExclamation, "修改结果!" Unload Me SQL = "select * from AlterationInfo order by ID" frmAlterationResult.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Person.mdb" frmAlterationResult.Adodc1.RecordSource = SQL If SQL <> "" Then frmAlterationResult.Adodc1.Refresh End If 沈 阳 大 学 课程设计说明书 NO.22 Set frmAlterationResult.DataGrid1.DataSource = frmAlterationResult.Adodc1.Recordset frmAlterationResult.DataGrid1.Refresh frmAlterationResult.Show frmAlterationResult.ZOrder 0 Call init Me.ZOrder 0 End If End If End Sub (3)查询员工信息窗体 Option Explicit Private query As String Private fromdate As String Private todate As String Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub Private Sub CombineDate() fromdate = Me.FromYear.Text & "-" & Me.FromMonth.Text & "-1" fromdate = Format(Me.FromYear.Text & "-" & Me.FromMonth.Text & "-1", "yyyy-mm-dd") todate = Me.ToYear.Text & "-" & Me.ToMonth.Text & "-1" todate = Format(todate, "yyyy-mm-dd") End Sub 沈 阳 大 学 课程设计说明书 NO.23 Private Sub setSQL() If IDCheck.Value = vbChecked Then query = "select * from StuffInfo where SID='" & Trim(Me.SID) & "'" End If If NameCheck.Value = vbChecked Then query = "select * from StuffInfo where SName='" & Trim(Me.SName) & "'" End If End Sub Private Sub cmdOK_Click() Call CombineDate Call setSQL frmResult.createList (query) frmResult.Show Unload Me End Sub Private Sub Form_Load() Dim i As Integer Dim SQL As String Dim rs As New ADODB.Recordset SQL = "select distinct datepart(yy,SInTime) from StuffInfo" Set rs = TransactSQL(SQL) If Not rs.EOF Then rs.MoveFirst While Not rs.EOF If Not IsNull(rs.Fields(0)) Then 沈 阳 大 学 课程设计说明书 NO.24 Me.FromYear.AddItem rs(0) Me.ToYear.AddItem rs(0) End If rs.MoveNext Wend rs.Close Me.FromYear.ListIndex = 0 Me.ToYear.ListIndex = 0 End If For i = 1 To 12 Me.FromMonth.AddItem i Me.ToMonth.AddItem i Next i Me.FromMonth.ListIndex = 0 Me.ToMonth.ListIndex = 0 End Sub

立即下载
办公用品管理系统 数据库

办公用品管理系统 用数据库与C++ ODBC数据源结合的课程设计

立即下载
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

vb办公用品课程设计

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: