机房收费总结--小小规范

   前言：总结之前遗留问题！

---

问题一：

  错误定位：

  解决办法：
    1. 在公共模块中添加代码在公共模块中添加代码:

1. Public Function Testtxt(txt As String) As Boolean  ' Testtxt(TxtCardNO.Text)  
2.   
3.          '判断输入内容是否为空  
4.     If Trim(txt) = "" Then   
5.         Testtxt = False  
6.     Else  
7.         Testtxt = True  
8.     End If  
9.       
10. End Function  

    2. 窗体代码：

1. '卡号不能为空  
2. If Not Testtxt(TxtCardNo.Text) Then  
3.       
4.     MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"  
5.     TxtCardNo.SetFocus  
6.     Exit Sub  
7.    
End If  

---

问题二：空值

    设置空值：

    取消空值：

=trim(mrc.fields(0) &“”）

---

问题三：快速清除文本框：

 Dim ctl As Control   '定义一个变量，把任何控件装载到里面

 '删除所有text文本框内容
For Each ctl In Controls
    If TypeOf ctl Is TextBox Then ctl.Text = ""
Next ctl

 '删除所有combobox文本框内容
 For Each ctl In Controls
     If TypeOf ctl Is ComboBox Then ctl.Text = ""
 Next ctl

---

问题四：窗体模式

模式窗体和非模式窗体

  模式的——使用户只能使用当前窗体，只有当前窗体关闭后其他窗体才可用；可以这样理解，如果你把某个窗体设为模式窗体，那么你要想对其它窗体进行任何操作之前，必须先关闭该窗体。模式窗体强迫用户输入数据，不能切换到其他界面，很多地方会用到，比如在浏览器里点文件——打开，还有打印对话框也是模式窗体。有模式窗口或称模态窗口，Msgbox、Inputbox产生的窗口也属于此类。

   非模式的——可以切换到其他窗体，vbModal=1，可选的。一个整数，它用以决定窗体是模式还是无模式 。如果 style 为 0，则窗体是无模式的；如果 style 为 1，则窗体是模式的。

   当 Show 在显示无模式窗体时，随后遇到的代码则要执行。当 Show 在显示模式窗体 (modal form) 时，则随后的代码直到该窗体被隐藏或卸载时才能执行。
  当 Show 在显示模式窗体时，除了模式窗体中的对象之外不能进行输入（键盘或鼠标单击）。对其它窗体进行输入前程序必须隐藏或卸载模式窗体（通常是处于响应用户某些操作状态）。MDIForm 不能是形式的。在模式窗体显示时，虽然应用程序中的其它窗体失效，但其它应用程序不会失效。

  
  

---

      期待后续。。。。