【文件属性】:
文件名称:vb+sql学生成绩管理系统
文件大小:264KB
文件格式:RAR
更新时间:2017-01-13 09:54:58
VB
VB与sql设计代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'选择普通用户登录
If Me.RadioButton1.Checked Then
Dim str As String
str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd="
Dim con As New SqlClient.SqlConnection(str)
Try
con.Open()
Catch ex As Exception
End Try
Dim sql As String = "select * from 普通用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '"
Dim cmd As New SqlClient.SqlCommand(sql, con)
Dim reader As SqlClient.SqlDataReader
Try
reader = cmd.ExecuteReader
If reader.Read() = True Then
Dim 学生成绩管理系统As New 学生信息管理系统
学生成绩管理系统.添加DToolStripMenuItem.Enabled = False
学生成绩管理系统.修改KToolStripMenuItem.Enabled = False
学生成绩管理系统.删除DToolStripMenuItem.Enabled = False
学生成绩管理系统.添加ToolStripMenuItem.Enabled = False
学生成绩管理系统.高级用户信息管理ToolStripMenuItem.Enabled = False
学生成绩管理系统.Show()
Me.Hide()
Else
MsgBox("对不起,用户名或密码错误!重新输入(请正确选择用户类型)", 16, "警告")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
TextBox1.Focus()
End If
Catch ex As Exception
End Try
End If
'选择高级用户登录
If Me.RadioButton2.Checked Then
Dim str As String
str = "data source=PC-201103171305\SQLEXPRESS;database=学生信息库;user id=sa;pwd="
Dim con As New SqlClient.SqlConnection(str)
Try
con.Open()
Catch ex As Exception
End Try
Dim sql As String = "select * from 高级用户where 用户名='" & TextBox1.Text.ToString().Trim() & "' and 密码='" & TextBox2.Text.ToString().Trim() & " '"
Dim cmd As New SqlClient.SqlCommand(sql, con)
【文件预览】:
新建文件夹
----FrmMain.frm(2KB)
----FrmUserEdit.frm(3KB)
----FrmLessonMan.frm(5KB)
----FrmStuMan.frm(17KB)
----FrmStuSel.frx(30KB)
----FrmUserMan.frm(4KB)
----FrmExpMan.frm(7KB)
----FrmExpEdit.frm(3KB)
----FrmChangeMan.frm(6KB)
----FrmClassMan.frm(3KB)
----Student.vbp(2KB)
----FrmLessonEdit.frm(4KB)
----FrmStuEdit.frm(9KB)
----FrmExpMan.log(144B)
----FrmPhotoMenu.frm(2KB)
----FrmLogin.frm(2KB)
----FrmClassEdit.frm(5KB)
----CurUser.cls(373B)
----FrmClassEdit.frx(30KB)
----Student.vbw(973B)
----MSSCCPRJ.SCC(335B)
----FrmExpmain.log(144B)
----FrmStuSel.frm(4KB)
----GeneralFunc.bas(1KB)
----FrmScoresMan.frm(6KB)
----FrmEvaMan.frm(6KB)
----FrmChangeEdit.frm(5KB)
----Frmmain.frx(179KB)
----FrmScoresEdit.frm(3KB)
----FrmEvaEdit.frm(4KB)
网友评论
- 还可以,简小精悍
- 还不错,正是我需要的
- 还算全面,但是不是我需要的
- 一般一般代码详细
- 本来要下载一个vs的,下成vb了,不过可以借鉴一下
- vb代码挺详细的,但是缺少库文件,的自己手动修改
- 还行吧,不过有点小
- 基本还可以,代码详细