关 键 词：

毕业设计论文

资源描述：

JSJ06-364@图书管理系统（完全可以运行）修改好的,毕业设计论文

内容简介：

Option ExplicitPrivate Sub Command1_Click() 借出图书Dim sql, sql1, sql2 As StringDim num As Integersql = select * from recordsql1 = select * from worker where 工号=?sql2 = select * from book where 图书编码=?Dim param1, param2, param3, param4 As ADODB.ParameterDim cmd1, cmd2, cmd3, cmd4 As ADODB.CommandSet cmd1 = New ADODB.CommandSet cmd2 = New ADODB.CommandSet cmd3 = New ADODB.CommandSet cmd4 = New ADODB.CommandSet param1 = New ADODB.ParameterSet param2 = New ADODB.ParameterSet param3 = New ADODB.ParameterSet param4 = New ADODB.Parameter工号及书号检测检验工号及书号的合法性With param1.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd1.Parameters.Append param1cmd1.CommandText = sql1cmd1.CommandType = adCmdTextSet cmd1.ActiveConnection = conSet rst = cmd1.ExecuteIf rst.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此图书已经被借阅！Exit SubEnd Ifsql1 = select * from record where 工号=?rst.CloseWith param4.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd4.Parameters.Append param4cmd4.CommandText = sql1cmd4.CommandType = adCmdTextSet cmd4.ActiveConnection = conSet rst = cmd4.Execute规定可借阅图书数目检测If rst.RecordCount = 0 Thennum = rst.RecordCount + 1Label3.Caption = str(num)ElseIf rst.RecordCount 3 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 借阅图书已超限（4）!Label3.Caption = str(rst.RecordCount)nts Exit SubEnd Ifrst.Closerst.Open sql, con, adOpenDynamic, adLockOptimisticrst.AddNewrst!工号 = Text1.Textrst!图书编码 = Text2.Textrst!借阅时间 = Daterst.UpdatefrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 借阅成功！End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1, sql2 As Stringsql1 = select * from booksql2 = select * from workerSet rst = New ADODB.RecordsetSet rst1 = New ADODB.RecordsetCall connect_dbrst.Open sql2, con, adOpenDynamic, adLockOptimisticrst1.Open sql1, con, adOpenDynamic, adLockOptimisticEnd SubPrivate Sub Image1_Click()End SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click()Me.WindowState = 1End SubntsOption ExplicitPublic constr As String 数据库连接信息Public privilege As Integer 用户权限Public rst As ADODB.Recordset 数据库内的记录Public rst1 As ADODB.RecordsetPublic con As ADODB.ConnectionPublic tablename As StringType userdata 用户信息，包括用户名，密码和对应的权限user_id As Stringpwd As Stringright As IntegerEnd TypePublic 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对象，游标库属性必须为adUseClientcon.ConnectionString = constr 连接信息con.OpenEnd SubFunction open_connection(table_name As String)Dim sqlstr As StringDim str As StringSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.CursorLocation = adUseClientsqlstr = Provider=Microsoft.Jet.OLEDB.4.0; + Data Source= + App.Path + dataComputerBookmanage.mdb + ;Persist Security Info=Falsecon.Open sqlstrstr = select * from & table_name & 执行SQL查询rst.Open str, con, adOpenDynamic, adLockOptimisticrst.RequeryEnd FunctionPublic Sub check_privage(rightlevel As Integer)Dim right As Integerright = rightlevelSelect Case rightCase 1: 普通用户，只能查询图书信息和借阅信息Form1.xpcmdbutton1.Enabled = FalseForm1.xpcmdbutton2.Enabled = FalseForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = FalseForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 2: 借书管理员，还可以借书和打印凭证nts Form1.xpcmdbutton1.Enabled = TrueForm1.xpcmdbutton2.Enabled = FalseForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = TrueForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 3: 还书管理员，可以还书Form1.xpcmdbutton1.Enabled = FalseForm1.xpcmdbutton2.Enabled = TrueForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = TrueForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 4: 超级用户Form1.xpcmdbutton1.Enabled = TrueForm1.xpcmdbutton2.Enabled = TrueForm1.xpcmdbutton3.Enabled = TrueForm1.xpcmdbutton4.Enabled = TrueForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = TrueForm1.xpcmdbutton8.Enabled = TrueForm1.ShowUnload frmLoginEnd SelectEnd SubntsOption ExplicitPrivate Sub cmdmodify_Click() 修改记录按钮Dim sqlstr As StringDim rst1 As New ADODB.RecordsetDim param As ADODB.ParameterDim cmd As ADODB.CommandSet cmd = New ADODB.CommandSet param = New ADODB.Parametersqlstr = select * from book where 图书编码= & Trim(Text1.Text) & With param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd.Parameters.Append paramcmd.CommandText = sqlstrcmd.CommandType = adCmdTextSet cmd.ActiveConnection = conSet rst1 = cmd.ExecuteIf rst1.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此书号已经存在!rst.CancelExit SubEnd Ifrst.UpdatefrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 修改成功!End SubPrivate 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 book where 图书编码= ? If Command1.Caption = 添加记录 ThenCommand1.Caption = 确 定Command2.Enabled = False 屏蔽删除、修改、下一记录、上一记录按钮，避免出现数据库错误Command3.Enabled = FalseCommand4.Enabled = Falsecmdmodify.Enabled = Falserst.AddNewElseIf Text1.Text = ThenfrmMsg.ShowfrmMsg.notice.Visible = Truents frmMsg.Text1.Text = 图书编号不能为空!Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand1.Caption = 添加记录Exit SubEnd IfWith param.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd.Parameters.Append paramcmd.CommandText = sqlcmd.CommandType = adCmdTextSet cmd.ActiveConnection = conSet rst1 = cmd.ExecuteIf rst1.RecordCount 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 此书号已经存在!rst.CancelCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = Truecmdmodify.Enabled = TrueCommand1.Caption = 添加记录Command2.Enabled = TrueExit SubEnd Ifrst.UpdateCommand2.Enabled = True 数据库更新结束后才可以点击其他几个按钮Command3.Enabled = TrueCommand4.Enabled = Truecmdmodify.Enabled = TrueCommand1.Caption = 添加记录End IfEnd SubPrivate Sub Command2_Click() 删除记录Dim ans As Stringans = Msgbox(确定要删除此记录吗？, vbYesNo, 提示)If ans = vbYes Thenrst.Deleterst.RequeryElseExit SubEnd IfEnd SubntsPrivate Sub Command3_Click() 上一记录If rst.BOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录顶端!Exit SubElserst.MovePreviousEnd IfEnd SubPrivate Sub Command4_Click() 下一记录If rst.EOF ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达记录底端! Exit SubElserst.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql1 As StringSet rst = New ADODB.Recordsetsql1 = select * from bookCall connect_dbrst.Open sql1, con, adOpenDynamic, adLockOptimisticSet Text1.DataSource = rstSet Text2.DataSource = rstSet Text3.DataSource = rstSet Text4.DataSource = rstSet Text5.DataSource = rstText1.DataField = 图书编码Text2.DataField = 图书名称Text3.DataField = 作者Text4.DataField = 出版社Text5.DataField = 入库时间End SubPrivate Sub Image1_Click()End SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click()Me.WindowState = 1ntsEnd SubntsPrivate Sub Form_Load() 连接用户表Call open_connection(user_table)xpcmdbutton1.Caption = 登陆xpcmdbutton2.Caption = 注销End SubPrivate Sub Image1_Click()End SubPrivate Sub xpcmdbutton1_Click() 登录系统Dim sql As StringIf Trim(Text1.Text) = Then 如果文本框为空，则给出提示frmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 请输入用户登录账号!Exit SubElsesql = select * from user_table where 登录名= & Trim(Text1.Text) & 查找用户登录名rst.Closerst.Open sql, con, adOpenDynamic, adLockOptimisticIf rst.RecordCount = 0 ThenfrmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 用户名不存在！Exit SubEnd If用户合法性检测并赋予一定的权限级别If LCase(Trim(rst!登录名) = LCase(Trim(Text1.Text) ThenIf Trim(rst!密码) = Trim(Text2.Text) Thenprivilege = rst!权限Call check_privage(privilege) 权限分配ElsefrmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 密码错误，请重新输入！Exit SubEnd IfEnd IfEnd IfEnd SubPrivate Sub xpcmdbutton2_Click() 退出系统EndEnd SubPrivate Sub xptopbuttons1_Click()EndEnd SubPrivate Sub xptopbuttons2_Click(Index As Integer)Me.WindowState = 1ntsEnd SubntsOption Explicit定义查询字段的窗体级变量定义查询的字段窗体变量Dim sfield As String 查询的关键词Dim seachtext As String查询函数定义1、桉书号查询则采用具体查询办法2、按书名查询则采用模糊查询办法Function open_seach(table_name As String, sfield As String, seachtext As String) As IntegerDim sqlstr As StringDim str As String建立数据库连接Set con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.CursorLocation = adUseClientsqlstr = Provider=Microsoft.Jet.OLEDB.4.0; + Data Source= + App.Path + dataComputerBookmanage.mdb + ;Persist Security Info=Falsecon.Open sqlstr 查询办法选择If Option1.Value = True Thenstr = select * from & table_name & where & sfield & = & seachtext & Elsestr = select * from & table_name & where & sfield & like & Trim( % & Text1.Text & %) & End IfIf Option3.Value = True Thenstr = select * from & table_name & where & sfield & = & seachtext & Elsestr = select * from & table_name & where & sfield & like & Trim( % & Text1.Text & %) & End Ifrst.Open str, con, adOpenDynamic, adLockOptimisticrst.RequeryIf rst.RecordCount 0 Thenopen_seach = 1 返回一个值1,代表有查询结果Elseopen_seach = 0 返回一个值0,代表没有查询结果End IfEnd FunctionPrivate Sub Check4_Click()选择查询的字段Select Case TabStrip1.SelectedItemCase 图书信息浏览:sfield = 出版社End SelectEnd SubPrivate Sub Command1_Click()If rst.BOF = True ThenfrmMsg.ShowntsfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达第一条记录了！Exit SubElserst.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click() 后一记录If rst.EOF = True ThenfrmMsg.ShowfrmM.Visible = TruefrmMsg.Text1.Text = 已经到达最后一条记录了！Exit SubElserst.MoveNextEnd IfEnd SubPrivate Sub DataGrid2_Click()Call connect_dbopen_connection (book) 连接book表tablename = bookIf privilege = 1 Then 如果只是普通用户,无法查询员工信息frmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 对不起，您没有查阅的权限！Exit SubEnd Ifopen_connection (worker) 连接worker表tablename = workeropen_connection (record) 连接record表tablename = recordSet DataGrid1.DataSource = rstEnd SubPrivate Sub Command4_Click()Dim ret As IntegerIf Command4.Caption = 查 询 ThenCommand4.Caption = 确 定ElseIf Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 请选择查询项!Exit SubEnd Ifnts If Text1.Text = ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 请输入查询内容！Text1.SetFocusExit SubEnd Ifseachtext = Trim(Text1.Text)ret = open_seach(tablename, sfield, seachtext)If ret = 0 ThenfrmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 对不起，没有你要的记录!Option1.Value = FalseOption2.Value = FalseText1.Text = rst.CloseSet rst = NothingSet DataGrid1.DataSource = rstCommand1.Enabled = False 上一条,下一条按钮为灰Command2.Enabled = FalseCommand4.Caption = 查 询Exit SubEnd IfCommand1.Enabled = TrueCommand2.Enabled = TrueSet DataGrid1.DataSource = rstText1.Text = Option1.Value = FalseOption2.Value = FalseCommand4.Caption = 查 询End IfEnd SubPrivate Sub DataGrid1_Click()Call connect_dbopen_connection (book) 连接book表tablename = bookIf privilege = 1 Then 如果只是普通用户,无法查询员工信息frmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 对不起，您没有查阅的权限！Exit SubEnd Ifopen_connection (worker) 连接worker表tablename = workeropen_connection (record) 连接record表tablename = recordSet DataGrid1.DataSource = rstntsEnd SubPrivate Sub Form_Load()Option1.Caption = 书号Option2.Caption = 书名Option3.Caption = 出版社Option4.Caption = 作者Label2.Caption = frmLogin.Text1.TextTimer1.Interval = 1000tablename = bookCall connect_dbopen_connection (book)Set DataGrid1.DataSource = rstTabStrip1.Tabs.Item(1) = 图书信息浏览TabStrip1.Tabs.Item(2) = 员工信息浏览TabStrip1.Tabs.Item(3) = 图书借阅情况浏览Text1.Text = open_connection (book)Set DataGrid1.DataSource = rstfrmLogin.ShowEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Option1_Click()Select Case TabStrip1.SelectedItemCase 图书信息浏览:sfield = 图书编码Case 员工信息浏览:sfield = 工号Case 图书借阅情况浏览:sfield = 图书编码End SelectEnd SubPrivate Sub Option2_Click()选择查询的字段Select Case TabStrip1.SelectedItemCase 图书信息浏览:sfield = 图书名称Case 员工信息浏览:sfield = 姓名Case 图书借阅情况浏览:sfield = 工号End SelectEnd SubPrivate Sub Option3_Click()选择查询的字段Select Case TabStrip1.SelectedItemCase 图书信息浏览:sfield = 出版社End SelectntsEnd SubPrivate Sub Option4_Click()选择查询的字段Select Case TabStrip1.SelectedItemCase 图书信息浏览:sfield = 作者End SelectEnd SubPrivate Sub Text2_Change()Text1.Text = TimeEnd SubPrivate Sub TabStrip1_Click()Call connect_dbSelect Case TabStrip1.SelectedItemCase 图书信息浏览:open_connection (book) 连接book表tablename = bookOption1.Caption = 书号Option2.Caption = 书名Set DataGrid1.DataSource = rstCase 员工信息浏览:If privilege = 1 Then 如果只是普通用户,无法查询员工信息frmMsg.ShowfrmMsg.error.Visible = TruefrmMsg.Text1.Text = 对不起，您没有查阅的权限！Exit SubEnd Ifopen_connection (worker) 连接worker表Option1.Caption = 工号Option2.Caption = 姓名tablename = workerSet DataGrid1.DataSource = rstCase 图书借阅情况浏览:open_connection (record) 连接record表Option1.Caption = 书号Option2.Caption = 工号tablename = recordSet DataGrid1.DataSource = rstEnd SelectEnd SubPrivate Sub Timer1_Timer()Label3.Caption = NowEnd SubPrivate Sub xpcmdbutton1_Click()Form4.ShowEnd SubPrivate Sub xpcmdbutton12_Click()Form6.ShowEnd SubntsPrivate Sub xpcmdbutton13_Click()frmAbout.ShowEnd SubPrivate Sub xpcmdbutton14_Click()Unload MefrmLogin.ShowEnd SubPrivate Sub xpcmdbutton15_Click()open_connection readertablename = readerSet DataGrid1.DataSource = rstEnd SubPrivate Sub xpcmdbutton2_Click()Form5.ShowEnd SubPrivate Sub xpcmdbutton3_Click()Form2.ShowEnd SubPrivate Sub xpcmdbutton4_Click()Form3.ShowEnd SubPrivate Sub xpcmdbutton5_Click()open_connection (book)tablename = recordSet DataGrid1.DataSource = rstEnd SubPrivate Sub xpcmdbutton6_Click()open_connection (record)tablename = recordSet DataGrid1.DataSource = rstEnd SubPrivate Sub xpcmdbutton7_Click()open_connection (worker)tablename = workerSet DataGrid1.DataSource = rstEnd SubPrivate Sub xpcmdbutton8_Click()Frm_sys_set.ShowEnd SubPrivate Sub xpmin_Click()Me.WindowState = 1End SubPrivate Sub xpclose_Click()Unload MefrmLogin.ShowEnd SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click()Me.WindowState = 1End SubntsOption ExplicitPrivate Sub Command1_Click()Dim sql1, sql2 As StringDim num As Integer检测用户名及书号正确否sql1 = select * from worker where 工号=?sql2 = select * from book where 图书编码=?Dim param1, param2, param3 As ADODB.ParameterDim cmd1, cmd2, cmd3 As ADODB.CommandSet cmd1 = New ADODB.CommandSet cmd2 = New ADODB.CommandSet cmd3 = New ADODB.CommandSet param1 = New ADODB.ParameterSet param2 = New ADODB.ParameterSet param3 = New ADODB.ParameterWith param1.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Text1.TextEnd Withcmd1.Parameters.Append param1cmd1.CommandText = sql1cmd1.CommandType = adCmdTextSet cmd1.ActiveConnection = conSet rst = cmd1.ExecuteIf rst.RecordCount = 0 ThenfrmMsg.ShowfrmMsg.notice.Visible = TruefrmMsg.Text1.Text = 没有此工号!Exit SubEnd IfWith param2.Direction = adParamInput.Type = adBSTR.Size = 8.Value = Te