📄 dms.pas

📁 delphi作得信息业进销存源码.功能全面,运行稳定.
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
      SqlExec('update GYS set ' +
        'QMJE = QMJE - (' + GetValue(DeltaDS, 'JE', gtNew) + ' - ' + GetValue(DeltaDS, 'JEB', gtNew) + '), ' +
        'YXJE = YXJE + ' + GetValue(DeltaDS, 'JEB', gtNew) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'GYSID', gtNew));
      //ZH
      SqlExec('update ZH set QMJE = QMJE - ' + GetValue(DeltaDS, 'JE', gtNew) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtNew));
    end;
  ukModify:
    begin
      //GYS
      if IsModify(DeltaDS, 'GYSID') or IsModify(DeltaDS, 'JE') or
        IsModify(DeltaDS, 'JEB') then
      begin
        SqlExec('update GYS set ' +
          'QMJE = QMJE + (' + GetValue(DeltaDS, 'JE', gtOld) + ' - ' + GetValue(DeltaDS, 'JEB', gtOld) + '), ' +
          'YXJE = YXJE - ' + GetValue(DeltaDS, 'JEB', gtOld) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'GYSID', gtOld));
        SqlExec('update GYS set ' +
          'QMJE = QMJE - (' + GetValue(DeltaDS, 'JE', gtCur) + ' - ' + GetValue(DeltaDS, 'JEB', gtCur) + '), ' +
          'YXJE = YXJE + ' + GetValue(DeltaDS, 'JEB', gtCur) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'GYSID', gtCur));
      end;
      //ZH
      if IsModify(DeltaDS, 'ZHID') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update ZH set QMJE = QMJE + ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
        SqlExec('update ZH set QMJE = QMJE - ' + GetValue(DeltaDS, 'JE', gtCur) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtCur));
      end;
    end;
  ukDelete:
    begin
      //CGSH.YFJE
      SqlExec('update CGFK J, CGSHZB S set S.YFJE = S.YFJE - J.JE ' +
        'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
        'J.DDID = S.ID');
      //GYS
      SqlExec('update GYS set ' +
        'QMJE = QMJE + (' + GetValue(DeltaDS, 'JE', gtOld) + ' - ' + GetValue(DeltaDS, 'JEB', gtOld) + '), ' +
        'YXJE = YXJE - ' + GetValue(DeltaDS, 'JEB', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'GYSID', gtOld));
      //ZH
      SqlExec('update ZH set QMJE = QMJE + ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
      SqlExec('delete from CGFK where ZBID = ' + GetValue(DeltaDS, 'ID', gtOld));
    end;
  end;
end;

//采购付款
procedure TDatas.pCgfkAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    SqlExec('update CGSHZB set YFJE = YFJE + ' + GetValue(DeltaDS, 'JE', gtNew) + ' ' +
      'where ID = ' + GetValue(DeltaDS, 'DDID', gtNew));
  ukModify:
    if IsModify(DeltaDS, 'DDID') or IsModify(DeltaDS, 'JE') then
    begin
      SqlExec('update CGSHZB set YFJE = YFJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'DDID', gtOld));
      SqlExec('update CGSHZB set YFJE = YFJE + ' + GetValue(DeltaDS, 'JE', gtCur) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'DDID', gtCur));
    end;
  ukDelete:
    SqlExec('update CGSHZB set YFJE = YFJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
      'where ID = ' + GetValue(DeltaDS, 'DDID', gtOld));
  end;
end;

//采购退货总表
procedure TDatas.pCgthzbAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    begin
      //GYS
      SqlExec('update GYS set YXJE = YXJE + iif(' + GetValue(DeltaDS, 'THLX', gtNew) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'GYSID', gtNew));
      //ZH
      SqlExec('update ZH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'THLX', gtNew) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtNew));
    end;
  ukModify:
    begin
      //GYS
      if IsModify(DeltaDS, 'GYSID') or IsModify(DeltaDS, 'THLX') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update GYS set YXJE = YXJE - iif(' + GetValue(DeltaDS, 'THLX', gtOld) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'GYSID', gtOld));
        SqlExec('update GYS set YXJE = YXJE + iif(' + GetValue(DeltaDS, 'THLX', gtCur) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtCur) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'GYSID', gtCur));
      end;
      //ZH
      if IsModify(DeltaDS, 'ZHID') or IsModify(DeltaDS, 'THLX') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update ZH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'THLX', gtOld) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
        SqlExec('update ZH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'THLX', gtCur) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtCur) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtCur));
      end;
      //HP
      if IsModify(DeltaDS, 'CKID') then
      begin
        SqlExec('update CGTH J, HPKC K set K.JCS = K.JCS + J.SL ' +
          'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
          'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
        SqlExec('update CGTH J, HPKC K set K.JCS = K.JCS - J.SL ' +
          'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
          'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
      end;
    end;
  ukDelete:
    begin
      //HP
      SqlExec('update CGTH J, HPKC K set K.JCS = K.JCS - J.SL ' +
        'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
        'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
      //GYS
      SqlExec('update GYS set YXJE = YXJE - iif(' + GetValue(DeltaDS, 'THLX', gtOld) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'GYSID', gtOld));
      //ZH
      SqlExec('update ZH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'THLX', gtOld) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
      SqlExec('delete from CGTH where ZBID = ' + GetValue(DeltaDS, 'ID', gtOld));
    end;
  end;
end;

//采购退货
procedure TDatas.pCgthAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    SqlExec('update HPKC set JCS = JCS - ' + GetValue(DeltaDS, 'SL', gtNew) + ' ' +
      'where HPID = ' + GetValue(DeltaDS, 'HPID', gtNew) + ' and ' +
      'CKID = ' + GetValue(DeltaDS, 'CKID', gtNew));
  ukModify:
    if IsModify(DeltaDS, 'HPID') or IsModify(DeltaDS, 'SL') then
    begin
      SqlExec('update HPKC set JCS = JCS + ' + GetValue(DeltaDS, 'SL', gtOld) + ' ' +
        'where HPID = ' + GetValue(DeltaDS, 'HPID', gtOld) + ' and ' +
        'CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
      SqlExec('update HPKC set JCS = JCS - ' + GetValue(DeltaDS, 'SL', gtCur) + ' ' +
        'where HPID = ' + GetValue(DeltaDS, 'HPID', gtCur) + ' and ' +
        'CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
    end;
  ukDelete:
    SqlExec('update HPKC set JCS = JCS + ' + GetValue(DeltaDS, 'SL', gtOld) + ' ' +
      'where HPID = ' + GetValue(DeltaDS, 'HPID', gtOld) + ' and ' +
      'CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
  end;
end;

//销售订单总表
procedure TDatas.pXsddzbAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukDelete:
    SqlExec('delete from XSDD where ZBID = ' + GetValue(DeltaDS, 'ID', gtOld));
  end;
end;

//销售开单总表
procedure TDatas.pXskdzbAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    begin
      //KH
      SqlExec('update KH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'XSLX', gtNew) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'KHID', gtNew));
      //ZH
      SqlExec('update ZH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'XSLX', gtNew) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtNew));
    end;
  ukModify:
    begin
      //KH
      if IsModify(DeltaDS, 'KHID') or IsModify(DeltaDS, 'XSLX') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update KH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'XSLX', gtOld) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'KHID', gtOld));
        SqlExec('update KH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'XSLX', gtCur) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtCur) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'KHID', gtCur));
      end;
      //ZH
      if IsModify(DeltaDS, 'ZHID') or IsModify(DeltaDS, 'XSLX') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update ZH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'XSLX', gtOld) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
        SqlExec('update ZH set QMJE = QMJE + iif(' + GetValue(DeltaDS, 'XSLX', gtCur) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtCur) + ', 0) ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtCur));
      end;
      //HP
      if IsModify(DeltaDS, 'CKID') then
      begin
        SqlExec('update XSKD J, HPKC K set K.JCS = K.JCS + J.SL ' +
          'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
          'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
        SqlExec('update XSKD J, HPKC K set K.JCS = K.JCS - J.SL ' +
          'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
          'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
      end;
    end;
  ukDelete:
    begin
      //HP
      SqlExec('update XSKD J, HPKC K set K.JCS = K.JCS + J.SL ' +
        'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
        'J.HPID = K.HPID and K.CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
      //KH
      SqlExec('update KH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'XSLX', gtOld) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'KHID', gtOld));
      //ZH
      SqlExec('update ZH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'XSLX', gtOld) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtOld) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
      SqlExec('delete from XSKD where ZBID = ' + GetValue(DeltaDS, 'ID', gtOld));
    end;
  end;
end;

//销售开单
procedure TDatas.pXskdAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    SqlExec('update HPKC set JCS = JCS - ' + GetValue(DeltaDS, 'SL', gtNew) + ' ' +
      'where HPID = ' + GetValue(DeltaDS, 'HPID', gtNew) + ' and ' +
      'CKID = ' + GetValue(DeltaDS, 'CKID', gtNew));
  ukModify:
    if IsModify(DeltaDS, 'HPID') or IsModify(DeltaDS, 'SL') then
    begin
      SqlExec('update HPKC set JCS = JCS + ' + GetValue(DeltaDS, 'SL', gtOld) + ' ' +
        'where HPID = ' + GetValue(DeltaDS, 'HPID', gtOld) + ' and ' +
        'CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
      SqlExec('update HPKC set JCS = JCS - ' + GetValue(DeltaDS, 'SL', gtCur) + ' ' +
        'where HPID = ' + GetValue(DeltaDS, 'HPID', gtCur) + ' and ' +
        'CKID = ' + GetValue(DeltaDS, 'CKID', gtCur));
    end;
  ukDelete:
    SqlExec('update HPKC set JCS = JCS + ' + GetValue(DeltaDS, 'SL', gtOld) + ' ' +
      'where HPID = ' + GetValue(DeltaDS, 'HPID', gtOld) + ' and ' +
      'CKID = ' + GetValue(DeltaDS, 'CKID', gtOld));
  end;
end;

//销售收款总表
procedure TDatas.pXsskzbAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    begin
      //KH
      SqlExec('update KH set ' +
        'QMJE = QMJE - (' + GetValue(DeltaDS, 'JE', gtNew) + ' - ' + GetValue(DeltaDS, 'JEB', gtNew) + '), ' +
        'YXJE = YXJE + ' + GetValue(DeltaDS, 'JEB', gtNew) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'KHID', gtNew));
      //ZH
      SqlExec('update ZH set QMJE = QMJE + ' + GetValue(DeltaDS, 'JE', gtNew) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtNew));
    end;
  ukModify:
    begin
      //KH
      if IsModify(DeltaDS, 'KHID') or IsModify(DeltaDS, 'JE') or
        IsModify(DeltaDS, 'JEB') then
      begin
        SqlExec('update KH set ' +
          'QMJE = QMJE + (' + GetValue(DeltaDS, 'JE', gtOld) + ' - ' + GetValue(DeltaDS, 'JEB', gtOld) + '), ' +
          'YXJE = YXJE - ' + GetValue(DeltaDS, 'JEB', gtOld) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'KHID', gtOld));
        SqlExec('update KH set ' +
          'QMJE = QMJE - (' + GetValue(DeltaDS, 'JE', gtCur) + ' - ' + GetValue(DeltaDS, 'JEB', gtCur) + '), ' +
          'YXJE = YXJE + ' + GetValue(DeltaDS, 'JEB', gtCur) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'KHID', gtCur));
      end;
      //ZH
      if IsModify(DeltaDS, 'ZHID') or IsModify(DeltaDS, 'JE') then
      begin
        SqlExec('update ZH set QMJE = QMJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
        SqlExec('update ZH set QMJE = QMJE + ' + GetValue(DeltaDS, 'JE', gtCur) + ' ' +
          'where ID = ' + GetValue(DeltaDS, 'ZHID', gtCur));
      end;
    end;
  ukDelete:
    begin
      SqlExec('update XSSK J, XSKDZB S set S.YSJE = S.YSJE - J.JE ' +
        'where J.ZBID = ' + GetValue(DeltaDS, 'ID', gtOld) + ' and ' +
        'J.DDID = S.ID');
      //KH
      SqlExec('update KH set ' +
        'QMJE = QMJE + (' + GetValue(DeltaDS, 'JE', gtOld) + ' - ' + GetValue(DeltaDS, 'JEB', gtOld) + '), ' +
        'YXJE = YXJE - ' + GetValue(DeltaDS, 'JEB', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'KHID', gtOld));
      //ZH
      SqlExec('update ZH set QMJE = QMJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtOld));
      SqlExec('delete from XSSK where ZBID = ' + GetValue(DeltaDS, 'ID', gtOld));
    end;
  end;
end;

//销售收款
procedure TDatas.pXsskAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    SqlExec('update XSKDZB set YSJE = YSJE + ' + GetValue(DeltaDS, 'JE', gtNew) + ' ' +
      'where ID = ' + GetValue(DeltaDS, 'DDID', gtNew));
  ukModify:
    if IsModify(DeltaDS, 'DDID') or IsModify(DeltaDS, 'JE') then
    begin
      SqlExec('update XSKDZB set YSJE = YSJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'DDID', gtOld));
      SqlExec('update XSKDZB set YSJE = YSJE + ' + GetValue(DeltaDS, 'JE', gtCur) + ' ' +
        'where ID = ' + GetValue(DeltaDS, 'DDID', gtCur));
    end;
  ukDelete:
    SqlExec('update XSKDZB set YSJE = YSJE - ' + GetValue(DeltaDS, 'JE', gtOld) + ' ' +
      'where ID = ' + GetValue(DeltaDS, 'DDID', gtOld));
  end;
end;

//销售退款总表
procedure TDatas.pXsthzbAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TClientDataSet; UpdateKind: TUpdateKind);
begin
  case UpdateKind of
  ukInsert:
    begin
      //KH
      SqlExec('update KH set YXJE = YXJE + iif(' + GetValue(DeltaDS, 'THLX', gtNew) + ' = 2, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'KHID', gtNew));
      //ZH
      SqlExec('update ZH set QMJE = QMJE - iif(' + GetValue(DeltaDS, 'THLX', gtNew) + ' = 1, ' + GetValue(DeltaDS, 'JE', gtNew) + ', 0) ' +
        'where ID = ' + GetValue(DeltaDS, 'ZHID', gtNew));
    end;
  ukModify:
    begin
      //KH
      if IsModify
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -