機房收費系統已經做了很長一段時間了，雖然到目前為止，仍然沒有結束，但已經結節尾聲了。我感覺現在有必要回首總結一下整個機房收費系統。

    除了結賬做了一半，報表接觸一點之外，其他的都基本上差不多了。從做過的這些和正要做的來分析機房收費，我把他分成了幾個部分：查詢資料庫類（簡單查詢顯示，組合查詢）、向資料庫寫入資料類、匯出表格類、報表類、各個表格之間相互連線類（結賬）。

    以登陸窗體為例子，簡單總結一下VB查詢資料庫實現登陸系統。我的登陸窗體設計如下：

     設計登陸窗體後，設計登陸模組，程式碼如下：   

Public UserName As String

Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal             '顯示登入窗體例項
    'OK為fMainForm類的成員
    If Not fLogin.OK Then '條件選的好
        'Login Failed so exit app
        End
    End If
    Unload fLogin


    Set fMainForm = New frmMain     '顯示主窗體例項
    fMainForm.Show
End Sub

'以檔案DSN標記，訪問ODBC資料來源

Public Function ConnectString() As String
  ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=**;PassWord=******;Initial Catalog='資料庫';Data Source=使用者IP"

End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then            '非Select語句
      cnn.Execute SQL   '資料量不大時，可以在連線上，直接執行SQL語句
      MsgString = sTokens(0) & " query successful"
      '雖然MsgString不是返回值，但傳遞方式是ByRef，實參地址和這個地址相同
   Else                                                                 'Select語句
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      '得到臨時表，遊標指向第一條記錄
      'get RecordCount，
      Set ExecuteSQL = rst
      MsgString = "查詢到" & rst.RecordCount & _
         " 條記錄 "
   End If
   
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查詢錯誤: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function

Public Function Testtxt(txt As String) As Boolean'判定不為空
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function
 

     通過模組，連線到資料庫中，然後再設定登陸窗體的程式碼，在登陸窗體中，點選登陸，先判斷使用者名稱和密碼是否符合要求，然後進入資料庫使用者表中，查詢使用者是否存在，若使用者存在，查詢密碼是否正確，若都正確，則顯示主窗體，登陸窗體隱藏。

     我的程式碼如下，僅供參考（歡迎提錯）

Option Explicit
'-----------------------------------------------------------------------------------
'窗體：登陸窗體
'說明：使用者名稱和密碼不能為空，查詢使用者名稱，對應的密碼，準確無誤後進入主介面,引入機器名函式
'------------------------------------------------------------------------------------
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long'呼叫計算機名函式
'該類的公有成員
Public OK As Boolean
'記錄登陸次數
Dim Count As Integer

Private Sub cmdCancel_Click()
    OK = False
    Me.Hide
End Sub

Private Sub cmdOk_Click() '登陸
     Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    UserName = ""
    If Trim(txtUserName.Text = "") Then '查詢使用者名稱是否存在
        MsgBox "沒有這個使用者，請重新輸入使用者名稱！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
    Else
        txtSQL = "select * from user_Info where userID ='" & txtUserName.Text & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
        If mrc.EOF Then
            MsgBox "沒有這個使用者，請重新輸入使用者名稱！", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
            If Trim(mrc.Fields(1)) = Trim(UserID.Text) Then
                OK = True
                mrc.Close
                Me.Hide
                UserName = Trim(txtUserName.Text)
            Else
                MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"
                UserID.SetFocus
                UserID.Text = ""
            End If
        End If
    End If
    
    Count = miCount + 1'限制登陸次數
    If Count = 3 Then
        Me.Hide
    End If
    Exit Sub

        
End Sub

Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long
    
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    'API中字串做引數，需要提前確定大小
    
    If lSize > 0 Then
        txtUserName.Text = ""
    Else
        txtUserName.Text = vbNullString '空字串
    End If
    
    OK = False
    miCount = 0
End Sub
 

    VB查詢資料庫之登陸窗體到此就結束了，下一篇計劃是VB查詢資料庫之組合查詢。