求一小型超市信息管理系统

WANGYANHELEN

求一小型超市信息管理系统

WANGYANHELEN

Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
    With CodeContextObject
      rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
       [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"
       DoCmd.ApplyFilter "uuu", rrr
         If (.RecordsetClone.RecordCount > 0) Then
           DoCmd.Close
           DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub


为什么老是出错

WANGYANHELEN

怎样将用户信息与注册系统登录系统联系起来
Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
    With CodeContextObject
      rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
       [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"
       DoCmd.ApplyFilter "uuu", rrr
         If (.RecordsetClone.RecordCount > 0) Then
           DoCmd.Close
           DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub


为什么老是出错

WANGYANHELEN

怎样将用户信息与注册系统登录系统联系起来
Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
    With CodeContextObject
      rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
       [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"
       DoCmd.ApplyFilter "uuu", rrr
         If (.RecordsetClone.RecordCount > 0) Then
           DoCmd.Close
           DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub


为什么老是出错
UID146606 帖子8 精华0 积分20 威望0 点 金钱29 ￥ 阅读权限10 在线时间0 小时 注册时间2008-11-28 最后登录2008-11-28 查看详细资料
编辑 引用 使用道具 报告 回复 TOP

WANGYANHELEN

怎样！

WANGYANHELEN

在小型超市管理系统中，怎样实现销售时修改库存

Henry D. Sy

兄弟，你是这样恶意灌水的吗

tz-chf

销售时减产品表的库存字段,一台收银可行,多台收银不行,应该是后台回收销售数据.