ADOQuery2.close;
ADOQuery2.SQL.Clear;
Sql:='insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')';
ADOQuery2.SQL.Text:=Sql; //插入数据
ADOQuery2.ExecSQL;
//显示插入更新后的表
ADOQuery1.close;
ADOQuery1.SQL.Clear;
Sql:='select * from Outgo_Detail order by purchase_date';
ADOQuery1.SQL.Text:=Sql;
ADOQuery1.Open;
ADOQuery1.Active:=True结果显示的数据表总是少了才插入的数据那一行,不知道是什么原因?
ADOQuery2.SQL.Clear;
Sql:='insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')';
ADOQuery2.SQL.Text:=Sql; //插入数据
ADOQuery2.ExecSQL;
//显示插入更新后的表
ADOQuery1.close;
ADOQuery1.SQL.Clear;
Sql:='select * from Outgo_Detail order by purchase_date';
ADOQuery1.SQL.Text:=Sql;
ADOQuery1.Open;
ADOQuery1.Active:=True结果显示的数据表总是少了才插入的数据那一行,不知道是什么原因?
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.ADD('insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')');
TRY
ADOQuery2..ExecSQL;
If ADOQuery2.RowsAffected > 0 then
messagebox(handle,'已保存。','系统提示...',MB_OK);
Else
messagebox(handle,'保存失败!','系统提示...',MB_OK);
except
messagebox(handle,'保存失败!','系统提示...',MB_OK);
end;
//显示插入更新后的表
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('select * from Outgo_Detail order by purchase_date');
ADOQuery1.Open;
用下边的方法试试,purchase_date 列为什么没有给值?ADOQuery2.close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.ADD('insert into Outgo_Detail(goods_quantity,re) values('''+Edit3.Text+''','''+Edit4.Text+''')');
TRY
ADOQuery2.ExecSQL;
If ADOQuery2.RowsAffected > 0 then
messagebox(handle,'已保存。','系统提示...',MB_OK)
Else
messagebox(handle,'保存失败!','系统提示...',MB_OK);
except
messagebox(handle,'保存失败!','系统提示...',MB_OK);
end;
//显示插入更新后的表
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('select * from Outgo_Detail order by purchase_date');
ADOQuery1.Open;