系统开发-万能模板

系统开发----万能模板

一、数据库连接：

2、
正确：objRs.Find "卡号='1001'"
错误：objRs.Find "卡号=' 1001 '"      注意：1001前/后空格的存在
 
在数据库中Find查找时，''一对单引号之内的内容要和表中的信息完全匹配，才会被找到的
3、
EOF指：最后一条记录的下一条记录
objRs.EOF
 如果查找到重复记录，返回True 指针定位在重复记录的地方
 找不到重复记录         ，返回False指针定位在EOF（最后一条记录的下一条记录）的位置 
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If MsgBox("您选择了关闭机房收费系统，是否继续？", vbOKOnly + vbInformation, "机房收费系统") = vbYes Then    '判断在所有子窗体关闭之后，才关闭系统主窗体        If Not Me.ActiveForm Is Nothing Then            MsgBox "请先关闭打开的子窗体！", vbCritical, "机房收费系统"            Cancel = 1                End If    Else        Cancel = 1    End If    End Sub