VB人事管理系统(共33页).doc

《VB人事管理系统(共33页).doc》由会员分享，可在线阅读，更多相关《VB人事管理系统(共33页).doc（33页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上一、课程设计的目的与要求2二、题目分析3三、设计思路3四、调试过程54.1、设计工程框架54.1.1、设计登录窗体5 4.1.2、图书基本信息管理模块设计74.2、设计图书信息编辑窗体84.3、图书信息管理窗体94.4、图书借阅管理模块设计114.4.1、设计借阅证件类型编辑窗体114.4.2、设计借阅证件类型管理窗体134.4.3、设计借阅证件编辑窗体144.4.4、设计借阅证件管理窗体144.4.5、设计图书借阅记录查看窗体164.4.6、设计图书借阅信息编辑窗体174.4.7、设计图书归还信息管理窗体184.4.8、设计图书借阅管理窗体194.4.9、设计用户信

2、息编辑窗体20五、 运行结果22六、课程设计总结22七、参考文献23专心-专注-专业 摘要随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。绘本图书与其他普通图画书的区别在于绘本图书通常有独立的绘画著者，图画有个人风格，画面即情即景，可单幅成画，容易提高儿童读书的积极性。如何科学地管理绘本馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的绘本图书馆管理系统就成不可少了，图书管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用

3、程序的开发两个方面。经过分析，使用 Microsoft公司的Visual Basic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发本系统的详细过程，提出实现绘本图书馆信息管理、资源共享的基本目标，从而推动迈向数字化绘本图书馆的

4、步伐，并阐述系统结构设计和功能设计，从绘本图书的入库登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。图书管理基本业务活动包括：对一本书的采编入库、清除库存、借阅和归还等等。试设计一个图书管理系统，将上述业务活动借助于VB数据库管理系统完成。 关键字：图书管理系统；SQL Server数据库；Visual Basic开发语言；管理信息系统。一、课程设计的目的与要求 掌握VB的数据库编程技巧，及利用Access创建数据库的方法，利用VB的数据库控件与数据源建立连接，完成一个较为简单的数据库管理系统的设计。每种书的登记内容至少包括书号、书名、著者、现存量和总库存

5、量等五项，对书目的相关信息均采用数据库存储。系统应实现的操作及其功能定义如下： 1）采编入库：新购入一种书，经分类和确定书号之后登记到图书账目中去。如果这种书 在帐中已有,则只将总库存量增加。 2）清除库存：某种书已无保留价值，将它从图书账目中注销。 3）借阅：如果一种书的现存量大于零,则借出一本，登记借阅者的图书证号和归还期 限。 4）归还：注销对借阅者的登记，改变该书的现存量。 5）显示：显示书库信息。 二、题目分析 图书管理系统需要的功能分析如下：管理系统具有多个管理员，管理员可以使用不同的用户名和密码进入管理系统，并可以修改自己的密码；（一） 进入系统后可以重新登录该系统；（二） 在系

6、统中可以对数据库进行简单的操作；（三） 最基本的功能还应具有可以编辑图书录入、删除图书资料。图书分类信息的添加、修改、删除和查询。此功能为图书的分类管理提供依据。（四） 图书基本信息的添加、修改、删除和查询。（五） 借阅证件分类信息的添加、修改、删除和查询。不同类型的借阅证件可以借阅的最大数量、最大天数和续借天数不同。（六） 图书借阅证件的添加、修改、删除、挂失和查询。（七） 图书借阅管理，包括图书借阅、图书归还、图书续借、图书挂失和图书催还等。三、设计思路 系统运作流程，该系统涉及到用户以及管理员，在两者之间进行一系列的操作。管理员对图书进行录入、删除等操作，和用户之间的交流则是进行借阅图书

7、操作。运作流程图如图1所示:图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_disconnectEnd End sub通过身份认证时，则进入系统主界面如图4所示：图4

8、进入系统主界面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)出版社 A

9、uthor=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 MeEnd Sub4.3、图书信息管理窗体 如图6所示： 图书系统管理界

10、面图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” ThennTypeId=-1Exit SubEnd ifbHaveSon=CurBookType.HaveSon(CurBookType.TypeId)If b

