机房收费系统之优化一

不知不觉，机房收费已经到了优化的部分，随着不断的对系统的优化，同样也是不断的对自身能力增强的过程，

在这个过程中，我只是觉得自己在独立解决问题的能力方面，有了很好的效果，一点一点的在进步、在收获！

优化一： 遇到的问题在上机的过程中，此时还没有进行下机，下机时间均为NULL值。

              .TextMatrix(.Rows - 1, 6) = IIf(IsNull(mrc.Fields(12)), "", mrc.Fields(12))

              只是一个if语句。如果字段的数据isnull为真时，则输出为0，否则为mrc.fields(12)

 

 优化二：在组合查询窗体中，我想的是，如果选择的是卡号或者学号，则后面的文本框中只能输入数字。
              选择其他的则不受限制。

 '<span style="font-family: 微软雅黑; font-size: 14px; line-height: 21px;">这段代码的效果就是文本框的内容除了数字什么都输不进去。</span><pre name="code" class="vb">Private Sub TxtContent0_KeyPress(KeyAscii As Integer)
If (Cbofield(0).Text = "卡号" Or Cbofield(0).Text = "余额" Or Cbofield(0).Text = "学号") Then  '<span style="font-family: 微软雅黑; font-size: 14px; line-height: 21px;"> '   InStr(t,".")代表的意思就是t中含有小<span style="white-space:pre">																				</span>       '<span style="white-space:pre">	</span>数点。</span><span style="font-size: 14px; line-height: 21px; color: rgb(51, 51, 51); font-family: arial, 宋体, sans-serif;">Instr()函数返回字符或字符串<span style="white-space:pre">																					</span>'在另一个字符串中第一次出现的位置.</span>
 <span style="white-space:pre">	</span>KeyAscii = chkkey(TxtContent0, KeyAscii)
End If

End Sub
 
Private Sub TxtContent1_KeyPress(KeyAscii As Integer)
If (Cbofield(1).Text = "卡号" Or Cbofield(1).Text = "余额" Or Cbofield(1).Text = "学号") Then
    KeyAscii = chkkey(TxtContent1, KeyAscii)
End If

End Sub
 
Private Sub TxtContent2_KeyPress(KeyAscii As Integer)
If (Cbofield(2).Text = "卡号" Or Cbofield(2).Text = "余额" Or Cbofield(2).Text = "学号") Then
    KeyAscii = chkkey(TxtContent2.Text, KeyAscii)
End If

End Sub