第一次机房收费系统总结

1.sub与function的区别：

   （1）sub:过程，不需要返回值；

              function:函数,可以带返回值

   （2）语法：

             Sub SubName(参数1, 参数2,...)

              ....

             End Sub

 

           Function FunctionName(参数1, 参数2,...)

           ...

          FunctionName = 返回值

          End Function

2.如何让鼠标在控件上暂停时提示输入类型，如下图的效果

     

   设置控件的属性，在ToolTipText中输入自己想要提示的文字

3.ASCII码限制输入符号
   事件为：KeyPress
   （1）限制特殊字符

            If KeyAscii = 8 Then Exit Sub

      If (KeyAscii >= 0 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 127) Then KeyAscii = 0

   （2）只允许输入数字  

       If KeyAscii = 8 Then Exit Sub   
       Select Case KeyAscii  
          Case 48 To 57     
          Case Else  
          KeyAscii = 0  
       End Select  

   （3）只允许输入文本 

      If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then  
      Else  
            MsgBox "请输入字母或汉字", vbOKOnly,"提示"  
            KeyAscii = 0  
      End If  

4.MSFlexGrid控件中内容显示不完整

     （1）一种是因为列宽不够，不能显示完全

                用属性ColWidth可随意更改任意列的宽度

                如：设置第三列列宽为3000：.ColWidth(3)= 2000

     （2）一种是明明还空着很大的地方却任然显示不完整

               这是因为空格的存在，用Trim去掉空格即可

                如：Trim(mrc.fields(0))

5.根据条件从数据库中调用信息

    （1）找到对应操作员的用户          

       txtSQL = "select * from User_Info where Level='" & "操作员" & "'"
       Set mrc4 = executeSQL(txtSQL, MsgText)
       For i = 1 To mrc4.RecordCount
            comboUserId.AddItem mrc4.Fields(0)
            mrc4.MoveNext
       Next i

    （2）根据给定信息调用对应信息

       txtSQL = "select * from User_Info where userID='" & comboUserId.Text & "'"
       Set mrc4 = executeSQL(txtSQL, MsgText)
       While (mrc4.EOF = False)
              txtUsername.Text = Trim(mrc4.Fields(3))       '从表User_Info中选择userID对应的名字显示
'             comboUserName.AddItem mrc4!username
              mrc4.MoveNext
       Wend
       mrc4.Close

6.设置下拉菜单不能输入 

   Private Sub comboUserName_KeyPress(KeyAscii As Integer)
        KeyAscii = 0
   End Sub