机房收费系统中常见问题总结（一）

          机房收费系统进行过一段时间了，其中发现了很多问题，现将遇到的问题和解决方案总结到这里，请大家赐教！

      问题 1.主窗体中添加 picture box 后，子窗体无法显示，但并没有相关错误的提示。

                 这是由于子窗被picture box所掩盖，但实际上子窗体已经成功加载并且显示。

      解决方法：

                （1）首先添加API函数，代码如下：

                   public declare functionsetParent Lib“user32” （Byval hWndChild As Long,Byval hWhdNewParent as Long） As long

                  如果该函数是在模块中声明则不改变，若在窗体中声明则需将Public改成 Private

                  （2）在子窗体加载的代码中调用该函数，即在每个子窗体的Form load中添加如下代码：

                    Call SetParent（Me.Hwnd,form name,picture1.Hwnd）

      问题2：如何使label中显示当前时间

     解决方法：添加timer控件，为该控件的timer事件添加代码：label1.caption=time

                            注意：timer控件的Interval和enabled属性要进行相应的修改哦！

       问题3：ExecuteSQL函数或者子函数未定义

       解决办法：在模块中声明该函数。

                              Public Function ExecuteSQL(ByVal strSQL As String, strMsg As String) As ADODB.Recordset

       问题4：工程运行后，子窗体中的文本框无法通过鼠标实现光标的定位，但可以实现键盘的控制。

       解决方法：先从部件中添加控件richtextbox，在用它将子窗体中的文本框替换掉，这样就可以顺利实现光标的定位。 

       问题5： 怎样实现单击弹出对话框的按钮实现窗体的关闭和保留。

       解决方法：运用VBYesno函数。代码如下：

                      

     dim msg as string
       msg=msgbox（"对话框的内容","vbYesno","对话框的题目"）
       if  msg=vbno then
            执行操作
       else
             （相关代码）             '这行可以是空行 空行表示不采取任何操作

       end if

      

         问题先写到这里，接下来的过程中肯定会遇到更多的问题，只有遇到了，解决了，其中的财富才是我们的！