请教一个字段求和的问题!! 你是想对数据库进行操作吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这样可以吗?//实发工资在的表为Table2, 姓名在的表为Table1var dbSalaryTemp: double;begin //若有Data_aware控件,则先设置Datasource为nil(提高速度),最后再改回来 Table1.First; While not Table1.Eof do begin // dbSalaryTemp := Table1.FieldByName('补贴费').Value + Table1.FieldByName('工龄工资').Value + Table1.FieldByName('Salary2').Value; // 根据条件移到你的Table2表的纪录,如果一对一关系直接可以用。 //................ Table2.Edit; Table2.FieldByName('实发工资').Value := dbSalaryTemp + Table2.FieldbyName('奖金').Value + Table2.FieldbyName('加班费').Value ; Table2.Post; Table1.Next; end;end; Delphi如何用Ado连接Mysql 怎样判断edit.text符合yyyymm格式 请高手指教 请问有做个考勤相关项目的朋友,哪一个牌子的考勤机比较好? 100分请教:大家看看怎样实现一个窗口这样的功能? 请问怎么捕捉Tedit的点“向下按键”的事件 delphi8编译时出错. ClientDataSet调用xml文件为什么会出错? 请问如何获得网卡、硬盘等设备的MAC 如何把计算字段的值插入到数据库中? 菜鸟问题,答对者给分哟!!!! 各位大虾,救救我! [2]源码大放送啦(请多多指教)。
//实发工资在的表为Table2, 姓名在的表为Table1
var
dbSalaryTemp: double;
begin
//若有Data_aware控件,则先设置Datasource为nil(提高速度),最后再改回来
Table1.First;
While not Table1.Eof do
begin
//
dbSalaryTemp := Table1.FieldByName('补贴费').Value
+ Table1.FieldByName('工龄工资').Value + Table1.FieldByName('Salary2').Value;
// 根据条件移到你的Table2表的纪录,如果一对一关系直接可以用。
//................
Table2.Edit;
Table2.FieldByName('实发工资').Value := dbSalaryTemp + Table2.FieldbyName('奖金').Value + Table2.FieldbyName('加班费').Value ;
Table2.Post;
Table1.Next;
end;
end;