VB学生管理系统主要代码

第一篇：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 Private Sub Cmd1Import_Click()rst0.MoveFirst For i = 1 To rst0.RecordCount

rst1.AddNew

rst1.Fields(“应聘人编号”)= rst0.Fields(“应聘人编号”)

rst0.MoveNext

rst1.MoveNext Next i '

Cmd1Import.Enabled = False

' Cmd1OK.Enabled = True

' Cmd1Exit.Enabled = True

End Sub

Private Sub Cmd1OK_Click()rst1.Fields(“综合评分”)=(Val(rst1.Fields(“计算机能力”))+ rst1.Fields(“业务能力”))* 0.5 If rst1.Fields(“综合评分”)>= 6 Then

rst1.Fields(“初选状态”)= “通过”

Else

rst1.Fields(“初选状态”)= “未通过”

End If

rst1.Update

rst1.Sort = “应聘人编号” End Sub

Private Sub Cmd2Exit_Click()cn.close Unload Me End Sub

Private Sub Cmd2Import_Click()rst1.close rst1.open “select * from 初选表 where 初选状态='通过'”, cn rst1.MoveFirst For i = 1 To rst1.RecordCount

rst2.AddNew

rst2.Fields(“应聘人编号”)= rst1.Fields(“应聘人编号”)

rst2.Fields(“初选评分”)= rst1.Fields(“综合评分”)

rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub

Private Sub Cmd2OK_Click()rst2.Fields(“综合评分”)=(rst2.Fields(“初选评分”)+ rst2.Fields(“外表形象”)+ rst2.Fields(“领悟反应能力”))/ 3 If rst2.Fields(“综合评分”)>= 6 Then

rst2.Fields(“录用情况”)= “通过” Else

rst2.Fields(“录用情况”)= “未通过” End If rst2.Update rst2.Sort = “应聘人编号” rst2.MoveLast End Sub

Private Sub Cmd3Exit_Click()cn.close Unload Me End Sub

Private Sub Cmd3Import_Click()rst2.close rst2.open “selsct * from 面试表 where 录用情况= '通过'” rst2.MoveFirst For i = 1 To rst2.RecordCount

rst3.AddNew

rst3.Fields(“应聘人编号”)= rst2.Fields(“应聘人编号”)

rst3.Fields(“面试分”)= rst2.Fields(“综合评分”)

rst3.Fields(“开始录用时间”)= Date

rst2.MoveNext Next i Cmd3Import.Enabled = False End Sub

Private Sub Cmd3OK_Click()rst3.Fields(“综合考核分”)=(rst3.Fields(“面试分”)+ rst3.Fields(“笔试分”))/ 2 If rst3.Fields(“综合考核分”)>= 6 Then

rst3.Fields(“是否录用”)= “是”

Else

rst3.Fields(“是否录用”)= “否”

End If

rst3.Update

rst3.Sort = “应聘人编号”

rst3.MoveLast End Sub

Private Sub cxtg_Click()frmDataEnv.Show 1 End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load()cn.ConnectionString = “DSN=xsgl;name=sa;pass=sa” cn.open cn.CursorLocation = adUseClient rst0.LockType = adLockPessimistic rst1.LockType = adLockPessimistic rst2.LockType = adLockPessimistic rst3.LockType = adLockPessimistic

rst0.open “select * from 登记表”, cn Set DataGrid1.DataSource = rst0

rst1.open “select * from 初选表”, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount <> 0 Then Cmd1Import.Enabled = False End If

rst2.open “select * from 面试表”, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount <> 0 Then Cmd2Import.Enabled = False End If

rst3.open “select * from 录用表”, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount <> 0 Then Cmd3Import.Enabled = False End If End Sub 学生基本信息浏览窗口

图5.6学生基本信息浏览

主要代码如下：

string sql = string.Format(“select P_id from Tb_popedom order by P_id desc”);

if(GetConn.conn.State == ConnectionState.Closed)

{

GetConn.conn.Open();

}

SqlCommand c = new SqlCommand(sql, GetConn.conn);

SqlDataReader reader = c.ExecuteReader();

if(reader.Read())

{

string id = reader[“P_id”].ToString();

txt_id.Text =(int.Parse(id.Substring(1,(id.Length-1)))+ 1)+ “";

}

reader.Close();

GetConn.conn.Close();

