with ADOQuery1 do
begin
open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into xginfomation values'); ADOQuery1.SQL.Add'('''+bname+''','''+bcard+''','''+bsex+''','''+bportment+''','''+bphe+''','''+bpostid+''','''+xaddress+''','''+bpwd+''','''+bcardid+''')');
ADOQuery1.ExecSQL;
ADOQuery1.Post;
showmessage('用戶信息輸入成功!');
end;
end;
begin
open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into xginfomation values'); ADOQuery1.SQL.Add'('''+bname+''','''+bcard+''','''+bsex+''','''+bportment+''','''+bphe+''','''+bpostid+''','''+xaddress+''','''+bpwd+''','''+bcardid+''')');
ADOQuery1.ExecSQL;
ADOQuery1.Post;
showmessage('用戶信息輸入成功!');
end;
end;
with ADOQuery1 do
begin
open;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into xginfomation values'); ADOQuery1.SQL.Add('('''+bname+''','''+bcard+''','''+bsex+''','''+bportment+''','''+bphe+''','''+bpostid+''','''+xaddress+''','''+bpwd+''','''+bcardid+''')'); //少一个(
ADOQuery1.ExecSQL;
//ADOQuery1.Post; //不要这句
showmessage('用戶信息輸入成功!');
end;
end;
with ADOQuery1 do
begin
//open;
close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into xginfomation values'); ADOQuery1.SQL.Add('('''+bname+''','''+bcard+''','''+bsex+''','''+bportment+''','''+bphe+''','''+bpostid+''','''+xaddress+''','''+bpwd+''','''+bcardid+''')'); //少一个(
ADOQuery1.ExecSQL;
//ADOQuery1.Post; //不要这句
showmessage('用戶信息輸入成功!');
end;
end;
執行了sql不用提交到數據庫去啊??
-->
ADOQuery1.SQL.Add('('''+bname