CheckUserForm.ADOQuery1.SQL.Clear;
CheckUserForm.ADOQuery1.SQL.Add('insert into card values('+Edit1.Text+','''+Edit3.Text+''','''+Edit2.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+Main.UserName+''',#'+FormatDateTime('yyyy-mm-dd',Now)+'#)'');
CheckUserForm.ADOQuery1.ExecSQL;
说明:DELPHI7.0+SQL2000
CheckUserForm.ADOQuery1.SQL.Add('insert into card values('+Edit1.Text+','''+Edit3.Text+''','''+Edit2.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+Main.UserName+''',#'+FormatDateTime('yyyy-mm-dd',Now)+'#)'');
CheckUserForm.ADOQuery1.ExecSQL;
说明:DELPHI7.0+SQL2000
+'field6,field7) values('+Edit1.Text+','''+Edit3.Text+''','''
+Edit2.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''
+Main.UserName+''',#'+FormatDateTime('yyyy-mm-dd',Now)+'#)'');showmessage(adoquery1.sql.text);//edit.text最好加上trim