【文章內(nèi)容簡(jiǎn)介】 = Catch exc As Exception = 連接失敗，請(qǐng)檢查計(jì)算 機(jī)配置…… End Try End Sub Private Sub CreatDataBase_Button_Click(ByVal sender As , ByVal e As ) Handles Dim UserAnswer As DialogResult = (重新創(chuàng)建數(shù) 據(jù) 庫(kù) 將 會(huì) 覆 蓋 你 原 有 數(shù) 據(jù) 庫(kù) 是 否 繼 續(xù) ？ , 創(chuàng) 建 數(shù) 據(jù) 庫(kù) 警 告 , , ) If UserAnswer = Then CreateDatabase() Else () End If End Sub Private Sub CreatTable_Button_Click(ByVal sender As , ByVal e As ) Handles Dim strSQL As String = _ USE BookDataBase amp。 vbCrLf amp。 _ IF EXISTS ( amp。 _ SELECT * amp。 _ FROM amp。 _ WHERE Name = 39。User_Table39。 amp。 _ AND TYPE = 39。u39。) amp。 vbCrLf amp。 _ 27 BEGIN amp。 vbCrLf amp。 _ DROP TABLE amp。 vbCrLf amp。 _ END amp。 vbCrLf amp。 _ CREATE TABLE User_Table ( amp。 _ 證件號(hào) char(9) NULL UNIQUE, amp。 _ 用戶(hù)名 char(10) NULL, amp。 _ 所在組 char(10) NULL, amp。 _ 班級(jí) char(60) NULL, amp。 _ 聯(lián)系方式 char(11) NULL) amp。 vbCrLf amp。 _ IF EXISTS ( amp。 _ SELECT * amp。 _ FROM amp。 _ WHERE Name = 39。Book_Table39。 amp。 _ AND TYPE = 39。u39。) amp。 vbCrLf amp。 _ DROP TABLE amp。 vbCrLf amp。 _ CREATE TABLE Book_Table ( amp。 _ 書(shū)刊號(hào) char(8) NOT NULL UNIQUE, amp。 _ 書(shū)籍名 char(30) NULL, amp。 _ 分類(lèi) char(20) NULL, amp。 _ 書(shū)庫(kù) char(20) NULL, amp。 _ ISBN char(13) NULL, amp。 _ 庫(kù)存剩余 int NULL, amp。 _ 庫(kù)存總量 int NULL, amp。 _ 作者 char(20) NULL, amp。 _ 定價(jià) money NULL, amp。 _ 借閱者 char(20) NULL, amp。 _ 備注 Char(256) NULL) Try 39。 SqlConnection 類(lèi)允許我們?cè)L問(wèn) SQL 服務(wù)器，服務(wù)器需要完 28 整的安全認(rèn)證，所以 39。 你必須 登陸 SQL服務(wù)器或者是 Administrators 用戶(hù)組成員。 Dim dbConnection As New SqlConnection() 39。 用一個(gè) SqlCommand 來(lái)執(zhí)行 SQL命令 Dim cmd As New SqlCommand(strSQL, dbConnection) () () () 39。創(chuàng)建成功 = 表創(chuàng)建成功，請(qǐng)繼續(xù)…… = True Catch sqlExc As SqlException (, SQL 異常 , _ , ) End Try End Sub Private Sub SetFirst_Form_Load(ByVal sender As , ByVal e As ) Handles = False = False = False = False = False = False (第一次運(yùn)行本程序請(qǐng)先進(jìn)行初始化！ , 提示 , 29 , ) () End Sub Private Sub Finish_Button_Click(ByVal sender As , ByVal e As ) Handles (HKEY_CURRENT_USER\DataBaseCreated, Created, True) () () End Sub Private Sub CreatProcedure_Button_Click(ByVal sender As , ByVal e As ) Handles Dim dbConnection As New SqlConnection() Dim strSQL As String = _ USE BookDataBase amp。 vbCrLf amp。 _ IF EXISTS ( amp。 _ SELECT * amp。 _ FROM amp。 _ WHERE Name = 39。BookUse39。 amp。 _ AND TYPE = 39。p39。) amp。 vbCrLf amp。 _ BEGIN amp。 vbCrLf amp。 _ DROP PROCEDURE BookUse amp。 vbCrLf amp。 _ END 39。 用一個(gè) SqlCommand 來(lái)執(zhí)行 SQL命令 30 Dim cmd As New SqlCommand(strSQL, dbConnection) Try 39。 打開(kāi)連接執(zhí)行語(yǔ)句命令，然后關(guān)閉連接。當(dāng)沒(méi)有返回值的時(shí)候 ExecuteNonQuery()會(huì)顯得十分有效 () () 39。 使下一步的按鈕生效 Catch sqlExc As SqlException (, SQL異常 , _ , ) End Try Try = _ CREATE PROCEDURE BookUse amp。 vbCrLf amp。 _ @BookID Char(16), amp。 vbCrLf amp。 _ @BookUserID INT, amp。 vbCrLf amp。 _ @BookAllNum INT OUTPUT, amp。 vbCrLf amp。 _ @BookLeftNum INT OUTPUT, amp。 vbCrLf amp。 _ @BookUserName Char(10) OUTPUT, amp。 vbCrLf amp。 _ @BookName Char(10) OUTPUT, amp。 vbCrLf amp。 _ @BookBank Char(10) OUTPUT, amp。 vbCrLf amp。 _ @BookAuthor Char(10) OUTPUT, amp。 vbCrLf amp。 _ @ISBN Char(16) OUTPUT, amp。 vbCrLf amp。 _ @BookPrice money OUTPUT, amp。 vbCrLf amp。 _ @BookGroup Char(10) OUTPUT amp。 vbCrLf amp。 _ AS amp。 vbCrLf amp。 _ SELECT @ISBN = ISBN,@BookGroup = 分類(lèi) ,@BookAuthor = 作者 ,@BookPrice = 定價(jià) ,@BookBank = 書(shū)庫(kù) ,@BookName = 書(shū)籍名 ,@BookAllNum = 31 庫(kù)存總量 ,@BookLeftNum = 庫(kù)存剩余 amp。 vbCrLf amp。 _ FROM Book_Table amp。 vbCrLf amp。 _ WHERE 書(shū)刊號(hào) = @BookID amp。 vbCrLf amp。 _ IF @BookUserID IS NULL amp。 vbCrLf amp。 _ BEGIN amp。 vbCrLf amp。 _ UPDATE Book_Table amp。 vbCrLf amp。 _ SET 庫(kù)存剩余 = 庫(kù)存剩余 + 1 amp。 vbCrLf amp。 _ WHERE ISBN = @ISBN amp。 vbCrLf amp。 _ Update Book_Table amp。 vbCrLf amp。 _ SET 借閱者 = NULL amp。 vbCrLf amp。 _ WHERE 書(shū)刊號(hào) = @BookID amp。 vbCrLf amp。 _ End amp。 vbCrLf amp。 _ Else amp。 vbCrLf amp。 _ BEGIN amp。 vbCrLf amp。 _ UPDATE Book_Table amp。 vbCrLf amp。 _ SET 庫(kù)存剩余 = 庫(kù)存剩余 , amp。 _ 借閱者 = @BookUserID amp。 vbCrLf amp。 _ WHERE 書(shū)刊號(hào) = @BookID amp。 vbCrLf amp。 _ End () () 39。 使下一步的按鈕生效 = True = 存儲(chǔ)過(guò)程創(chuàng)建完成，請(qǐng)繼續(xù)創(chuàng)建觸發(fā)…… Catch sqlExc As SqlException 32 (, SQL 異常 , _ , ) End Try End Sub Private Sub CreatCheck_Button_Click(ByVal sender As , ByVal e As ) Handles Dim dbConnecti