vb语言---学生管理系统资源-CSDN文库

共32个文件

frm：14个

frx：7个

jpg：4个

需积分: 9 148 浏览量 2009-06-20 12:39:24 上传评论收藏 1.9MB RAR 举报

【VB语言---学生管理系统】 VB（Visual Basic）是微软公司推出的一种基于事件驱动的编程语言，它是Visual Studio家族的一部分，以其简单易学、开发效率高而受到初学者和专业开发者的喜爱。在这个“学生管理系统”中，VB被用来构建一个用户界面友好、功能完善的系统，用于管理学生的基本信息。系统的主要功能包括登录、添加学生信息、删除学生信息以及查询学生信息。这些功能的实现基于VB的控件和事件处理机制。例如，登录功能可能涉及到文本框（TextBox）控件用于输入用户名和密码，按钮（Button）控件触发登录事件；添加学生信息可能需要用到组合框（ComboBox）或列表框（ListBox）来选择类别，文本框输入具体信息，再次通过按钮提交数据；删除和查询信息则可能需要利用到数据绑定控件，如DataGridView，配合搜索条件进行操作。在数据库方面，本系统使用了ACEESS数据库。ACCESS是一款小型关系型数据库管理系统，适合于个人或小团队使用。它支持SQL语言，可以创建表、查询、报表等数据库对象，并提供数据存储和管理的功能。在这个系统中，ACCESS数据库可能包含了学生表，表结构可能包含学号、姓名、性别、年龄等字段，与VB程序通过ADO（ActiveX Data Objects）进行交互，实现数据的读取、写入和更新。开发过程中，VB提供了丰富的控件库和设计工具，使得开发者可以通过直观的拖放方式构建界面，同时，VB的代码编写环境支持IntelliSense，能自动提示代码，有助于提高开发效率。此外，VB还支持面向对象编程，可以创建自定义类，封装数据和方法，提升代码的复用性和可维护性。对于这个“学生管理系统”，其设计和实现不仅涵盖了VB的基础语法和控件使用，还包括了数据库连接和操作，以及简单的用户交互逻辑。这样的项目对于学习和掌握VB编程和数据库管理具有很高的实践价值。通过分析和理解系统的源代码，学习者可以深入理解VB如何处理用户输入，如何与数据库进行数据交换，以及如何设计和组织程序结构。同时，也可以了解到如何将业务需求转化为实际的程序功能，提升软件开发的综合能力。

资源详情

资源评论

资源推荐

收起资源包目录

06计算机四班—学生管理系统.rar （32个子文件）

06计算机四班—陈乃弟-20064505

Form1.log 319B

初始窗体.frx 73KB

新生入~1.FRM 19KB

初始窗体.frm 6KB

Form10.frm 5KB

Form9.frm 44KB

Form1.frm 7KB

Form5.frx 88KB

Form2.frm 6KB

W020061023325162934742.jpg 88KB

Form6.frm 19KB

Form7.frm 16KB

Form1.frx 343KB

Form3.frx 234KB

Module1.bas 74B

Form8.frm 12KB

Project1.vbw 708B

0_496523_3bd1c10037cb3f1.jpg 343KB

Form8.frx 343KB

新生入~1.frx 109KB

Form4.frm 14KB

Form5.frm 8KB

编辑窗体.frm 8KB

baodao.frm 8KB

新生入学资料.mdb 110KB

Form2.frx 343KB

新生入~1.log 71B

活动字体代码.txt 3KB

Form3.frm 11KB

503891184.jpg 71KB

Project1.vbp 1KB

u=2129895713,3057924010&gp=2.jpg 2KB

Private Sub chengjiliulan_Click() liulan.Show Unload Me End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 7 Label1(i).Visible = False Label1(i).ForeColor = vbBlue Next i Timer1.Enabled = True Timer1.Interval = 500 End Sub Private Sub mnu_exit_Click() Unload Me Form1.Show End Sub Private Sub mnu_in_inendandchang_Click() Unload Me chengjiexid.Show Data1.DatabaseName = "F:\VB\student.mdb" Data1.RecordSource = "期末成绩表" Data1.Refresh End Sub Private Sub mnu_in_infor_Click() chengjiexid.Show Unload Me End Sub Private Sub mnu_in_updateandchang_Click() chengjiexid.Show Unload Me End Sub Private Sub Timer1_Timer() Static index As Integer Dim i As Integer If index <> 8 Then Label1(index).ForeColor = QBColor(Int(16 * Rnd)) Label1(index).Visible = True index = index + 1 Else For i = 0 To 7 Label1(i).Visible = False Next i index = 0 End If End Sub On Error GoTo noupdate If Trim(Text1(0)) = "" Then MsgBox "姓名不能为空！！！", , "警告！" Text1(0).SetFocus Else If Option1(0).Value = True Then Data1.Recordset.Fields("性别") = "男" Else Data1.Recordset.Fields("性别") = "女" End If Data1.Recordset.Update End If noupdate: MsgBox "" Exit Sub 新生窗体代码 Private Sub Form_Activate() If 新生资料窗体.Text1(1).Text = "林立" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(8).Visible = True 新生资料窗体.Check1(1).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "黄旭" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(9).Visible = True 新生资料窗体.Check1(0).Visible = False 新生资料窗体.Check1(2).Visible = True 新生资料窗体.Check1(2).Value = 1 End If If 新生资料窗体.Text1(1).Text = "王东" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(10).Visible = True 新生资料窗体.Check1(3).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "刘枫" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(11).Visible = True 新生资料窗体.Check1(4).Visible = True 新生资料窗体.Check1(0).Visible = False End If If 新生资料窗体.Text1(1).Text = "朱波" Then 新生资料窗体.Text1(6).Visible = False 新生资料窗体.Text1(12).Visible = True 新生资料窗体.Check1(5).Visible = True 新生资料窗体.Check1(0).Visible = False End If End Sub