.#pchinretfrm.dfm.1.31

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

            Columns = <
              item
                EditButtons = <>
                FieldName = 'ExpenseType'
                Footers = <>
                Title.Alignment = taCenter
                Width = 79
              end
              item
                EditButtons = <>
                FieldName = 'Amount'
                Footers = <>
                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 = 450
      Width = 778
      Height = 55
      object Label17: TLabel
        Left = 615
        Top = 8
        Width = 48
        Height = 12
        Caption = #36135#21697#24635#25968
      end
      object Label18: TLabel
        Left = 28
        Top = 8
        Width = 48
        Height = 12
        Caption = #36135'    '#27454
      end
      object Label12: TLabel
        Left = 340
        Top = 8
        Width = 30
        Height = 12
        Caption = #31246' '#27454
      end
      object Label13: TLabel
        Left = 488
        Top = 8
        Width = 30
        Height = 12
        Caption = #21512' '#35745
      end
      object Label16: TLabel
        Left = 28
        Top = 33
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object Label19: TLabel
        Left = 192
        Top = 8
        Width = 30
        Height = 12
        Caption = #31246' '#29575
      end
      object RzLabel7: TRzLabel
        Left = 484
        Top = 37
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 524
        Top = 37
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsPchInRet
      end
      object RzLabel16: TRzLabel
        Left = 614
        Top = 37
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 669
        Top = 37
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsPchInRet
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 668
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchInRet
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 84
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchInRet
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 2
      end
      object DBEdit12: TRzDBEdit
        Tag = -1
        Left = 375
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchInRet
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
      end
      object DBEdit13: TRzDBEdit
        Tag = -1
        Left = 523
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchInRet
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object DBEdit16: TRzDBEdit
        Left = 84
        Top = 30
        Width = 367
        Height = 20
        DataSource = DsPchInRet
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBEdit3: TRzDBEdit
        Tag = -1
        Left = 228
        Top = 4
        Width = 77
        Height = 20
        DataSource = DsPchInRet
        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 = 180
    Top = 220
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 248
    Top = 300
  end
  inherited ImgPopMenu: TImageList
    Left = 176
    Top = 300
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{61EFC14A-805A-4497-9C53-2707D0E83759}'
    ServerName = 'CKPurchInBase.PurchInRDM'
    Left = 321
    Top = 199
  end
  object CdsPchInRet: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspPchInRet'
    RemoteServer = DComConn
    AfterScroll = CdsPchInRetAfterScroll
    OnNewRecord = CdsPchInRetNewRecord
    OnReconcileError = CdsPchInRetReconcileError
    Left = 397
    Top = 199
    object CdsPchInRetBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchInRetFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchInRetRefBillNo: TStringField
      FieldName = 'RefBillNo'
    end
    object CdsPchInRetEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsPchInRetEmpNoChange
      Size = 8
    end
    object CdsPchInRetName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchInRetAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchInRetProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPchInRetProvNoChange
      Size = 8
    end
    object CdsPchInRetProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchInRetLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchInRetGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsPchInRetGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchInRetTaxRate: TBCDField
      FieldName = 'TaxRate'
      Precision = 6
      Size = 2
    end
    object CdsPchInRetTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchInRetAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchInRetPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsPchInRetPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsPchInRetRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsPchInRetFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsPchInRetTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchInRetGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchInRetInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsPchInRetAdsPchInRetExpense: TDataSetField
      FieldName = 'AdsPchInRetExpense'
    end
    object CdsPchInRetAdsPchInRetDtl: TDataSetField
      FieldName = 'AdsPchInRetDtl'
    end
    object CdsPchInRetCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchInRetCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object DsPchInRet: TDataSource
    DataSet = CdsPchInRet
    Left = 509
    Top = 199
  end
  object DsPchInRetDtl: TDataSource
    DataSet = CdsPchInRetDtl
    Left = 509
    Top = 259
  end
  object CdsPchInRetDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchInRetAdsPchInRetDtl
    FetchOnDemand = False
    Params = <>
    AfterOpen = CdsPchInRetDtlAfterOpen
    BeforeInsert = CdsPchInRetDtlBeforeInsert
    BeforeEdit = CdsPchInRetDtlBeforeEdit
    AfterPost = CdsPchInRetDtlAfterPost
    AfterDelete = CdsPchInRetDtlAfterPost
    OnNewRecord = CdsPchInRetDtlNewRecord
    Left = 397
    Top = 259
    object CdsPchInRetDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchInRetDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchInRetDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      Required = True
      OnChange = CdsPchInRetDtlGoodsIDChange
      Size = 16
    end
    object CdsPchInRetDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsPchInRetDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsPchInRetDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchInRetDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = CdsPchInRetDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsPchInRetDtlprice: TFloatField
      FieldName = 'Price'
      Required = True
      OnChange = CdsPchInRetDtlpriceChange
    end
    object CdsPchInRetDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsPchInRetDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsPchInRetDtlUnTaxprice: TFloatField
      FieldName = 'UnTaxPrice'
      OnChange = CdsPchInRetDtlUnTaxpriceChange
    end
    object CdsPchInRetDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchInRetDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchInRetDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchInRetDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsPchInRetDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsPchInRetDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsPchInRetDtlDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsPchInRetDtlDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      OnChange = CdsPchInRetDtlDepotNoChange
      Size = 12
    end
    object CdsPchInRetDtlDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object CdsPchInRetDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsPchInRetDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsPchInRetDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 12
      Size = 3
    end
    object CdsPchInRetDtlProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
  end
  object CdsPchInRetExpense: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchInRetAdsPchInRetExpense
    FetchOnDemand = False
    Params = <>
    OnNewRecord = CdsPchInRetExpenseNewRecord
    Left = 401
    Top = 315
    object CdsPchInRetExpenseBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchInRetExpenseExpenseType: TStringField
      FieldName = 'ExpenseType'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 12
    end
    object CdsPchInRetExpenseAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchInRetExpenseRemark: TStringField
      FieldName = 'Remark'
      Size = 60
    end
  end
  object DsPchInRetExpense: TDataSource
    DataSet = CdsPchInRetExpense
    Left = 509
    Top = 315
  end
end