机房收费系统总结（二）

前言

       总结是一种习惯，不断地总结，会让我们不断的成长。

正文

1、代码中的“！”和“.”

    在VB中感叹号和圆点都是用于给对象命名的，但是二者也存在差异

    圆点操作符用来表示属性和方法，使用的时候有两种形式

    （1）控件.属性：后者是前者的属性

    （2）控件.控件：前者是后者的容器

    感叹号只有一种形式，控件!控件：前者是后者的容器

2、组合查询

    在机房中有有三个窗体用到了组合查询，三个有很多雷同的地方。

    当选择的字段名不一样的时候也会出现不同的操作符（列举一例）

    Private Sub cmdField_Click()
' 判断字段名是什么，操作符不定
Select Case cmdField.Text
Case "姓名", "卡号", "备注"
cmdOpSign.Clear
cmdOpSign.AddItem "="
cmdOpSign.AddItem "<>"
Case "上机日期", "下机日期", "上机时间", "下机时间", "余额", "消费金额"
cmdOpSign.Clear
cmdOpSign.AddItem "="
cmdOpSign.AddItem "<>"
cmdOpSign.AddItem "<"
cmdOpSign.AddItem ">"
End Select
End Sub   当字段名为日期的时候，可以将文本框转换为时间控件
   Private Sub cmdField1_Click()
'当为日期的时候，将text转换为日期型
If cmdField1.Text = "上机日期" Or cmdField1.Text = "下机日期" Then
DTPicker1.Format = dtpCustom
DTPicker1.CustomFormat = Format("yyyy-MM-dd")
DTPicker1.Visible = True
txtInquiryContent1.Visible = False
'txtInquiryContent1.Text = DTPicker1.Value
Else
If cmdField1.Text = "上机时间" Or cmdField1.Text = "下机时间" Then
DTPicker1.Format = dtpTime
DTPicker1.Visible = True
txtInquiryContent1.Visible = False
'txtInquiryContent1.Text = DTPicker1.Value
Else
DTPicker1.Visible = False
txtInquiryContent1.Visible = True
End If
End If
End Sub
     里面被注释的语句以下面的方式书写：

     Private Sub cmdInquiry_Click()
If cmdField1.Text = "上机日期" Or cmdField1.Text = "下机日期" Then
txtInquiryContent1.Text = DTPicker1.Value
Else
If cmdField1.Text = "上机时间" Or cmdField1.Text = "下机时间" Then

txtInquiryContent1.Text = DTPicker1.Value
End If
End If
End Sub
总结

       通过不断的学习，不断的优化，不断的吸取别人的优点，将自己的程序变的更完美，俗话说：如果你写的程序猪不能用，那么你就是猪。编写程序的时候要将自己想成用户，尽最大的努力将自己编写的程序让用户更好，更舒适的去使用。