vb+sql学生成绩管理系统
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() & "
文件下载
资源详情
[{"title":"（ 30 个子文件 264KB ） vb+sql学生成绩管理系统","children":[{"title":"新建文件夹","children":[{"title":"FrmMain.frm <span style='color:#111;'> 2.26KB </span>","children":null,"spread":false},{"title":"FrmUserEdit.frm <span style='color:#111;'> 2.62KB </span>","children":null,"spread":false},{"title":"FrmLessonMan.frm <span style='color:#111;'> 5.14KB </span>","children":null,"spread":false},{"title":"FrmStuMan.frm <span style='color:#111;'> 17.39KB </span>","children":null,"spread":false},{"title":"FrmStuSel.frx <span style='color:#111;'> 30.37KB </span>","children":null,"spread":false},{"title":"FrmUserMan.frm <span style='color:#111;'> 3.75KB </span>","children":null,"spread":false},{"title":"FrmExpMan.frm <span style='color:#111;'> 6.90KB </span>","children":null,"spread":false},{"title":"FrmExpEdit.frm <span style='color:#111;'> 3.19KB </span>","children":null,"spread":false},{"title":"FrmChangeMan.frm <span style='color:#111;'> 6.33KB </span>","children":null,"spread":false},{"title":"FrmClassMan.frm <span style='color:#111;'> 2.77KB </span>","children":null,"spread":false},{"title":"Student.vbp <span style='color:#111;'> 2.00KB </span>","children":null,"spread":false},{"title":"FrmLessonEdit.frm <span style='color:#111;'> 3.78KB </span>","children":null,"spread":false},{"title":"FrmStuEdit.frm <span style='color:#111;'> 8.99KB </span>","children":null,"spread":false},{"title":"FrmExpMan.log <span style='color:#111;'> 144B </span>","children":null,"spread":false},{"title":"FrmPhotoMenu.frm <span style='color:#111;'> 2.44KB </span>","children":null,"spread":false},{"title":"FrmLogin.frm <span style='color:#111;'> 2.09KB </span>","children":null,"spread":false},{"title":"FrmClassEdit.frm <span style='color:#111;'> 4.58KB </span>","children":null,"spread":false},{"title":"CurUser.cls <span style='color:#111;'> 373B </span>","children":null,"spread":false},{"title":"FrmClassEdit.frx <span style='color:#111;'> 30.37KB </span>","children":null,"spread":false},{"title":"Student.vbw <span style='color:#111;'> 973B </span>","children":null,"spread":false},{"title":"MSSCCPRJ.SCC <span style='color:#111;'> 335B </span>","children":null,"spread":false},{"title":"FrmExpmain.log <span style='color:#111;'> 144B </span>","children":null,"spread":false},{"title":"FrmStuSel.frm <span style='color:#111;'> 3.94KB </span>","children":null,"spread":false},{"title":"GeneralFunc.bas <span style='color:#111;'> 1.22KB </span>","children":null,"spread":false},{"title":"FrmScoresMan.frm <span style='color:#111;'> 6.03KB </span>","children":null,"spread":false},{"title":"FrmEvaMan.frm <span style='color:#111;'> 6.31KB </span>","children":null,"spread":false},{"title":"FrmChangeEdit.frm <span style='color:#111;'> 4.60KB </span>","children":null,"spread":false},{"title":"Frmmain.frx <span style='color:#111;'> 178.69KB </span>","children":null,"spread":false},{"title":"FrmScoresEdit.frm <span style='color:#111;'> 2.80KB </span>","children":null,"spread":false},{"title":"FrmEvaEdit.frm <span style='color:#111;'> 3.61KB </span>","children":null,"spread":false}],"spread":false}],"spread":true}]
评论信息
-
-
-
qq_29424119 :还可以，简小精悍2015-11-17 -
-
wuguangsen :还不错，正是我需要的2015-06-30
-
-
swwds :还算全面，但是不是我需要的2014-12-25
-
-
q5902195 :一般一般代码详细2014-12-24
-
-
u011410312 :本来要下载一个vs的，下成vb了，不过可以借鉴一下2014-06-19
-
其他资源
- VC++就业培训宝典之MFC视频教程及pdf
- cloudcompare
- Linear Systems and Signals B. P. Lathi (2nd)
- 微信小程序登录流程图
- 渗透工具包收集(暗月+法克)
- python读取Excel中的数据，然后写进word
- mercury1.4破解版
- 基于树莓派监控小车源码
- 计算海洋声学课件
- 机器人学导论课后习题ＭＡＴＬＡＢ 6A
- vue-calendar.rar-Vue -ElementUI 日历控件-考勤日历表
- 博克免狗V18.6+超排.zip
- voc制作XML数据集的工具
- opencv3.4.1人脸识别小程序
- 商品详情页与购物车实现
- java和js实现aes加密解密-附件资源
- Arduino设计实践-4火焰传感器.doc
- PostgreSQL高可用方案比较说明书.pdf
- raize 6.2.3 for delphi xe 10.2 （亲测最新update1可用）
- EDA课程设计16*16VHDL汉字滚屏显示
- 英语培训介绍 模板网站源码
- 基于多线程的电梯运行系统模拟
- 模拟示波器（vc），是Vc界面的源代码
- 大型网盘系统 开源代码
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明