F
fphuang
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm4.BitBtn1Click(Sender: TObject);
var
name1,psw1:string;
begin
name1:=edit2.text;
psw1:=edit3.text;
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into admin(name,psw) values(name1,psw1)');
execsql;
end;
var
name1,psw1:string;
begin
name1:=edit2.text;
psw1:=edit3.text;
with adoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into admin(name,psw) values(name1,psw1)');
execsql;
end;