vb学生管理系统
2022-05-17 20:48:34 87KB vb
1
以VB为界面SQL Server为数据库的学生管理系统,登陆后可以进行删除,修改,添加,查询基本操作。
2021-12-06 13:59:47 657KB 学生管理系统
1
本系统主要包括学生信息查询、教务信息维护和学生选课三部分。其功能主要有: 1).有关学籍等信息的输入,包括输入学生基本信息、所在班级、所学课程和成绩等。 2).学生信息的查询,包括查询学生基本信息、所在班级、已学课程和成绩等。 3).学生信息的修改。 4).班级管理信息的输入,包括输入班级设置、年级信息等。 5).班级管理信息的查询。 6).班级管理信息的修改。 7).学生课程的设置和修改。 8).学生成绩信息的输入。 9).学生成绩信息的修改。 10).学生成绩信息的查询。
1
vb学生管理系统,基本信息,成绩查询,管理员管理
2021-06-03 08:59:24 127KB vb学生管理系统
1
vb学生管理系统vb学生管理系统
2021-02-21 09:09:30 1006B vb学生管理系统】
1
适合 visual basic 程序设计教程 第三版 高等教育出版社 课程设计 您下载下来之后,也许不能完全符合您的要求,内容您可以部分改动,我相信这是一套非常适合学习的程序设计
2020-01-03 11:33:37 782KB VB 课程设计
1
(vb)学生信息管理系统 学籍管理系统 带有sql server数据库
1
vb学生管理系统源代码 部分代码 Public UserName As String Public txtSQL As String 'use to store record SQLsentence Public dream As ADODB.Recordset 'use to store record object Public Msgtext As String '用来存放返回信息 Public OK As Boolean ' 'Public db As String Public Sub highlight() With Screen.ActiveForm If (TypeOf .ActiveControl Is TextBox) Then .ActiveControl.SelStart = 0 .ActiveControl.SelLength = Len(.ActiveControl) End If End With End Sub Sub Main() 'Dim Login As New Login 'Login.Show vbModal 'f Not Login.OK Then 'Login Failed so exit app ' End 'End If 'Unload studentmdi ' Set login = New login login.Show End Sub Public Function connectstring() As String connectstring = "Provider=Microsoft.jet.OLEDB.3.51;Data source=f:\schoolgroup\school.mdb" End Function Public Function ExecuteSQL(ByVal SQL As String, Msgstring As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open connectstring If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then cnn.ExecuteSQL Msgstring = sTokens(0) & "query successful" Else Set rst = New ADODB.Recordset rst.Open Trim(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst Msgstring = "查询到" & rst.RecordCount & " 条记录" End If executeSQL_exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: Msgstring = "查询错误:" & err.Description Resume executeSQL_exit End Function Public Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End If End Function
2019-12-21 22:21:40 210KB vb 学生 管理系统
1
基于VB的学生管理系统 毕业设计+论文基于VB的学生管理系统 毕业设计+论文基于VB的学生管理系统 毕业设计+论文基于VB的学生管理系统 毕业设计+论文
2019-12-21 20:14:25 9.17MB VB 学生管理系统 毕业设计 论文
1