VB中利用DataBase巧妙设置DataReport中的动态SQL
近日分析一VB做的报表，由于对VB只是了解，谈不上熟练，不过对其水晶报表倒有点认识，之前也做过三两个小的报表 ，加之对PB中的报表了解非常熟悉，当时信心蛮大的。
先是看了DataReport，用于绘制报表格式。再来看DataEnvironment，用于定义获取的数据列。将DataReport与DataEnvironment绑定后就可获取数据了。
基于这个思路还算是简单，做个简单的不带参数条件的SQL通过了。不过打开报表的界面无法自定义，如加个查询的按钮，让查询的条件与报表显示在同一个界面中，(PB实现就太简单了)。想到一个与DataReport差不多同名的ActiveX-DataRepeat，(想通过ActiveX加载该DataReport，这样就可在自定义界面上显示这个Report)先看看再说，结论是两码事。DataReport用于设计报表，Datarepeat与DataGrid类似数据底层转换处理的。(只怪英文差，应该从字面上可以理解这个DataRepeat与Report是两码事，不过这种精神值得提倡，没有调查就没发言权。)
无参数的SQL是没问题，下面就是有参数的了。分析别人的程序是件可怕的事，特别是对VB不熟，加上别人使用的另类方法，更是一头雾水。这回我就遇上了。
代码中没有去处理DataEnvironment，虽然DataReport都与DataEnvironment绑定了，但属于静态式绑定。原作者使用的是DataBase，通过OpenDatabase一个MDB文件，再在QueryDefs子类中去动态设置SQL，这样就将相当于对参数传入了。开始时照猫画虎了，程序未报错，可检索后没有按查询条件来检索。DataEnvironment中我定义了的CmdText方式，将报表需要的列都给出来，Where 条件给不出来，因为条件是在界面中录入的。分析下原有的DataEnvironment，使用的是CmdTable方式，与内部的视图直接对应，可我这无法对应表，我的SQL是多表关联。
“遇到问题，你baidu了吗?”，这话非常流行。那就先找找相关资料，无赖原来这们仁兄使的招数太偏，无果。
继续分析，原来那位仁兄使用了DataBase来与Report打交道，那就查查QueryDefs，该技术好像失传了一般，只能在MSDN上看到English帮助，也没看到DataBase与DataReport相关的，只有段样例是可以用来设置一个Sql语句。
换个角度看问题，既然看不到真正意义的帮助，那就自已了解，还好VB中有这个调试查看器，Debug动态跟踪再看看DataBase对象，DataBase为一�
相关文档：
建一个模块
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2、Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKi ......
虽然在VB里实现XP风格很简单，但是要使用XP风格同时又让按钮显示图片，则实现起来要麻烦一些，为此，我写了一个控件来实现前述功能，同时让读者可以从中了解XP主题界面的绘制过程。
使用办法很简单，在VB里新建一个工程，然后添加一个控件模块，粘贴以下代码，再将控件放置到窗口即 ......
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更� ......
