數(shù)據(jù)庫圖書管理系統(tǒng)實(shí)訓(xùn)報(bào)告(編輯修改稿)
2024-08-31 00:21 本頁面
【文章內(nèi)容簡介】 (100) not null , 備注 varchar(400) not null, primary key(編號(hào),書號(hào))) Public Class Form1Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class當(dāng)點(diǎn)擊學(xué)生按鈕后，進(jìn)入了學(xué)生登陸系統(tǒng) 代碼如下：PublicClassForm2PrivateSub Form2_Load(ByVal sender As , ByVal e As ) EndSubPrivateSub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Or = Then MsgBox(用戶名和密碼不能為空?)Else checkLoginName()EndIfEndSubSub checkLoginName()Dim strcon AsString = data source=XP23。initial catalog=books_management。user id=XP23\Administrator。pwd=。integrated security=true。Dim con AsSqlConnection = NewSqlConnection(strcon) ()Dim sql AsString = select * from [student] where 學(xué)號(hào)=39。amp。 ().Trim() amp。39。and 密碼=39。amp。 ().Trim() amp。39。Dim cmd AsNewSqlCommand(sql, con)Dim reader AsSqlDataReader reader = If () = TrueThen()()Else MsgBox(登陸失敗，請檢查你的用戶名，密碼，登陸權(quán)限是否正確)EndIfEndSub當(dāng)學(xué)生登陸成功后，進(jìn)入查詢界面，輸入圖書編號(hào)，點(diǎn)擊“搜索”按鈕可查詢改圖書信息。如果點(diǎn)擊“查詢?nèi)俊卑粹o，即可查詢所有的圖書信息。按圖書編號(hào)查詢圖書信息的代碼如下：Dim con AsSqlConnection = NewSqlConnection(strcon) ()Dim stuNum AsString = Dim selectStudent AsString = select * from books where 書號(hào)=39
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1