看看下面的程序是否是你要的: with DataModule1.Qy_sname do begin SQL.clear; SQL.Add('Insert Into studentname_info(student_ID,class,student_name,retire)'); SQL.Add('values(:student_ID,:class,:student_name,:retire)'); ParamByName('student_ID').AsString:=CB_ID.Text; ParamByName('class').AsString:=CB_classID.Text; ParamByName('student_name').AsString:=CB_name.Text; ParamByName('retire').AsString:=CB_retire.Text; DataModule1.Qy_sname.ExecSQL; OK:=true; end;
----------------------------------------------
读好书可以净化心灵,交挚友能够升华人生。山外有山,能人背后自有更强能人在!