11、HaveSon=False Then TreeView1.SelectedItem.ExpandedImage=4 TreeView1.SelectedItem.Image=4 TreeView1.SelectedItem.SelectImage=5 nType=CurBookType.TypeId CurBookType.GetInfo(CurBookType.TypeId) GridRefreshEnd sub4.4、图书借阅管理模块设计图书借阅管理模块可以实现以下功能： a. 借阅证件类型管理。 b. 借阅证件管理 c. 图书借阅管理4.4.1、设计借阅证件类型编辑窗体 借阅证件类型编辑

12、窗体的名称为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 InsertEnd Call.Upate(tId)End ifEnd withUnload MeEnd sub4.4.2、设计借阅证件类型管理窗体借阅证件类型管理窗体的名称为F

13、rmCardType,窗体布局如图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 sub4.4.3、设计借阅证件编辑窗体 借阅证件类型编辑窗体的名称为FrmCardsE

14、dit,如图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

15、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 ThenCmd_Add.Enabled=TureEnd ifEnd sub4.

16、4.5、设计图书借阅记录查看窗体 用于查看指定借阅证件记录，窗体名为FrmRecord，窗体布局如图11所示：图11 查看指定借阅证件记录4.4.6、设计图书借阅信息编辑窗体 设计图书借阅信息编辑窗体的名称为FrmBorrowEdit,此窗体的工作过程比较复杂，它的布局如图12所示：图12 图书借阅信息编辑窗体4.4.7、设计图书归还信息管理窗体 设计图书归还信息管理窗体的名称为FrmReturnEdit, 窗体布局如图13所示:图13 设计图书归还信息管理窗体4.4.8、设计图书借阅管理窗体 设计图书借阅管理窗体的名称为FrmBorrow, 窗体布局如图14所示: 图14 设计图书借阅管理窗

17、体如图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 t

18、xtUserName.SelLenght=Len(txtUserName) Exit sub End if .UserName=MakeStr(txtUserName) .Pwd=MakeStr(txtPass) If Modify=False Then .Insert Else .Update(OriUser) If OriUser=CurUserName And Trim(txtUserName)OriUser Then CurUser.UserName=Trim(txtUserName) CurUser.GetInfo(CurUserName) End if End if End Wit

19、h Unload Me End Sub五、 运行结果如图17所示：图17 运行结果六、课程设计总结通过本次课程设计，我们不仅加深了平时的学习并且了解到更多关于Visual Basic和SQL Server的使用，并且利用所学知识将各个对象的使用结合起来制作了一个完整的系统。 这个图书馆系统可以使操作员进行一般的查询图书和会员信息、借阅和归还图书、整理图书包括录入和注销图书以及修改管理员密码以保护自己使用该系统的权利的功能。在结束了课程设计之后让我们对Visual Basic 的各个控件有了更好地掌握之外，也让我们了解了一个图书管理系统的基本模式，学习之余扩宽了知识面。虽然在平时的学习中通过老师

20、的讲授已经基本掌握了Visual Basic的用法，但知识分散不牢固。通过本次设计，我们可以灵活的将VB中的基本控件结合起来，制作了这个完整的系统，并能准确地使用所学的编程语言来制作该系统。可以说完成课程设计之后让我们受益匪浅，同时也锻炼了我们的独立思考能力。相信通过本次实验，我们可以更好的使用VB来制作一些其他系统，能进一步学习和使用VB.当然，由于这是我们第一次进行制作，水平和经验限制了系统的功能。一些图书管理应有的功能暂时无法实现，需要更加完善。相信在这次实验之后我们可以对图书管理系统有进一步的学习和研究，以得到更好的发展。七、参考文献Visual Basic程序设计 谭浩强，清华大学出

21、版社VB语言程序设计 林卓然，电子工业出版社Visual Basic 6.0程序设计 刘新民，清华大学出版社Visual Basic 程序设计教程 罗朝盛，人民邮电出版社Visual Basic 6.0高级编程 美Julia，清华大学出版社Visual Basic程序设计教程习题及习题解答刘瑞新，机械工业出版杜全国计算机等级考试二级教程-Visual Basic语言程序设计刘炳文，高等教育出版社附录（源程序代码）权限设置的主要代码：Option ExplicitPublic constr As String 数据库连接信息Public privilege As Integer 用户权限Publ

22、ic rst As ADODB.Recordset 数据库内的记录Public rst1 As ADODB.RecordsetPublic rst2 As ADODB.RecordsetPublic con As ADODB.ConnectionPublic tablename As StringType userdata 用户信息，包括用户名，密码和对应的权限 user_id As String pwd As String right As IntegerEnd TypePublic Sub connect_db() constr = Provider=Microsoft.Jet.OLEDB

