存档

文章标签 ‘VB’

Access使用VBA实现表或查询每相邻两行字段相减

2017年2月6日 没有评论

为了实现如下的功能:表或查询每相邻两行字段相减。例如下面的这张表或查询,结果是成绩列的每两行相减。

姓名 学号 成绩
小王 001 240
大王 002 260
小王 001 280
大王 002 290
大王 002 260

思路如下:
1、先把表另存一份表1,加一个自增长的ID。
2、表1再另存一份表2。
3、表1和表2用“表1的ID=表2ID-1”来连接,就是相邻两行连接起来。
4、将上面的连接表成绩字段相减,再另存一份。
5、删除表1和表2.
[……]

继续阅读…

分类: 软件编程 标签:

使用VBA实现Vlookup实例

2016年5月31日 3 条评论

最近使用EXCEL处理数据,总是会用到2张表数据的查找匹配的功能,EXCEL提供了强大的Vlookup函数能很好的实现我需要的功能。但是函数在用起来有点麻烦,尤其是在2张表之间切换时很容易会点错参数,而且敲击代码对非程序员很不友好,于是就想找一个VBA窗体实现Vlookup的模板。可是在网上找了好久都没能找到,只能自己动手做一个出来了。

这个VBA实例很简单,也就是把Vlookup进行了改写[……]

继续阅读…

分类: 软件编程 标签:

防止文件被改写的简单实现方式

2014年10月13日 没有评论

最近在写的一个小程序中有个配置文件,这个文件对整个程序来说是至关重要的,如果它被删除或者改写的话,整个程序无法运行,或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。

对于“删除”来说是很容易解决的,程序中查找配置文件的路径,若为空则创建,并给些默认值。VB的示例代码如下:

FileName = App.Path + "CONFIG"
'如果文件不存在,则创建文件[......]<p class="read-more"><a href="http://www.jingfengshuo.com/archives/969.html">继续阅读...</a></p>
分类: 软件编程 标签:

屏幕锁PcLocker更新

2014年10月11日 没有评论

最近把以前写的一个小程序PClock做了一次更新,以前的程序是程序运行后系统界面锁定,需输入密码方能解锁。这次更新后的效果是,程序运行以后在后台监视空闲的时间(键盘和鼠标无动作),当空闲的时间等于设定时间时Windows系统界面锁定。

就是这么一个小功能的更新,花了我3天的时间,主要原因是走了不少的弯路。在差不多要放弃的时候让我找到了解决的方法

程序的界面和功能没有太大的改变,以下是[……]

继续阅读…

分类: 软件编程 标签:

VB禁用Ctrl-Alt-Delete/任务管理器的方法

2014年10月11日 没有评论

在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单,因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器,直接把任务管理器给禁用了,Ctrl-Alt-Delete的功能也就没有了,相当于也给禁用了。这个方法的简单的实现是用二进制 stream 形式先打开 C:\windows\system32\taskmgr.exe任务管理器程序,使后续无法手工正常打开任务管理器[……]

继续阅读…

分类: 软件编程 标签:

VB键盘鼠标无动作调用程序的尝试

2014年10月10日 没有评论

我想要实现的功能是,当键盘无输入、鼠标无移动或点击动作时调用程序。首先想到的是用钩子HOOK来获取键盘或者鼠标的动作,如果无动作时调用程序。我尝试的结果是HOOK来HOOK去总是有问题。

后来想到Windows的屏幕保护程序就是当键盘鼠标无动作时进入屏幕保护的,于是改变思路,想把程序做成这样的形式,键盘鼠标无动作,系统进入屏幕保护,然后检测系统是否运行屏幕保护程序,如果运行的话则调用程序。这[……]

继续阅读…

分类: 软件编程 标签:

ACCESS使用VBA实现列值累加并取得累加阀值的记录

2014年8月6日 没有评论

题目很拗口,主要是想要表达的东西比较曲折,还是以实例来说明比较直观,假设在Access中有以下的表table1。table1是一张成绩表,我想要的结果是:所有人的成绩按着总分(Score)从大到小排列,然后在排列好的表中从上到下累加English/Score列(第1行+第2行+……+第N行的值),当累加值>0.7时,取出第1行到第N行的记录。[……]

继续阅读…

分类: 软件编程 标签: ,

VB使用ADO操作Access数据库简单实例

2012年12月12日 没有评论

这里只是个简单不能再简单的VB小程序实例,但它包含这几个关键字:VB6.0、ADO、Access

环境:visual basic 6.0 企业版(非精简版,不然会缺少必须的控件)

数据库:Access数据库,数据库是xs.mbd,内建表为xj

结果:vb使用ADO连接access数据库,查询xj表中的所有数据,然后把查询到的结果循环输出到窗口中。

代码:

Private Sub Form_Click()
Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO连接对象和记录集
Dim strSQL As String 'SQL字符串
db.ConnectionString = "provider=Micros[......]<p class="read-more"><a href="http://www.jingfengshuo.com/archives/680.html">继续阅读...</a></p>
分类: 软件编程 标签: , ,

质数,合数,分解质因数等相关概念

2010年6月15日 没有评论

好多VB教材中会用质数,合数等作例子来讲解知识,现在来总结一下它们的主要概念。

质数:也叫做素数,除了1和它本身,不能被其它数整除的正整数。也就是说,只能分解成1和它本身相乘。比如:2、3、5、7、9……

合数:除了1和它本身,可以被其它数整除的正整数。比如:4、6、8、10……

1既不是质数也不是合数。 每个合数都可以分解成几个质数相乘的形式。

质因数(质因子):能整除给[……]

继续阅读…

分类: 杂文随笔 标签:

电脑屏幕锁PClock

2010年6月11日 2 条评论

有些时候接个电话或者有急事处理需要离开电脑,此时不想关闭电脑或者没有时间去操作,再或者想出门让电脑自己运行下载资料,同时不想别人动自己的电脑,这时候我们需要一个可以让电脑运行,但不能被外人操作的简单软件。于是,我花了两天的时间写了一个小小的程序软件来实现这个功能,名为电脑屏幕锁PClock(后更名为PcLocker),通过点击桌面上或左下角的快捷方式运行程序。

软件主要功能:

  1. 在您离[……]

    继续阅读…

分类: 软件编程 标签: