M
mirgame
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在弄一个注册程序.mysql的
我想向数据库添加用户时.因为他原来的数据库注册账号和密码在一个数据表中.
密码找回和身份证号在另外一个数据库表中.请问如何同时向两个表中分别添加数据呢?
并且将第一个表中的有一个uid把这个id数读出来.添加到第二个表中的uid字段里.
我是个新手.请不要笑话偶.
我的mycommand1设置现在是这样的.
INSERT INTO ACCSTORE0000
( ACCOUNT, PASSWD)
VALUES
( :ACCOUNT, ASSWD)
下面是点击注册按钮执行的.
procedure TForm2.suiButton1Click(Sender: TObject);
begin
if suiedit2.text<> suiedit3.text then begin
showmessage('两次密码必须相同');
exit;
end;
begin
mycommand1.Prepare;
mycommand1.Params.ParamValues['ACCOUNT']:=suiedit1.Text;
mycommand1.Params.ParamValues['PASSWD']:=suiedit2.Text;
// mycommand2.Params.ParamValues['SUPERPASSWD']:=suiedit4.Text;
//mycommand2.Params.ParamValues['IDCARD']:=suiedit5.Text;
mycommand1.Execute();
Application.MessageBox('注册账号成功!!!', '注册账号', MB_OK + MB_ICONINFORMATION);
suiedit1.Clear;
suiedit2.Clear;
suiedit3.Clear;
suiedit4.Clear;
suiedit5.Clear;
exit;
end;
end;
我想向数据库添加用户时.因为他原来的数据库注册账号和密码在一个数据表中.
密码找回和身份证号在另外一个数据库表中.请问如何同时向两个表中分别添加数据呢?
并且将第一个表中的有一个uid把这个id数读出来.添加到第二个表中的uid字段里.
我是个新手.请不要笑话偶.
我的mycommand1设置现在是这样的.
INSERT INTO ACCSTORE0000
( ACCOUNT, PASSWD)
VALUES
( :ACCOUNT, ASSWD)
下面是点击注册按钮执行的.
procedure TForm2.suiButton1Click(Sender: TObject);
begin
if suiedit2.text<> suiedit3.text then begin
showmessage('两次密码必须相同');
exit;
end;
begin
mycommand1.Prepare;
mycommand1.Params.ParamValues['ACCOUNT']:=suiedit1.Text;
mycommand1.Params.ParamValues['PASSWD']:=suiedit2.Text;
// mycommand2.Params.ParamValues['SUPERPASSWD']:=suiedit4.Text;
//mycommand2.Params.ParamValues['IDCARD']:=suiedit5.Text;
mycommand1.Execute();
Application.MessageBox('注册账号成功!!!', '注册账号', MB_OK + MB_ICONINFORMATION);
suiedit1.Clear;
suiedit2.Clear;
suiedit3.Clear;
suiedit4.Clear;
suiedit5.Clear;
exit;
end;
end;