第一次机房收费系统—问题总结（一）

前言：在经历了漫长的等待（tuoyan），我终于与我的机房收费系统见面了，当然过程中少不了多多少少的小问题（dianjiaoshi），下面请欣赏我的问题总结！

（一）未找到方法或数据成员                                 

           

   fLogin是窗体，当然没有fLogin.OK的方法了，除非你自定义了此方法。

   做一个名称为FrmLogin的登陆窗体，设置用户名、密码等，窗体定义一个公共变量OK    As Boolean，当用户名、密码正确时，变量OK=True，否则OK=False

   在查看其他小伙伴博客的时候发现了问题所在，在定义 “OK”之后问题就解决了。

   *定义语句：“Public OK As Boolean” *

              

（二）、byref参数类型不符

*原因：mrc1与mrc2名称没有区分开

注意：1.返回数据时注意不要放错地方2.数据库中的只要与代码中的一致，否则查不到数据

（三）、需要对象（错误 424）：IfVal(mrcStudent.Fields(7))<Val(frmBasicData.txtLimitCash) Then

原因：引用属性和方法经常需要一个明确的对象限定符。

此错误有以下的原因和解决方法： 

1.当引用对象属性或方法时，没有提供正确的对象限定符。如果没有提供的话，指定一个对象限定符。例如，从窗体的模块中引用窗体属性时，虽然可以省略对象的限定符，但是当从标准模块中引用一个属性时，则必须指定限定符。

2.提供一个对象限定符，但不能识别出对象。检查对象限定符的拼写，并确保在所引用的程序中此对象是可见的。在Collection 对象中，请检查每个 Add 方法的使用，以确保语法应正确，以及所有部件的拼写应正确。

3.提供了正确的对象限定符，但调用的其他部分有错误。将非法路径当作主机应用程序中“文件打开”命令的参数会引起错误。请检查参数。 

4.在指定对象的引用时，没有使用Set 语句。 如果指定CreateObject 调用的返回值为 Variant 变量，那么如果省略 Set 语句的话，此错误就可能会发生。在以下的代码示例中，创建一 个Microsoft Excel 隐含实例，且返回 Variant RetVal 的缺省属性 ("Microsoft Excel"字符串）并赋给 Variant RetVal，然后将 RetVal 当作对象引用时，发生了此错误： 
DimRetVal                                '为一个 Variant。'缺省属性赋值为类型 8，即 Variant RetVal。RetVal =CreateObject("Excel.Application")RetVal.Visible= True                ' 错误在此发生。当给引用的对象赋值时，请使用Set 语句。

5.试图对正常对象执行无效动作时，就会发生此错误。例如，如对只读属性赋值时，就有可能接收到此错误。请检查对象的文档以确保执行的动作都正确。 更正后的代码：IfmrcStudent.Fields(7) = "0" Then

小结：不断地在问题中摸索答案，总结后颗粒归仓，学习变得轻松愉快！