机房收费系统之总结篇

   机房收费系统已经结束了。不过，不足之处还是很多的。下面总结了一下机房收费系统几次验收以来，各种困惑以及解决方法，与大家共享。

   一、各窗体显示问题

   在机房的最开始，可能我们大多都在MDI窗体上建立了一个Picture，然后存放控件。但是，随之而来，子窗体在最小化之后，再显示，获得不了焦点了。。后来。。一个上下机的窗体解救了我。。（参考韩林的博客）

   二、组合查询控件可用问题

   在敲组合查询的时候，各种组合关系花了很长时间才弄清。但是组合查询的控件在是否可用时，出现了混乱问题。。比如，第一行控件填写完整，没有选择组合关系，但是第二、三行控件填写了内容，，然后，乱了。。

   根据师父的建议，对于组合查询的控件设置了不可用。其代码如下：

<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong><span style="font-family:KaiTi_GB2312;font-size:24px;"><strong>Private Sub Form_Load()
     ComboField2.Enabled = False
     ComboField3.Enabled = False
     ComboOperator2.Enabled = False
     ComboOperator3.Enabled = False
     txtTest2.Enabled = False
     txtTest3.Enabled = False
     ComboRelation2.Enabled = False
End sub
Private Sub ComboRelation1_Click()
  If ComboRelation1.Text <> "" Then
     ComboRelation2.Enabled=Ture
     ComboField2.Enabled = True
     ComboOperator2.Enabled = True
     txtTest2.Enabled = True
  End If
 If ComboRelation1.Text = "" Then
     ComboField2.Enabled = False
     ComboOperator2.Enabled = False
     txtTest2.Enabled = False
 End If
End Sub

Private Sub ComboRelation2_Click()
  If ComboRelation2.Text <> "" Then
     ComboField3.Enabled = True
     ComboOperator3.Enabled = True
     txtTest3.Enabled = True
  End If
 If ComboRelation2.Text = "" Then
     ComboField3.Enabled = False
     ComboOperator3.Enabled = False
     txtTest3.Enabled = False
 End If
End Sub
</strong></span></strong></span>

          三、报表问题。

  在接触报表之前，根本不知所云。幸亏有了前人们的众多经验，我们才有了站在巨人肩膀上的机会。做报表的时候，参考了十期杨琛师哥的博客。

   四、上下机问题

   上下机里面最难得莫过于结算金额了。其余一切逻辑问题都不是问题。

   五、异地发布问题。

  第一次验收机房收费系统时，异地发布没有成功。在501测试通过，在511就Over了。后来搜集了两个版本的，后来都一一实现了。

   版本一：

<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong>Public Function ConnectString() As String

   ConnectString = "Provider=SQLOLEDB;server=192.168.24.153;Initial CataLog=charge_sys;UID=sa; PWD=123456"
End Function</strong></span>

    版本二：

<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong>Public Function ConnectString() As String

   ConnectString = "provider=sqloledb;server=192.168.24.153;UID=sa;PWD=123456;database=charge_sys"
  
End Function
</strong></span>

当然，对于计算机的一些操作也是少不了的。请参考十期牛迁迁师哥的博客。

机房收费系统算是结束了。。。怀念实现功能的欣喜，调试代码的冲动，，期待我们下一次的机房吧！