下载 >  开发技术 >  VB > VB.NET VB
3分

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 ...展开详情收缩
2009-06-13 上传大小:67KB
立即下载 开通VIP
分享
收藏 举报

评论共有2条

hanwujier 2013-12-17 13:36:16
还不错,比较好用。
笑天0917 2013-07-24 17:20:28
代码有点乱,不过还是有点帮助!
 

热点文章

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

VB.NET VB

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: