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为一�
相关文档：
Private Sub Form_load()
'判断程序是否已经运行
If App.PrevInstance
Then
MsgBox "本程序已经运行！", vbInformation Or vbOKOnly, "提示信息"
Unload
Me
Exit Sub
&n ......
1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2、Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......
http://zhidao.baidu.com/question/33440250.html
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1 ......
