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

VB 利用Tag属性存储用户名

于 2022-02-04 发布 文件大小:3.22 kB
0 39
下载积分: 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 个回复

  • VB 6.0 按字段显示数据库所有值
    VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:   Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)   End Sub   Private Sub Form_Load()   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "   Adodc1.RecordSource = "select * from 作者"   Set DataCombo1.DataSource = Adodc1   DataCombo1.DataField = "城市"   Set DataCombo1.RowSource = Adodc1   DataCombo1.ListField = "姓名"   End Sub
    2022-09-25 11:45:03下载
    积分:1
  • vb禁用窗体最大化、最小化和关闭快捷菜单
    vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:   Private Sub Form_Load()    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化   End Sub
    2022-08-06 00:49:36下载
    积分:1
  • VisualBasic 6.0 获取网页超链接
    VisualBasic 6.0 获取网页超链接,VB根据网址打开指定页面,预览网页并获取该页面中所有的超链接,最后会统计出该网页内有多少个链接。   同时本源码还可区分网页中的文本和图片,将剔除图片,在文本中查找超链接个数,主要是针对href进行精准匹配统计出出现的次数,运行效果如下图所示。   具体源代码请下载本源码查看。
    2022-10-27 08:40:03下载
    积分:1
  • VB 6.0 打印与打印预览功能
    VB 6.0 打印与打印预览功能源码,这个打印预览可以调节预览的放大倍率,在不同的放大状态下预览打印内容,支持打印文字内容和图片的内容,自动调用Windows默认的打印机进行打印,如测试截图所示的效果。
    2023-05-22 11:35:03下载
    积分:1
  • 药品管理程序Vb 6.0 SqlServer
    一款基于VB开发的药品管理程序,数据库采用SqlServer,运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序,二次开发完善。
    2022-04-24 20:15:24下载
    积分:1
  • VB6.0 使用列表播放midi等媒体文件
    VB6.0 使用列表播放midi等媒体文件,代码中添加了注释,了解VB如何操作MIDI文件进行播放,核心是调用了msdxm.ocx文件,如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.
    2022-03-23 18:50:41下载
    积分:1
  • VB 6 在DataGrid表格中实现下拉列表框
    VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了用户体验。添加这一功能的核心代码为:   Adodc1.CommandType = adCmdTable   Adodc1.RecordSource = "tb_stock"   Set DataGrid1.DataSource = Adodc1   List1.AddItem ("支")   List1.AddItem ("瓶")   List1.AddItem ("盒")   List1.AddItem ("袋")   DataGrid1.Columns(6).Button = True   仅供参考,本示例是配合数据库实现的,请确保测试时数据库是连接的。
    2022-07-26 04:39:52下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB.NET自制的看图工具软件
    VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
    2022-12-25 17:15:03下载
    积分:1
  • VB6 制作简易谱曲键盘 键盘演奏音乐
    VB6 制作简易谱曲键盘,用键盘演奏音乐,可发出7个基本音符声音,生成 1 到 7 之间的随机数值,每个键值代表一个音符,如窗体所示,每个数字就代表一个声音,这期间要用到定时器。   在如图所示的运行效果中,单击数字后,单击演奏,可听到演奏效果。
    2022-08-04 05:21:26下载
    积分:1
  • 696518资源总数
  • 104353会员总数
  • 66今日下载