龙空技术网

学校信息管理系统 Access数据库系统 设计资料及示例代码分享

凌霄百科 257

前言:

现在你们对“用c做学生信息管理系统”都比较看重,同学们都想要学习一些“用c做学生信息管理系统”的相关内容。那么小编也在网络上搜集了一些有关“用c做学生信息管理系统””的相关内容,希望你们能喜欢,你们一起来了解一下吧!

设计部分

功能模块图

业务流程图

UC矩阵

数据流图

E-R图

逻辑结构

院系(系名称,系主任,办公电话)

课程(课程名称,教师号,课程人数,学期)

班级(班级名称,班主任,专业,班级人数)

教师(教师号,姓名,性别,职称,部门,联系方式,状态)

成绩(成绩ID,课程名称,学号,考试日期,分数,评分)

学生(学号,姓名,性别,照片,个人简历,班级,家庭电话,家庭地址,出生日期,身份证号,民族,备注)

专业(专业名称,所属院系)

程序流程图

院系(系名称,系主任,办公电话)

课程(课程名称,教师号,课程人数,学期)

班级(班级名称,班主任,专业,班级人数)

教师(教师号,姓名,性别,职称,部门,联系方式,状态)

成绩(成绩ID,课程名称,学号,考试日期,分数,评分)

学生(学号,姓名,性别,照片,个人简历,班级,家庭电话,家庭地址,出生日期,身份证号,民族,备注)

专业(专业名称,所属院系)

数据库部分

院系表

课程表

班级表

教师表

成绩表

学生表

专业表

表关系

查询

班级查询(多表选择查询)

班级添加查询(追加查询)

INSERT INTO 班级表 ( 班级名称, 班主任, 专业, 班级人数 )

SELECT [Forms]![班级添加查询]![班级名称] AS 班级名称, [Forms]![班级添加查询]![班主任] AS 班主任, [Forms]![班级添加查询]![专业] AS 专业, [Forms]![班级添加查询]![班级人数] AS 班级人数;

成绩查询(多表选择查询)

成绩添加查询(追加查询)

INSERT INTO 成绩表 ( 课程名称, 学号, 考试日期, 分数, 评分 )

SELECT [Forms]![成绩添加查询]![课程名称] AS 课程名称, [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 状态;

课程查询(多表选择查询)

课程添加查询(追加查询)

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]![院系管理]![系名称]));

专业删除查询(删除查询)

DELETE 专业表.*, 专业表.专业名称

FROM 专业表

WHERE (((专业表.专业名称)=[Forms]![专业管理]![专业名称]));

窗体(学生管理)

学生查询数据库

数据表形式窗体

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

如需该系统原文件和设计报告资料可访问同名↓

标签: #用c做学生信息管理系统