关于SQL的初级问题，分数全部给第一个正确解决问题的朋友。

Question

上面有一点错误
“要求按form1的“确定”按钮”改为“要求按form2的“确定”按钮”

Answer 1

AnsiString SQLSQL;
SQLSQL="insert 表名 （mydate,class,number,memo）values( "+edit_year->Text+"-"+edit_Month->Text+"-"+edit_Day+","+edit_Class->Text+","+edit_Number->Text+","+edit_Memo->Text+")"
Query1.SQL.Add(SQLSQL);

Answer 2

Query1.close;
Query1.SQl.Clear;
Query1.SQL.Add('insert 表名(mydate,class,number,memo)');
Query1.SQL.Add(' values("+edit_year->Text+"-"+edit_Month->Text+"-"+edit_Day+","+edit_Class->Text+","+edit_Number->Text+","+edit_Memo->Text+")');
Query1.ExecSQL;

Answer 3

Query1.close;
Query1.SQl.Clear;
Query1.SQL.Add('insert into 表名(mydate,class,number,memo)');
Query1.SQL.Add(' values("+edit_year->Text+"-"+edit_Month->Text+"-"+edit_Day+","+edit_Class->Text+","+edit_Number->Text+","+edit_Memo->Text+")');
Query1.ExecSQL;

Answer 4

Query1.close;
Query1.SQl.Clear;
Query1.SQL.Add('insert 表名(mydate,class,number,memo)');
Query1.SQL.Add(' values(:mydate,:class,:number,:Memo)');
query1.parambyname('mydate').asDatetime:=strtodate(....);
query1.............('class').asstring:=edclass.text;
query1.p...........('memo').asstring:=edMemo.text;
Query1.ExecSQL;

Answer 5

implementation
uses unit1; //form1所在的unit
...
procedure TForm2.button_OKClick(Sender: TObject);
begin
  Form1.Query1.close;
  Form1.Query1.SQl.Clear;
  Form1.Query1.SQL.Add('insert into lc(mydate,class,number,memo)');
  Form1.Query1.SQL.Add(' values(:pdate, :pclass, :pnumber, :pmemo)');
  Form1.Query1.ParamByName(pdate).AsDateTime := StrToDate(edit_year.Text + '-' + edit_Month.Text + '-' + edit_Day.Text);
  Form1.Query1.ParamByName(pclass).AsString := edit_Class.Text;
  Form1.Query1.ParamByName(pnumber).AsInteger := StrToInt(edit_Number.Text);
  Form1.Query1.ParamByName(pmemo).AsString := edit_Memo.Text;
  Form1.Query1.ExecSQL;
end;

Answer 6

回： Snakeguo(楠--莫等闲、白了少年头，空悲切。)我的程序单元头部为：
interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, StdCtrl；按照你的答案在编译时出现如下错误：
[Error] Unit3.pas(51): Undeclared identifier: 'pdate'
[Error] Unit3.pas(52): Undeclared identifier: 'pclass'
[Error] Unit3.pas(53): Undeclared identifier: 'pnumber'
[Error] Unit3.pas(53): Undeclared identifier: 'pmemo'
[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'应如何解决?