pchreceivefrm.~dfm

来自「医药连锁经营管理系统源码」· ~DFM 代码 · 共 1,016 行 · 第 1/2 页

                Title.Alignment = taCenter
                Width = 87
              end
              item
                EditButtons = <>
                FieldName = 'Remark'
                Footers = <>
                Title.Alignment = taCenter
                Width = 270
              end>
          end
        end
      end
    end
    inherited plFooter: TRzPanel
      Top = 375
      Width = 754
      Height = 55
      object Label17: TLabel
        Left = 604
        Top = 8
        Width = 48
        Height = 12
        Caption = #36135#21697#24635#25968
      end
      object Label18: TLabel
        Left = 12
        Top = 8
        Width = 48
        Height = 12
        Caption = #36135'    '#27454
      end
      object Label12: TLabel
        Left = 332
        Top = 8
        Width = 30
        Height = 12
        Caption = #31246' '#27454
      end
      object Label13: TLabel
        Left = 468
        Top = 8
        Width = 36
        Height = 12
        Caption = #21512'  '#35745
      end
      object Label16: TLabel
        Left = 12
        Top = 34
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object Label19: TLabel
        Left = 184
        Top = 7
        Width = 30
        Height = 12
        Caption = #31246' '#29575
      end
      object RzLabel7: TRzLabel
        Left = 468
        Top = 34
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 510
        Top = 33
        Width = 60
        Height = 12
        Anchors = [akLeft, akTop, akRight, akBottom]
        AutoSize = True
        BiDiMode = bdLeftToRight
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsPchReceive
      end
      object RzLabel16: TRzLabel
        Left = 603
        Top = 33
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 658
        Top = 32
        Width = 60
        Height = 12
        AutoSize = True
        BiDiMode = bdRightToLeftReadingOnly
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsPchReceive
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 658
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchReceive
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 68
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchReceive
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object DBEdit12: TRzDBEdit
        Tag = -1
        Left = 367
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchReceive
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
      end
      object DBEdit13: TRzDBEdit
        Tag = -1
        Left = 510
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchReceive
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object DBEdit16: TRzDBEdit
        Left = 68
        Top = 30
        Width = 377
        Height = 20
        DataSource = DsPchReceive
        DataField = 'Remark'
        BiDiMode = bdRightToLeftReadingOnly
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentBiDiMode = False
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBEdit3: TRzDBEdit
        Tag = -1
        Left = 220
        Top = 3
        Width = 77
        Height = 20
        DataSource = DsPchReceive
        DataField = 'TaxRate'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 5
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 44
    Top = 220
  end
  inherited ImageList1: TImageList
    Left = 116
    Top = 220
  end
  inherited ActionList1: TActionList
    Left = 184
    Top = 228
    inherited ActAudit: TModlAction
      ModuleFile = 'StockMain.Bpl;TFmStockIn'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Caption = #32467#31639
      Visible = False
      ModuleFile = 'StockMain.Bpl;StockInFrm'
    end
  end
  inherited ImgPopMenu: TImageList
    Left = 400
    Top = 84
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{61EFC14A-805A-4497-9C53-2707D0E83759}'
    ServerName = 'CKPurchInBase.PurchInRDM'
    Left = 321
    Top = 199
  end
  object CdsPchReceive: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspPchReceive'
    RemoteServer = DComConn
    AfterScroll = CdsPchReceiveAfterScroll
    OnNewRecord = CdsPchReceiveNewRecord
    OnReconcileError = CdsPchReceiveReconcileError
    Left = 397
    Top = 199
    object CdsPchReceiveBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchReceiveFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchReceiveRefBillNo: TStringField
      FieldName = 'RefBillNo'
    end
    object CdsPchReceiveEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsPchReceiveEmpNoChange
      Size = 8
    end
    object CdsPchReceiveName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchReceiveAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchReceiveProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPchReceiveProvNoChange
      Size = 8
    end
    object CdsPchReceiveProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchReceiveLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchReceiveGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsPchReceiveGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchReceiveTaxRate: TBCDField
      FieldName = 'TaxRate'
      Precision = 6
      Size = 2
    end
    object CdsPchReceiveTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchReceiveAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchReceivePayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsPchReceivePayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsPchReceiveRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsPchReceiveFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsPchReceiveTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchReceiveGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchReceiveInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsPchReceiveCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchReceiveMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPchReceiveAdsPchExpense: TDataSetField
      FieldName = 'AdsPchExpense'
    end
    object CdsPchReceiveAdsPchReceiveDtl: TDataSetField
      FieldName = 'AdsPchReceiveDtl'
    end
    object CdsPchReceiveCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object DsPchReceive: TDataSource
    DataSet = CdsPchReceive
    Left = 493
    Top = 199
  end
  object DsPchReceiveDtl: TDataSource
    DataSet = CdsPchReceiveDtl
    Left = 493
    Top = 259
  end
  object CdsPchReceiveDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchReceiveAdsPchReceiveDtl
    FetchOnDemand = False
    Params = <>
    AfterOpen = CdsPchReceiveDtlAfterOpen
    BeforeInsert = CdsPchReceiveDtlBeforeInsert
    AfterPost = CdsPchReceiveDtlAfterPost
    AfterDelete = CdsPchReceiveDtlAfterPost
    OnNewRecord = CdsPchReceiveDtlNewRecord
    Left = 397
    Top = 264
    object CdsPchReceiveDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchReceiveDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchReceiveDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsPchReceiveDtlGoodsIDChange
      Size = 16
    end
    object CdsPchReceiveDtlName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsPchReceiveDtlSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsPchReceiveDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchReceiveDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsPchReceiveDtlQTYChange
      Precision = 12
      Size = 3
    end
    object CdsPchReceiveDtlprice: TFloatField
      FieldName = 'Price'
      OnChange = CdsPchReceiveDtlpriceChange
    end
    object CdsPchReceiveDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsPchReceiveDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsPchReceiveDtlUnTaxprice: TFloatField
      FieldName = 'UnTaxPrice'
      OnChange = CdsPchReceiveDtlUnTaxpriceChange
    end
    object CdsPchReceiveDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchReceiveDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchReceiveDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchReceiveDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsPchReceiveDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
      OnChange = CdsPchReceiveDtlProdDateChange
    end
    object CdsPchReceiveDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
      OnChange = CdsPchReceiveDtlProdDateChange
    end
    object CdsPchReceiveDtlDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsPchReceiveDtlDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      OnChange = CdsPchReceiveDtlDepotNoChange
      Size = 12
    end
    object CdsPchReceiveDtlDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object CdsPchReceiveDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsPchReceiveDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsPchReceiveDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 12
      Size = 3
    end
    object CdsPchReceiveDtlProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
  end
  object CdsPchExpense: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchReceiveAdsPchExpense
    FetchOnDemand = False
    Params = <>
    OnNewRecord = CdsPchExpenseNewRecord
    Left = 397
    Top = 315
    object CdsPchExpenseBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchExpenseExpenseType: TStringField
      FieldName = 'ExpenseType'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 12
    end
    object CdsPchExpenseAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchExpenseRemark: TStringField
      FieldName = 'Remark'
      Size = 60
    end
  end
  object DsPchExpense: TDataSource
    DataSet = CdsPchExpense
    Left = 493
    Top = 315
  end
  object CdsTemp: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspTemp'
    RemoteServer = DComConn
    Left = 88
    Top = 301
  end
end