【正文】 End Sub Private Sub mnuPassWord_Click() 39。修改成績 End Sub Private Sub mnuModiPurview_Click() = 更改用戶權(quán)限 End Sub Private Sub mnuNew_Click() 39。修改學(xué)籍信息 End Sub 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 22 Private Sub mnuModiTeacher_Click() 39。輸入成績 End Sub Private Sub mnuModiCourse_Click() 39。 For i = 1 To 0 Step 1 Unload Forms(i) Next Exit Sub Quit: End 39。主窗體卸載 On Error GoTo Quit Dim i As Integer Set pubCnn = Nothing 39。刪除用戶 = 刪除用戶 End Sub Private Sub mnuExit_Click() 39。添加課程 End Sub 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 21 Private Sub mnuAddUser_Click() 39。 Space(9) amp。 vbCr amp。 學(xué)生信息管理系統(tǒng) amp。調(diào)整控件位置 End Sub Private Sub mnuAbout_Click() 39。調(diào)用標準模塊中的過程建立連接 End Sub Private Sub Form_Resize() 39。調(diào)整控件位置 End Sub Private Sub Form_Load() 39。窗體初始化 ChDrive 39。設(shè)置記錄源為動態(tài)記錄集 End Sub 39?！按_ 定”按鈕為回車鍵缺省按鈕 Dim sql As String sql = SELECT * FROM 用戶 39。焦點返回用戶框 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With End If End If End Sub Private Sub Form_Initialize() ChDrive ChDir End Sub 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 20 Private Sub Form_Load() 39。若出錯 3 次，退出系統(tǒng) Set Rs = Nothing Unload Me Else 39。若用戶名錯誤 intErr = intErr + 1 39。若出錯不足 3 次，重新輸入 MsgBox 密碼輸入錯誤，請重新輸入！ , vbExclamation With txtPassword 39。錯誤數(shù) +1 If intErr = 3 Then 39。卸載本窗體 Else 39。存用戶權(quán)限 gblnPurview = True Else gblnPurview = False End If 39。若密碼正確 gstrUser = 39。若用戶名正確 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 19 39。 39。 amp。 = 39。 39。 txtUserID amp。 = 用戶名 =39。 Dim RsF As 39。 If Not Then RsDo(密碼 ) 39。 39。 Do While Not 39。 Set RsDo = 39。通過循環(huán)查找 (區(qū)分大小寫 ) 39。, , adOpenKeyset 39。 txtUserID amp。 _ 39。 Dim Rss As New 39。***************************** 39。 應(yīng)注釋其他方法。 39。***************************** 39。刷新記錄集 (關(guān)鍵語句 ) Set Rs = 39。定義記錄集變量 Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOk_Click() Static intErr As Integer 39。 創(chuàng)建系統(tǒng)用戶表格 user_Info CREATE TABLE [dbo].[user_Info] ( [user_ID] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [user_PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [user_Des] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建學(xué)生基本信息表格 student_Info CREATE TABLE [dbo].[student_Info] ( [student_ID] [int] NOT NULL , [student_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [student_Sex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , [born_Date] [datetime] NULL , [class_NO] [int] NULL , 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 17 [tele_Number] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [ru_Date] [datetime] NULL , [address] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [ment] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建班級信息表格 class_Info CREATE TABLE [dbo].[class_Info] ( [class_No] [int] NOT NULL , [grade] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [director] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [classroom_No] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建課程基本信息表 course_Info CREATE TABLE [dbo].[course_Info] ( [course_No] [int] NOT NULL , [course_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [course_Type] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [course_Des] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建年級課程設(shè)置信息表 gradecourse_Info CREATE TABLE [dbo].[gradecourse_Info] ( [grade] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [course_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建學(xué)生成績信息表 result_Info CREATE TABLE [dbo].[result_Info] ( [exam_No] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [student_ID] [int] NOT NULL , [student_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [class_No] [int] NULL , [course_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [result] [float] NULL ) ON [PRIMARY] 學(xué)生管理系統(tǒng)主 窗 體的創(chuàng)建 下面給出登陸模塊 frmLogin的源代碼： 39。這是利用 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)中的 SQL查詢分析器實現(xiàn)的。 【 1】《數(shù)據(jù)庫系統(tǒng)概論》 高等教育出版社 主編：王珊、薩師煊 【 2】《軟件工程》冶金工業(yè)出版社 編著：李代平 【 3】 數(shù)據(jù)庫系統(tǒng)概論（第四版），王珊 薩師煊編著，高等教育出版社， 2021 【 4】 Visual C++教程，鄭阿奇主編，丁有和編著，機械工業(yè)出版社， 2021 【 5】 Visual C++編程技巧精選 500 例，羅斌等編著，中國水利水電出版社， 2021 【 6】 Access2021 數(shù)據(jù)庫開發(fā)典型范例 ， 王樵民編著，人民郵電出版社， 2021 附錄 1 數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn) 經(jīng)過前 面 的需求分析和概念結(jié)構(gòu) 設(shè)計 以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 5 界面設(shè)計 用戶界面的設(shè)計 主界面 圖 主界面 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 13 登錄界面 圖 登錄 界面 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 14 圖 學(xué)生信息管理界面 圖 系信息管理界面 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 15 圖 課程信息管理界面 圖 教職工信息管理界面 圖 成績管理界面 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 16 通過這次對 學(xué)生管理系統(tǒng)的系統(tǒng)設(shè)計 的 部分， 對 功能模塊設(shè)計、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計等 有了更深刻的認識 。 6 學(xué)生信息測試 修改登錄密 碼。 按學(xué)號查詢成績。 按教師名字查詢成績。 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 12 按學(xué)號輸入成績。 查詢一個學(xué)生的選修信息。再刪除與該課程有關(guān)的選課信息、成績信息和教學(xué)信息。再刪除所有教學(xué)信息。 刪除： 刪除一個學(xué)生的資料和其登錄 ID 和密碼，刪除所有選課信息和成績。再添加其登錄 ID 和密碼。 04 級通信 4 班 黎耀杰 3104002682 數(shù)據(jù)庫原理及應(yīng)用 11 圖 1 系統(tǒng)功能模塊圖 1 學(xué)生信息管理 查詢： 輸入一個學(xué)號，查詢出其所有資料。 每個表表示在數(shù)據(jù)庫中的 — 個數(shù)據(jù)表。 在 上面的實體以及 實 體之間關(guān)系的基礎(chǔ) 上 ，形成數(shù)據(jù)庫 中的 表 以及各個表之間的關(guān)系 。 各個實體具體的描述 E— R圖如圖