机房收费系统——总结（二）

        在过几天就过年了，但是那又有什么妨害呢？经过机房以来的学习，自己确实感觉到自己对VB有了更多的了解，潜移默化中成长了许多，让成长看的见一起来看一下我学到的小知识和遇到的问题吧！可能都比较基础，那就来复习一下吧。

1. private 私有；sub 事件或无返回值的函数

private sub：声明一个事件或无返回值的函数，因为是私有的，所以只能在本模块内部可以访问。

2. GetSetting函数是从windows注册表中的应用程序项目返回注册表项的设定值。

语法：GetSetting( sppname, section,key [ ,default ]  )

appname：必选参数。字符串表达式，包含应用程序或工程的名称，要求这些应用程序或工程有注册表项设置。

section：必选参数。包含区域名称，要求该区域有注册表项设置。

key：必须参数。字符串表达式，返回注册表项设置的名称。

default：可选。 表达式，如果注册表项设置中没有设置值，则返回缺省值。如果省略default取值为长度为零的字符串（“”）。

注：如果getsetting的参数中的任何一项都不存在，则getting返回default值。

下面是学生信息管理系统中用的GetSetting函数。

Private Sub MDIForm_Load()      '从注册表中取得上次关闭MDIForm时的大小
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)  
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then                  ‘不是最小化状态
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

在加载多文档界面时，选定多文档界面的大小和位置是从保存的第一次打开的位置。将注册表中第一次打开多文档界面窗体的位置显示出来。

而在卸载窗体时，将保存此次开始打开多文档界面的位置。    上边这两段代码的作用就是：程序退出时保存在屏幕上的显示位置记主窗体的大小，再次打开程序时主窗体就显示在上次关闭时的位置处，而且大小也和上次关闭时的大小相同。

3. Left  设置窗体内部最左端与空的容器最左边之间的距离 ；  Top  设置窗体内部最上端与它的容器最上端之间的距离  ；

Height  设置窗体的高度   ；Width   设置窗体的宽度 

4. 存盘：

（1）在运行到判断金额大小时：

'判断金额是否没有在设定的范围内  

  txtSQL = "select*from BasicData_info where limitCash='" & Trim(txtCash.Text) & "'"
  Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.Fields(5) > Trim(txtCash.Text) Then
        MsgBox "金额不能低于设置的最低金额！", 0 + 48, "警告"
        txtCash.Text = ""
        txtCash.SetFocus
    End If

修改：txtSQL = "select*from BasicData_info "

（2）继续运行：

原因：mrc.Fields(13) = Date ， 前后没有对应好。

 

（3）继续运行：

解决办法参见：https://blog.csdn.net/happyniceyq/article/details/47344111

5. vbCrLf：

vbCrLf是Visual Basic(VB,一种编程语言)中的一个字符串常数，即“Chr(13) & Chr(10)”（回车符与换行符连接在一起），是换行的意思。

例如：Text1.Text = "第一行" & vbCrLf & "第二行"

注意：要在TextBox控件中换行，需先将MultiLine属性设置为True。