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