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

前言：在经历了漫长的等待（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

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