当前位置:文档之家› VB学生信息管理系统及源代码

VB学生信息管理系统及源代码

VB学生信息管理系统及源代码
VB学生信息管理系统及源代码

VB学生信息管理系统及源代码

Option Explicit

'标识是否能关闭

Dim mbClose As Boolean

'标识当前要显示的照片的文件

Dim mstrFileName As String

Private Sub Form_Load()

On Error Resume Next

If frmMain.mnUserType = 1 Then '学生用户

fraSeek.Enabled = False

fraBrowse.Enabled = False

cmdAdd.Enabled = False

cmdDelete.Enabled = False

txtSerial.Enabled = False

dcbClass.Enabled = False

grdScan.Enabled = False

If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then Dim Temp As String

Temp = "name = " & "'" & frmMain.msUserName & "'"

DataEnv.rsStudent.MoveFirst

DataEnv.rsStudent.Find Temp

'刷新所绑定的控件

Call RefreshBinding

End If

Exit Sub

Else

fraSeek.Enabled = True

fraBrowse.Enabled = True

cmdAdd.Enabled = True

cmdDelete.Enabled = True

txtSerial.Enabled = True

dcbClass.Enabled = True

grdScan.Enabled = True

End If

Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset Set rsDep = DataEnv.rsDepartment

Set rsClass = DataEnv.rsClass

rsDep.Open

'从Department表中读取数据,填充cboDep组合框到中

cboDep.Clear

cboDep.AddItem "全部"

'将各个系的id号作为ItemData附加到组合框中

cboDep.ItemData(0) = 0

While Not rsDep.EOF

cboDep.AddItem rsDep("Name")

cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id")

rsDep.MoveNext

Wend

cboDep.ListIndex = 0

''从class表中读取数据,填充到cboClass组合框中

cboClass.Clear

cboClass.AddItem "全部"

While Not rsClass.EOF

cboClass.AddItem rsClass("Name")

rsClass.MoveNext

Wend

cboClass.ListIndex = 0

cmdList.Value = True

fraManage.Enabled = True

mbClose = True

'调用grdScan_Change事件显示记录明细

Call grdScan_Change

End Sub

'当DataEnv.rsStudent的当前记录发生变化时,刷新所绑定的控件(用户改变了当前记录) Sub RefreshBinding()

On Error Resume Next

With DataEnv.rsStudent

If DataEnv.rssqlSeek.BOF And DataEnv.rssqlSeek.EOF Then

'如果不存在任何记录,则清空所有的绑定的内容

txtSerial = ""

txtName = ""

dtpBirth.Value = ""

txtTelephone = ""

txtAddress = ""

txtResume = ""

imgPhoto.Picture = LoadPicture(Null)

Else '否则和相应的字段进行绑定

txtSerial = .Fields("serial")

txtName = .Fields("name")

dtpBirth.Value = .Fields("birthday")

txtTelephone = .Fields("tel")

txtAddress = .Fields("address")

txtResume = .Fields("resume")

cboSex.Text = .Fields("sex")

dcbClass.Text = .Fields("class")

imgPhoto.Picture = LoadPicture(ReadImage(.Fields("photo")))

End If

End With

End Sub

''在DataEnv.rsStudent中查询serial为sSerial的学籍信息

Sub SeekStudent(sSerial As String)

If Not (DataEnv.rsStudent.EOF And DataEnv.rsStudent.BOF) Then

Dim Temp As String

Temp = "serial = " & "'" & sSerial & "'"

DataEnv.rsStudent.MoveFirst

DataEnv.rsStudent.Find Temp

'刷新所绑定的控件

Call RefreshBinding

End If

End Sub

''当改变记录集时,需要刷新用户导航的网格控件

Sub RefreshGrid()

grdScan.DataMember = ""

grdScan.Refresh

DataEnv.rssqlSeek.Requery

grdScan.DataMember = "sqlSeek"

grdScan.Refresh

'刷新各个绑定控件

Call grdScan_Change

End Sub

''用以在浏览时,根据当前记录所出的位置不同,来改变各个浏览按钮的状态Sub ChangeBrowseState()

With DataEnv.rssqlSeek

If .State = adStateClosed Then .Open

'如果没有任何记录,使某些按钮无效;否则则使这些按钮有效

If .BOF And .EOF Then

cmdAdd.Enabled = True

cmdEdit.Enabled = False

cmdDelete.Enabled = False

cmdUpdate.Enabled = False

cmdReport.Enabled = False

fraBrowse.Enabled = False

Else

cmdAdd.Enabled = True

cmdEdit.Enabled = True

cmdDelete.Enabled = True

cmdUpdate.Enabled = False

cmdReport.Enabled = True

fraBrowse.Enabled = True

End If

''假如处于记录的头部

If .BOF Then

If Not .EOF Then DataEnv.rsStudent.MoveFirst

cmdPrevious.Enabled = False

cmdFirst.Enabled = False

Else

cmdPrevious.Enabled = True

cmdFirst.Enabled = True

End If

''假如处于记录的尾部

If .EOF Then

If Not .BOF Then DataEnv.rsStudent.MoveLast

cmdNext.Enabled = False

cmdLast.Enabled = False

Else

cmdNext.Enabled = True

cmdLast.Enabled = True

End If

End With

mstrFileName = ""

End Sub

Private Sub cboDep_Click()

Dim rsClass As New ADODB.Recordset

Dim strSQL

'根据所选的系的不同,采用不同的SQL语句

If cboDep.ItemData(cboDep.ListIndex) = 0 Then

strSQL = "select * from 班级信息表"

Else

strSQL = "select * from 班级信息表where dept_id=" & cboDep.ItemData(cboDep.ListIndex)

End If

rsClass.Open strSQL, DataEnv.Con

'将所查到的rsClass中的内容来填充cboClass

cboClass.Clear

cboClass.AddItem "全部"

While Not rsClass.EOF

cboClass.AddItem rsClass("Name")

rsClass.MoveNext

Wend

cboClass.ListIndex = 0

rsClass.Close

Set rsClass = Nothing

End Sub

Private Sub cmdAdd_Click()

'添加记录

fraSeek.Enabled = False

fraBrowse.Enabled = False

grdScan.Enabled = False

DataEnv.rsStudent.AddNew

dtpBirth.Value = "1980-01-01"

fraInfo.Enabled = True

fraBrowse.Enabled = False

cmdAdd.Enabled = False

cmdEdit.Enabled = False

cmdDelete.Enabled = False

cmdUpdate.Enabled = True

cmdReport.Caption = "取消"

cmdReport.Enabled = True

mbClose = False '不能关闭窗口

End Sub

Private Sub cmdDelete_Click()

'如果出错,则显示错误代码

On Error GoTo errHandler

If MsgBox("要删除记录?", vbYesNo + vbQuestion + vbDefaultButton2, "确认") = vbYes Then '通过在DataEnv.Con中执行SQL命令,来删除记录

DataEnv.Con.Execute "delete from 学生信息表where serial ='" & txtSerial & "'"

DataEnv.rsStudent.MoveNext

If DataEnv.rsStudent.EOF Then DataEnv.rsStudent.MoveLast

'刷新用户导航的网格控件

Call RefreshGrid

End If

Exit Sub

errHandler:

MsgBox Err.Description, vbCritical, "错误"

End Sub

Private Sub cmdEdit_Click()

'编辑记录之前,需要设置其他控件的Enabled属性

fraSeek.Enabled = False

fraBrowse.Enabled = False

grdScan.Enabled = False

fraInfo.Enabled = True

cmdAdd.Enabled = False

cmdEdit.Enabled = False

cmdDelete.Enabled = False

cmdUpdate.Enabled = True

cmdReport.Caption = "取消" ''更改cmdReport标题

cmdReport.Enabled = True

mbClose = False '出于编辑状态,则用户不能关闭窗口

End Sub

Private Sub cmdFirst_Click()

'移动到记录的头部,并改变各个浏览按钮的状态

DataEnv.rssqlSeek.MoveFirst

DataEnv.rssqlSeek.MovePrevious

Call ChangeBrowseState

End Sub

Private Sub cmdLast_Click()

'移动到记录的尾部,并改变各个浏览按钮的状态

DataEnv.rssqlSeek.MoveLast

DataEnv.rssqlSeek.MoveNext

Call ChangeBrowseState

End Sub

Private Sub cmdList_Click()

'针对所选的班级,列出班级中所有的学籍信息

Dim strSQL

If cboClass.Text = "全部" Then

strSQL = " from 学生信息表order by serial"

Else

strSQL = " from 学生信息表where class='" & cboClass & "' order by serial"

End If

DataEnv.rsStudent.Close

DataEnv.rsStudent.Open "select * " & strSQL

DataEnv.rssqlSeek.Close

DataEnv.rssqlSeek.Open "select serial, name " & strSQL

'刷新用户导航的网格控件,并且根据记录集中记录的数目,来改变各个浏览按钮的状态。

Call RefreshGrid

Call ChangeBrowseState

Call grdScan_Change

End Sub

Private Sub cmdNext_Click() '移动到记录的下一条

DataEnv.rssqlSeek.MoveNext

Call ChangeBrowseState

End Sub

Private Sub cmdPrevious_Click() '移动到记录的上一条

DataEnv.rssqlSeek.MovePrevious

Call ChangeBrowseState

End Sub

Private Sub cmdReport_Click()

On Error Resume Next

If cmdReport.Caption = "取消" Then

'取消所使用的更新更新

DataEnv.rsStudent.CancelUpdate

'重新显示原来数据集中的内容

If DataEnv.rsStudent.BOF Then

DataEnv.rsStudent.MoveFirst

Else

DataEnv.rsStudent.MovePrevious

DataEnv.rsStudent.MoveNext

End If

Call RefreshBinding

Call ChangeBrowseState

fraSeek.Enabled = True

fraBrowse.Enabled = True

fraInfo.Enabled = False

grdScan.Enabled = True

cmdReport.Caption = "报表(R)"

mbClose = True

Else

'生成报表

Dim strSQL As String

DataEnv.rsrptStudent.Close

strSQL = "select * from 学生信息表where serial = '" & txtSerial.Text & "'"

DataEnv.rsrptStudent.Open strSQL

rptStudent.Show

End If

End Sub

Private Sub cmdSelectPhoto_Click()

On Error GoTo errHandler:

dlgSelect.DialogTitle = "选择该学生的照片"

dlgSelect.Filter = "所有图形文件|*.bmp;*.dib;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)" & _ "|*.bmp;*.dib|GIF文件(*.gif)|*.gif|JPEG文件(*.jpg)|*.jpg|图标文件(*.ico)|*.ico"

dlgSelect.ShowOpen

If dlgSelect.FileName = "" Then Exit Sub

imgPhoto.Picture = LoadPicture(dlgSelect.FileName)

mstrFileName = dlgSelect.FileName

Exit Sub

errHandler:

MsgBox Err.Description, vbCritical, "错误"

End Sub

Private Sub cmdUpdate_Click()

'更新所添加或者修改的记录

On Error GoTo errHandler:

Dim str As String

str = txtSerial.Text

With DataEnv.rsStudent

.Fields("Serial") = txtSerial.Text

.Fields("name") = txtName.Text

.Fields("sex") = cboSex.Text

.Fields("class") = dcbClass.Text

.Fields("birthday") = dtpBirth.Value

.Fields("tel") = txtTelephone.Text

.Fields("address") = txtAddress.Text

.Fields("resume") = txtResume.Text

If mstrFileName <> "" Then Call WriteImage(.Fields("photo"), mstrFileName) .Update

End With

cmdReport.Caption = "报表(&R)"

cmdUpdate.Enabled = False

fraInfo.Enabled = False

mbClose = True

If DataEnv.rssqlSeek.State = adStateClosed Then DataEnv.rssqlSeek.Open

'刷新右端用以导航的网格控件

Call RefreshGrid

'根据记录集中记录的个数,改变各个按钮的状态

Call ChangeBrowseState

'定位到刚刚添加或者修改过的记录

DataEnv.rssqlSeek.MoveFirst

DataEnv.rssqlSeek.Find "serial='" & str & "'"

fraSeek.Enabled = True

fraBrowse.Enabled = True

grdScan.Enabled = True

Exit Sub

errHandler:

MsgBox Err.Description, vbCritical, " 错误"

End Sub

Private Sub dcbClass_Click(Area As Integer)

If txtSerial = "" Then

txtSerial = dcbClass.Text

End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Not mbClose Then

MsgBox "数据正被修改,窗口不能关闭", vbCritical, "错误"

Cancel = True

End If

End Sub

Private Sub fraInfo_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub grdScan_Change()

If grdScan.ApproxCount > 0 Then

Call SeekStudent(grdScan.Columns(0).CellText(grdScan.Bookmark)) End If

End Sub

Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer) '当前行改变,则动态改变所要显示的记录

If LastRow <> grdScan.Bookmark Then

If grdScan.ApproxCount > 0 Then

Call SeekStudent(grdScan.Columns(0).CellText(grdScan.Bookmark)) End If

End If

End Sub

Private Sub WriteImage(ByRef Fld As ADODB.Field, DiskFile As String) Dim byteData() As Byte '定义数据块数组

Dim NumBlocks As Long '定义数据块个数

Dim FileLength As Long '标识文件长度

Dim LeftOver As Long '定义剩余字节长度

Dim SourceFile As Long '定义自由文件号

Dim i As Long '定义循环变量

Const BLOCKSIZE = 4096 '每次读写块的大小

SourceFile = FreeFile '提供一个尚未使用的文件号

Open DiskFile For Binary Access Read As SourceFile '打开文件

FileLength = LOF(SourceFile) '得到文件长度

If FileLength = 0 Then '判断文件是否存在

Close SourceFile

MsgBox DiskFile & "无内容或不存在!"

Else

NumBlocks = FileLength \ BLOCKSIZE '得到数据块的个数

LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数

Fld.Value = Null

ReDim byteData(BLOCKSIZE) '重新定义数据块的大小

For i = 1 To NumBlocks

Get SourceFile, , byteData() ' 读到内存块中

Fld.AppendChunk byteData() '写入FLD

Next i

ReDim byteData(LeftOver) '重新定义数据块的大小

Get SourceFile, , byteData() '读到内存块中

Fld.AppendChunk byteData() '写入FLD

Close SourceFile '关闭源文件

End If

End Sub

Private Function ReadImage(blobColumn As ADODB.Field) As String

