Office中国论坛/Access中国论坛

标题: 求一小型超市信息管理系统 [打印本页]

作者: WANGYANHELEN 时间: 2008-11-28 21:56
标题: 求一小型超市信息管理系统
求一小型超市信息管理系统

作者: WANGYANHELEN 时间: 2008-11-28 21:57
标题: 怎样将系统用户信息与注册界面联系起来
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 时间: 2008-11-28 21:59
标题: 怎样将用户信息与注册系统登录系统联系起来
怎样将用户信息与注册系统登录系统联系起来
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 时间: 2008-11-28 21:59
标题: 急怎样将用户信息与注册系统登录系统联系起来
怎样将用户信息与注册系统登录系统联系起来
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 时间: 2008-11-28 22:01
标题: 怎样
怎样！

作者: WANGYANHELEN 时间: 2008-11-28 22:03
标题: 在小型超市管理系统中，怎样实现销售时修改库存
在小型超市管理系统中，怎样实现销售时修改库存

作者: Henry D. Sy 时间: 2008-11-28 22:08
兄弟，你是这样恶意灌水的吗

作者: tz-chf 时间: 2008-11-28 22:57
销售时减产品表的库存字段,一台收银可行,多台收银不行,应该是后台回收销售数据.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)