////加载一级菜单

sql = ”select * from Tb_function where F_level='1'“;

if(GetConn.conn.State == ConnectionState.Closed)

{

GetConn.conn.Open();

}

sda = new SqlDataAdapter(sql, GetConn.conn);

sda.Fill(ds, ”fun");

……

}

第二篇：vb课程设计档案管理系统代码

一、登陆界面

运行本系统需要进行用户名和密码验证，没有用户名的可以在登陆界面注册，详细注册方法在下文有介绍。登陆界面效果图如图1-1：

图1-1 登陆界面设计的代码如下：

Private Sub Command1_Click()str1 = Text1.Text str2 = Text2.Text STRSQL = “SELECT * FROM 密码表 WHERE 用户名='” & str1 & “'” + “ AND 密码='” & str2 & “ '” Data1.RecordSource = STRSQL Data1.Refresh If Data1.Recordset.EOF Then

MsgBox “用户名或密码错！”, 16, 提示“ Else

Form8.Show

Form1.Hide End If End Sub

Private Sub Command2_Click()

End End Sub

Private Sub Command3_Click()

Form6.Show End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time End Sub

二、欢迎界面

当用户名和密码验证成功后即可进入欢迎界面如图2-1

图2-1 在欢迎界面的设计时用了一个时钟控件，让欢迎界面出现3秒后自动消失进入系统主界面，欢迎界面的代码设计如下：

Private Sub Timer1_Timer()

If Timer1.Enabled = True Then

Form8.Hide

Form2.Show

Timer1.Enabled = False

End If End Sub

三、系统主界面

系统主界面可以进行简单的信息浏览（如图3-1），在主界面设置了一些命令按扭，其中 “修改”、“删除”、“打印”可以在主界面直接进行，而“查询”和“添加”需要打开另一个窗体操作。代码设计如下：

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub Private Sub Command7_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst End Sub Private Sub Command8_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End Sub Private Sub Command9_Click()

Data1.Recordset.MoveLast End Sub Private Sub Form_Load()

Timer1.Enabled = True

Label11.Left = Me.Width End Sub Private Sub Command10_Click()DataReport1.Show End Sub Private Sub Command3_Click()

ans = MsgBox(”确认修改Ä?“, 32 + 1, 提示”)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox “确认删除?”, 32 + 1, “提示” End Sub

Private Sub Timer1_Timer()

Label11.Left = Label11.Left-200

If Label11.Left <=-Label11.Width Then

Form2.BackColor = vbRed

End If End Sub Private Sub Timer2_Timer()

Label12.Caption = Time End Sub

图3-1

四、查询

查询的效果图如图4-1

图4-1 代码设计如下：

Private Sub Command1_Click()

a = “select * from学生档案 where ”

n = 0 If Check1.Value = Checked Then

a = a + “ 姓名='” + DataCombo1 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check2.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 学号 ='” + DataCombo2 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check3.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 院系='” + DataCombo3 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If

If Check4.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 专业='” + DataCombo4 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check5.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 班级='” + DataCombo5+ “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If If Check6.Value = Checked Then

If n = 1 Then

a = a + “ and ”

End If

a = a + “ 入学时间='” + DataCombo6 + “'”

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1 End If End Sub

五、添加

添加效果图如图5-1

图5-1

代码设计如下：

Private Sub Command1_Click()

If Command1.Caption = “Ìí¼Ó” Then

Command1.Caption = “È·ÈÏ”

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Data1.Recordset.MoveLast

Data1.Refresh

Text1(0).SetFocus

End If

MsgBox “È·ÈÏÌí¼Ó?”, 32 + 1, “ÌáÊ¾” End Sub

Private Sub Command2_Click()For i = 0 To 13

Text1(i)= “" Next i

Text1(0).SetFocus End Sub

Private Sub Command3_Click()

Unload Form4 End Sub

六、修改、删除、打印

这部分的效果图如图6-

1、图6-2

图6-1

图6-2

代码设计如下：

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”确认删除?“, 32 + 1, ”提示“ End Sub

Private Sub Command3_Click()

ans = MsgBox(”确认修改?“, 32 + 1, ”提示“)

If ans = 1 Then

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.Edit

End If End Sub

Private Sub Command6_Click()

Data1.Recordset.MoveFirst End Sub

七、统计