'取得一个临时性文件

Dim strFileName As String

strFileName = "ImageTmp"

Dim FileNumber As Integer '文件号

Dim DataLen As Long '文件长度

Dim Chunks As Long '数据块数

Dim ChunkAry() As Byte '数据块数组

Dim ChunkSize As Long '数据块大小

Dim Fragment As Long '零碎数据大小

Dim lngI As Long '计数器

On Error GoTo errHander

ChunkSize = 2048 '定义块大小为2K

If IsNull(blobColumn) Then Exit Function

DataLen = blobColumn.ActualSize '获得图像大小

If DataLen < 8 Then Exit Function '图像大小小于8字节时认为不是图像信息FileNumber = FreeFile '产生随机的文件号

Open strFileName For Binary Access Write As FileNumber '打开存放图像数据文件Chunks = DataLen \ ChunkSize '数据块数

Fragment = DataLen Mod ChunkSize '零碎数据

If Fragment > 0 Then '有零碎数据,则先读该数据

ReDim ChunkAry(Fragment - 1)

ChunkAry = blobColumn.GetChunk(Fragment)

Put FileNumber, , ChunkAry '写入文件

End If

ReDim ChunkAry(ChunkSize - 1) '为数据块重新开辟空间

For lngI = 1 To Chunks '循环读出所有块

ChunkAry = blobColumn.GetChunk(ChunkSize) '在数据库中连续读数据块

Put FileNumber, , ChunkAry() '将数据块写入文件中

Next lngI

Close FileNumber '关闭文件

ReadImage = strFileName

Exit Function

errHander:

ReadImage = ""

End Function

Private Sub imgPhoto_Click()

End Sub

Option Explicit

'表示当前的用户类型:0---管理员类型的用户; 1---学生类型的用户

Public mnUserType As Integer

'表示当前登录的用户名

Public msUserName As String

Private Sub MDIForm_Load()

'根据不同的用户类型,使相应的菜单项可见

Select Case mnUserType

Case 0: '以管理员身份登录

mnuFind.Visible = True

tlbMain.Buttons.Item(3).Visible = True

tlbMain.Buttons.Item(4).Visible = True

Exit Sub

Case 1: '以学生身份登录,只能查询自己的信息mnuFind.Visible = False '“信息查询”菜单不可见

tlbMain.Buttons.Item(3).Visible = False '“信息查询”按钮不可见

tlbMain.Buttons.Item(4).Visible = False '第二个分隔条不可见

Exit Sub

End Select

