close;
sql.Clear;
sql.add('insert into kcio');
sql.Add('values(:date,:papno,''销售售出'',:usna,:iono,:kcno,:iosl,:jcsl)');
with parameters do
begin
parambyname('date').value:=strtodate(datetostr(now));
parambyname('papno').value:=strtoint(papno);
parambyname('usna').value:=username;
parambyname('iono').value:=createkcio;
parambyname('kcno').value:=clientdataset1.fieldbyname('kcno').asstring;
parambyname('iosl').value:=clientdataset1.fieldbyname('quants').asinteger;
parambyname('jcsl').value:=selectjcsl(clientdataset1.fieldbyname('kcno').asstring)-parambyname('iosl').value;
end;
execsql;
with adoquery1 do
begin
close;
sql.clear;
sql.add('insert into table_name(date1) values(:pdate)');
Parameters.ParamByName('pdate').Value:=date();
execsql;
end;
var
date:TDate;
dateTime:TDateTime;
begin
date:=date();
dateTime:=date();
ADOCommand1.CommandText:='insert into 表名(date,datetime) values('''+date+''','''+datetime+''');'