【文章內(nèi)容簡(jiǎn)介】 、更新、刪除、和查詢等。 SQL 命令，包括 Select、 Delete、 Update、 Insert Into、 Select Into 等。 1）、篩選及排序記錄的 Select 指令 基本句型一： Select 字段串列 From 數(shù)據(jù)表 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 8 基本句型二： Select ? From ? Where 篩選條件 基本句型三： Select ? From ? Order By 字段串列 Select Top：限定選取數(shù)據(jù)的條數(shù) 2）、刪除數(shù)據(jù)記錄的 Delete 指令 基本語法： Delete From 數(shù)據(jù)表 Where 條件式 3）、更新數(shù)據(jù)記錄的 Update 指令 基本語法： Update 數(shù)據(jù)表 Set 表達(dá)式 4）、增加數(shù)據(jù)記錄的 Insert Into 指令 基本句型一： Insert Into 數(shù)據(jù)表 (字段串列 ) Values (字段串列 ) 基本句型二： Insert Into 數(shù)據(jù)表 (字段 1,字段 2,? ,字段 n) Select ? 5）、建立新數(shù)據(jù)表的 Select Into 指令 該指令與“ Insert Into ? Select ?”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而 Insert Into 是增加數(shù)據(jù)記錄到“現(xiàn)存 的”數(shù)據(jù)表中。 VB 訪問數(shù)據(jù)庫(kù)過程 1）、定義數(shù)據(jù)庫(kù)組件 Dim conn As New 其中 conn 為連接對(duì)象 Dim reco As New 其中 reco 為結(jié)果集對(duì)象 2）、打開數(shù)據(jù)庫(kù) 對(duì)于 SQL 數(shù)據(jù)庫(kù)，其連接語句為 driver={sql server}。server= localhost。uid=sa。pwd=。database=student。而對(duì)于 Access 數(shù)據(jù)庫(kù)，連接語句為 Provider=。Data Source= amp。 + \ 3）、設(shè)定 SQL 語句，使用“ Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫(kù)的動(dòng)作 4）、關(guān)閉結(jié)果集對(duì)象，斷開與數(shù)據(jù)庫(kù)的連接 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 9 第三章 系統(tǒng) 分析與設(shè)計(jì) 系統(tǒng)功能分析 隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量就需要有一個(gè)學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。 通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員或普通用戶登錄該系統(tǒng)進(jìn)行五個(gè)模塊操作： 1）、學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號(hào)） 2）、學(xué)生基本情況維護(hù)：增加、修改、刪除、打印、查詢（按專業(yè)） 3）、學(xué)生成績(jī)維護(hù)：添加成績(jī)、打印、查詢（按學(xué)號(hào)、專業(yè)） 4）、密碼修改：修改所有用戶密碼（管理員）、修改自己密碼（普通用戶） 5）、數(shù)據(jù)維護(hù)：對(duì)該系統(tǒng)數(shù)據(jù)庫(kù)進(jìn)行備份和還原 系統(tǒng)結(jié)構(gòu)圖 本系統(tǒng)主要包括學(xué)生基本情況更新，學(xué)生基本情況維 護(hù)、學(xué)生成績(jī)維護(hù)、密碼修改和數(shù)據(jù)維護(hù) 5 個(gè)大的模塊，各個(gè)模塊的具體功能如 下 圖所示 ： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 10 系統(tǒng) ER 圖 1）、用戶（普通用戶、管理員）實(shí)體圖如 下 圖所示 ： 2）、學(xué)生實(shí)體圖如 下 圖所示 ： 3）、學(xué)生選課關(guān)系圖如 下 圖所示 ： 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 11 數(shù)據(jù)庫(kù)設(shè)計(jì) 在系統(tǒng)設(shè)計(jì)過程中，首先要建立的就是數(shù)據(jù)庫(kù)。本數(shù)據(jù)庫(kù)采用 SQL Server 2021 來構(gòu)造，共使用了 3 個(gè)表，它們分別是用戶信息表（ admin）、學(xué)生基本情況表（ student）、學(xué)生成績(jī)表（ grade）。 1）、用戶信息表（ admin）：表結(jié)構(gòu)如下表所示： 名稱 字段名稱 類型 長(zhǎng)度 用戶 ID id int 4 用戶名 name char 6 用戶密碼 password char 6 用戶類型 type char 10 注冊(cè)時(shí)間 registdate datetime 8 2）、學(xué)生基本情況表（ student）：表結(jié)構(gòu)如下表所示： 名稱 字段名稱 類型 長(zhǎng)度 學(xué)號(hào) sno varchar 10 姓名 sname char 10 性別 ssex char 2 班級(jí) sclass varchar 50 出生年月 sbirthday char 10 政治面貌 spa varchar 8 地址 saddress varchar 50 電話 sphone varchar 11 Email s varchar 20 3）、學(xué)生成績(jī)表（ grade）：表結(jié)構(gòu)如下表所示： 名稱 字段名稱 類型 長(zhǎng)度 學(xué)號(hào) sno int 2 課程名 ame char 10 成績(jī) grade char 2 學(xué)期 semester char 8 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 12 第四章 系統(tǒng)具體實(shí)現(xiàn) 本部分 主要內(nèi)容為本系統(tǒng)的 各個(gè) 運(yùn)行界面以及主要界面的源代碼 模塊設(shè)計(jì) 添加一個(gè)模塊 module1。該部分主要包括一些公共變量的定義、 main 過程定義以及自動(dòng)把備份的數(shù)據(jù)庫(kù)文件還原到 SQL Server 2021 中的代碼設(shè)計(jì)。代碼如下： Public Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 39。獲取 主機(jī)名的定義 Public Aname, Asort As String 39。狀態(tài)欄上顯示當(dāng)前用戶的名稱和用戶類型 Public conn As New 39。新建連接對(duì)象 Public reco As New 39。新建記錄集對(duì)象 Public reco2 As New Public conn_str1, conn_str2 As String 39。=====定 義一個(gè) main 過程，從 main 過程啟動(dòng)程序，同時(shí)連接到數(shù)據(jù)庫(kù) === Public Sub Main() = adUseClient = adUseClient conn_str1 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=maokeyang。Data Source= amp。 GetPcName() conn_str2 = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=master。Data Source= amp。 GetPcName() DB_ADD39。先調(diào)用 DB_ADD來將 maokeyang數(shù)據(jù)庫(kù)添加到 SQL Server 2021 中 conn_str1 39。連接到數(shù)據(jù)庫(kù) 39。登錄窗體顯示 End Sub 39。==================此函數(shù)用來獲取主機(jī)名！ ================== Public Function GetPcName() As String Dim pname As String, retval As Long pname = Space(255) 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 13 retval = GetComputerName(pname, 255) pname = Left(pname, InStr(pname, vbNullChar) 1) GetPcName = pname End Function 39。====關(guān)閉記錄集 ==== Public Sub Close_Reco() If = 1 Then End If End Sub 39。此過程用來在啟動(dòng)軟件的時(shí)候把 maokeyang 數(shù)據(jù)庫(kù)添加到 SQL Server 2021 中 Public Sub DB_ADD() Dim s As String On Error GoTo ErrorCheck a: conn_str2 select * from sysdatabases where name=39。maokeyang39。, conn, 1, 3 39。查詢是否存在 maokeyang 數(shù)據(jù)庫(kù) If 1 Then 39。如果 maokeyang 數(shù)據(jù)庫(kù)不存在，則添加maokeyang 數(shù)據(jù)庫(kù)，否則不添加 mkdir_kill restore database maokeyang from disk=39。 amp。 amp。 \backup\maokeyang39。 Else Exit Sub End If Exit Sub ErrorCheck: MsgBox 您可能沒有啟動(dòng) SQL Server 服務(wù) , , 提示 Shell start mssqlserver 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 14 MsgBox 啟動(dòng)成功！ , , 提示 GoTo a End Sub 39。新建路徑并刪除原有的數(shù)據(jù)庫(kù) Public Sub mkdir_kill() On Error Resume Next MkDir c:\program files MkDir c:\Program Files\Microsoft SQL Server MkDir C:\Program Files\Microsoft SQL Server\MSSQL MkDir C:\Program Files\Microsoft SQL Server\MSSQL\Data Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\ Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\ End Sub 登錄 窗體 設(shè)計(jì) 添加一個(gè)窗體（ frm_login）。該部分主要包括用戶的驗(yàn)證以及登錄次數(shù)的限制。窗體運(yùn)行情況如下圖所示： 代碼如下： Dim n As Integer 39。n為限制登陸次數(shù)的變量 貴州師范大學(xué)職業(yè)技術(shù)學(xué)院計(jì)算機(jī)工程系畢業(yè)設(shè)計(jì) 15 Private Sub Form_Load() n = 4 End Sub Private Sub Command1_Click() 39。確定按鈕 Close_Reco With reco 39。連接到表并產(chǎn)生記錄集 .Open select * from admin where name=39。 amp。 Trim() amp。 39。 and password=39。 amp。 Trim() amp。 39。, conn, 1, 1 If .RecordCount 0 Then Aname = Trim(.Fields(name)) 39。將成功登錄的用戶名賦給 Aname Asort = Trim(.Fields(type)) 39。將成功登錄的用戶類型賦給 Asort .Close Unload Me 39。主界面顯示 Else n = n 1 .Close .Open select * from admin where name=39。 amp。 Trim() amp。 39。, conn, 1, 1 If .RecordCount = 0 Then MsgBox (用戶名錯(cuò)誤，請(qǐng)重新輸入！您還有 amp。 n amp。 次機(jī)會(huì)登陸！), , (錯(cuò)誤 ) .Close Else