End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("真的要对出本系统吗?", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then

Cancel = 1

End If

End Sub

Private Sub mnuAbout_Click()

Load frmSplash

frmSplash.mbAbout = True

frmSplash.Show vbModal

End Sub

Private Sub mnuArr_Click()

frmMain.Arrange (3) '设置主窗体中所有最小化MDI子窗体图标重排

End Sub

Private Sub mnuCas_Click()

frmMain.Arrange (0) '设置主窗体中所有非最小化MDI子窗体层叠显示

End Sub

Private Sub mnuExit_Click()

Unload Me

End Sub

Private Sub mnuFind_Click()

frmFind.Show

End Sub

Private Sub mnuHori_Click()

frmMain.Arrange (1) '设置主窗体中所有非最小化MDI子窗体水平平铺

End Sub

Private Sub mnuLog_Click()

If MsgBox("若重新登录,所有窗体都将关闭!" & vbCrLf & " 是否重新登录?", _ vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then Unload Me

frmLogin.Show

End If

End Sub

Private Sub mnuStudent_Click()

Load frmStudent

frmStudent.Show

End Sub

Private Sub mnuVer_Click()

frmMain.Arrange (2) '设置主窗体中所有非最小化MDI子窗体垂直平铺End Sub

Private Sub tlbMain_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key

Case "Student"

mnuStudent_Click

Exit Sub

Case "Find"

mnuFind_Click

Exit Sub

Case "Login"

mnuLog_Click

Exit Sub

Case "Exit"

mnuExit_Click

Exit Sub

End Select

End Sub Option Explicit

'表示当前用户登录所选择的身份,即用户类型, 0-表示教务管理人员;1-表示学生Dim mnUserType As Integer

Private Sub cmdCancel_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

'取得用户输入的用户名和密码

Dim user As String, pwd As String

user = Trim(txtUser)

pwd = Trim(txtPwd)

'根据不同的身份,选择不同的表用以查询

Dim r As New ADODB.Recordset

Set r = DataEnv.rssqlSeek

Dim strSQL As String

Select Case mnUserType

Case 0: '若身份为管理员

strSQL = "select * from 系统人员表where name='" & user & "' and pwd='" & pwd & "'"

Case 1: '若身份为学生

strSQL = "select * from 学生信息表where name='" & user & "' and serial='" & pwd & "'"

End Select

On Error Resume Next

'查询DataEnv.rssqlSeek的状态,如果已经打开,则先关闭

If r.State = adStateOpen Then r.Close

r.Open strSQL '根据strSQL的内容刷新DataEnv.rssqlSeek

'用户密码错误的次数,如果错误次数超过3次,则退出系统

Static nTryCount As Integer

If r.EOF Then '登录失败

MsgBox "对不起,无此用户或者密码不正确!请重新输入!!", vbCritical, "错误"

txtUser.SetFocus

txtUser.SelStart = 0

txtUser.SelLength = Len(txtUser)

nTryCount = nTryCount + 1

If nTryCount >= 3 Then

MsgBox "您无权操作本系统!", vbCritical, "错误"

Unload Me

End If

Else '登陆成功

'显示MDI窗体, 并将用户类型和用户名传到MDI窗体中的mnUserType, msUserName 中

With frmMain

.mnUserType = mnUserType

.msUserName = user

End With

Load frmMain

frmMain.Show

Unload Me

End If

End Sub

Private Sub Form_Load()

optUserType(0).Value = True

End Sub

Private Sub optUserType_Click(Index As Integer)

mnUserType = Index

End Sub

Option Explicit

Private Sub Command1_Click()

Dim strCon1 As String

Dim strCon2 As String

On Error GoTo myerr

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then

If MsgBox("请输入查询条件!", vbInformation, "提示") Then GoTo myerr End If

Select Case Trim(Combo1.Text)

Case "学号"

strCon1 = "Serial"

Case "姓名"

strCon1 = "Name"

Case "班级"

strCon1 = "Class"

Case "生日"

strCon1 = "Birthday"

Case "性别"

strCon1 = "Sex"

Case "家庭地址"

strCon1 = "Address"

Case "电话"

strCon1 = "Tel"

End Select

Select Case Trim(Combo4.Text)

Case "学号"

strCon2 = "Serial"

Case "姓名"

strCon2 = "Name"

Case "班级"

strCon2 = "Class"

Case "生日"

strCon2 = "Birthday"

Case "性别"

strCon2 = "Sex"

Case "家庭地址"

strCon1 = "Address"

Case "电话"

strCon2 = "Tel"

End Select

DataEnv.rsStudent.Close

DataEnv.rsStudent.Open "select * from 学生信息表where " & _ strCon1 & Trim(Combo2.Text) & " '" & Trim(Text1.Text) _

& "'" & " " & Trim(Combo3.Text) & " " & strCon2 & _

Trim(Combo5.Text) & "'" & Trim(Text2.Text) & "'"

dgdCX.DataMember = ""

dgdCX.Refresh

DataEnv.rsStudent.Requery

dgdCX.DataMember = "Student"

dgdCX.Refresh

myerr:

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub dgdCX_Click()

End Sub

Private Sub Form_Load()

'添加Combo1的子项作为查询标准

Combo1.AddItem ("学号")

Combo1.AddItem ("姓名")

Combo1.AddItem ("班级")

Combo1.AddItem ("生日")

Combo1.AddItem ("性别")

Combo1.AddItem ("家庭地址")

Combo1.AddItem ("电话")

Combo1.ListIndex = 0

'添加Combo2的子项作为关系符

Combo2.AddItem ("=")

Combo2.AddItem (">")

Combo2.AddItem (">=")

Combo2.AddItem ("<")

Combo2.AddItem ("<=")

Combo2.AddItem ("<>")

Combo2.ListIndex = 0

'添加Combo3的子项作为逻辑连接符

Combo3.AddItem ("And")

Combo3.AddItem ("Or")

Combo3.ListIndex = 0

'添加Combo4的子项作为第二种查询标准Combo4.AddItem ("学号")

Combo4.AddItem ("姓名")

Combo4.AddItem ("班级")

Combo4.AddItem ("生日")

Combo4.AddItem ("性别")

Combo4.AddItem ("家庭地址")

Combo4.AddItem ("电话")

Combo4.ListIndex = 0

'添加Combo5的子项作为第二种关系符

Combo5.AddItem ("=")

Combo5.AddItem (">")

Combo5.AddItem (">=")

Combo5.AddItem ("<")

Combo5.AddItem ("<=")

Combo5.AddItem ("<>")

Combo5.ListIndex = 0

End Sub

Private Sub Form_Unload(Cancel As Integer) frmMain.Enabled = True

frmMain.Show

End Sub

学生信息管理系统VB

河北联合大学 《软件设计基础(VB)》 课程设计报告 设计名称:学生信息管理系统 姓名:学号: 专业班级: 学院: 设计时间: 设计地点:学校机房

目录 1.课程设计目的 ··············································································· 2.课程设计任务与要求 ······································································ 3.课程设计说明书 ············································································ 4.课程设计成果 ··············································································· 5.程序调试过程 ··············································································· 6.设计问题的不足和改进方案 ····························································· 7.课程设计心得 ··············································································· 8.附录 ··························································································· 9.参考文献 ·····················································································

学生信息管理系统软件工程

河南工程学院计算机学院课程设计报告书学生信息管理系统 学生学号: 学生姓名: 学院: 专业班级:软件工程1241 专业课程:软件工程 指导教师: 2015年1 月9日

本组成员 题目 考核项目考核内容得分平时考核 (10分)出勤情况、态度、效率、协作精神;知识掌 握情况、知识应用能力、获取知识能力。 选题背景、目的意义和国内外研究现状(10分)选题背景、目的意义和国内外研究现状内容全面,体现学生查阅资料充分。 系统可行性研究 (10分)对所选课题从技术上、操作上和经济上等方 面进行分析可行性。 系统需求分析 (30分)确定系统功能需求、性能需求、出错处理需 求等;分析系统的数据要求,画出实体-联系图等。 系统设计 (15分)确定软件结构,设计软件结构图和数据库设 计;主要模块的过程设计等。 课程设计体会、格式排版 (20分)课程设计体会深刻,报告书写干净、规范, 内容完整,语句通顺,图表正确等。 奖励分(5分)提前完成的加分。 总评成绩 指导教师评语: 年月日

目录 1 绪论 (1) 选题背景和意义 (1) 国内外研究现状 (1) 国内研究现状 (1) 国外研究现状 (2) 存在的主要问题和拟解决方法 (2) 论文研究的主要内容 (2) 2 系统可行性分析 (3) 技术可行性 (3) 经济可行性 (3) 操作可行性 (3) 3 系统需求分析 (4) 功能需求 (4) 性能需求 (5) 数据流程图 (5) 数据字典 (9) 学生信息管理 (9) 成绩管理模块 (9) 课程信息管理模块 (10) 查询模块 (10) 4 系统设计 (11) 系统框架 (11) 系统流程分析 (11) 系统模块分析 (12) 数据库设计 (20) 5 课程设计体会 (22) 参考文献 (23)

学生成绩管理系统源代码

学生成绩管理系统源代码-标准化文件发布号:(9556-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII

#include #include #include #include #include #include #include #include #define PRINT1 textcolor(12); cprintf("\r 请按任意键返回主菜单 \n\r");textcolor(10); getch();clrscr(); break; int shoudsave=0; struct student /* 学生信息结构体定义*/ { char num[10],name[20],cla[4]; int score1,score2,score3,total,ave; }; typedef struct node { struct student data; struct node *next; }Node,*L; void print1() { cprintf("\r============================================================= ==================="); } void print2() { cprintf("\n\r 1.输入学生成绩信息在这里你可以按照提示输入学生的班级,学号,姓名及各科成绩.\n"); cprintf("\n\r 2.注销学生成绩信息在这里你可以按照学号或姓名将某名学生的信息从本系统中删除.\n"); cprintf("\n\r 3.查询学生成绩信息在这里你可以按照学号或姓名查询某一名学生的信息.\n"); cprintf("\n\r 4.修改学生成绩信息在这里你可以按照提示修改某一名学生的学号,姓名及各科成绩."); cprintf("\n\r 5.学生成绩信息排序在这里你可以看到所有学生的各科成绩.\n"); cprintf("\n\r 6.学生成绩信息统计在这里本系统将为你显示所有科目的最高分及最低分所得学生.\n"); cprintf("\n\r 7.显示学生成绩信息在这里你可以看到系统中所有学生的信 息.\n"); cprintf("\n\r 8.保存学生成绩信息在这里你可以将学生你信息保存到内存 中.\n");

学生信息管理系统

全国学前教育管理信息系统 培训上机指南 一、网址、用户名及密码 1、专题网址:https://www.doczj.com/doc/b119063225.html,/,系统由专题右上方《管理系统入口》进入。 2、用户名(另发)。 3、测试系统初始密码统一为xueqian@2014(仅在培训时为此密码),请勿在培训时修改此密码。在使用正式系统时请修改密码。 二、系统登录注意事项 1、建议电脑为XP系统的情况下使用火狐或谷歌浏览器登录系统。 2、登录系统前,须进行浏览器设置,设置方法如下:“工具”→“Internet选项”→“隐私”→“高级”→勾选“替代自动cookie处理”和“总是允许会话cookie”。 3、不要使用同一浏览器登录多个用户。 4、在输入用户名和密码时注意键盘大小写的切换。 5、登录系统时,如密码连续五次输入错误,系统会自动锁定该账号,锁定时间为15分钟,15分钟以后才能再登录系统,建议骨干学校和市州在登录时如输错4次密码时不要再进行第5次密码的输入,可用同级或上级的系统管理员账号(A开头的账号)重置密码,再进行系统登录。

三、需完成任务 各学校使用学校级系统,市州使用县、市级系统,骨干学校与市州配合完成各项流程(机构管理、幼儿管理、业务管理、一期数据管理、机构在园幼儿情况、系统管理),具体操作步骤如下(以县级学校为例): (一)机构管理 1、使用机构级账号(普通用户)登录系统,进入“机构管理”->“基本信息管理”,进行学校扩展信息的填写(基本信息由系统自动导入),此处应注意“提交”与“保存”两个按钮的区别。 2、使用区县级账号(审核用户)登录系统,进入“业务管理”->“机构数据管理” ->“基本信息审核”,审核学校提交的基本信息。 3、使用机构级账号(普通用户)登录系统,进入“机构管理”->“办学条件信息管理”,根据提示编辑办学条件基本信息与办学条件建筑信息(该页面有两个选项卡),并提交审核。 4、使用区县级账号(审核用户)登录系统,进入“业务管理”->“机构数据管理” ->“办学条件信息审核”,审核学校提交的基本信息。 5、使用机构级账号(普通用户)登录系统,进入“机构管理”->“班级信息管理”,至少创建5个以上的班级(最好有连续的年级)。

vb学生成绩管理完整版

学生成绩管理系统 摘要 学生信息管理系统是典型的信息管理系统,经过分析,我们使用MICROSOFT 公司的VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。 关键字:数据库,智能化,面向对象 ABSTRACT:The abstract student information management system is the typical information management system, the process analysis, We use MICROSOFT Corporation VISUAL the BASIC development kit, uses each kind of object-oriented development kit which it provides, especially first in a short time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system. Key words:Database,intelligence,object-oriented 引言 随着学校规模的不断扩大,学生数量急剧增加,有关学生的各科成绩信息量也成倍增长。面对庞大的成绩信息,需要学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到成绩的规范管理、科学统计和快速查询、修改、增加、删除等,从而减少管理方面的工作量。 本系统主要用于学生成绩管理,总体任务是实现学生成绩信息的系统化、规范化和自动化。其主要任务是用计算机对学生各科成绩进行管理,如修改、增加、删除,另外还考虑到学生名次的排序等,针对这些要求设计了学生成绩管理系统。其功能主要有:1)有关学生信息的输入,包括输入学生所在班级、所学课程和成绩等 2)学生课程的修改 3)学生名次的排序。

学生信息管理系统程序

. C语言上机实践报告 专业:冶金工程 班级:冶金1102 姓名: 学号: 任课教师:丽华 时间:2012年8月

一、题目 学生信息管理系统设计 ●学生信息包括:学号,姓名,年龄,性别,出生年月,地址,,E-mail等。 ●试设计一学生信息管理系统,使之能提供以下功能: a)系统以菜单方式工作 b)学生信息录入功能(学生信息用文件保存)---输入 c)学生信息浏览功能---输出 d)查询、排序功能---算法 (1) 按学号查询 (2) 按姓名查询 e)学生信息的删除与修改(可选项) 一、系统功能模块结构图

二、数据结构设计及用法说明#include"stdio.h" #include"stdlib.h" #include"string.h" /*定义结构体用作创建链表*/ typedef struct z1 { char no[11]; //学生学号 char name[15]; //学生姓名 int age; //学生年龄 char sex; //学生性别 char birthday[8]; //学生出生年月char address[20]; //学生住址 char tel[12]; //学生联系 char e_mail[20]; //学生e-mail struct z1 *next; //指向下一链表}STUDENT; /*声明用户自定义函数*/ STUDENT *init();

STUDENT *create(); STUDENT *del(STUDENT *h); STUDENT *insert(STUDENT *h); STUDENT *revise(STUDENT *h); void print(STUDENT *h); void search1(STUDENT *h); void search2(STUDENT *h); void save(STUDENT *h); int menu_select(); void inputs(char *prompt,char *s,int count); /*主函数,用于选择功能*/ void main() { STUDENT *head; head=init(); //初始化链表表头 for(;;) { switch(menu_select()) { case 0:head=init();break; //初始化 case 1:head=create();break; //创建列表

学生信息管理系统(Java)+代码

学生信息管理系统设计 1、系统简介 本系统提供了学生信息管理中常见的基本功能,主要包括管理员和学生两大模块。 管理员的主要功能有对学生信息和课程信息进行增加、删除、修改、查找等操作,对选课信息进行管理,对成绩信息和用户信息进行修改、查找等操作。学生的主要功能有对学生信息和成绩信息进行查看,对个人的密码信息进行修改等。 2、功能设计 2.1 需求分析 本系统需要实现的功能: (1)、管理员对学生信息和课程信息进行增加、删除、修改、查找等操作,对选课信息进行管理,对成绩信息和用户信息进行修改、查找等操作。 (2)、学生对学生信息和成绩信息进行查看,对个人的密码信息进行修改等。 2.2 总体设计 学生信息管理系统主要包括管理员和学生两大模块。管理员模块包括:学生信息管理、课程信息管理、选课信息管理、成绩信息管理、用户信息管理等。用户模块包括:学生信息查看、成绩信息查看、个人信息管理等。系统总体结构如图所示。 总体结构图 2.3 模块详细设计 1、学生信息管理模块 学生信息管理模块包括增加、删除、修改、查询、显示全部等。具体的结构图如图所示。

学生信息管理模块结构图 2、课程信息管理模块 课程信息管理模块包括增加、删除、修改、查询、显示全部等。具体的结构图如图所示。 课程信息管理模块结构图 3、选课信息管理模块 选课信息管理模块包括查询、显示全部等。具体的结构图如图所示。 选课信息管理模块结构图 4、成绩信息管理模块 成绩信息管理模块包括修改成绩、查询、显示全部等。具体的结构图如图所示。

成绩信息管理模块结构图 5、用户信息管理模块 用户信息管理模块包括修改、查询、显示全部等。具体的结构图如图所示。 用户信息管理模块结构图 3、数据库设计 在数据库student中共有4张数据表:s(学生信息表)、c(课程信息表)、sc(选课信息表)、unpw(用户信息表),下面定义每张表的字段名称和数据类型。

学生信息管理系统(完整)

学生信息管理系统(总体设计) 1、管理系统功能模块设计 本系统需要完成的功能主要有: (1)、输入学生基本信息、所在班级、所学课程和成绩等。 (2)、学生信息的查询,包括查询学生基本信息、所在班级、已学课程和成绩等。(3)、学生信息的修改。 (4)、班级信息的输入,包括输入班级设置、年级信息等。 (5)、班级信息的查询。 (6)、班级信息的修改。 (7)、班级课程信息的输入。 (8)、班级课程信息的修改。 (9)、学生课程添加和修改。 (10)、学生成绩信息的输入。 (11)、学生成绩信息的修改。 (12)、学生成绩信息的查询。 (13)、学生成绩信息的统计。 2、功能模块设计:

3、数据库设计:

学生信息管理系统(需求分析)

1.系统开发背景分析 系统的功能取决开用户的需求。随着科技进步和信息时代的到来,教育的普及程度起来起高,学校的人数也在迅速的增长,怎样的管理好成千上万的学生,已经成为一个学校的管理者必须面对的问题。编写本报告的目的就是用最少的代价,尽可能短的时间内确定问题是否能够解决,通过对学校的一些管理软件的调研分析,发现了一些不足,所以拟做此系统,使学生信息的管理更加准确,安全和快捷。 在本次试验中包括的模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项,各项管理工作涉及到的内容用下面的关系模式表示。a)学生(学号,姓名,性别,年龄,班级,电话,备注,出生日期,入学时间, 班级编号,家庭地址) b)课程(课程编号,课程名称,课程类别,学分,学时) c)班级(系,班级号,指导老师) 2.系统分析 1.抽象出当前系统的逻辑模型 画出反映当前系统工作的数据流程图。数据流程图是逻辑模型的图形表示,即使不是专业的计算机技术人员也能非常容易理解,它是一种很好的系统构造的表示方法。画数据流程图是应该从已获得的人工处理流程中去掉物理因素,只保留数据、信息处理部分。 2.系统功能分析 系统主要用于学校学生信息管理,主要任务是用计算机对学生各种信息进行日常管理,如:查询、修改、增加、删除。 3.系统目标设计 根据本校的实际情况,利用校园网而设计一套针对性和功能都比较强的学生信息管理系统,对学生信息管理系统进行科学的分类、录入、查询. 4.开发设计思想 尽量采用学校现有的软硬件环境及先进的管理系统开发方案,从而达到充分利用资源,提高系统开发的水平和应用效果的目的。系统应该符合学校学生信息管理的规定,满足学校学生日常管理的需要,达到操作过程中的直观、方便、实用、安全等要求。强调多部门合作,学生工作设计面广泛,应该考虑各部门各

