'insert into 錯誤提示,初學delphi不知錯在哪里?(50分)

sql是正確的,我已上傳到了這個網止HTtp://ITASSIST06.gbaopan.com/files/0ebd11c91ecf4fd09c3389f519d70e31.gbp
,麻煩幫我看一下,這是我第一次做東西,謝謝!!!
我的郵箱是itassist06@126.com

兄弟，下载不了哦，不晓得怎么回事哦！

把Edit1.text...等等左右的引号都去掉，这里不需要引号的。
begin
adoquery1.close;
adoquery1.sql.clear;
Adoquery1.sql.add ('insert into zhanghao(user,password,age,xingbie)values1,:2,:3,:4)');
Adoquery1.parameters.parambyname('1').AsString :=Edit1.Text; //字符型
Adoquery1.parameters.parambyname('2').AsInteger :=StrToInt(Edit2.Text); //整型
Adoquery1.parameters.parambyname('3').AsFloat:=StrToFloat(Edit3.Text); //浮点型
Adoquery1.parameters.parambyname('4').AsDateTime:=StrToDateTime(Edit4.Text); //日期型
Adoquery1.execsql;
application.MessageBox('數據已錄入，請查看！','完成提示',mb_ok);
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

cqwty兄弟,你的郵箱多少,我發給你

borlandfox@yahoo.com.cn

cqwty兄弟，我已发到你邮箱了

建议使用format函数

with adoquery1.sql do begin
add('insert into zhanghao(user, password, age, xingbie) ');
add('values ');
add(format('(''%s'',''%s'',''%s''',
[edit1.text,edit2.text,edit3.text,edit4.text]));
end;

可传递字符串，数字等等

详情查帮助

cqwty兄弟, 你的郵件我有收到, 按照你說的方法不提示錯誤,但是資料不會新增到數據庫,這是怎么回事呢, 是不是函數不對,

多人接受答案了。