前言:
现在你们对“用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做学生信息管理系统