登入.txt

来自「同学通讯录」· 文本 代码 · 共 31 行

begin
    rs.CommandText :='select * from mima where yonghuming='+chr(39)+edit1.text+chr(39);
    rs.Open ;
    if rs.Bof and rs.Eof
    then
        begin
        application.MessageBox('查无此人','信息',48);
        rs.close;
        edit1.Clear ;
        edit2.Clear ;
        end
    else
       if  (rs.Fields[0].AsString=edit1.Text) and (rs.Fields[1].AsString=edit2.Text)
       then
       begin
        application.MessageBox('登录成功','信息',48);
        rs.close;
        panel1.Visible :=true;
         g1.Visible :=false;
          g2.Visible :=false;
           g3.Visible :=false;
            g4.Visible :=false;
             g5.Visible :=false;
              g6.Visible :=true;
        end
     else
     begin
        application.MessageBox('密码错误','信息',48);
        rs.close;
        edit2.Clear ;
       end