机房收费系统之优化一

最新推荐文章于 2019-07-30 15:13:18 发布

李维涛

最新推荐文章于 2019-07-30 15:13:18 发布

阅读量570

点赞数

CC 4.0 BY-SA版权

分类专栏：机房收费系统文章标签： InStr函数 IIF 学生查看上机记录优化

本文链接：https://blog.youkuaiyun.com/lwt976647637/article/details/47376969

机房收费系统专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了如何优化机房管理系统，包括处理数据缺失问题及实现根据用户选择限制文本框输入的功能。通过使用IF语句和Instr()函数，实现了对特定字段的智能处理和输入限制，提升了系统的实用性和用户体验。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

优化一：遇到的问题在上机的过程中，此时还没有进行下机，下机时间均为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