毕业论文设计：图书馆信息管理系统

毕业论文设计：图书馆信息管理系统内容摘要：

(0).Rows(0)(lpassword).ToString = Then 39。 比较输入密码和数据库的密码 Dim adminmain As New win_adminmain loginid = (0).Rows(0)(id) sqlstr = update admininfo set logins=logins+1,lastlogin=now() where id= amp。 filter(Trim(loginid).ToString) amp。 objDS = GetData(sqlstr) () () Else MsgBox( 登陆错误，登陆密码错误。 , + , 错误 ) End If Else MsgBox( 登陆错误，登陆号错误。 , + , 错误 ) End If Catch MsgBox(读取数据库错误。 , + , 错误 ) End Try End If End Sub Private Sub btcancel_Click(ByVal sender As , ByVal e As ) Handles () End Sub 39。 分学生和管理员两个窗口打开 Private Sub rbstudent_CheckedChanged(ByVal sender As , ByVal e As ) Handles = 学号： = 学生登陆 End Sub Private Sub rbadmin_CheckedChanged(ByVal sender As , ByVal e As ) Handles = 帐号： = 管理员登陆 End Sub Private Sub win_login_Load(ByVal sender As , ByVal e As ) Handles 39。 判断是否找到数据库。 If Not (getpath()) Then ( 发生严重错误。 没找到数据库。 amp。 amp。 请将数据库与执行文件放于同一文件夹中。 , 致命错误。 , , ) () End If End Sub End Class 学生借阅图书登记系统 实现过程 ： Function land() 39。 先判断该书是否已经借阅了 ,然后判断该书是否有剩余 ,最后更新数据库 If viewbookid 0 Then Dim canland As Boolean = True Try sqlstr = select * from landinfo where bookid= amp。 viewbookid amp。 and studentid= amp。 stuID amp。 and hadreturn=0 39。 判断该书是否已经借阅了 objDS = GetData(sqlstr) If (0). 0 Then MsgBox(你已借过该书。 , + , 错误 ) canland = False End If sqlstr = select * from bookinfo where id= amp。 viewbookid amp。 and remain=0 39。 判断该书是否有剩余 objDS = GetData(sqlstr) If (0). 0 Then MsgBox(该书没有剩余了。 , + , 错误 ) canland = False End If If canland Then 39。 更新数据库 ,添加表 landinfo,更新表bookinfo,studentinfo Try sqlstr = insert into landinfo(bookid,studentid,shouldreturntime) values( amp。 viewbookid amp。 , amp。 stuID amp。 ,39。 amp。 DateAdd(y, canlanddays, Now()) amp。 39。 ) objDS = GetData(sqlstr) 39。 添加表 landinfo Catch (添加表 landinfo行错误 , 错误 , , ) End Try Try sqlstr = update studentinfo set lands=lands+1 where id= amp。 stuID amp。 GetData(sqlstr) 39。 更新数据库表 studentinfo Catch (更新表 studentinfo 错误 , 错误, , ) End Try Try sqlstr = update bookinfo set amount=amount+1,remain=remain1,loandegree=loandegree+1 where id= amp。 viewbookid amp。 GetData(sqlstr) 39。 更新数据库表 bookinfo Catch (更新表 bookinfo 错误 , 错误 , , ) End Try Call readlandbook() ( 借阅成功 , 成功 , , ) End If Catch MsgBox( 图 书 借 阅 错 误。 , + , 错误 ) End Try Else (没有选择图书 , 错误 , , ) End If End Function Private Sub btloanbooksinfo_Click(ByVal sender As , ByVal e As ) Handles Dim bookinfo As New () End Sub Dim CheckEvery As Boolean = True Private Sub btallland_Click(ByVal sender As , ByVal e As ) Handles forall() End Sub Function forall() If 0 Then 39。 全选功能 Dim k As Integer If CheckEvery Then For k = 0 To 1 (k, ) Next CheckEvery = False Else For k = 0 To 1 (k, ) Next CheckEvery = True End If End If End Function Private Sub btreland_Click(ByVal sender As , ByVal e As ) Handles relandbook() End Sub Function relandbook() If 0 Then Dim c As Integer, dbook() As String, reland As Boolean, allok As Boolean = True For c = 0 To 1 39。 从列表中续本书续借 dbook = Split((c).ToString, ,) 39。 从列表中读出图书 ID sqlstr = select * from landinfo where bookid= amp。 CInt(dbook(1)) amp。 and studentid= amp。 stuID amp。 and hadreturn=0 and canreland amp。 canreland amp。 39。 读取是否续借过 canreland Try objDS = GetData(sqlstr) If (0). 0 Then 39。 续借次数是否到规定次数 sqlstr2 = update landinfo set shouldreturntime=DateAdd(39。 y39。 , amp。 canlanddays amp。 , now()),canreland=canreland+1 where bookid= amp。 CInt(dbook(1)) amp。 and studentid= amp。 stuID amp。 and hadreturn=0 GetData(sqlstr2) 39。 更新数据库 .该图书续借成功 Else allok = False End If Catch ( 更 新 数 据 库 失 败 , 错误 , , ) End Try Next Dim k As Integer For k = 0 To 1 (k, ) 39。 checkedlistbox 选择全部为否定选择 Next CheckEvery = True sqlstr = select * from landinfo where studentid= amp。 stuID amp。 and hadreturn=0 and DateDiff(39。 d39。 ,shouldreturntime,now())=0 39。 读取借阅超时的图书 objDS = GetData(sqlstr) If (0). = 0 Then 39。 如果没有超时的图书。