設(shè)為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步，快速開始

12下一頁
返回列表 發(fā)新帖
查看: 5346|回復(fù): 12
打印 上一主題 下一主題

超市管理系統(tǒng)的注冊界面怎么做

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2008-11-28 21:22:00 | 只看該作者 回帖獎勵 |倒序?yàn)g覽 |閱讀模式
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 "系統(tǒng)界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您輸入的用戶名稱和密碼不能為空，請重新輸入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub

為什么紅色字的地方錯了
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
 樓主| 發(fā)表于 2008-11-28 21:23:43 | 只看該作者

怎樣將系統(tǒng)用戶信息與注冊界面聯(lián)系起來

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 "系統(tǒng)界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您輸入的用戶名稱和密碼不能為空，請重新輸入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub

為什么在測試時(shí)，紅色字體的地方老出錯
3#
 樓主| 發(fā)表于 2008-11-28 21:24:43 | 只看該作者

求一超市信息管理系統(tǒng)

求一小型超市信息管理系統(tǒng)
4#
 樓主| 發(fā)表于 2008-11-28 21:26:25 | 只看該作者

在小型超市管理系統(tǒng)中，怎樣實(shí)現(xiàn)銷售時(shí)修改庫存

在小型超市管理系統(tǒng)中，怎樣實(shí)現(xiàn)銷售時(shí)修改庫存
5#
 樓主| 發(fā)表于 2008-11-28 21:27:14 | 只看該作者

在小型超市管理系統(tǒng)中，怎樣實(shí)現(xiàn)輸入進(jìn)貨單時(shí)自動修改庫存

在小型超市管理系統(tǒng)中，怎樣實(shí)現(xiàn)輸入進(jìn)貨單時(shí)修改庫存

點(diǎn)擊這里給我發(fā)消息
6#
發(fā)表于 2008-11-28 22:10:57 | 只看該作者
CodeContextObject
是什么控件
能否把整個程序傳上來, 才好調(diào)試及找出問題
7#
 樓主| 發(fā)表于 2008-11-28 22:37:34 | 只看該作者
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 "系統(tǒng)界面", acNormal, "", "", acReadOnly, acWindowNormal
           Else
           MsgBox " 您輸入的用戶名稱和密碼不能為空，請重新輸入。", vbOKOnly, "警告信息"
           End If
           End With
           End If
           
           
           End Sub

這是我寫在vb模板中的程序，調(diào)試時(shí)紅色部分老出錯，不知原因
8#
發(fā)表于 2009-1-12 01:18:17 | 只看該作者
rrr ="[用戶信息表]！[姓名]="& Trim( Me! [text20]) &"' And [用戶信息表]![密碼] = '"& Trim( Me! [text22]) &" '"
9#
發(fā)表于 2009-1-22 08:33:23 | 只看該作者
很好
10#
發(fā)表于 2009-1-22 08:33:37 | 只看該作者
很好，很強(qiáng)大
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機(jī)版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2024-10-23 10:31 , Processed in 0.079040 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表