必须添加一个MSFlexGrid控件与Data控件连接，用来保存统计的结果，统计的效果图如图7-1

图7-1

代码设计如下：

Private Sub Command2_Click(Index As Integer)

Data1.RecordSource = ”select 院系,count(*)as人数 from学生档案¸ group by 院系“

Data1.Refresh End Sub Private Sub Command3_Click()

Data1.RecordSource = ”select专业,count(*)as人数 from学生档案¸ group by 专业“

Data1.Refresh End Sub Private Sub Command4_Click()

Data1.RecordSource = ”select 入学时间,count(*)as人数 from学生档案¸ group by入学时间“

Data1.Refresh End Sub Private Sub Command5_Click()

Data1.RecordSource = ”select 籍贯,count(*)as人数 from学生档案¸ group by 籍贯“

Data1.Refresh End Sub Private Sub Command6_Click()

Data1.RecordSource = ”select 民族,count(*)as人数 from学生档案¸ group by 民族“

Data1.Refresh End Sub Private Sub Command7_Click()

Data1.RecordSource = ”select 政治面貌,count(*)as人数 from学生档案¸ group by 政治面貌“

Data1.Refresh End Sub Private Sub Command8_Click()

Unload Form9 End Sub

八、帐户管理

（一）帐号注册

由于本系统登陆需要用户名和密码验证，所以本系统设置了一个帐号注册的功能，其效果图如图8-

1、图8-2

图8-1

图8-2 帐号注册代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入密码！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你没有再次输入密码！“, 16, ”提示“

Exit Sub End If

If Text2.Text <> Text3.Text Then

MsgBox ”两次输入的密码不一致！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

If Command1.Caption = ”注册“ Then

Command1.Caption = ”确认“

mbookmark = Data1.Recordset.Bookmark

Data1.Recordset.AddNew

Text1.SetFocus

Else

Command1.Caption = ”注册“

Data1.Recordset.Update

Data1.Recordset.MoveLast

End If

Text3.Text = ”“

MsgBox ”恭喜你注册成功！“, 48, ”欢迎使用“ End If End Sub

（二）密码修改

密码修改的效果图如图8-

3、图8-4

图8-3

图8-4 密码修改代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入旧密码！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”旧密码错误！“, 16, ”提示“

Exit Sub End If If Text3.Text = ”“ Then

MsgBox ”你没有输入新密码！“, 16, ”提示“

Exit Sub End If If Text4.Text = ”“ Then

MsgBox ”你没有再次输入新密码！“, 16, ”提示“

Exit Sub End If If Text3.Text <> Text4.Text Then

MsgBox ”两次输入的密码不一致！“, 16, ”提示“

Exit Sub End If If Text3.Text = Text4.Text Then

prompt = ”确认修改?“

answer = MsgBox(prompt, 32 + 0, ”确认修改“)

If answer = vbYes Then

Data1.Recordset.Edit

Data1.Recordset.Fields(0)= Trim(Text1.Text)

Data1.Recordset.Fields(1)= Trim(Text3.Text)

Data1.Recordset.Update

Data1.Refresh

MsgBox ”密码修改成功！“, vbOKOnly, ”密码修改“

End If End If End Sub

（三）帐号注销

效果图如图8-5

图8-5 代码设计如下：

Private Sub Command1_Click()If Text1.Text = ”“ Then

MsgBox ”你没有输入用户名！“, 16, ”提示“

Exit Sub End If If Text2.Text = ”“ Then

MsgBox ”你没有输入旧密码！“, 16, ”提示“

Exit Sub End If If Text2.Text <> Text3.Text Then

MsgBox ”旧密码错误！“, 16, ”提示“

Exit Sub End If If Text2.Text = Text3.Text Then

On Error Resume Next

Data1.Recordset.Delete

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then Data1.Recordset.MoveLast

MsgBox ”确认注销该用户?“, 32 + 1, ”提示" End If End Sub

第三篇：vb课程设计职工工资管理系统代码

Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then

Load Form2

Form2.Show

Me.Hide

MsgBox “登陆成功，欢迎您进入职工工资管理系统”, vbInformation, “登陆成功”

Else

errorCount = errorCount + 1

If errorCount < 3 Then

MsgBox “用户名或密码错误(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陆失败”

Text1.SetFocus

End If

If errorCount >= 3 Then

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

MsgBox “三次输入用户名或密码错误,程序将自动退出！”, vbOKOnly + vbExclamation, “登陆失败”

End

End If End If

End Sub

Private Sub Command2_Click()Unload Me End Sub

Private Sub Form_Load()errorCount = 0 End Sub

Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then

Cancel = 1 End If End Sub

For i = 1 To jlNum

ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui

CSng(ygList(i).jingtie)

ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub

Private Sub Command5_Click()Dim linShi As YuanGong

linShi.ygnamg = InputBox(“请输入要添加的姓名”, “添加员工-姓名录入”)If Len(Trim(linShi.ygnamg))> 0 Then

linShi.jibengz = InputBox(“请输入添加员工的基本工资”, “添加员工-基本工资录入”)

If Len(Trim(linShi.jibengz))> 0 Then

linShi.jingtie = InputBox(“请输入添加员工的津贴”, “添加员工-津贴录入”)

If Len(Trim(linShi.jingtie))> 0 Then

linShi.gerensui = InputBox(“请输入添加员工的个人所得税”, “添加员工-个税录入”)

If Len(Trim(linShi.gerensui))> 0 Then

linShi.suidianfei = InputBox(“请输入添加员工的水电费”, “添加员工-水电费录入”)

If Len(Trim(linShi.suidianfei))> 0 Then

Open filedir For Append As #1

Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei

Close #1

MsgBox “添加员工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim Preserve ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Close #1

MsgBox “删除员工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Input #1, ygList(jlNum).gerensui

Input #1, ygList(jlNum).suidianfei

Loop

Close #1

loadData

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

Command6.Enabled = True End If

Text1.Text = “姓名” & vbTab & “工资” & vbTab & “津贴” & vbTab & “所得税” & vbTab & “水电费” & vbCrLf

For i = 1 To jlNum

Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf

Next Else

MsgBox “删除员工失败！”, vbOKOnly + vbExclamation, “失败” End If End Sub

Private Sub Command7_Click()

第四篇：vb学生成绩管理系统论文

摘要……………………………………………………………………………………….2 第一章引言...........................................................3 第二章系统设计的目的与要求...........................................3 1.1系统设计的目的....................................................3 1.2系统设计的实验环境................................................4 1.3系统设计的预备知识................................................3 1.4系统设计的要求....................................................4

第三章系统的概述.....................................................3 2.1系统的需求........................................................3 2.2可行性分析........................................................4 第四章前台界面分析...................................................4 3.1 登陆界面..........................................................4 3.2信息查询..........................................................6 第五章数据库的分析...................................................6 4.1 YONGHU表...........................................................7 4.2 STUDENT 表.........................................................7 4.3 SCORE表...........................................................7 4.4 COURSE表...........................................................8 第六章软件维护.......................................................8 5.1数据维护..........................................................9 5.2代码维护..........................................................9 结语及致谢............................................................9 参考文献..............................................................9

VB学生成绩管理系统

摘要:随着科学技术在管理上越来越深入而广泛的应用，管理信息系统的技术已逐步成熟。学生成绩管理系统是一个不断发展的新型学科，任何一个学校要生存要发展，要高效率地把内部活动有机地组织起来，因为管理这些庞大的体系是非常困难的，要想有机地组织起来，就必须建立与自身特点相适应的成绩管理系统。本文对Visual Basic6.0应用程序设计等工具进行了较深入的学习和应用，利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，主要完成了对学生成绩管理系统的系统分析部分，界面的设计、数据库的设计等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；

关键词：visual basic，学生成绩管理系统，数据库，查询

Abstract:Along with science technique is on the management more and more thorough but extensive application, manage information system of technique already gradually mature.Student result management the system is a new academics which develops continuously, the whichever school wants to exist to want a development, high-efficiencily internal activity organically the organization get up, because manage these huge systems are very difficult, think organically the organization get up, have to build up is mutually accommodative with oneself characteristics of result management system.This text to Visual Basic6.0 application program design etc.the tool carried on more thorough study and application, making use of what it provide various development tool which face to object, is the intelligence that data window way's this ability is convenient and simple and direct to manipulate a database to turn object particularly, mainly completed to manage the analysis part of the system of system to student's result, the design, database of interface of design etc.;The system design part mainly introduced design and database design of the system function and code design;Keywords: visual basic，Student result management the system，database, enquiries

第一章引言

在高科技不断发展的今天，计算机技术己经广泛应用到社会的各个领域。从六十年代中期爆发了著名的软件危机开始，计算机界就一直在探索软件开发理论和方法，以确保计算机技术能够高效地应用于各领域。随着计算机技术不断发展、完善，如何开发、应用高效率计算机软件、信息系统一直是开发人员在试图解决的难题。尽管开发人员已经提供了很多解决的方法，但是现在开发、应用管理信息系统软件的过程中，仍会碰到以下的情形。学生成绩管理系统软件应用的好坏直接影响到学校以及学校今后发展。只有确定出简单、安全、高效的开发设计方法并应用于学生成绩管理系统的开发设计中，才能使先进的计算机工具为个人发展提供高效的服务:才能开发出完整灵活的学生成绩管理系统，具有良好的可扩充性、适应性，系统安全性能高，具有友好的用户界面并且操作简便，因此，学生成绩管理系统开发设计方法的应用研究具有积极的现实意义。第二章系统设计的目的与要求 2.1 系统设计的目的

本课程设计是计算机科学与技术专业重要的实践性环节之一，是在学生学习完《程序设计语言(C)》课程后进行的一次全面的综合练习。本课程设计的目的和任务： 2.2 系统设计的实验环境

硬件要求能运行Windows 2000/XP操作系统的微机系统。C语言程序设计及相应的开发环境。

2.3 系统设计的预备知识

熟悉C语言及C语言开发工C语言与Access。

第二章系统的概述

本学生成绩管理系统可以说是一个综合性的学校学生成绩管理系统，这它集成了多种功能，因而具有较强的实用性和先进性。2.1系统的需求

通过调查,要求系统需要有以下功能: ⑴ 由于操作人员的计算机知识普遍较差,要求有良好的人机界面;⑵ 由于该系统的使用对象多,要求有较好的权限管理;⑶ 原始数据修改简单方便,支持多条件修改 ⑷ 方便的数据查询，支持多条件查询;⑸ 在相应的权限下，删除数据方便简单，数据稳定性好； ⑹ 数据计算自动完成，尽量减少人工干预;2.2可行性分析

由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows XP中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。第三章前台界面分析 3.1 登陆界面

主要代码

Option Explicit Dim m As Integer

Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private rsmc As ADODB.Recordset Public username As String Private Sub cmdOk_Click()Dim ee As String rs.MoveFirst If m < 3 Then If Trim(txtusername.Text)= “" Or pwd.Text = ”“ Then MsgBox ”用户名或密码不能为空！请重新输入！“, vbInformation, ”登录信息“ Exit Sub End If Do While Not rs.EOF If rs.Fields(0)= txtusername.Text And rs.Fields(1)= pwd.Text Then MsgBox ”欢迎你进入学生成绩管理系统,“ frmmain.Show Unload Me Exit Sub End If rs.MoveNext Loop m = m + 1 ee = MsgBox(”用户名或密码错误！请重新输入！“, vbCritical + vbRetryCancel, ”登录信息“)'重试/取消 txtusername.Text = ”“ If ee = vbNo Then Unload Me Else pwd.Text = ”“ txtusername.SetFocus

End If Else MsgBox ”对不起，您的输入次数已达到最大限度！请退出！“, vbExclamation, ”提示信息“ '提示信息，确定 End End If End Sub Private Sub Form_Load()Set conn = New ADODB.Connection

conn.Provider = ”Microsoft.Jet.OLEDB.4.0“ conn.ConnectionString = ”Data Source=“ & App.Path & ”aa.mdb“ conn.Open Set rs.ActiveConnection = conn With rs.Open(”select * from yonghu“).MoveFirst End With txtusername.Text = rs.Fields(0)Do While Not rs.EOF txtusername.AddItem(rs.Fields(0))rs.MoveNext Loop txtusername.Text = ”" End Sub 3.2信息查询

信息查询主要是对学生的基本信息和学生的成绩进行查询。在查询的过程你可以利用学号、课程号、专业名等进行查询。第四章数据库的分析

4.1 yonghu表

主要是登陆用户所用的表。

4.2 student 表

学生的各种信息都来源于这个表。4.3 score表

此表是记录学生成绩信息表。4.4 course表

此表是记录学生课程的表。第五章软件维护

在软件运行维护阶段对软件产品所进行的修改就是维护。系统维护就是为了保证系统中的各个要素随着环境的变化始终处于最新的，正确的工作状态。系统维护的目的是保证管理信息系统正常而可靠地运行，并能使系统不断地得到改善和提高，以充

分发挥作用。

本系统的维护是面向系统中各种构成要素的，根据维护对象的不同，系统维护的内容可分为以下几类： 5.1数据维护

本系统对数据的需求是不断发生变化的，系统中查询题目中数据要定期正常更新，或随环境及需要的变化而进行调整。此外，数据的备份与恢复，都是数据维护的工作内容。5.2代码维护

随着系统应用范围的扩大，应用环境的变化，系统中的各种代码都需要进行一定程度的增加、修改、删除，以及设置新的代码。结语及致谢

通过这次的设计，让我对VB的使用有了进一步的了解。在我做设计的过程遇到了许多的困难。通过老师和同学的帮助, 一一化解了困难，并从中学到了很多编程方面的知识。

在本次毕业设计中，我要向我的指导老师致以深深的谢意，感谢指导老师在这段时间里在学习上和生活上所给予的悉心的教诲和无微不至的帮助，在我感觉到自己知识有所贫乏的时候给了我细心的指导和技术上的支持。使我自身的能力得到了不少的提高，这对于我以后的工作和学习都有一种巨大的帮助。感谢指导老师的耐心辅导。

参考文献

[1] 宗大华，陈吉人.C语言程序设计教程.人民邮电出版社，2004-6-1 [2] 韩春成.C语言程序设计教程/21世纪高等院校规划教材.中国水利水电出版社,2007，1，14 [3] 宁正元.数据结构--用C语言描述.中国水利水电出版社，2005-4-27 [4] 李梅.C语言编程入门.化学工业出版社，2002,01,01 [5] 于华,都一兵.优化Visual Basic．NET应用程序的性能[J].计算机系统应用,2004,10 [6] 邵英海.Visual Basic数据库开发技术的探讨.[J].丹东纺专学报,2004,11,4 [7] 金凤霞.VB中Paint Picture图形方法的使用 CAJ原文下载[J]., 1999,04 [8] 谭浩强.《C程序设计题解与上机指导（第3版）》.清华大学出版社,2005,7 [9] 聂雪军,贺军/译.[美]Harvey M.Deitel, Paul J.Deitel /著.《C程序设计经典教程(第4版)》，清华大学出版社,2006,3 [10] 李春葆,张植民,肖忠付.《C语言程序设计题典》.清华大学出版社 ,2002,7 [11] 张小潘/译，[美]科汉/著.《C语言编程（第3版）》.电子工业出版社 ,2006,3

[12] 徐宝文李志/译，[美]Brian W.Kernighan, Dennis M.Ritchie /著.《C程序设计语言(第2版·新

版)》.机械工业出版社,2004,1 [13] 鲁沐浴.《C语言最新编程技巧200例》.电子工业出版社,1997，1

[14] 梁

翎，李爱齐.《C语言程序设计实用技巧与程序实例》.上海科普出版社,1996，5 [15] 陈国章.《Turbo C程序设计技巧与应用实例》.天津科学技术出版社,1995，5 [16] 王士元.《C高级实用程序设计》.清华大学出版社,1996，6

第五篇：学生成绩管理系统VB程序

登陆

Private Sub cmdLogin_Click()If txtUser.Text = “" Then

MsgBox(”请输入用户名!“)

txtUser.SetFocus Else Call openconn sql = ”select * from login where username='“ & Trim(txtUser.Text)& ”' and password='“ & Trim(txtPwd.Text)& ”'“ rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then

MsgBox ”用户不存在！“

Else

Unload Me

frmMain.Show End If End If End Sub

退出

Private Sub cmdRegister_Click()Unload Me End Sub

功能选择

选课管理

Private Sub cmdChoice_Click()frmChoice.Show Unload Me End Sub 退出

Private Sub cmdExit_Click()End End Sub 查询

Private Sub cmdFind_Click()frmFind.Show Unload Me End Sub 成绩管理

Private Sub cmdGrade_Click()frmGrade.Show Unload Me End Sub 学生管理

Private Sub cmdStu_Click()frmStu.Show Unload Me End Sub

学生管理

添加

Private Sub cmdAdd_Click()frmAddStu.Show Unload Me End Sub 删除

Private Sub cmdDel_Click()rs.Delete MsgBox(”删除成功！“)End Sub 编辑

Private Sub cmdEdit_Click()frmEditStu.Show Unload Me End Sub 查找

Private Sub cmdFind_Click()'查询功能 If cboFind.Text = ”学号“ Then

If txtInput.Text = ”“ Then

MsgBox(”学号输入不能为空!“)

txtInput.SetFocus

Else

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select * from stuInfo where ID='“ & txtInput.Text & ”'“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs1

DataGrid1.Refresh

End If

End If Else

If txtInput.Text = ”“ Then

MsgBox(”姓名输入不能为空!“)

txtInput.SetFocus

Else

Dim sql2 As String

Set rs2 = New ADODB.Recordset

sql2 = ”select * from stuInfo where name='“ & txtInput.Text & ”'“

rs2.CursorLocation = adUseClient

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs2

DataGrid1.Refresh

End If

End If End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 输出窗口

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

' txtInput.Text = DataGrid1.Columns.Item(4)''获取选中行的第5列数据

End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs 'datagrid绑定数据源 End Sub

成绩查询

返回 Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 确定

Private Sub Command1_Click()

lblGrade.Caption = Trim(cboCourse.Text)+ ”课程成绩“

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID,score.Num,score.score from score, course where name='“ & cboCourse.Text & ”' and score.Num=course.Num“

'sql1 = ”select * from course“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs1 End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from course“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF

cboCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

选课管理

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID = ”“ Then

MsgBox(”请输入学号！“)

txtID.SetFocus ElseIf lstCourse.Text = ”“ Then

MsgBox(”请选择课程！“)Else

Dim sql1 As String

Dim sql2, name As String

Set rs2 = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID, score.Num from score , course where ID='“ & txtID.Text & ”' and name='“ & lstCourse.Text & ”' and score.Num=course.Num“

name = lstCourse.Text

sql2 = ”select Num from course where name='“ & name & ” '“

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic

If rs1.EOF Then

rs1.AddNew

rs1(”ID“)= txtID.Text

rs1(”Num“)= rs2(”Num“)

rs1.Update

MsgBox(”选课成功！“)

rs1.Close

Else

MsgBox(”已选过该课！“)

End If End If End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

sql = ”select * from course“

Call openconn

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF 'listbox控件利用循环读取课程表中的课程名

lstCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

查询

确定

Private Sub cmdOK_Click()If txtID = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus Else

Dim sql As String

Dim sum1, sum2 As Single

Dim n As Integer

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select course.name , score.score , course.credit from score , course where score.ID='“ & txtID.Text & ”' and score.Num=course.Num“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs

sum1 = 0

sum2 = 0

n = 0

Do While Not rs.EOF

sum1 = sum1 + Val(rs(”score“))

sum2 = sum2 + Val(rs(”credit“))

n = n + 1

rs.MoveNext

Loop

lblAvg.Caption = Format(sum1 / n, ”0.0“)

lblCredit.Caption = sum2 End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub

修改学生信息

Private Sub cmdReturn_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”姓名不能为空！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”学分不能为空！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If Not rs.EOF Then

'判断学号是否存在 rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”修改成功！“)

Else

MsgBox(”学号不存在!“)

End If End If End Sub 窗体

Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“)cboPro.Text = rs(”pro“)End Sub

添加学生

Private Sub cmdReset_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”请输入姓名！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”请输入性别！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If rs.EOF Then

'判断学号是否存在 rs.AddNew

rs(”ID“)= txtID.Text

rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”添加成功！“)

frmStu.Show

Unload Me

Else

MsgBox(”学号已存在!")

End If End If End Sub

VB学生管理系统主要代码

第一篇：VB学生管理系统主要代码

第二篇：vb课程设计档案管理系统代码

第三篇：vb课程设计职工工资管理系统代码

第四篇：vb学生成绩管理系统论文

第五篇：学生成绩管理系统VB程序

相关范文推荐

VB学生成绩管理系统任务书

学生档案管理系统(vb)

VB学生信息管理系统

VB图书管理系统

VB学生成绩管理系统课程设计报告

VB课程设计--学生信息管理系统

VB学生信息管理系统A毕业论文

VB学生信息管理系统毕业论文