仓库管理系统VBAccess源代码

仓库管理系统 V B A c c e s s源代码 Standardization of sany group #QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN#

仓库管理系统 项目的建立 这是本人利用闲暇之余在上制作的一个简陋的类库管系统,现图文结合的方式一步一步展现制作过程。由于本人是个初学者,里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式:E-mail 最终运行效果 打开软件出现如下登录界面 输入系统预设用户名及密码( 1 1 )单击“登录”或单击“新用户”添加新用户进入如下主界面:

建立工程 1、创建标准EXE 2、按“打开”

3、添加MDI窗体——打开 4、编辑菜单 在空白处右击——点击“菜单编辑器”

在“标题”里输入“系统”,在“名称”里输入“Sys”(注意此处不能为汉字) 点击“下一个”再点击“” “确定”退到MDI界面点击“系统”——“退出”如下,然后编写代码。 代码如下: Private Sub Exit_Click() End End Sub

数据库的建立 中可以创建Access数据库。如下建立一个“用户表”的数据库,用来存放用户信息及一些出入库管理信息。如下图单击“外接程序” 再单击“可视化数据管理器”出现如图 点击“文件”——“新建”——“Microsoft Access”——“Version MDB”输入数据库名,“保存”出现如下图 在数据窗口中右击——“新建表”,最终如下 往数据表里添加数据在这里就不罗嗦了,请查阅相关书籍。 登录界面窗口的建立 最终界面如下:

学生信息管理系统程序设计

学生信息管理系统 程序设计

学生信息管理系统程序设计 1、软件开发目的 该软件主要是实现对学生基本信息进行系统化的管理,首先能够对学生基本信息进行录入和存取,其次能够浏览学生的相关信息,然后能够删除和插入学生的相关信息,还有就是可按学号或按学生姓名查询此学生的相关信息。由此来系统化管理学生基本信息,并达到简易操作的目的。 2、功能分析说明图 3、各项功能说明 (1)学生基本信息的录入和保存: 在链表中的适当位置插入一个学生信息节点,一次添加一条学生信息(添加内容包含学号、姓名、年龄),如果添加的学号已经在文件中存在,则不能添加到文件中去,应显示错误提示语;如果添加成功,则显示成功提示语。添加操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (2)显示学生信息: 此功能是显示一个学生信息节点中的信息,并在屏幕上显示出来。 (3)删除学生信息: 进入该项功能界面后,删除学生信息,一次删除一条学生信息。

(4)按学号查找学生信息: 按学号查询学生信息,要求显示文件中与用户输入的学号相匹配的学生信息,要求显示学号、姓名、年龄等字段,如果文件中没有学生信息,则显示提示语。查询操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (5)按姓名查找学生信息: 按姓名查询学生信息,要求显示文件中与用户输入的学号相匹配的学生信息,要求显示学号、姓名、年龄等字段,如果文件中没有学生信息,则显示提示语。查询操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (6)修改学生信息 修改学生信息中的某一项信息,一次更新一条学生信息(更新内容包含学号、姓名、年龄等字段值),如果更新的学号在文件中不存在,则不能更新,应该显示错误提示语;如果更新成功,则显示成功提示语。更新操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (7)退出系统,结束任务。 4、软件功能的验收标准

(完整版)VB+Access学生信息管理系统

2013年12月29

目录 绪论 (1) 前言 (1) (一)作业背景 (1) (二)选题说明 (1) (三)主要内容 (2) 一、系统分析 (2) (一)系统目标 (2) (二)可行性分析 (3) (三)管理业务调查 (3) 1.组织结构调查 (3) 2. 功能流程调查 (4) 3.数据流程调查 (5) 二、系统设计 (6) (一)新系统的功能结构图 (6) (二)新系统的流程设计图 (7) (三)代码设计 (7) 1.登陆页面 (14) 3.注册页面 (17) 3.主菜单页面 (20) 4.院系功能 (24) 三、总结 (31)

绪论 高校学生信息的管理是一项既重要又繁琐的工作。我们小组成员通过调查研究发现,学生学籍信息管理很是普及,这不仅为学员、教员提提供了查询信息的平台,还大大提高了信息的获取速度,有利于对学员信息的管理。为更好的做好这项工作,提过工作效率,更好的为学校的发展和一线教学服务,我们小组决定:结合普通高校校实际情况,自行研制一个学生信息管理系统。该信息管理系统结合学员、教员的需求,提供查询学员学籍信息等多项功能,对学员的学籍信息实时更新,掌握学员的实际修课情况。 前言 (一)作业背景 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。 因此,开发这样一套管理软件成为很有必要的事情,结合管理信息系统这门课程的学习,我们掌握了一定的编程技术,为此次作业设计和实施提供了基础。我们组通过了解教员和学员的实际状况和需求,对学员的学习信息的管理常规流程进行了调查,发现还有很多模块可以改进。 (二)选题说明 由于高校学籍管理信息系统具有极大可使用性,并且对于我们初学者较易完成。并且学生选课系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和 管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和 快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。现在我国的大部分学校中档案的管理水平还停留在纸介质的基础上,这样的机制已经不能适应时代的发展,因为它浪

学生信息管理系统C程序

#include #include #include #include//getch();kibhit()的头文件struct student { int id; char name[20]; char password[11]; char classs[6]; struct like { float physics;//物理 float biology;//生物 float chemistry;//化学 }grade; int age; int ranking; }; typedef struct student ST;//为已有的数据类型命名struct administrator { char name[20]; char password[11]; }ad={"lichao","12343456"}; void Chushihua();//系统初始化函数 void Stucpw(int i);//学生改密函数 void Ssave(ST stu[30],int r);//系统保存函数 void Stuadd();//添加学生函数 int Save_enquiry();//修改确定询问函数 void Studelete();//删除学生函数 void Stualter();//修改学生函数 void Sturefer();//学生查询函数 void Sturank(ST stu0[30],int i);//终极排名函数void Stuclassesrank();//学生班级挑选函数 void Stuallout();//少女通灵之术 char* Passwordinputhide(); int main() { int flag0=0;//选择登陆方式的标志 int flag1;//密码错误次数标志 int flag3;//选择操作方式的标志 char ad_name[20];//输入的管理员名字 char ad_password[11];//输入的管理员密码

学生信息管理信息系统

管理信息系统 课程设计报告 专业:电子商务 学号: 姓名: 2011年12 月 29 日

实验内容和评分项目

学生信息管理信息系统的分析与设计 一. 总体规划: 1.系统开发的背景 学生信息档案的管理对于学校的管理者来说至关重要,学生信息是高等学校非常重要的一项数据资源,是一个教育单位不可缺少一部分。特别是近几年来,国家政策的调整,我国高等院校大规模的扩招,给高等院校的教学管理、学生管理、后勤管理等方面都带来不少的冲击。其包含的数据量大,涉及的人员面广,而且需要及时更新,故较为复杂,难以单纯地依人工管理,而且传统的人工管理方式既不易于规范化,管理效率也不高,目前我国各类高等院校中还有相当一部分学生档案管理还停留在纸介质的基础上,尤其是中、小学对学生档案的管理更是落后,这样的管理机制已经不能适应时代发展的要求,其管理方法将浪费许多人力和物力。随着科学技术的不断提高,计算机科学与技术日渐成熟,计算机应用的普及已进入人类社会生活的各个领域,并发挥着越来越重要的作用。这种传统的手工管理模式必然被以计算机为物质基础的信息管理方法所取代。 作为计算机应用的一部分,使用计算机对学生档案进行管理,有着手工管理所无法比拟的优点,如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是学校向科学化、正规化管理发展的必要条件,更是各个高等院校与世界接轨的重要条件。 2.系统功能需求 学生信息管理系统是针对学校人事处的大量业务处理工作而开发的管 理软件,主要用于学校学生信息管理,总体任务是实现学生信息关系的系统化、科学化、规范化和自动化,其主要任务是用计算机对学生各种信息进行日常管理,如查询、修改、增加、删除,另外还考虑到学生选课,针对这些要求设计了学生信息管理系统。推行学校信息管理系统的应用是进一步推进学生管理规范化、电子化、控制辍学和提高义务教育水平的重要举措。 学生信息的内容包括: 1. 能够从屏幕上读取一个学生的信息并将信息存入到数据文件中。 2. 能够将指定的信息从文件中删除。 3. 能够按编号、姓名对学生的信息进行检索并将检索结果显示在屏幕上。 4. 可以统计全部学生的总成绩,及其在班上的排名。 5. 能够统计各科的平均成绩及及格率。 6. 要求有错误提示功能,例如性别只能输入男女,输入错误提示重新输入。 7. 如果检索不到相应的信息应提示用户。

VB学生管理系统主要代码

主要代码如下: Dim cn As New ADODB.Connection Dim rst0 As New ADODB.Recordset Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset Private Sub Cmd0add_Click() rst0.AddNew Cmd0add.Enabled = False Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True End Sub Private Sub Cmd0del_Click() Cmd0add.Enabled = True Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True x = MsgBox("确定要删除吗", vbYesNoCancel + vbQuestion, "确认") If x = vbYes Then rst0.Delete End Sub Private Sub Cmd0Exit_Click() cn.close Unload Me End Sub Private Sub Cmd0save_Click() Cmd0add.Enabled = True Cmd0save.Enabled = False Cmd0del.Enabled = True Cmd0Exit.Enabled = True rst0.Update rst0.Sort = "应聘人编号" End Sub Private Sub Cmd1Exit_Click() cn.close Unload Me End Sub

学生信息管理系统程序设计

学生信息管理系统程序设计 1、软件开发目的 该软件主要是实现对学生基本信息进行系统化的管理,首先可以对学生基本信息进行录入和存取,其次可以浏览学生的相关信息,然后可以删除和插入学生的相关信息,还有就是可按学号或按学生姓名查询此学生的相关信息。由此来系统化管理学生基本信息,并达到简易操作的目的。 2、功能分析说明图 3、各项功能说明 (1)学生基本信息的录入和保存: 在链表中的适当位置插入一个学生信息节点,一次添加一条学生信息(添加内容包含学号、姓名、年龄),如果添加的学号已经在文件中存在,则不能添加到文件中去,应显示错误提示语;如果添加成功,则显示成功提示语。添加操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (2)显示学生信息: 此功能是显示一个学生信息节点中的信息,并在屏幕上显示出来。 (3)删除学生信息: 进入该项功能界面后,删除学生信息,一次删除一条学生信息。 (4)按学号查找学生信息: 按学号查询学生信息,要求显示文件中与用户输入的学号相匹配的学生信息,要求显示学号、姓名、年龄等字段,如果文件中没有学生信息,则显示提示语。查询操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (5)按姓名查找学生信息: 按姓名查询学生信息,要求显示文件中与用户输入的学号相匹配的学生信息,要求显示学号、姓名、年龄等字段,如果文件中没有学生信息,则显示提示语。查询操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (6)修改学生信息 修改学生信息中的某一项信息,一次更新一条学生信息(更新内容包含学号、姓名、年龄等字段值),如果更新的学号在文件中不存在,则不能更新,应该显示错误提示语;如果更新成功,则显示成功提示语。更新操作完毕后,应该询问用户是否继续执行此操作。如果用户不继续,则退回到程序初始界面。 (7)退出系统,结束任务。 4、软件功能的验收标准 1.有较为美观简洁大方的菜单,能保证用户方便、直观、快捷的熟悉并使用软件的各项功能。 2.有严密正确的数据验证功能和数据处理功能,能够查询、插入、修改和删除学生信息。

学生信息管理系统编码阶段文档.

学 生 信 息 管 理 系 统 编 码 阶 段 文 档 撰稿人:陈华军许凤珍詹春霞 信息工程学院 111班

目录 1引言 (3) 1.1编写目的 (3) 1.2引用标准 (3) 1.3参考资料 (3) 1.4范围 (3) 1.5术语定义 (3) 1.6版本更新信息 (3) 2 代码 (4) 2.1连接数据库 (4) 2.2登录代码 (4) 2.3注册代码 (9) 2.4违规处理代码//初始化处理窗口代码 (14) 2.5管理员管理用户 (21)

1引言 1.1编写目的 该文档是对学生信息管理系统项目的编码规范和代码说明。 1.2引用标准 《企业文档格式标准》 V1.1,北京长江有限公司 《软件详细设计报告格式标准》V1.1,北京长江有限公司软件工程过程化组织 1.3参考资料 《实战 Structs》,Ted Hustes .机械工业出版社 《管理信息系统》。清华大学出版社 1.4范围 该文档定义了本项目的代码具体内容及说明。 1.5术语定义 Class(类):Android程序中的一个程序单位,可以生成很多实例。 Packages(包);由很多类组成的工作包。 1.6版本更新信息

