【正文】 SELECT * FROM sysdatabases WHERE name=’ student) DROP DATABASE student /******用于檢查是否有 Student這個數(shù)據(jù)庫，如果有將其刪除 ******/ GO CREATE DATABASE [student] ON PRIMARY ( NAME = 39。student_Data39。, FILENAME = E:\ , SIZE = 1984KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%) LOG ON ( NAME = 39。student_Log39。, FILENAME = E:\39。 , SIZE = 1024KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%) 使用 VB 中 DataRepor 創(chuàng)建報表 使用 DataReport 可根據(jù)數(shù)據(jù)庫中的記錄來創(chuàng)建報表 。使用 DateReport 對象時，可以通過更改每一個 Section 對象的布局，在設計中改變數(shù)據(jù)報表的外觀。 數(shù)據(jù)報表設計對象： DataReport 對象， Section 對象，報表控件， 畢業(yè)論文（設計）報告紙 在 第 xi 頁 共 75 頁 xi 本系統(tǒng) E — R圖 系統(tǒng) 流程 ER 圖 學 籍 管 理 系 統(tǒng)課 程 設 置學 生 信 息課程類型課程信息開設課程學生資料登記成績基 礎 數(shù) 據(jù)學校信息年級信息班級信息學期信息查 詢學生信息學生成績畢業(yè)論文（設計）報告紙 在 第 xii 頁 共 75 頁 xii 操作員 實體，學校實體 ER 圖 年級實體，班級實體 ER圖 學期實體，課程實體 ER圖 畢業(yè)論文（設計）報告紙 在 第 xiii 頁 共 75 頁 xiii 成績實體，年級開課信息實體 ER 學生實體，課程實體 ER圖 畢業(yè)論文（設計）報告紙 在 第 xiv 頁 共 75 頁 xiv 7. 數(shù)據(jù)庫結(jié)構(gòu)的 設計 本系統(tǒng)因所實現(xiàn)的功能共建立 10 張表：操作員（ s_admin）、學校（ s_school） 、年級 (s_grade)、班級 (s_class)、學生 (s_student)、課程類型 (s_coursetype)、所學課程 (s_course)、學期 (s_term)、學生成績 (s_result)、開課信息(s_gradecourse)，具體數(shù)據(jù)庫建設如下： 操作員 表 所實現(xiàn)代碼： CREATE TABLE [dbo].[s_admin]( [admin_id] [int] IDENTITY(1,1) NOT NULL, [admin_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL, [admin_pwd] [varchar](16) COLLATE Chinese_PRC_CI_AS NOT NULL, [admin_right] [int] NOT NULL, [admin_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL, ) ON [PRIMARY] 學校（ s_school） 畢業(yè)論文（設計）報告紙 在 第 xv 頁 共 75 頁 xv 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_school]( [scl_name] [varchar](40) COLLATE Chinese_PRC_CI_AS NOT NULL, [scl_address] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL, [scl_head] [varchar](10) COLLATE Chinese_PRC_CI_AS NULL, [scl_tele] [varchar](20) COLLATE Chinese_PRC_CI_AS NULL, [scl_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 年級 (s_grade) 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_grade]( [grade_id] [int] NOT NULL, [grade_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL, [grade_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL, CONSTRAINT [PK_s_grade] PRIMARY KEY CLUSTERED /*****設置為主鍵 *****/ ( [grade_id] ASC )WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY] /*****設置標識為是 *****/ ) ON [PRIMARY] 畢業(yè)論文（設計）報告紙 在 第 xvi 頁 共 75 頁 xvi 班級 (s_class) 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_class]( [class_id] [int] NOT NULL, [grade_id] [int] NOT NULL, [class_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL, [class_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 學生 (s_student) 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_student]( [stu_id] [int] IDENTITY(1,1) NOT NULL, [stu_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL, [stu_sex] [char](2) COLLATE Chinese_PRC_CI_AS NOT NULL, 畢業(yè)論文（設計）報告紙 在 第 xvii 頁 共 75 頁 xvii [stu_birthday] [datetime] NULL, [stu_father] [varchar](20) COLLATE Chinese_PRC_CI_AS NULL, [stu_tele] [varchar](20) COLLATE Chinese_PRC_CI_AS NULL, [stu_address] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL, [stu_date] [datetime] NULL, [class_id] [int] NOT NULL, [stu_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 課程類型 (s_coursetype) 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_coursetype]( [ct_id] [int] IDENTITY(1,1) NOT NULL, [ct_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON [PRIMARY] 所學課程 (s_course) 所實現(xiàn)代碼： 畢業(yè)論文（設計）報告紙 在 第 xviii 頁 共 75 頁 xviii GO CREATE TABLE [dbo].[s_course]( [course_id] [int] NOT NULL, [course_name] [varchar](40) COLLATE Chinese_PRC_CI_AS NOT NULL, [ct_id] [int] NOT NULL, [course_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 學期 (s_term) 所 實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_term]( [term_id] [int] IDENTITY(1,1) NOT NULL, [term_name] [varchar](20) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON [PRIMARY] 學生成績 (s_result) 所實現(xiàn)代碼： GO 畢業(yè)論文（設計）報告紙 在 第 xix 頁 共 75 頁 xix CREATE TABLE [dbo].[s_result]( [result_id] [int] NOT NULL, [term_id] [int] NOT NULL, [stu_id] [int] NOT NULL, [course_id] [int] NOT NULL, [result] [float] NOT NULL, [result_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 開課信息 (s_gradecourse) 所實現(xiàn)代碼： GO CREATE TABLE [dbo].[s_gradecourse]( [gc_id] [int] IDENTITY(1,1) NOT NULL, [term_id] [int] NOT NULL, [grade_id] [int] NOT NULL, [course_id] [int] NOT NULL, [gc_memo] [varchar](50) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 畢業(yè)論文（設計）報告紙 在 第 xx 頁 共 75 頁 xx 系統(tǒng)模塊設計 本部分主要內(nèi)容為本系統(tǒng)的 各個 運行界面以及主要界面的源代碼 。 主要模塊包括： ? 系統(tǒng)。包括管理員的增加，修改密碼，刪除管理員等。 ? 基礎數(shù) 據(jù)。包括學校信息，學期信息，課程信息等。 ? 課程設置。包括課程類型，開設課程等。 ? 學生信息。包括學生資料，學生成績等。 ? 查詢。包括查詢學生信息，學生成績等。 主體窗體的設計 主窗體設計 ? 打開 Visual Basic ，新建一個標準工程，添加 MDIForm，設置名稱屬性為“ frmMain”，標題為“學籍管理系統(tǒng)”。 ? 然后在菜單欄中選擇“工程” —— “部件”，添加如下圖部件 畢業(yè)論文（設計）報告紙 在 第 xxi 頁 共 75 頁 xxi ? 然后進行一些設置，完成如下圖主窗體主窗體 主窗體代碼 Private Sub MDIForm_Load() 39。窗體裝載事件，從注冊表中獲取窗體的位置、大小 = GetSetting(, Settings, MainLeft, 1000) 39。左邊位置 = GetSetting(, Settings, MainTop, 1000) 39。窗體頂部坐標 = GetSetting(, Settings, MainWidth, 6500) 39。窗體寬度 = GetSetting(, Settings, MainHeight, 6500) 39。窗體高度 End Sub Private Sub MDIForm_Unload(Cancel As Integer) 39。窗體卸載事件，保存窗體位置和大小 If vbMinimized Then 39。窗體不是最小化 SaveSetting , Settings, MainLeft, 39。保存左側(cè)位置 SaveSetting , Settings, MainTop, 39。保存頂部位置 畢業(yè)論文（設計）報告紙 在 第 xxii 頁 共 75 頁 xxii SaveSetting , Settings, MainWidth, 39。保存寬度 SaveSetting , Settings, MainHeight, 39。保存高度 End If End Sub Pri