新建用户.txt

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

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
g1.Visible :=false;
 g2.Visible :=false;
  g3.Visible :=false;
  g4.Visible :=false;
   g6.Visible :=false;
    g5.Visible :=true;


     if edit3.Text =''
     then
         begin
          application.MessageBox('用户名不能为空','信息',48);
          end
      else if edit4.Text =''
           then
           begin
          application.MessageBox('密码不能为空','信息',48);
          end
      else if edit4.Text =edit5.Text
           then
           begin
            rs.close;
            rs.CommandText:='select * from mima where yonghuming='+chr(39)+edit3.text+chr(39);
            rs.Open;
            username1:=rs.Fields[0].AsString ;
           if username1=edit3.Text
           then 
             begin
              application.MessageBox('该用户已存在！','信息',48);
              edit3.text:='';
                 edit4.text:='';
                  edit5.text:='';
            end
            else
                begin
                rs.Insert;
                rs.Fields[0].AsString :=edit3.Text ;
                rs.fields[1].AsString :=edit4.Text ;
                rs.Post ;
                application.MessageBox('设置成功！','信息',mb_ok);
                rs.Close ;
                edit3.text:='';
                 edit4.text:='';
                  edit5.text:='';
                end;
           end
      else
          begin
          application.MessageBox('两次密码不一致','信息',48);
          edit3.text:='';
                 edit4.text:='';
                  edit5.text:='';
          end;