机房收费系统之优化一
来源:互联网 发布:挪威的森林知乎 编辑:程序博客网 时间:2024/05/22 16:40
不知不觉,机房收费已经到了优化的部分,随着不断的对系统的优化,同样也是不断的对自身能力增强的过程,
在这个过程中,我只是觉得自己在独立解决问题的能力方面,有了很好的效果,一点一点的在进步、在收获!
优化一: 遇到的问题在上机的过程中,此时还没有进行下机,下机时间均为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 IfEnd 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 IfEnd 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 IfEnd Sub
0 0
- 机房收费系统之优化一
- 机房收费系统之优化
- 机房收费系统优化之字符限制
- 机房收费系统之优化篇
- 机房收费系统之十一(优化)
- 《第一次机房收费之优化一》
- 机房收费系统-优化
- 机房收费系统之总结(一)
- 机房收费系统(一)——优化总结
- 机房收费系统优化之MSHFlexGrid控件的使用
- 机房收费系统总结一
- 机房收费系统(一)
- 机房收费系统(一)
- 机房收费系统(一)
- 机房收费之细节优化
- 机房收费系统(一)之下机消费结算
- 机房收费系统之总结一(思想)
- 机房收费系统之登陆模块(一)
- java多线程零碎知识点
- UVa 10361 Automatic Poetry
- STL之map操作的几点疑惑
- git学习之旅(四)——回退版本
- 线段树之区间更新
- 机房收费系统之优化一
- 安装Win7操作系统注意事项
- Uber是怎么入侵打车软件市场的
- POJ 2513 Colored Sticks(欧拉回路+字典树+并查集)
- 排序专题之交换排序
- 华为机试题 最小长方形 java 转载
- 豆腐干是读是大概十多个
- HDU 1847 Good Luck in CET-4 Everybody!【博弈论】
- 大数据与企业的数据化运营