![](https://img-blog.csdnimg.cn/20200906155542717.jpg?x-oss-process=image/resize,m_fixed,h_224,w_224)
VB
VB
Coder_JJ
没伞的孩子要努力奔跑!
展开
-
VB【E咖吧收费系统】实时错误
前言 在做机房的时候遇到了不少困难,但最后都迎刃而解,这都还得益于在做学生信息管理系统时自己做了充分的准备,不过机房与学生也有很多不一样的地方,而且自己通过做机房也对学生又加深了不少印象,下面就来看一下吧~分享(一)实时错误‘3021’ 出现这个错误的原因,是因为一开始我打算只来判断用户名是否正确,其中包含了用户名为空的情况,然后校验密码。以上报错证明,我的想法是错的,如...原创 2018-09-09 21:28:35 · 482 阅读 · 7 评论 -
VB【E咖吧收费系统】结账
前言 说起结账大家肯定都不陌生,因为我们在做生意的时候一定要算算自己挣没挣到钱,要是不挣钱这个生意还做的话迟早就得倒闭。就拿我们的机房收费系统来说吧,结账就是一个很好的功能,而且是每天结账,一方面可以知道今天挣了多少钱,另一方面可以与昨天相比看自己赚钱还是赔钱,同理周结。 还没做结账之前,师哥问我结账是给谁结的?怎么结的?我当时也是特别懵逼,不知道嘟囔些什么,后来看了很多巨人的博客才明白,...原创 2018-09-02 16:06:19 · 358 阅读 · 3 评论 -
VB【E咖吧收费系统】报表(日结、周结账单)
前言 做机房的三大难点之一——“报表”即将“问世”,不知你准备好了吗?说实话,一开始我刚看到原系统日结、周结账单的时候真不知道它是个啥东西,自己天真的以为Text文本框里边加的内容,经站在巨人的肩膀上之后我终于懂得了其中的道理,原来它是一个软件和VB进行了交互。虽说网上步骤千万遍,但是自己总结一下也是很不错的呢!步骤1、安装Grid++Report报表设计器; 2、插入页眉、页脚...原创 2018-09-02 12:20:53 · 876 阅读 · 12 评论 -
VB【E咖吧收费系统】登录
前言 在经过和纪老师、师傅、师哥等人的交流后,我的登录窗体终于成功“问世”,而且我在探索的过程中,也发现了不少东西,事实证明,纪老师说的是正确的,若要了解详情,请看上上上上上篇博客,下面我就来分享登录的操作。代码分享Private Sub cmdOK_Click()UserName = "" If Trim(txtUserName.Text = "") Then ...原创 2018-09-01 21:16:34 · 266 阅读 · 5 评论 -
VB【E咖吧收费系统】修改密码
前言 在做机房收费系统的修改密码时,我在网上发现了“新大陆”,于是就改变以往的传统风格,进行了一场别开生面的“盛宴”。因为在做学生信息管理系统时,我的登录用户一直传不到修改密码的界面,所以就采取了新的方案,站在巨人的肩膀上,不知这样的界面你喜欢吗? 温馨提示:“您的登录名”为变色字体 部分代码分享Private Sub cmdOK_Click() Dim txtSQ...原创 2018-09-01 21:04:35 · 343 阅读 · 4 评论 -
VB【E咖吧收费系统】下机
前言 不知上篇的上机大家懂了没?反正小编又要发干货,欢迎大家“抢购”,下机其实和上机大同小异,唯一的区别就是你得计算消费者消费了多长时间,花了多少钱,最后还剩多少钱。这和我们平时去网吧的套路差不多,只不过现在你变成了程序的缔造者,加油啊! 代码分享Private Sub cmdOffline_Click() txtSQL = "select * from student_...原创 2018-09-01 20:42:39 · 383 阅读 · 5 评论 -
VB【E咖吧收费系统】宏观把控
前言 最近这几天一直沉迷在机房收费系统中,让我感触最深的就是有关学习这件事儿,一定要做笔记,一定要做笔记,一定要做笔记!为什么这么说呢?因为机房收费系统和学生信息管理系统大同小异,有很多共同点可以优化的地方。所以,这就论笔记的重要性,我也特别庆幸自己之间把他们都分类保存,现在用的时候也特别方便,真的节省了不少时间,而且自己之前不太懂得地方,看的次数多也就恍然大悟。不知正在看这篇博客的你有没有和...原创 2018-08-23 16:24:45 · 305 阅读 · 5 评论 -
【VB】实时错误“91”
实时错误“91”困扰了自己十天之久,但是在经过不断地纠正代码和浏览博客,“91”问题基本解决,下面是我总结的一点知识,供大家参考~一、“空格”问题1、“=”与“’”之间有空格,如果你是照着PDF敲的代码,要注意这也是经常被忽视的错误2、在一句完全的查询语句中,比如 txtSQL = "select * from class_Info where class_No= '" &am...原创 2018-05-13 18:50:27 · 2751 阅读 · 5 评论 -
【VB】编译错误
1、编译错误:用户定义类型未定义原因:未引用控件或代码错误以下三种解决方法:1)工程——引用——选中"Microsoft ActiveX Data Objects 2.6 Library"——点击“确定”拓展:ActiveX DataObjects,简称ADO,访问数据库的一个接口,就是用来跟数据库交互的。2)检查定义的代码是否有问题,要保证上下文的定义代码一致3)"Ct...原创 2018-05-01 09:38:55 · 5339 阅读 · 7 评论 -
VB6.0菜单编辑器怎么用?
前言最近几天过得浑浑噩噩,不完成点任务感觉自己是在虚度时光,然后我就开始了“VB之旅”——菜单编辑器。详情★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。 ☀ 对话框选项 ♡ “标题” 使用该选项可以输入菜单名或命令名。 如果想要在菜单中建立分隔符条,则在“标题框”中键入一个连字符“...原创 2018-07-30 17:37:57 · 7966 阅读 · 3 评论 -
If 语句 VS Select Case 语句
在“研磨”百例的过程中,突然发现"If 语句" 和 "Select Case 语句"有异曲同工之妙,于是果断把实例2“蹂躏”一番。实例:要求用Select Case 语句实现成绩等级优、良、中、差、不及格,90分以上是优、80-90是良、70-79是中、60-69是差、60分以下是不及格。Select Case 语句Option ExplicitDim xPrivat...原创 2018-01-24 21:16:17 · 1697 阅读 · 3 评论 -
实时错误‘453’
关于实时错误’453’找不到DLL入口点提示找不到DLL入口点有以下几种可能:1、在声明系统调用中的语句的词出错(比如把函数名拼写错误,这时候需要你重新检查一下你调用的函数名是否正确),如果你不是很清楚该函数的名称,可以用Dependency Waker分析工具打开相应的DLL动态链接库,用它可以查到正确的函数名称,也可以检查某些函数是否被破坏等;PS:Dependency Waker是一款Mic...原创 2018-02-11 09:43:07 · 2727 阅读 · 3 评论 -
VB中添加滚轮
1、下载"vb6mousewheel.exe"软件包到桌面,解压并找到"VB6IDEMouseWheelAddin.dll";2、将该文件放到如下路径下:(1)Windows的32位操作系统:C:\Windows\System (2)Windows的64位操作系统:C:\Windows\SysWOW643、以管理员身份运行"命令提示符";4、输入"regsvr32 C:...原创 2018-02-24 10:27:00 · 1152 阅读 · 2 评论 -
如何在VB控件上添加超链接
想给自己的小作品添加亮点,当然少不了超链接。那么,如何在VB控件上添加超链接呢?答案,请往下找~第一步:建立一个Label,输入自己想链接的文字第二步:代码(1)在通用中输入Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal ...原创 2018-03-30 21:05:59 · 2311 阅读 · 2 评论 -
作品展前奏
前期还是掌握了一丢丢的小知识,虽然自己的作品没有如约而至,但知足常乐VB播放视频文件CTRL+T 添加WindowsMediaPlayer控件Dim X As Integer PrivateSub Form_Load() WindowsMediaPlayer1.URL = "D:\full.mp4"Timer1.Enabled = True Timer1.Interval ...原创 2018-03-30 21:07:58 · 253 阅读 · 4 评论 -
教你如何快速成为高手——VB快捷键
快捷键 功能 F2 显示对象浏览器 Alt+V+X 显示工具箱 F5 运行 Alt+P+N 引用 F7 切换到代码窗口 Alt+Q 退出 F8 断点运行 Ctrl+T 部件 Ctrl+Tab 切换窗口 Ctrl+Z 撤消上一步操作 ctrl+home 首行 Ctrl+J 常用的函数 ctrl+end 末尾 Ctrl+Tab 切换窗口 Ctrl+Dele...原创 2018-05-01 11:19:39 · 1420 阅读 · 4 评论 -
【VB】-在‘xxx.frm’中发现冲突名称,将使用名称‘xxx’
着急忙慌的把学生的代码敲完,不出意外的还是出现了个别大小写的问题,在后续的优化过程中也给自己造成了很大的麻烦,还是老话说得好“慢工出细活”,以后要控制节奏,不要太快。下面说一下我遇见的窗体名称的问题:如下图解决方法:1、将出现错误的frm文件用记事本打开方式打开;2、检查「Begin VB.Form」和「Attribute VB_Name」后的值是否相同,如果不相同,则将两值改为与文件名相同的名称...原创 2018-05-18 15:50:29 · 706 阅读 · 6 评论