設計部分

功能模塊圖

業(yè)務流程圖

UC矩陣

數據流圖

E-R圖

邏輯結構

院系（系名稱，系主任，辦公電話）

課程（課程名稱，教師號，課程人數，學期）

班級（班級名稱，班主任，專業(yè)，班級人數）

教師（教師號，姓名，性別，職稱，部門，聯系方式，狀態(tài)）

成績（成績ID，課程名稱，學號，考試日期，分數，評分）

學生（學號，姓名，性別，照片，個人簡歷，班級，家庭電話，家庭地址，出生日期，身份證號，民族，備注）

專業(yè)（專業(yè)名稱，所屬院系）

程序流程圖

院系（系名稱，系主任，辦公電話）

課程（課程名稱，教師號，課程人數，學期）

班級（班級名稱，班主任，專業(yè)，班級人數）

教師（教師號，姓名，性別，職稱，部門，聯系方式，狀態(tài)）

成績（成績ID，課程名稱，學號，考試日期，分數，評分）

學生（學號，姓名，性別，照片，個人簡歷，班級，家庭電話，家庭地址，出生日期，身份證號，民族，備注）

專業(yè)（專業(yè)名稱，所屬院系）

數據庫部分

表

院系表

課程表

班級表

教師表

成績表

學生表

專業(yè)表

表關系

查詢

班級查詢（多表選擇查詢）

班級添加查詢（追加查詢）

INSERT INTO 班級表 ( 班級名稱, 班主任, 專業(yè), 班級人數 )

SELECT [Forms]![班級添加查詢]![班級名稱] AS 班級名稱, [Forms]![班級添加查詢]![班主任] AS 班主任, [Forms]![班級添加查詢]![專業(yè)] AS 專業(yè), [Forms]![班級添加查詢]![班級人數] AS 班級人數;

成績查詢（多表選擇查詢）

成績添加查詢（追加查詢）

INSERT INTO 成績表 ( 課程名稱, 學號, 考試日期, 分數, 評分 )

SELECT [Forms]![成績添加查詢]![課程名稱] AS 課程名稱, [Forms]![成績添加查詢]![學號] AS 學號, [Forms]![成績添加查詢]![考試日期] AS 考試日期, [Forms]![成績添加查詢]![分數] AS 分數, [Forms]![成績添加查詢]![評分] AS 評分;

教師添加查詢（追加查詢）

INSERT INTO 教師表 ( 教師號, 姓名, 性別, 職稱, 部門, 聯系方式, 狀態(tài) )

SELECT [Forms]![教師添加查詢]![教師號] AS 教師號, [Forms]![教師添加查詢]![姓名] AS 姓名, [Forms]![教師添加查詢]![性別] AS 性別, [Forms]![教師添加查詢]![職稱] AS 職稱, [Forms]![教師添加查詢]![部門] AS 部門, [Forms]![教師添加查詢]![聯系方式] AS 聯系方式, [Forms]![教師添加查詢]![狀態(tài)] AS 狀態(tài);

課程查詢（多表選擇查詢）

課程添加查詢（追加查詢）

INSERT INTO 課程表 ( 課程名稱, 教師號, 課程人數, 學期 )

SELECT [Forms]![課程添加查詢]![課程名稱] AS 課程名稱, [Forms]![課程添加查詢]![教師號] AS 教師號, [Forms]![課程添加查詢]![課程人數] AS 課程人數, [Forms]![課程添加查詢]![學期] AS 學期;

學生查詢（多表選擇查詢）

學生添加查詢（追加查詢）

INSERT INTO 學生表 ( 學號, 姓名, 性別, 個人簡歷, 班級, 家庭電話, 家庭地址, 出生日期, 身份證號, 民族, 備注 )

SELECT [Forms]![學生添加查詢]![學號] AS 學號, [Forms]![學生添加查詢]![姓名] AS 姓名, [Forms]![學生添加查詢]![性別] AS 性別, [Forms]![學生添加查詢]![個人簡歷] AS 個人簡歷, [Forms]![學生添加查詢]![班級] AS 班級, [Forms]![學生添加查詢]![家庭電話] AS 家庭電話, [Forms]![學生添加查詢]![家庭地址] AS 家庭地址, [Forms]![學生添加查詢]![出生日期] AS 出生日期, [Forms]![學生添加查詢]![身份證號] AS 身份證號, [Forms]![學生添加查詢]![民族] AS 民族, [Forms]![學生添加查詢]![備注] AS 備注;

院系刪除查詢（刪除查詢）

DELETE 院系表.*, 院系表.系名稱

FROM 院系表

WHERE (((院系表.系名稱)=[Forms]![院系管理]![系名稱]));

專業(yè)刪除查詢（刪除查詢）

DELETE 專業(yè)表.*, 專業(yè)表.專業(yè)名稱

FROM 專業(yè)表

WHERE (((專業(yè)表.專業(yè)名稱)=[Forms]![專業(yè)管理]![專業(yè)名稱]));

窗體（學生管理）

學生查詢數據庫

數據表形式窗體

Private Sub 學號_DblClick(Cancel As Integer)

DoCmd.OpenForm "學生更新刪除", acNormal, , "學號='" & 學號 & "'"

End Sub

學生成績數據表

數據表形式窗體

學生更新刪除

綁定記錄窗體，組合框，文本框，按鈕

Private Sub Command保存_Click()

If 學號.Value <> "" And 姓名.Value <> "" And 班級.Value <> "" Then

On Error Resume Next

DoCmd.RunCommand acCmdSaveRecord

Else

MsgBox "學號，姓名和班級不能為空"

On Error Resume Next

DoCmd.RunCommand acCmdUndo

Exit Sub

End If

If Error.Number <> 0 Then

MsgBox Error.Description

End If

End Sub

Private Sub Command刪除_Click()

On Error Resume Next

DoCmd.SetWarnings (False)

If MsgBox("是否刪除該記錄", vbYesNo) = vbYes Then

DoCmd.RunCommand acCmdDeleteRecord

MsgBox "刪除成功"

DoCmd.Close acForm, Me.Name

Else

Exit Sub

End If

If Error.Number <> 0 Then

MsgBox Error.Description

End If

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

If 學號.Value <> "" And 姓名.Value <> "" And 班級.Value <> "" Then

On Error GoTo 數據更新前提醒_Err

If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then

Beep

Else

DoCmd.RunCommand acCmdUndo

End If

Else

MsgBox "學號，姓名和班級不能為空"

On Error Resume Next

DoCmd.RunCommand acCmdUndo

Exit Sub

End If

數據更新前提醒_Exit:

Exit Sub

數據更新前提醒_Err:

MsgBox Error$

Resume 數據更新前提醒_Exit

End Sub

Private Sub Form_Close()

On Error Resume Next

Forms("學生添加查詢").Form.數據表子窗體.Requery

End Sub

學生添加查詢

文本框，組合框，按鈕，子窗體

Private Sub Command報表_Click()

If Me.數據表子窗體.Form.FilterOn = True Then

DoCmd.OpenReport "學生報表", acViewReport, , Me.數據表子窗體.Form.Filter

Else

DoCmd.OpenReport "學生報表", acViewReport

End If

End Sub

Private Sub Command查詢_Click()

If Me.查詢類型 <> "" And Me.查詢內容 <> "" Then

Me.數據表子窗體.Form.Filter = Me.查詢類型 & " like '*" & Me.查詢內容 & "*'"

Me.數據表子窗體.Form.FilterOn = True

Else

Me.數據表子窗體.Form.FilterOn = False

End If

End Sub

Private Sub Command清空_Click()

學號.Value = ""

姓名.Value = ""

性別.Value = ""

個人簡歷.Value = ""

班級.Value = ""

家庭電話.Value = ""

家庭地址.Value = ""

出生日期.Value = ""

身份證號.Value = ""

民族.Value = ""

備注.Value = ""

End Sub

Private Sub Command全部_Click()

Me.數據表子窗體.Form.FilterOn = False

End Sub

Private Sub Command添加_Click()

If 學號.Value <> "" And 姓名.Value <> "" And 班級.Value <> "" Then

If Nz(DCount("學號", "學生表", "學號='" & Me.學號 & "'"), 0) > 0 Then

MsgBox "該學號已存在，不能重復添加"

Exit Sub

End If

DoCmd.SetWarnings (False)

DoCmd.OpenQuery "學生添加查詢", acViewNormal

MsgBox "添加完成"

Me.數據表子窗體.Requery

Else

MsgBox "學號，姓名和班級不能為空"

Exit Sub

End If

End Sub

報表

學生報表

Private Sub Label20_DblClick(Cancel As Integer)

On Error GoTo 打印對象_Err

DoCmd.RunCommand acCmdPrint

打印對象_Exit:

Exit Sub

打印對象_Err:

Resume 打印對象_Exit

End Sub

如需該系統(tǒng)原文件和設計報告資料可訪問同名↓