?? 新建用戶.txt
字號:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -