VB.NET VB
可以用此做VB的实训 Public Class Form8 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f5 As New Form5 Module1.db() conn.Open() ds.Clear() cmd.CommandText = "select sno,password from stu" da.SelectCommand = cmd da.Fill(ds) Dim i As Integer For i = 0 To ds.Tables(0).Rows.Count - 1 If TextBox1.Text = ds.Tables(0).Rows(i).Item(0) Then If TextBox2.Text = ds.Tables(0).Rows(i).Item(1) Then If TextBox1.Text <> "jolan" Then Form5.维护ToolStripMenuItem.Dispose() End If If (TextBox1.Text = "jolan" And RadioButton1.Checked = True) Or (TextBox1.Text <> "jolan" And RadioButton2.Checked = True) Then Form5.Show() Me.Hide() Exit For End If End If End If Next If i = ds.Tables(0).Rows.Count Then MsgBox("登录失败!") End If conn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class
剩余10页未读,继续阅读
- 粉丝: 0
- 资源: 4
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- RTL8188FU-Linux-v5.7.4.2-36687.20200602.tar(20765).gz
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
- SPC统计方法基础知识.pptx
评论2