Question

我用delphi做了个人事管理系统，但是里面出了点问题，

里面错问题的是关于工资表计算的问题，就是我工资是按图路面算的，代码如下

while not data1.ADOQYgzb.Eof do //计算工资公式
begin
yfgz:=data1.ADOQYgzb.FieldByName('jbgz').Value + data1.ADOQYgzb.FieldByName('jbf').Value + data1.ADOQYgzb.FieldByName('qqj').Value + data1.ADOQYgzb.FieldByName('zwjt').Value + data1.ADOQYgzb.FieldByName('qtje').Value;
ykgz:=data1.ADOQYgzb.FieldByName('kgf').Value + data1.ADOQYgzb.FieldByName('ylbx').Value + data1.ADOQYgzb.FieldByName('ylx').Value + data1.ADOQYgzb.FieldByName('sybx').Value + data1.ADOQYgzb.FieldByName('qtke').Value + data1.ADOQYgzb.FieldByName('ks').Value;
sfgz:=yfgz - ykgz;
with data1.ADOQYgzb do
begin
edit;
fieldbyname('yfgz').Value:=yfgz;
fieldbyname('ykgz').Value:=ykgz;
fieldbyname('sfgz').Value:=sfgz;
next;
end;
end;
application.MessageBox('结算完毕','提示',64);
end

代码里面‘jbgz’就是截图里面最上面那行里的“基本工资”的拼音缩写，后面的那些都依次类推。不懂再问，

Answer 1

语句顺序有问题而且有的累赘。 应该是这样：
with data1.ADOQYgzb do
begin
first;
while not Eof do //计算工资公式
begin
yfgz:=FieldByNam('jbgz').Value+
FieldByName('jbf').Value +
FieldByName('qqj').Value +
FieldByName ('zwjt').Value +
FieldByName ('qtje').Value;

ykgz:= FieldByName('kgf').Value +
FieldByName ('ylbx').Value +
FieldByName('ylx').Value +
FieldByName('sybx').Value +
FieldByName ('qtke').Value +
FieldByName('ks').Value;

sfgz:=yfgz - ykgz;

edit;
fieldbyname('yfgz').Value:=yfgz;
fieldbyname('ykgz').Value:=ykgz;
fieldbyname('sfgz').Value:=sfgz;
post;

next;

end;
end;

application.MessageBox('结算完毕','提示',64);

Answer 2

出的问题是什么？你的错误是没有把编辑的数据保存到数据库，
在
fieldbyname('ykgz').Value:=ykgz;
fieldbyname('sfgz').Value:=sfgz;
next;
后面加Post，就是保存!

追问

那post是加在next后，怎么个法？
是next post；
还是next； post；

追答

next;
post;
就可以了

追问

加了没什么变化啊。。

追答

出的问题是什么？

追问

就是加了和没加一样，表里面的后面3项：应发工资，应扣工资。实发工资，没有在表里出现

追答

你到Edit Query -> updateSQL里，选择Generate Edit SQL了吗？
还有就是要双击SQL -> add all fields