【机房收费系统】代码、连接数据库等问题

       现阶段遇到的问题：

       1.标签未定义

       解决：拼写错误，更改就好了

       2.实时错误91，对象变量或with块变量未设置

 

       解决：是因为数据库没连接上，在模块中添加代码：

<span style="font-size:24px;">Public Function ConnectString() As String '返回一个数据库连接,用于执行sql语句    ConnectString = "FileDSN=charge.dsn;UID=sa;PWD=123456"End Function</span>

       3.登入系统后不显示主窗体

       解决：在模块中添加sub main ,在工程一的属性中设置启动窗体为main

<span style="font-size:24px;">Sub Main()    Dim fLogin As New frmlogin    fLogin.Show vbModal '显示登录窗体实例    If Not fLogin.OK Then '判断是否授权用户        'login failed so exit app       End    End If    Unload fLogin    Set fMainForm = New frmMain '判断是，进入系统，创建主窗体实例    fMainForm.ShowEnd Sub</span>

       4.从主窗体菜单上点击菜单选项，子窗体在屏幕上不显示

       解决：通过调试，发现程序正常运行，窗体正常显示，只是子窗体被主窗体上的picturebox挡住了，利用setparent函数，可以使子窗体在picturebox上显示。

<span style="font-size:24px;">Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long</span>

<span style="font-size:24px;">Private Sub About_Click(Index As Integer)    SetParent frmAbout.hWnd, Picture1.hWnd    frmAbout.ShowEnd Sub</span>

       该函数SetParent是一个API函数，它的作用是为一个物体指定一个新的父窗体。父窗体严格来说应该是容器，也就是把一个物体转到另一个物体上去  

       Setparent 的用法相当简单   
       语法是：  
       Setparent  物体句柄,目标句柄 

VB声明Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long说明指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）返回值Long，前一个父窗口的句柄参数表参数类型及说明hWndChildLong，子窗口的句柄hWndNewParentLong，hWndChild的新父注解

可用这个函数在运行期将vb控件置入容器控件内部（比如将一个按钮设成图象或窗体控件的子窗口），或者将控件从一个容器控件移至另一个。控件移至另一个父后，它的位置将由新父的坐标系统决定。这样一来，有必要重新规定控件的位置，使其能在目标位置显示出来

       5.显示出来，子窗体显示为一小条

       解决：更改窗体的属性BorderStyle为3-Fixed Dialog就好了

       6.登入系统后，主窗体显示太小

       解决：更改窗体属性WindowState为2-Maximized就好了