机房收费系统总结——代码独立性

       在做机房收费系统的过程中做到组合查询这一块时虽然一看思路就有了，但是后来才发现自己的思路其实犯了一个很大的错误。在组合查询上显示的可选条件是三个，开始我总是将它们三个作为一个不可分割的整体，将它们三个条件搅和纠缠在一起，导致思路走偏，写了大量代码却没有很好的效果，直到碰的头破血流之后才去想别的办法，后来从网上查了关于组合查询的一些博客，才发现自己的思路跑偏了。过程核心如下：

     txtSQL = "select * from worklog_Info where " 
    If comboField1.Text = "" Or comboOperate1.Text = "" Or txtContent1.Text = "" Then
        MsgBox "请输入完整的信息!", vbOKOnly + vbExclamation, "警告"
    Else
        txtSQL = txtSQL & Change(comboField1.Text) & Trim(comboOperate1.Text) & "'" & Trim(txtContent1.Text) & "'"        
        If comboRelation1.Text <> "" Then
            If comboField2.Text = "" Or comboOperate2.Text = "" Or txtContent2.Text = "" Then
                MsgBox "请输入完整的信息!", vbOKOnly + vbExclamation, "警告"
                comboField2.SetFocus
                Exit Sub
            Else
                txtSQL = txtSQL & Change(comboRelation1.Text) & " " & Change(comboField2.Text) & Trim(comboOperate2.Text) & "'" & Trim(txtContent2.Text) & "'"
            End If
        End If
                    
        If comboRelation2.Text <> "" Then
            If comboField3.Text = "" Or comboOperate3.Text = "" Or txtContent3.Text = "" Then
                MsgBox "请输入完整的信息!", vbOKOnly + vbExclamation, "警告"
                comboField3.SetFocus
                Exit Sub
            Else
                txtSQL = txtSQL & Change(comboRelation2.Text) & " " & Change(comboField3.Text) & Trim(comboOperate3.Text) & "'" & Trim(txtContent3.Text) & "'"
            End If
        End If
        
    End If
    Set mrc = ExecuteSQL(txtSQL, MsgText)

       从代码中可以看出其实这三个条件是相互独立的三个，只不过是用与或条件将这三个条件组合来开而已，从中也想到老师讲过一个“代码的独立性”，代码独立了会减少很多麻烦，越独立越简单，如果一个过程的代码和另一个过程的代码有着这样或那样的牵扯，那么在一个过程改变时就会随即牵扯另一个过程的问题，这样的麻烦应该尽力去减小。

       虽然提到了这些，但是却发现自己在意识上还不够，在代码中这样的问题也还是很多的，目前学的东西还很少，希望自己多多积累吧，从中也想到一句话：“多学一点知识，少写一行代码”。