23、.4.0; + Data Source= + App.Path + dataComputerBookmanage.mdb + ;Persist Security Info=False 数据库引擎+路径 Set con = New ADODB.Connection 新建一个数据库连接con.CursorLocation = adUseClient 用于客户端（ADOR）Recordset对象，游标 库属性必须为adUseClient con.ConnectionString = constr 连接信息 con.OpenEnd SubFunction open_connection(table_n

24、ame As String)Dim sqlstr As StringDim 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 = sel

25、ect * from & table_name & 执行SQL查询 rst.Open str, con, adOpenDynamic, adLockOptimistic rst.RequeryEnd FunctionPublic Sub check_privage(rightlevel As Integer)Dim right As Integerright = rightlevelSelect Case right Case 1: 普通用户，只能查询图书信息和借阅信息 Form1.xpcmdbutton1.Enabled = False Form1.xpcmdbutton2.Enabled

26、= False Form1.xpcmdbutton3.Enabled = False 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级管理员，还可以借书和还

27、书 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.Ena

28、bled = False Form1.Show Unload frmLogin Case 3: 3级管理员，可以录入图书 Form1.xpcmdbutton1.Enabled = True Form1.xpcmdbutton2.Enabled = True Form1.xpcmdbutton3.Enabled = True Form1.xpcmdbutton4.Enabled = False Form1.xpcmdbutton5.Enabled = True Form1.xpcmdbutton6.Enabled = True Form1.xpcmdbutton7.Enabled = True

29、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

30、.Enabled = True Form1.xpcmdbutton7.Enabled = True Form1.xpcmdbutton8.Enabled = True Form1.xpcmdbutton10.Enabled = True Form1.Show Unload frmLogin End SelectEnd Sub登陆后权限的分配主要代码如下：If LCase(Trim(rst!登录名) = LCase(Trim(Text1.Text) Then If Trim(rst!密码) = Trim(Text2.Text) Then privilege = rst!权限 Call check

31、_privage(privilege) 权限分配读者管理主要代码：Private Sub Command1_Click() 添加记录Dim sql As StringDim param As ADODB.ParameterDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet param = New ADODB.Parametersql = select * from reader where 读者编号= ? If Command1.Caption = 添加记录 Then Command1.Caption = 确 定 Command2.En

32、abled = False Command3.Enabled = False Command4.Enabled = False rst.AddNewElse If Text1.Text = Then frmMsg.Show frmMsg.notice.Visible = True frmMsg.Text1.Text = 读者编号不能为空! Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command1.Caption = 添加记录 Exit Sub End If With param .Direc

33、tion = 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.Te

34、xt1.Text = 此读者编号已经存在! rst.Cancel Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command1.Caption = 添加记录 Exit Sub End If rst.Update frmMsg.Show frmMsg.notice.Visible = True frmMsg.Text1.Text = 添加成功！ Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Comma

35、nd1.Caption = 添加记录End IfEnd SubPrivate Sub Command2_Click() 删除纪录Dim ans As Stringans = Msgbox(确定要删除此记录吗？, vbYesNo, 提示)If ans = vbYes Then rst.Delete rst.RequeryElse Exit SubEnd IfEnd SubPrivate Sub Command3_Click() 上一记录If rst.BOF Then frmMsg.Show frmMsg.info.Visible = True frmMsg.Text1.Text = 已经到达记录

36、顶端! Exit Sub Else rst.MovePreviousEnd IfEnd SubPrivate Sub Command4_Click() 下一记录If rst.EOF Then frmMsg.Show frmMsg.info.Visible = True frmMsg.Text1.Text = 已经到达记录底端! Exit Sub Else rst.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1 As StringSet rst = N

37、ew ADODB.Recordsetsql1 = select * from reader 打开数据库并对窗体控件赋值Call connect_dbrst.Open sql1, con, adOpenDynamic, adLockOptimisticSet Text1.DataSource = rstSet Text2.DataSource = rstSet Text3.DataSource = rstSet Text4.DataSource = rstSet Text5.DataSource = rstSet Text6.DataSource = rstSet Text7.DataSourc

38、e = rstSet Text8.DataSource = rstText1.DataField = 读者编号Text2.DataField = 读者姓名Text3.DataField = 性别Text4.DataField = 电话号码Text5.DataField = 家庭地址Text6.DataField = 读者类别Text7.DataField = 工作单位Text8.DataField = 登记日期End SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click()Me.WindowState = 1End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub