文档.txt

用VB编写的家庭理财程序

      ' 核对用户名

    MyRs0.FindFirst "Trim(Mc) = '" & StrUse & "'"
    If MyRs0.NoMatch Then
       intLgn = intLgn - 1                                     ' 无
       If intLgn = 0 Then
          BlnKlf = False                                       ' 用户名不符
       Else
          MsgBox "  请再输入一次用户名 ... ", 48, "  登录错误 " & IIf(intLgn = 1, "!!", "!")
          Text1.Text = ""
          Text1.SetFocus
       End If
    Else
       BlnKlf = True
       intLgn = 3
    End If


    引用：   Windows Me  VB + Access

      定义 Connection  需引用  Microsoft ActiveX Object 2.5 Library

      定义 Database    需引用  Microsoft DAO 3.51 Object Library



 FormD2  Grid1 排序 移动