机房重构--哈希表

　　看到哈希表相信大家都很熟悉了，但是如何的使用哈希表！只是学过理论知识的你用起来就有点吃力了吧！今天就在机房中解说哈希表。
　　在机房组合查询中我们需要用到中英文转换，这是哈希表就用到了。

　　组合查询中的模板UI层

'实例化组合查询的实体
  Protected GroupInquiryInfo As New Entity.LineStateEntity
  Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click               
        GroupInquiryInfo.ComboName1 = ChangeEnglish（ComboName1.Text） '调用哈希表
        GroupInquiryInfo.ComboName2 = ChangeEnglish（ComboName2.Text）
  End Sub

　　继承窗体UI层代码

 Private Sub frmSeekLineState_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '字段内容添加  用户字段
        Dim FieldName() As String    '定义存储对象
        FieldName = {"卡号", "上机时间", "下机时间", "消费时间", "消费金额"}
        ComboName1.Items.AddRange(FieldName)  '把FieldName中的信息显示在ComboName1中以供选择    
    End Sub

　　哈希表

'将汉字转换为相应的字段名
 Public Overrides Function ChangeEnglish(control As String) As String   '如果重写方法需要Overrides   可用重写时用
        Dim FieldName() As String     '定义存储对象
        Dim GetDBName() As String      '定义存储对象
        FieldName = {"卡号", "上机时间", "下机时间", "消费时间", "消费金额"}
        GetDBName = {"UserID", "Logindate", "Logoutdate", "ConsumeTime", "ConsumeCash"}
        Dim ht As Hashtable = New Hashtable()
        For i = 0 To FieldName.Count - 1       '给哈希表赋值 键值都是字符类型  不能是集合
            ht.Add(FieldName(i), GetDBName(i)) 'ht是哈希表
        Next i
        ChangeEnglish = ht.Item(control)
    End Function

　　这样就可以使用哈希表了。和我们以前使用的代码有相似的地方来个对比解释一下。

　　下面代码和上面的继承UI层下面的代码起到的作用是一样的。

Private Sub frmSeekLineState_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '字段内容添加  用户字段
        ComboName1.AddItem "卡号"
        ComboName1.AddItem "上机时间"
        ComboName1.AddItem "下机时间"
        ComboName1.AddItem "消费时间"
        ComboName1.AddItem  "消费金额" 
    End Sub

　　组合查询中的模板UI层

'实例化组合查询的实体
  Protected GroupInquiryInfo As New Entity.LineStateEntity
  Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click               
        GroupInquiryInfo.ComboName1 = FiledName（ComboName1.Text） '调用哈希表
        GroupInquiryInfo.ComboName2 = FiledName（ComboName2.Text）
  End Sub

　　和哈希表作用相同的代码

Public Function FiledName(StrFiledName As String) As String                    '将汉字转换为相应的字段名
      Select Case StrFiledName
        Case "卡号"
              FiledName = "cardno"
        Case "姓名"
              FiledName = "studentName"
        Case "上机日期"
              FiledName = "ondate"
        Case "上机时间"
              FiledName = "ontime"
        Case "下机日期"
              FiledName = "offdate"
        Case "下机时间"
              FiledName = "offtime"
        Case "消费金额"
              FiledName = "consume"
        Case "余额"
             FiledName = "cash"
        Case "状态"
             FiledName = "status"
        Case "与"
              FiledName = "and "
        Case "或"
              FiledName = "or "
      End Select
End Function

　　两种不同的实现方式，你是选用哈希表，还是用容易理解的第二种方式，各有优缺点。看不懂请留言，作者会积极更新。