2 代码 2.1连接数据库 if (CoInitialize(NULL)!=0) { AfxMessageBox("初始化COM支持库失败!"); exit(1); } try{ CString strConnect;; strConnect.Format("DSN=myastudentsys;"); if(m_DB.Open(NULL,false,false,"ODBC;DSN=mystudentsys;UID=Sa;PWD=;")==0) { AfxMessageBox("Unable to Connect to the Specified Data Source"); return FALSE } } catch(CDBException *pE) { pE->ReportError(); pE->Delete(); return FALSE; } 2.2登录代码 以下为总表查询的源代码: CZongbiao message handlers void Clogindlg::OnButton1() { if (((CButton*)GetDlgItem(IDC_RADIO1))->GetCheck()) { MessageBox("1被选中","",MB_OK); UpdateData(TRUE); if(m_name.IsEmpty() || m_pw.IsEmpty()){

VB成绩管理系统报告及代码

洛阳理工学院 08软件技术课题设计报告 课程:Visual Basic程序设计题目:学生成绩查询统计系统学号: Z08050834 姓名: 班级:软件8班 指导老师:苗专生 完成时间:2009年12月30日

目录 一、课题内容 (1) 1.1了解信息 (1) 1.2实验目的 (1) 1.3选题的背景和意义 (1) 1.4软件工具和需要掌握的知识 (1) 二、系统分析 (2) 2.1系统功能模块示意图 (2) 2.2设计思路、算法描述 (2) 三、系统设计 (2) 3.1主要算法的实现 (2) 3.2程序流程图 (2) 四、调试、测试、试运行过程 (3) 4.1运行记录及调试效果 (4) 五、源程序主要代码 (11) 5.1密码判断 (11) 5.2添加信息 (11) 5.3删除信息 (12) 5.4修改信息 (13) 5.5绘制直方图 (13) 5.6绘制饼图 (14) 5.7保存文件 (15) 5.8按条件查询 (16) 5.9打开帮助文件 (16) 5.10工具条按钮代码 (16) 5.11工具条下拉菜单代码 (17) 六、课设总结 (17) 七、参考文献 (18)

一、课题内容 1.了解信息:了解用软件工程学的基本思想进行软件开发的原则和方法;结构化 分析方法和步骤。结构化编程方法;面向对象的思想和程序设计方法。 2.实验目的: 掌握数组,函数,过程的定义和使用 掌握do、while、for等循环语句的运用 掌握了解vb的图形功能,及图形的绘制 掌握常用函数的使用(绘图函数:line,circle等) 掌握vb文件系统的操作(打开,读写,关闭等) 熟练掌握键盘事件,鼠标事件及其事件过程的编程技巧 掌握逻辑表达式,单分支,双分支及多分支条件语句的运用 掌握vb常用控件的运用(通用对话框,inputbox,combox,工具栏,状态栏等) 3.选题的背景和意义: 计算机不可避免的成为了当今社会的主流学科,计算机的广泛应用性、高效率以及其强大的计算能力注定了其发展潜力,虽然计算机现在的能力不可想象,但不要忽视了其出世还不足半个世纪,然而在这半个世纪里它带领着世界创造一个个奇迹。随着计算机的广泛使用,它的灵魂——软件也得到了快速发展,但是人们的需求永远大于现实,各行各业都需求他们自己所最需要的各种软件,导致了社会需要大批的软件编辑者,VB作为几大编程语言之一,其语言易学易用的特点广大初学者学习学习计算机语言的首选,我们经过了半个学期的学习,对VB有了初步的了解,学生成绩管理器这是一个实用性很强,技术要求不太高的应用程序,很适合初学者练习,再者其要求全面,很适合对我们这学期的学习考察,虽然其中有一些书本上没有老师也没有讲过的内容,但通过网络学习也能完成,更能考察学生的自学能力。 4 软件工具和需要掌握的知识: 1、软件工具:Visual Basic 6.0英文版、中文版,easy chm,Photoshop 2、需要掌握的知识: (1) 视窗(Form)视窗是进行人机交互的界面或接口,也叫窗体。VB系统的人机交互界面或接口,无论是在设计时或是在运行时,都是Windows 系统的标准视窗。(2) 对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box),文本框 (Text Box),命令按扭 (Command Button),网格 (Data Grid),ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时,被称为对象或控件。用户可以通过设置对象的“属性”和“方法”,便于对象适应自己所设计应用程序的输入输出内容,对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间,提高程序设计者的工作效率。 (3) 属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征,从而有效地使用系统提供的对象。比如,对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。

学生信息管理系统

C++课程设计报告 一、课程设计题目:学生成绩管理系统 二、课程设计目的: 1.了解并掌握c++与算法的设计方法,具备初步的独立分析和设计能力; 2.初步掌握软件开发过程的问题分析、系统设计、程序编码、测试等基本方法和技能; 3.提高综合运用所学的理论知识和方法独立分析和解决问题的能力; 4.训练用系统的观点和软件开发一般规范进行软件开发,培养软件工作者所具备的科学工作方法和作风。 三、课程设计要求: 1.设计的题目要求达到一定的工作量(300行以上代码),并具有一定的深度 和 难度。 2. 编写出课程设计报告书,内容不少于10页(代码不算)。 四、需求分析: 用数组或链表数据结构完成一个学生成绩管理系统,此系统的具体功能要求如下: (1)学生信息录入功能 1)用户从键盘输入每个学生的信息:学号、姓名、性别、英语、数电、体育、毛概四门课成绩。 2)可插入一个或多个学生信息到当前编辑的班级数据中。 3)可删除一个或多个学生信息。 (2)文件保存功能 1)学生信息每一班存为一个数据文件,数据文件可在程序中打开、编辑和重新保存。 2)用户输入学生信息可随时保存数据文件。 (3)文件打开功能 1)程序只能对当前打开的数据文件进行编辑。 (4)查询功能 1)浏览所有学生信息; 2)按学号查询学生信息; 3)按姓名查询学生信息; 4) 查询任何一个学生总成绩和平均成绩;

(5)报表输出功能 1) 按学号输出一个班学生信息:学号、姓名、性别、英语、数电、体育、毛概和总成绩,到屏幕和文件。 2) 按总成绩输出从高到低输出学号、姓名信息。 注:以上功能以菜单形式供用户使用,并有一定的容错功能。 五.程序的功能设计 学生信息管理功能框图学生信息输入 学生信息显示 学生信息查询 学生信息删除 按排序顺序显示 按姓名查询 按序号查询 按姓名删除信息 按序号删除信息 插入学生信息插入新的学生信息 保存学生信息将学生信息保存在一个自定义文件夹中读取学生信息从自定义文件夹中读取学生信息

学生信息管理系统代码

主要代码如下: 1、登录界面代码: Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Private Sub mand1_Click() Set cn = New ADODB.Connection Set rst = New ADODB.Recordset Static i% cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=students info;Data Source=C1847" cn.Open usna = Trim(Text1.Text) mysql = "select * from 用户表 where 用户名='" & usna & "'" rst.Open mysql, cn If rst.EOF Then MsgBox "用户名不存在!" cn.Close Text1.Text = "" Text2.Text = ""

Text1.SetFocus Else If Trim(rst("密码")) = Trim(Text2.Text) Then 管理界面.Show Else i = i + 1 If i < 3 Then MsgBox "用户名或密码错误!", vbOKOnly + vbExclamation, "警告" cn.Close Text2.Text = "" Text1.Text = "" Text1.SetFocus Else MsgBox "该用户已被锁定!", vbOKOnly + vbExclamation, "警告" End If End If End If

相关主题
相关文档 最新文档