VB人事管理系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb人事管理系统”。
I 图书管理系统一、课程设计的目的与要求.......................................2
二、题目分析...................................................3
三、设计思路...................................................3
四、调试过程...................................................5 4.1、设计工程框架..........................................5 4.1.1、设计登录窗体....................................5 4.1.2、图书基本信息管理模块设计........................7 4.2、设计图书信息编辑窗体..................................8 4.3、图书信息管理窗体......................................9 4.4、图书借阅管理模块设计.................................11 4.4.1、设计借阅证件类型编辑窗体.......................11 4.4.2、设计借阅证件类型管理窗体.......................13 4.4.3、设计借阅证件编辑窗体...........................14 4.4.4、设计借阅证件管理窗体...........................14 4.4.5、设计图书借阅记录查看窗体.......................16 4.4.6、设计图书借阅信息编辑窗体.......................17 4.4.7、设计图书归还信息管理窗体.......................17 4.4.8、设计图书借阅管理窗体...........................18 4.4.9、设计用户信息编辑窗体...........................19
五、运行结果.................................................21
六、课程设计总结..............................................21
七、参考文献..................................................2I图书管理系统
摘要
随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。绘本图书与其他普通图画书的区别在于绘本图书通常有独立的绘画著者，图画有个人风格，画面即情即景，可单幅成画，容易提高儿童读书的积极性。如何科学地管理绘本馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的绘本图书馆管理系统就成不可少了，图书管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
经过分析，使用 Microsoft公司的Visual Basic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。
本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发本系统的详细过程，提出实现绘本图书馆信息管理、资源共享的基本目标，从而推动迈向数字化绘本图书馆的步伐，并阐述系统结构设计和功能设计，从绘本图书的入库登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。图书管理系统
图书管理基本业务活动包括：对一本书的采编入库、清除库存、借阅和归还等等。试设计一个图书管理系统，将上述业务活动借助于VB数据库管理系统完成。
关键字：图书管理系统；SQL Server数据库；Visual Basic开发语言；管理信息系统。
一、课程设计的目的与要求
掌握VB的数据库编程技巧，及利用Acce创建数据库的方法，利用VB的数据库控件与数据源建立连接，完成一个较为简单的数据库管理系统的设计。每种书的登记内容至少包括书号、书名、著者、现存量和总库存量等五项，对书目的相关信息均采用数据库存储。
系统应实现的操作及其功能定义如下：
1）采编入库：新购入一种书，经分类和确定书号之后登记到图书账目中去。如果这种书 在帐中已有,则只将总库存量增加。2）清除库存：某种书已无保留价值，将它从图书账目中注销。3）借阅：如果一种书的现存量大于零,则借出一本，登记借阅者的图书证号和归还期 限。
4）归还：注销对借阅者的登记，改变该书的现存量。5）显示：显示书库信息。图书管理系统
二、题目分析
图书管理系统需要的功能分析如下：
管理系统具有多个管理员，管理员可以使用不同的用户名和密码进入管理系统，并可以修改自己的密码；
（一）进入系统后可以重新登录该系统；
（二）在系统中可以对数据库进行简单的操作；
（三）最基本的功能还应具有可以编辑图书——录入、删除图书资料。图书分类信息的添加、修改、删除和查询。此功能为图书的分类管理提供依据。
（四）图书基本信息的添加、修改、删除和查询。
（五）借阅证件分类信息的添加、修改、删除和查询。不同类型的借阅证件可以借阅的最大数量、最大天数和续借天数不同。
（六）图书借阅证件的添加、修改、删除、挂失和查询。
（七）图书借阅管理，包括图书借阅、图书归还、图书续借、图书挂失和图书催还等。
三、设计思路
系统运作流程，该系统涉及到用户以及管理员，在两者之间进行一系列的操作。管理员对图书进行录入、删除等操作，和用户之间的交流则是进行借阅图书操作。运作流程图如图1所示: 3图书管理系统
图1 运作流程图
图2所示，具体的操作流程：图书管理系统
图2 具体的操作流程
四、调试过程 4.1、设计工程框架 4.1.1、设计登录窗体
登录窗体名称为FrmLogin，它的界面布局如图3所示：图书管理系统
图3 界面布局
主窗体启动时，首先打开登陆对话框。主窗体代码如下： Private sub Form_load()Frmlogin.show1 End sub 如选的是退出系统菜单项时，触发mn_exit_click 事件，代码如下：
Private sub mn_exit_click()Dbapi_disconnect End End sub 通过身份认证时，则进入系统主界面如图4所示： 图书管理系统
图4 进入系统主界面
4.1.2、图书基本信息管理模块设计
图书基本信息管理模块可以实现以下功能： A、添加图书基本信息。B、修改图书基本信息。C、删除图书基本信息。D、查看图书基本信息。图书管理系统
4.2、设计图书信息编辑窗体
图书信息编辑窗体的名称为FrmBookEdit，窗体的布局如图5所示：
图5 窗体的布局
代码如下：
Private sub Cmd _OK_Click()With MyBookinfo BookNo=MakeStr(txtBookNo)‘图书编号 BookName=MakeStr(txtBookName)‘图书名称 Publisher=MakeStr(txtpulisher)
‘出版社图书管理系统
Author=MakeStr(txtAuthor)‘作者 Location=MakeStr(txtLocation)‘存放位置 Price=Val(txtPrice)‘价格 Total=Val(txtTotal)‘数量 Typeld=nBookTypeld ‘图书分类 Descripition=MakeStr(txtDescripition)IfModify=False Then Insert Cmd_Ok.Enabled=False Else Call.UpDate(OnNo)End If End With Unload Me End Sub 4.3、图书信息管理窗体
如图6所示： 图书系统管理界面图书管理系统
图6 图书系统管理界面
Private Sub TreeView1_Click()Focuskey=TreeView1_SelectdItem.Key CurBookTypeName=TreeView1.SelectdItem.Text CurBookTypeId=Val(Right(TreeView1.SelectdItem.Key,Len(TreeView1.SelectdItem.Key)-1))IfFocusKey=”a0” Then nTypeId=-1 Exit Sub End if bHaveSon=CurBookType.HaveSon(CurBookType.TypeId)10图书管理系统
If bHaveSon=False Then TreeView1.SelectedItem.ExpandedImage=4 TreeView1.SelectedItem.Image=4 TreeView1.SelectedItem.SelectImage=5 nType=CurBookType.TypeId CurBookType.GetInfo(CurBookType.TypeId)GridRefresh End sub
4.4、图书借阅管理模块设计
图书借阅管理模块可以实现以下功能： a.借阅证件类型管理。b.借阅证件管理 c.图书借阅管理
4.4.1、设计借阅证件类型编辑窗体
借阅证件类型编辑窗体的名称为FrmCardTypeEdit,如图7所示： 图书管理系统
图7 阅证件类型编辑窗体
代码：
Private Sub Cmd_Ok_Click()With MyCardType TypeName=MakeStr(txtTypeName)MaxCount=Val(txtMaxCount)MaxDays=Val(txtMaxDays)AddDays=Val(txtAddDays)If Modify=False Then Insert End Call.Upate(tId)End if End with Unload Me End sub图书管理系统
4.4.2、设计借阅证件类型管理窗体
借阅证件类型管理窗体的名称为FrmCardType,窗体布局如图8所示：
图8 借阅证件类型管理窗体
代码：
Private Sub GridRefresh()Adodc1.ConnectionString=conn ‘设置数据源
Adodc1.RecordSource=”SELECT ID AS编号，TypeNameAS 类型名称，MaxCount AS最大借阅数量，”+”MaxDays AS 最多借阅天数，AddDays As 续借天数 FROM CardType ORDER BY Id” Adodc1.Refresh‘设置列宽度 End sub 13图书管理系统
4.4.3、设计借阅证件编辑窗体
借阅证件类型编辑窗体的名称为FrmCardsEdit,如图9所示：
图9 借阅证件类型编辑窗体
4.4.4、设计借阅证件管理窗体
设计借阅证件管理窗体的名称为FrmCardS,如图10所示：图书管理系统
图10 设计借阅证件管理窗体
代码：
Private Sub GridRefresh()Adodc1.ConnectionString=com If ComboCardStatus.ListIndex=0 Then SchCnd=”” Else SchCnd=
”
AND
c.Status=
”+Trim(ComboCardStatus.Text)+”” End if Adodc1.RecordSource=”SELECT c.CardNo AS借书证号，c.Name AS 姓名，t.TypeName AS 类型，”+”c.Status AS 状态，t.MaxCount AS可借数量，t.MaxDays AS 借阅天数，c.WorkPlace AS工作单位，”+”c.IdCard AS 有效证件号码，c.CreateDate AS 发证日期”图书管理系统
+”FROM Cards c,CardType t WHERE c.TypeId=t.Id”+SchCnd +”ORDER BY CardNo” Adodc1.Refresh ‘设置列宽度
If ComboCardStatus.ListIndex= 1 Then Cmd_Add.Enabled=Ture End if End sub
4.4.5、设计图书借阅记录查看窗体
用于查看指定借阅证件记录，窗体名为FrmRecord，窗体布局如图11所示：
图11 查看指定借阅证件记录图书管理系统
4.4.6、设计图书借阅信息编辑窗体
设计图书借阅信息编辑窗体的名称为FrmBorrowEdit,此窗体的工作过程比较复杂，它的布局如图12所示：
图12 图书借阅信息编辑窗体
4.4.7、设计图书归还信息管理窗体
设计图书归还信息管理窗体的名称为FrmReturnEdit, 窗体布局如图13所示:图书管理系统
图13 设计图书归还信息管理窗体
4.4.8、设计图书借阅管理窗体
设计图书借阅管理窗体的名称为FrmBorrow, 窗体布局如图14所示:
图14 设计图书借阅管理窗体图书管理系统
如图15所示：
图15 设计图书借阅管理窗体
4.4.9、设计用户信息编辑窗体
用户信息编辑窗体可以用来添加和修改用户信息，窗体名称为FrmUserEdit,窗体布局如图16所示：
图16 用户信息编辑窗体
代码：图书管理系统
Private sub Cmd_Ok_Click()With MyUser If
Modfiy=False
Or OriUserTrim(txtUserName)Then If.In_DB(MakeStr(txtUserName))=True Then MsgBox”用户名已经存在，请重新输入” txtUserName.SetFocus txtUserName.SelStart=0 txtUserName.SelLenght=Len(txtUserName)Exit sub End if.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPa)If Modify=False Then.Insert Else.Update(OriUser)If
OriUser=CurUserName Trim(txtUserName)OriUser Then CurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUserName)
End if End if End With
And图书管理系统
Unload Me End Sub
五、运行结果
如图17所示：
图17 运行结果
六、课程设计总结
通过本次课程设计，我们不仅加深了平时的学习并且了解到更多关于Visual Basic和SQL Server的使用，并且利用所学知识将各个对象的使用结合起来制作了一个完整的系统。这个图书馆系统可以使操作员进行一般的查询图书和会员信息、借阅和归还图书、整理图书包括录入和注销图书以及修改管理员密码以保护 21图书管理系统
自己使用该系统的权利的功能。在结束了课程设计之后让我们对Visual Basic 的各个控件有了更好地掌握之外，也让我们了解了一个图书管理系统的基本模式，学习之余扩宽了知识面。虽然在平时的学习中通过老师的讲授已经基本掌握了Visual Basic的用法，但知识分散不牢固。通过本次设计，我们可以灵活的将VB中的基本控件结合起来，制作了这个完整的系统，并能准确地使用所学的编程语言来制作该系统。可以说完成课程设计之后让我们受益匪浅，同时也锻炼了我们的独立思考能力。相信通过本次实验，我们可以更好的使用VB来制作一些其他系统，能进一步学习和使用VB.当然，由于这是我们第一次进行制作，水平和经验限制了系统的功能。一些图书管理应有的功能暂时无法实现，需要更加完善。相信在这次实验之后我们可以对图书管理系统有进一步的学习和研究，以得到更好的发展。
七、参考文献
《Visual Basic程序设计》 谭浩强，清华大学出版社 《VB语言程序设计》 林卓然，电子工业出版社
《Visual Basic 6.0程序设计》 刘新民，清华大学出版社 《Visual Basic 程序设计教程》 罗朝盛，人民邮电出版社 《Visual Basic 6.0高级编程》 [美]Julia，清华大学出版社 《Visual Basic程序设计教程习题及习题解答》刘瑞新，机械工业出版杜
《全国计算机等级考试二级教程-Visual Basic语言程序设计》刘炳文，高等教育出版社
22图书管理系统
附录（源程序代码）
权限设置的主要代码： Option Explicit Public constr As String '数据库连接信息 Public privilege As Integer '用户权限 Public rst As ADODB.Recordset '数据库内的记录 Public rst1 As ADODB.Recordset Public rst2 As ADODB.Recordset Public con As ADODB.Connection Public tablename As String Type userdata '用户信息，包括用户名，密码和对应的权限 user_id As String pwd As String right As Integer End Type Public Sub connect_db()constr = “Provider=Microsoft.Jet.OLEDB.4.0;” + “Data Source=” + App.Path + “dataComputerBookmanage.mdb” + “;Persist Security Info=False” '数据库引擎+路径
Set con = New ADODB.Connection '新建一个数据库连接
con.CursorLocation = adUseClient '用于客户端（ADOR）Recordset对象，游标
库属性必须为adUseClient
23图书管理系统
con.ConnectionString = constr '连接信息 con.Open End Sub Function open_connection(table_name As String)Dim sqlstr As String Dim str As String Set con = New ADODB.Connection Set rst = New ADODB.Recordset con.CursorLocation = adUseClient sqlstr = “Provider=Microsoft.Jet.OLEDB.4.0;” + “Data Source=” + App.Path + “dataComputerBookmanage.mdb” + “;Persist Security Info=False” con.Open sqlstr str = “select * from ” & table_name & “” '执行SQL查询 rst.Open str, con, adOpenDynamic, adLockOptimistic rst.Requery End Function Public Sub check_privage(rightlevel As Integer)Dim right As Integer right = rightlevel Select Case right Case 1: '普通用户，只能查询图书信息和借阅信息 Form1.xpcmdbutton1.Enabled = False Form1.xpcmdbutton2.Enabled = False Form1.xpcmdbutton3.Enabled = False
24图书管理系统
Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = False Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin Case 2: '2级管理员，还可以借书和还书 Form1.xpcmdbutton1.Enabled = True Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = False Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin Case 3: '3级管理员，可以录入图书 Form1.xpcmdbutton1.Enabled = True Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = True Form1.xpcmdbutton4.Enabled = False
25图书管理系统
Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = False Form1.xpcmdbutton10.Enabled = False Form1.Show Unload frmLogin Case 4: '系统管理员 Form1.xpcmdbutton1.Enabled = True Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = True Form1.xpcmdbutton4.Enabled = True Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = True Form1.xpcmdbutton10.Enabled = True Form1.Show Unload frmLogin End Select End Sub 登陆后权限的分配主要代码如下：
If LCase(Trim(rst![登录名]))= LCase(Trim(Text1.Text))Then If Trim(rst![密码])= Trim(Text2.Text)Then
26图书管理系统
privilege = rst![权限] Call check_privage(privilege)'权限分配读者管理主要代码：
Private Sub Command1_Click()'添加记录 Dim sql As String Dim param As ADODB.Parameter Dim cmd As ADODB.Command Set cmd = New ADODB.Command Set param = New ADODB.Parameter sql = “select * from reader where [读者编号]= ? ” If Command1.Caption = “添加记录” Then Command1.Caption = “确 定” Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False rst.AddNew Else If Text1.Text = “” Then frmMsg.Show frmMsg.notice.Visible = True frmMsg.Text1.Text = “读者编号不能为空!” Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command1.Caption = “添加记录”
27图书管理系统
Exit Sub End If With param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.Text End With cmd.Parameters.Append param cmd.CommandText = sql cmd.CommandType = adCmdText Set cmd.ActiveConnection = con Set rst1 = cmd.Execute '检测读者编号是否存在防止主键冲突 If rst1.RecordCount > 0 Then frmMsg.Show frmMsg.notice.Visible = True frmMsg.Text1.Text = “此读者编号已经存在!” rst.Cancel Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command1.Caption = “添加记录” Exit Sub End If
28图书管理系统
rst.Update frmMsg.Show frmMsg.notice.Visible = True frmMsg.Text1.Text = “添加成功！” Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command1.Caption = “添加记录” End If End Sub Private Sub Command2_Click()'删除纪录 Dim ans As String ans = Msgbox(“确定要删除此记录吗？”, vbYesNo, “提示”)If ans = vbYes Then rst.Delete rst.Requery Else Exit Sub End If End Sub Private Sub Command3_Click()'上一记录 If rst.BOF Then frmMsg.Show frmMsg.info.Visible = True frmMsg.Text1.Text = “已经到达记录顶端!”
29图书管理系统
Exit Sub Else rst.MovePrevious End If End Sub
Private Sub Command4_Click()'下一记录 If rst.EOF Then frmMsg.Show frmMsg.info.Visible = True frmMsg.Text1.Text = “已经到达记录底端!” Exit Sub Else rst.MoveNext End If End Sub Private Sub Command5_Click()Unload Me End Sub Private Sub Form_Load()Dim sql1 As String Set rst = New ADODB.Recordset sql1 = “select * from reader” '打开数据库并对窗体控件赋值 Call connect_db rst.Open sql1, con, adOpenDynamic, adLockOptimistic
图书管理系统
Set Text1.DataSource = rst Set Text2.DataSource = rst Set Text3.DataSource = rst Set Text4.DataSource = rst Set Text5.DataSource = rst Set Text6.DataSource = rst Set Text7.DataSource = rst Set Text8.DataSource = rst Text1.DataField = “读者编号” Text2.DataField = “读者姓名” Text3.DataField = “性别” Text4.DataField = “电话号码” Text5.DataField = “家庭地址” Text6.DataField = “读者类别” Text7.DataField = “工作单位” Text8.DataField = “登记日期” End Sub Private Sub xptopbuttons1_Click()Unload Me End Sub Private Sub xptopbuttons2_Click()Me.WindowState = 1 End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
图书管理系统
End Sub
摘 要20世纪，随着全球的紧急的蓬勃发展，企业规模越来越大，人员数量急剧增加，有关人员管理的各种信息也成倍增长。面对庞大的信息量，就需要有人事信息管理系统来提高企业管理工作......
企业人事财务管理系统的开发与设计内容摘要随着Internet的不断发展，传统的管理方式，消耗大量的人力物力，传统的方式已经赶不上时代的脚步，所以开发一个高效的企业人事财务管理系......
目录一 系统功能分析 .............................................................................................................................2 1.1 项目背景......
任 务 书1、课程设计题目人事管理系统2、设计任务和内容一个小型的企业人事管理系统。其主要目的是方便人事部门管理人员进行人事管理工作。该系统能方便用户方进行快捷地查......
课程设计任务书1、项目 名 称：企业人事管理系统专业：____________设计人员姓名： _2、课程设计内容与要求（1）掌握powerdesigner数据库建模方法。（2）掌握数据库应用系统开发的方法。（3......
