设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 5864|回复: 44

先弹出“请输入用户名和密码”再弹出“用户名或密码错误   [复制链接]

QQ群 QQ群用户 

  • TA的每日心情
    难过
    2015-1-2 13:08:02
  • 签到天数: 74 天

    [LV.6]常住居民II

    金钱
    5533
    3332
    57
    在线时间
    51 小时
    阅读权限
    0
    精华
    0
    积分
    3910
    UID
    368
    发表于 2012-1-6 00:09:23 |显示全部楼层
    分享到:
    还有个问题啊   如果我没有输入的话会先弹出“请输入用户名和密码”再弹出“用户名或密码错误”  为什么啊
    工作是太太,刚开始很有新鲜感,恨不得天天泡在工作中,然后很快就会厌倦。兴趣是情人,只要不变成太太,总 ...
    QQ群 QQ群用户 

  • TA的每日心情
    难过
    2015-1-2 13:08:02
  • 签到天数: 74 天

    [LV.6]常住居民II

    金钱
    5533
    3332
    57
    在线时间
    51 小时
    阅读权限
    0
    精华
    0
    积分
    3910
    UID
    368
    发表于 2012-1-6 00:09:39 |显示全部楼层
    【2020】(1078001020) 21:41:55
    ! Q' b" Y9 _7 b& s+ j  if RadioButton1.Checked=true then
    0 t, }: \4 t* o7 R; ~. Y: s  begin, t3 S' D3 t. p* B, g
        if (edit1.Text='') and (edit2.Text='') then//用户和密码全空:退出" o, U* \. H5 p
        begin2 X& w2 I$ Z; W% S
          showmessage('请输入正确的用户名和密码');2 z  E' S& H4 h( I- d* E
          exit;
    . n- L0 n5 p" U  L    end
    $ t( Q2 Y( ^: W, R1 E- E    else//登录处理8 w! ?4 _% R4 A# Q2 a
        begin//你这里少了begin ... end
    + w; f+ E) ?- u( C      DataModule2.adoquery1.close;
    ) y7 i! Y2 h, Z5 a0 B3 w      DataModule2.adoquery1.SQL.Clear;
    , D- E5 p7 r# g; E3 ?" R5 B; S  c5 p( }      DataModule2.adoquery1.SQL.Text:='select * from 系统登录表'+#13#10
    7 o: u! f/ o0 {$ S, y) L                                     +'where user='+QuotedStr(trim(edit1.Text))+#13#10
    7 y0 A4 C7 u/ P7 Z                                     +'and password='+QuotedStr(trim(edit2.Text));8 C  T/ o! n6 Y# V2 T
          DataModule2.adoquery1.open;- ^! X4 ?9 m/ `3 T( |
          if DataModule2.adoquery1.RecordCount>=1 then//千万别出现 2个以上重复用户- W- {: D. d, [9 |: i
          begin
    ( l3 }' O0 d  `! f        form4.show;
    # W7 x2 R5 ]- _3 X        DataModule2.adoquery1.Close;+ ~' y' w8 O# R6 n4 j1 }7 w: w
          end
    . n* R) ]) P- M& G7 m9 P* t      else& B( K2 |6 F* o; ]; ~. ?3 b9 K
          if DataModule2.adoquery1.RecordCount<1 then showmessage('用户名或密码错误');
    ! X, q, o4 f6 p* T) U" X" i    end;. ~# y# c. k5 P: n- E# S
      end;
    # R; b/ Y9 R$ J2 Q% {& _1 K' m* ]【2020】(1078001020) 21:42:13
    4 C- v1 W" R2 J. O9 O! P我改了一下,你看看对不对。 6 j" c# e% F3 ~4 H* o+ h' \. d+ ?* Y* L
    喂 等我么!(963614473) 21:42:20 - Y' }) `2 r+ G. a3 s
    好的  谢谢啊 " n- b9 d" I$ O5 }/ r
    喂 等我么!(963614473) 21:43:59 7 N% K2 n, \/ @
    一样啊 5 J1 i( _' l% C" d6 j- Z( {
    工作是太太,刚开始很有新鲜感,恨不得天天泡在工作中,然后很快就会厌倦。兴趣是情人,只要不变成太太,总 ...

    使用道具 举报

    QQ群 QQ群用户 

  • TA的每日心情
    难过
    2015-1-2 13:08:02
  • 签到天数: 74 天

    [LV.6]常住居民II

    金钱
    5533
    3332
    57
    在线时间
    51 小时
    阅读权限
    0
    精华
    0
    积分
    3910
    UID
    368
    发表于 2012-1-6 00:10:23 |显示全部楼层
    【2020】(1078001020) 21:44:41 , h4 u& `3 b2 P! V9 ~+ u$ \
    呵呵,你的 if 嵌套很有问题,以后改改吧,尽量都这样套,可读性好一点,便于检查。begin 和 end 要上下对称。
    % o3 X7 h, w8 v. aif ... then
    5 m4 b0 r' l* b; l7 Pbegin: T" S, P! q- Y& t
      if ... then' Y# I' m& |3 N3 H4 N" C
      begin3 }( F! g3 u9 D
    3 k1 B& F6 S. a. Q8 {) Z5 M
      end) A, ^* j9 {" R8 ]/ E% |8 s
      else if ... then& o+ q7 Z* M, M
      begin5 O0 F! q1 {& N
      " C( D; h% Y, O& \( J
      end;4 C, K% e3 Q5 ^
    end
    ) \6 b* k5 ]! D9 E& Belse. Z# B: O7 [# O% M
    if ... then8 A1 O: B; s# J) P) t& L$ s
    beign( y. Z' k  {* P+ G; k2 V, K
    * ?7 z2 Z+ i8 w: s0 @; R  c
    end; ( i2 {0 d1 G0 L. D: {/ Q6 {
    【2020】(1078001020) 21:45:14 , P9 J% `' N) Q$ `! E0 _
    喂 等我么!(963614473)  21:43:598 i+ C7 b. H( Z4 M$ r; P7 B# O" {
    一样啊: q% O/ C! S, [* W/ {& V5 C5 m) b$ k

    0 T6 n( i# W3 ]9 T2 Q什么一样,结果还不对吗?
    % @5 w; O% \* t; R; C- m# X喂 等我么!(963614473) 21:47:13 , W2 o5 e2 [9 C  {
    不对
    - i2 b, w+ S1 C9 d
    工作是太太,刚开始很有新鲜感,恨不得天天泡在工作中,然后很快就会厌倦。兴趣是情人,只要不变成太太,总 ...

    使用道具 举报

    大智元素 该用户已被删除
    发表于 2012-1-7 00:58:28 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    TVsjyW 该用户已被删除
    发表于 2012-1-9 23:24:43 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    ohaojiuq 该用户已被删除
    发表于 2012-1-10 03:03:54 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    海总001 该用户已被删除
    发表于 2012-1-11 17:00:54 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    说你爱我N 该用户已被删除
    发表于 2012-1-13 16:17:08 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    66600
    12512
    0
    在线时间
    626 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    412
    发表于 2012-1-14 21:16:20 |显示全部楼层
    楼主万岁,万万岁,哈哈哈哈,谢谢了9 w3 K" [  g9 H6 t" w

    $ `4 D' l- ~& b/ e/ Z+ _9 H6 F, E

    2 b/ b( U& a" z8 G9 R0 ?/ `+ P, t% H* l. C: W5 x! F
    % C) T5 n0 o8 M* F$ ~$ i0 ?: H, Y
      V7 d: I4 j9 h1 q' Y$ W

    ( ]3 Y! O$ R! n8 M* k4 w  s" m
    4 J  H1 E' F0 q3 ^4 P! N1 V% P: l: t0 `3 t. Y: ^

    5 h! e6 J# ~, u/ @7 \8 [8 o8 }- ]4 k7 j( O

    : u% D8 M1 [( ]$ W  O" r
    ' r  ~, {; l$ d- h武动乾坤 szjys.net

    使用道具 举报

    tjiaow33 该用户已被删除
    发表于 2012-1-16 00:01:00 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    闪中之时 该用户已被删除
    发表于 2012-1-18 10:05:04 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    4面楚哥 该用户已被删除
    发表于 2012-2-8 12:17:29 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    妖的尾巴 该用户已被删除
    发表于 2012-2-10 04:22:41 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    xycnbaobao 该用户已被删除
    发表于 2012-2-12 20:22:44 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    sfjgfkv 该用户已被删除
    发表于 2012-2-17 07:06:03 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    狐狸的诱惑 该用户已被删除
    发表于 2012-2-18 16:29:06 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    小七战士 该用户已被删除
    发表于 2012-2-19 23:34:21 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    qxszg 该用户已被删除
    发表于 2012-2-22 15:56:13 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    罗云iu 该用户已被删除
    发表于 2012-2-25 09:52:11 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    农妇果园 该用户已被删除
    发表于 2012-2-25 10:37:47 |显示全部楼层
    提示: 作者被禁止或删除 内容自动屏蔽

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    delphi乐园微信公众号

    手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

    GMT+8, 2016-10-23 02:13

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    公网安备 14090202000504号

    回顶部