登录
首页 » VB源码 » VB 利用Tag属性存储用户名

VB 利用Tag属性存储用户名

于 2022-02-04 发布 文件大小:3.22 kB
0 68
下载积分: 2 下载次数: 1

代码说明:

VB 利用Tag属性存储用户名   If Text1.Text = "" Or Text2.Text = "" Then    MsgBox "用户名或密码不能为空", vbCritical, "信息提示"    Exit Sub   Else    If Text1.Text = "TSoft" And Text2.Text = "111" Then    Me.Tag = Text1.Text    Frm_Main.Show 1    Unload Me    Else    MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"    End If   End If

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Vb6.0 仿制资管理器界面折叠菜单
    Vb6.0 仿制资源管理器界面折叠菜单,这个菜单的形式估计大家都见到过,像Windows窗口右侧的资源管理器窗口那样,鼠标单击的时候会折叠起来,再次点击会展开所属子菜单项,相信这个菜单的功能不用多介绍了,代码方面实现还是挺麻烦的,有兴趣的下载源码参见代码。
    2023-01-05 08:10:03下载
    积分:1
  • VB在数据库端禁止录入重复数据
    VB在数据库端禁止录入重复数据,对插入的数据进行判断,在写入数据库时进行判断是否已经存在于数据库中,判断是基于数据库的,数据库采用的是Access,在数据库端进行重复数据判断:   rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _    ", Cnn, adOpenKeyset, adLockOptimistic   If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then    MsgBox "此记录已存在!", , "提示窗口"   Else    Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _    ,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")    Adodc1.Refresh    tlbState Toolbar1, False    Text1(0).Locked = True: Text1(1).Locked = True   End If
    2022-08-14 15:01:13下载
    积分:1
  • VB 使用ODBC DSN连接SQL Server数据库
    VB 6 使用ODBC DSN连接SQL Server数据库,要想运行本实例,首先需要附加SQL数据库,然后配置ODBC,ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中,当用户单击按钮后,开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据,并绑定到MSHFlexGrid控件中显示,运行效果请见截图。主代码:   Dim cn As New ADODB.Connection   Dim rs As New ADODB.Recordset   cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=   rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic   Set MSHFlexGrid1.DataSource = rs   MSHFlexGrid1.ColWidth(0) = 100
    2022-01-25 22:59:47下载
    积分:1
  • VB 数据库连接通用类
    VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
    2023-04-15 17:45:04下载
    积分:1
  • VB6.0 添加、修改、删除数据库指定表
    VB6.0 添加、修改、删除数据库指定表,添加、修改、删除作者表,VB6.0 添加、修改、删除数据库指定表。
    2022-08-15 01:24:59下载
    积分:1
  • VB制作的软件助手动画 使用Microsoft Agent控件完成
    VB使用Microsoft Agent控件制作的软件助手动画,软件助手这个相信大家都熟悉吧,最早的Office里面,就有一个大眼睛小助手,不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手,为制作同类程序的VB开发者提供参考。   注:我测试失败了,我的系统是Widows7,当时这个程序是面向Windows XP的。
    2023-01-24 11:35:03下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB演示三种FileSystemObject文件操作方法
    FSO对象模型提供了三种创建和打开文件的方法:其实本示例是创建了FileSystemObject对象,然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法,对文件进行操作,演示了三种FSO对象的操作方法,对学习初级的FSO文件操作有相当好的帮助作用。
    2022-02-07 21:26:36下载
    积分:1
  • VB整判断字符串中某一字符是否大写
    VB编写完整源码判断字符串中某一字符是否大写,执行下面的代码,这个例子简单哦,不多介绍了,直接看代码吧:   If Asc(Mid(Text1, Val(Text2), 1)) >= 65 And Asc(Mid(Text1, Val(Text2), 1)) = 97 And Asc(Mid(Text1, Val(Text2), 1))
    2022-06-27 09:12:36下载
    积分:1
  • vb.net 故意引发错误演示全局异常捕获处理
    本程序主要是演示vb.net全局错误异常消息的捕获处理,程序运行后故意引发错误,并弹出消息处理框,类似于在VB.NET调试器中显示的错误消息,指出错误原因、错误位置和具体代码,方便程序员对错误及时纠正处理,程序运行效果如图所示。
    2022-09-01 05:15:03下载
    积分:1
  • 696518资源总数
  • 105570会员总数
  • 13今日下载