sysdata_manage.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

                try
                  execsql; 
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break;
                end;
              end//2.3.End
              //2.4如果个人收支表中已有收入记录则找到上条记录取上月结余
              else
              begin
                close; sql.Clear;
                sql.Add('insert into personshouzhi(empid,yearmonth,shou,lastbalance)');
                sql.Add('values(:v_empid,:v_yearmonth,:v_shou,:V_lastbalance)');
                parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
                parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['yearmonth'];
                parameters.ParamValues['v_shou']:=adoqtmp.FieldValues['total'];
                parameters.ParamValues['v_lastbalance']:=get_lastbalance(adoqemp.FieldValues['empid'],adoqtmp.FieldValues['yearmonth']);
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break;
                end;
              end;//2.4.End
              //2.5.2如果员工工序收入入总账成功则修改[Tjflag]字段值
              with ADOQ_TJFlag do
              begin
                close; sql.Clear;
                sql.Add('update outbom_log set Tjflag=1 where empid=:v_empid');
                parameters.ParamValues['v_empid']:=adoqtmp.FieldValues['empid'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break;
                end;
              end;//2.5.2.End
            end;//如果没找到则添加.Else.End
          end;//while not eof do.End.2
          //2.提交数据
          if not DataTJ_flag then
          begin
            if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
            MsgErr(handle,'统计人员收支总账报表失败--工序收入！');
            break; exit;
          end;
          if datamod.ADOCon.InTransaction then
          begin
            try
              datamod.ADOCon.CommitTrans;
            except
              MsgErr(handle,'统计人员收支总账报表失败--工序收入！');
              if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
              break; exit;
            end;
          end;
          next;
        end;
     end;//2.计算工序主收入结束.End
     

     //3.计算月薪收入（A~当前日期）************************************************************
     //3.1得到当前人员收支表所有已统计的记录(刷新)
     with ADOQpersonshouzhi do
     begin
        close;sql.Clear;
        sql.add('select  * from personshouzhi where empid=:v_empid order by yearmonth desc');
        parameters.ParamValues['v_empid']:=adoqemp.fieldvalues['empid'];
        try
          open;
        except
          if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
          datatj_flag:=false; break;
        end;
     end;

     with adoqtmp do
     begin
        close;sql.clear;
        sql.add('select log_id, yearmonth, money from emp_payout');
        sql.add('where TJflag=0 and empid=:v_empid');
        sql.add('order by yearmonth');
        parameters.ParamValues['v_empid']:=adoqemp.fieldvalues['empid'];
        open; first;

        while not eof do
        begin
          //3.数据开始提交
          DataTJ_flag:=true;
          datamod.ADOCon.BeginTrans;
          with ADOQupdate do
          begin
            //3.1得到当前人员当月的收支总表的记录
            close; sql.Clear;
            sql.Add('select * from personshouzhi where empid=:v_empid and yearmonth=:V_yearmonth');
            parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
            parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['yearmonth'];
            try
              execsql; open;
            except
              if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
              datatj_flag:=false; break;
            end;//3.1.End
            //3.2如果该员工该月存在收支记录，则修改收入
            if recordcount>0 then
            begin
              close; sql.Clear;
              sql.Add('update personshouzhi set shou=shou+:V_money');
              sql.Add('where empid=:v_empid and yearmonth=:V_yearmonth');
              parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
              parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['yearmonth'];
              parameters.ParamValues['V_money']:=adoqtmp.FieldValues['money'];
              try
                execsql;
              except
                if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                DataTJ_flag:=false; break;
              end;
              //3.5.1如果员工工序收入入总账成功则修改[Tjflag]字段值
              with ADOQ_TJFlag do
              begin
                close; sql.Clear;
                sql.Add('update emp_payout set Tjflag=1 where log_id=:v_log_id');
                parameters.ParamValues['v_log_id']:=adoqtmp.FieldValues['log_id'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break;
                end;
              end;//3.5.1.End
            end//3.2.End
            else
            begin
              //3.3如果个人月收支表中没找到记录则直接新增
              if ADOQpersonshouzhi.RecordCount =0 then
              begin
                close; sql.Clear;
                sql.Add('insert into personshouzhi(empid,yearmonth,shou)');
                sql.Add('values(:v_empid,:v_yearmonth,:v_shou)');
                parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
                parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['yearmonth'];
                parameters.ParamValues['v_shou']:=adoqtmp.FieldValues['money'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end//3.3.End
              //3.4如果个人收支表中已有收入记录则找到上条记录取上月结余
              else
              begin
                close; sql.Clear;
                sql.Add('insert into personshouzhi(empid,yearmonth,shou,lastbalance)');
                sql.Add('values(:v_empid,:v_yearmonth,:v_shou,:V_lastbalance)');
                parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
                parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['yearmonth'];
                parameters.ParamValues['v_shou']:=adoqtmp.FieldValues['money'];
                parameters.ParamValues['v_lastbalance']:=get_lastbalance(adoqemp.FieldValues['empid'],adoqtmp.FieldValues['yearmonth']);
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end;//3.4.End
              //3.5.2如果员工工序收入入总账成功则修改[TJ_flag]字段值
              with adoq_tjflag do
              begin
                close; sql.Clear;
                sql.Add('update emp_payout set Tjflag=1 where log_id=:v_log_id');
                parameters.ParamValues['v_log_id']:=adoqtmp.FieldValues['log_id'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end;//3.5.2.End
            end;
          end;
          //3.提交数据
          if not DataTJ_flag then
          begin
            if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
            MsgErr(handle,'统计人员收支总账报表失败--月薪收入！');
            break; exit;
          end;
          if datamod.ADOCon.InTransaction then
          begin
            try
              datamod.ADOCon.CommitTrans;
            except
              MsgErr(handle,'统计人员收支总账报表失败--月薪收入！');
              if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
              break; exit;
            end;
          end;
          next;
        end;
     end;//3.计算员工月薪收入结束.End

     
     //4.计算附加收入（A~当前日期）************************************************************
     //4.1得到当前人员收支表所有已统计的记录(刷新)
     with ADOQpersonshouzhi do
     begin
        //取出当前表内所有与empid有关的数据
        close;sql.Clear;
        sql.add('select  * from personshouzhi where empid=:v_empid order by yearmonth desc');
        parameters.ParamValues['v_empid']:=adoqemp.fieldvalues['empid'];
        open;
     end;

     //4.1 得到当前时间段内的附收入
     with adoqtmp do
     begin
        close;sql.clear;
        sql.add('select empid, year_month,sum(money) as total from v_earn_abs');
        sql.add('where TJflag=0 and empid=:v_empid');
        sql.add('group by year_month,empid order by  year_month');
        parameters.ParamValues['v_empid']:=adoqemp.fieldvalues['empid'];
        open; first;

        while not eof do
        begin
          DataTJ_flag:=true; //初始化标量
          //4.2 数据开始提交
          datamod.ADOCon.BeginTrans;
          with ADOQupdate do
          begin
            //4.2.1得到当前人员当月的收支总表的记录
            close; sql.Clear;
            sql.Add('select * from personshouzhi where empid=:v_empid and yearmonth=:V_yearmonth');
            parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
            parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['year_month'];
            try
              execsql; open;
            except
              if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
              datatj_flag:=false; break; 
            end;//4.2.1.End
            //4.2.2如果该员工该月存在收支记录，则修改收入
            if recordcount>0 then
            begin
              close; sql.Clear;
              sql.Add('update personshouzhi set fshou=fshou+:v_total');
              sql.Add('where empid=:v_empid and yearmonth=:V_yearmonth');
              parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
              parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['year_month'];
              parameters.ParamValues['v_total']:=adoqtmp.FieldValues['total'];
              try
                execsql;
              except
                if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                DataTJ_flag:=false; break; 
              end;

              //4.2.2.1如果员工附加收入入总账成功则修改[Tjflag]字段值
              with ADOQ_TJFlag do
              begin
                close; sql.Clear;
                sql.Add('update earn_abs set Tjflag=1 where empid=:v_empid');
                parameters.ParamValues['v_empid']:=adoqtmp.FieldValues['empid'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end;//4.2.2.1.End
            end//2.2.End
            else
            //如果没找到则添加.Else
            begin
              //2.3如果个人月收支表中没找到记录则直接新增
              if ADOQpersonshouzhi.RecordCount =0 then
              begin
                close; sql.Clear;
                sql.Add('insert into personshouzhi(empid,yearmonth,fshou)');
                sql.Add('values(:v_empid,:v_yearmonth,:v_fshou)');
                parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
                parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['year_month'];
                parameters.ParamValues['v_fshou']:=adoqtmp.FieldValues['total'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end//2.3.End
              //2.4如果个人收支表中已有收入记录则找到上条记录取上月结余
              else
              begin
                close; sql.Clear;
                sql.Add('insert into personshouzhi(empid,yearmonth,fshou,lastbalance)');
                sql.Add('values(:v_empid,:v_yearmonth,:v_fshou,:V_lastbalance)');
                parameters.ParamValues['v_empid']:=adoqemp.FieldValues['empid'];
                parameters.ParamValues['V_yearmonth']:=adoqtmp.FieldValues['year_month'];
                parameters.ParamValues['v_fshou']:=adoqtmp.FieldValues['total'];
                parameters.ParamValues['v_lastbalance']:=get_lastbalance(adoqemp.FieldValues['empid'],adoqtmp.FieldValues['year_month']);
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; exit;
                end;
              end;//2.4.End
              //2.5.2如果员工附加收入入总账成功则修改[Tjflag]字段值
              with ADOQ_TJFlag do
              begin
                close; sql.Clear;
                sql.Add('update earn_abs set Tjflag=1 where empid=:v_empid');
                parameters.ParamValues['v_empid']:=adoqtmp.FieldValues['empid'];
                try
                  execsql;
                except
                  if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
                  DataTJ_flag:=False; break; 
                end;
              end;//2.5.2.End
            end;//如果没找到则添加.Else.End
          end;//while not eof do.End.2
          //2.提交数据
          if not DataTJ_flag then
          begin
            if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
            MsgErr(handle,'统计人员收支总账报表失败--附加收入！');
            break; exit;
          end;
          if datamod.ADOCon.InTransaction then
          begin
            try
              datamod.ADOCon.CommitTrans;
            except
              MsgErr(handle,'统计人员收支总账报表失败--附加收入！');
              if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
              break; exit;
            end;
          end;
          next;
        end;
     end;

     //5.计算支出（A~当前日期）************************************************************
     //5.1得到当前人员收支表所有已统计的记录(刷新)
     with ADOQpersonshouzhi do
     begin
        //取出当前表内所有与empid有关的数据
        close;sql.Clear;
        sql.add('select  * from personshouzhi where empid=:v_empid order by yearmonth desc');
        parameters.ParamValues['v_empid']:=adoqemp.fieldvalues['empid'];
        try
          open;
        except
          if datamod.ADOCon.InTransaction then datamod.ADOCon.RollbackTrans;
          DataTJ_flag:=false; break;
        end;
     end;

     with adoqtmp do