【文章內(nèi)容簡介】 (0).Rows(0)(lpassword).ToString = Then 39。比較輸入密碼和數(shù)據(jù)庫的密碼 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(讀取數(shù)據(jù)庫錯誤。 , + , 錯誤 ) 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。判斷是否找到數(shù)據(jù)庫。 If Not (getpath()) Then ( 發(fā)生嚴重錯誤！沒找到數(shù)據(jù)庫！ amp。 amp。 請將數(shù)據(jù)庫與執(zhí)行文件放于同一文件夾中。 , 致命錯誤！ , , ) () End If End Sub End Class 學生借閱圖書登記系統(tǒng) 實現(xiàn)過程 ： Function land() 39。先判斷該書是否已經(jīng)借閱了 ,然后判斷該書是否有剩余 ,最后更新數(shù)據(jù)庫 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。判斷該書是否已經(jīng)借閱了 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。更新數(shù)據(jù)庫 ,添加表 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。更新數(shù)據(jù)庫表 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。更新數(shù)據(jù)庫表 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。從列表中續(xù)本書續(xù)借 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。讀取是否續(xù)借過 canreland Try objDS = GetData(sqlstr) If (0). 0 Then 39。續(xù)借次數(shù)是否到規(guī)定次數(shù) 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。更新數(shù)據(jù)庫 .該圖書續(xù)借成功 Else allok = False End If Catch ( 更 新 數(shù) 據(jù) 庫 失 敗 , 錯誤 , , ) 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。如果沒有超時的圖書