adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('insert into "'+NowTableName+'"(二级编号,二级名称,三级编号,三级名称,内容1,flag,时间) values:NowDBSecondNumber,:SecondName,:NowNewNumber,:FileName,:TextContent,1,:Date)');
adoquery1.Parameters.ParamByName('NowDBSecondNumber').Value:=NowDBSecondNumber;
adoquery1.Parameters.ParamByName('SecondName').Value:=SecondName;
adoquery1.Parameters.ParamByName('NowNewNumber').Value:=NowNewNumber;
adoquery1.Parameters.ParamByName('FileName').value:=FileName;
adoquery1.Parameters.ParamByName('TextContent').Value:=richedit2.Text;
adoquery1.Parameters.ParamByName('Date').Value:=datetostr(date);
adoquery1.ExecSQL;
这是添加的,修改删除和这个差不多