开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
WzglDB.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：4k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

WzglDB.pas：源码内容
  1. unit WzglDB;
  3. interface
  5. uses
  6.   SysUtils, Classes, DB, DBClient, MConnect, SConnect,dialogs;
  8. type
  9.   TDM = class(TDataModule)
  10.     CDS_QXGL_YHSZ: TClientDataSet;
  11.     CDS_QXGL_ZHSZ: TClientDataSet;
  12.     CDS_QXGL_ZHNR: TClientDataSet;
  13.     CDS_QXGL_ZHSZCDSDesigner: TStringField;
  14.     CDS_QXGL_ZHSZCDSDesigner2: TStringField;
  15.     CDS_QXGL_ZHSZCDSDesigner3: TStringField;
  16.     CDS_QXGL_ZHSZQ_QXGL_ZHNR: TDataSetField;
  17.     CDS_QXGL_ZHSZ_INDEX: TClientDataSet;
  18.     CDS_QXGL_ZHNR_INDEX: TClientDataSet;
  19.     CDS_QXGL_YHSZ_INDEX: TClientDataSet;
  20.     CDS_ZGDA: TClientDataSet;
  21.     CDS_BMDA: TClientDataSet;
  22.     CDS_DQFLB: TClientDataSet;
  23.     CDS_GYSFLB: TClientDataSet;
  24.     CDS_GYSDA: TClientDataSet;
  25.     CDS_DQFLB_INDEX: TClientDataSet;
  26.     CDS_GYSFLB_INDEX: TClientDataSet;
  27.     CDS_GYSDA_INDEX: TClientDataSet;
  28.     CDS_ZGDA_INDEX: TClientDataSet;
  29.     CDS_BMDA_INDEX: TClientDataSet;
  30.     CDS_CLSLD_CX: TClientDataSet;
  31.     CDS_CLSLD: TClientDataSet;
  32.     CDS_CLSLD_DETAIL: TClientDataSet;
  33.     CDS_CLBM_INDEX: TClientDataSet;
  34.     CDS_CLBM_TEMP_INDEX: TClientDataSet;
  35.     CDS_CKXX_INDEX: TClientDataSet;
  36.     CDS_CKXX: TClientDataSet;
  37.     CDS_CKXXCDSDesigner: TStringField;
  38.     CDS_CKXXCDSDesigner2: TStringField;
  39.     CDS_CKXXCDSDesigner3: TStringField;
  40.     CDS_CKXXCDSDesigner4: TStringField;
  41.     CDS_CKXXCDSDesigner5: TStringField;
  42.     CDS_CLSLD_INDEX: TClientDataSet;
  43.     CDS_CLSLD_DETAIL_INDEX: TClientDataSet;
  44.     CDS_BMLLD: TClientDataSet;
  45.     CDS_BMLLD_DETAIL: TClientDataSet;
  46.     CDS_BMLLD_DETAIL_INDEX: TClientDataSet;
  47.     CDS_BMLLD_CX: TClientDataSet;
  48.     CDS_BMLLDCDSDesigner: TStringField;
  49.     CDS_BMLLDCDSDesigner2: TStringField;
  50.     CDS_BMLLDCDSDesigner3: TStringField;
  51.     CDS_BMLLDCDSDesigner4: TDateTimeField;
  52.     CDS_BMLLDCDSDesigner5: TStringField;
  53.     CDS_BMLLDCDSDesigner6: TStringField;
  54.     CDS_BMLLDCDSDesigner7: TStringField;
  55.     CDS_BMLLDCDSDesigner8: TStringField;
  56.     CDS_BMLLDCDSDesigner9: TStringField;
  57.     CDS_BMLLDCDSDesigner10: TStringField;
  58.     CDS_BMLLDCDSDesigner11: TStringField;
  59.     CDS_BMLLDCDSDesigner12: TStringField;
  60.     CDS_BMLLDCDSDesigner13: TBooleanField;
  61.     CDS_BMLLDCDSDesigner14: TDateTimeField;
  62.     CDS_BMLLDQ_BMLLD_DETAIL: TDataSetField;
  63.     CDS_BMLLD_INDEX: TClientDataSet;
  64.     CDS_GCXMDY: TClientDataSet;
  65.     CDS_GCXMDY_INDEX: TClientDataSet;
  66.     CDS_KC: TClientDataSet;
  67.     CDS_CLSLDCDSDesigner: TStringField;
  68.     CDS_CLSLDCDSDesigner2: TStringField;
  69.     CDS_CLSLDCDSDesigner3: TDateTimeField;
  70.     CDS_CLSLDCDSDesigner4: TStringField;
  71.     CDS_CLSLDCDSDesigner5: TStringField;
  72.     CDS_CLSLDCDSDesigner6: TStringField;
  73.     CDS_CLSLDCDSDesigner7: TStringField;
  74.     CDS_CLSLDCDSDesigner8: TFloatField;
  75.     CDS_CLSLDCDSDesigner9: TFloatField;
  76.     CDS_CLSLDCDSDesigner10: TStringField;
  77.     CDS_CLSLDCDSDesigner11: TStringField;
  78.     CDS_CLSLDCDSDesigner12: TStringField;
  79.     CDS_CLSLDCDSDesigner13: TStringField;
  80.     CDS_CLSLDCDSDesigner14: TStringField;
  81.     CDS_CLSLDCDSDesigner15: TBooleanField;
  82.     CDS_CLSLDCDSDesigner16: TDateTimeField;
  83.     CDS_CLSLDCDSDesigner17: TStringField;
  84.     CDS_CLSLDQ_CLSLD_DETAIL: TDataSetField;
  85.     CDS_CLSLD_DETAILID: TAutoIncField;
  86.     CDS_CLSLD_DETAILCDSDesigner: TStringField;
  87.     CDS_CLSLD_DETAILCDSDesigner2: TStringField;
  88.     CDS_CLSLD_DETAILCDSDesigner3: TStringField;
  89.     CDS_CLSLD_DETAILCDSDesigner4: TFloatField;
  90.     CDS_CLSLD_DETAILCDSDesigner5: TFloatField;
  91.     CDS_CLSLD_DETAILCDSDesigner6: TFloatField;
  92.     CDS_CLSLD_DETAILCDSDesigner7: TStringField;
  93.     CDS_CLSLD_DETAILCDSDesigner8: TStringField;
  94.     CDS_CLSLD_DETAILCDSDesigner9: TStringField;
  95.     CDS_CLSLD_DETAILCDSDesigner10: TCurrencyField;
  96.     CDS_CLSLD_DETAILCDSDesigner11: TStringField;
  97.     CDS_CLSLD_DETAILField: TFloatField;
  98.     procedure CDS_CLSLD_DETAILCalcFields(DataSet: TDataSet);
  99.     procedure CDS_CLSLDReconcileError(DataSet: TCustomClientDataSet;
  100.       E: EReconcileError; UpdateKind: TUpdateKind;
  101.       var Action: TReconcileAction);
  102.   private
  103.     { Private declarations }
  104.   public
  105.     { Public declarations }
  106.   end;
  108. var
  109.   DM: TDM;
  111. implementation
  113. uses U_mainform;
  115. {$R *.dfm}
  117. procedure TDM.CDS_CLSLD_DETAILCalcFields(DataSet: TDataSet);
  118. begin
  119.   CDS_CLSLD_DETAIL.FieldByName('入库总价').value := CDS_CLSLD_DETAIL.fieldbyname('实收数量').asfloat * CDS_CLSLD_DETAIL.fieldbyname('入库单价').asfloat;
  120. end;
  122. procedure TDM.CDS_CLSLDReconcileError(DataSet: TCustomClientDataSet;
  123.   E: EReconcileError; UpdateKind: TUpdateKind;
  124.   var Action: TReconcileAction);
  125. begin
  126.   showMessage(e.Message );
  127. end;
  129. end.