purchpayfrm.dfm

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

            Footers = <>
            ReadOnly = True
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = 'PDate'
            Footers = <>
            ReadOnly = True
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            ReadOnly = True
            OnEditButtonClick = dbgPurchPayDtlColumns3EditButtonClick
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            ReadOnly = True
          end
          item
            EditButtons = <>
            FieldName = 'PAmount'
            Footers = <
              item
                Alignment = taCenter
                FieldName = 'PAmount'
                Value = '0.00'
                ValueType = fvtSum
              end>
            ReadOnly = True
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'PPaidUp'
            Footers = <
              item
                Alignment = taCenter
                FieldName = 'PPaidUp'
                Value = '0.00'
                ValueType = fvtSum
              end>
            ReadOnly = True
            Width = 66
          end
          item
            EditButtons = <>
            FieldName = 'PUnPaid'
            Footers = <
              item
                Alignment = taCenter
                FieldName = 'PUnPaid'
                Value = '0.00'
                ValueType = fvtSum
                WordWrap = True
              end>
            ReadOnly = True
            Width = 88
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <
              item
                Alignment = taCenter
                FieldName = 'PaidUp'
                Value = '0.00'
                ValueType = fvtSum
              end>
            Width = 87
          end
          item
            EditButtons = <>
            FieldName = 'Settle'
            Footers = <>
            ReadOnly = True
            Width = 42
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 461
      Width = 777
      Height = 28
      object Label16: TLabel
        Left = 16
        Top = 8
        Width = 48
        Height = 12
        Caption = #22791'  '#27880#65306
      end
      object RzLabel7: TRzLabel
        Left = 372
        Top = 9
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 422
        Top = 9
        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 = DsPurchPay
      end
      object RzLabel16: TRzLabel
        Left = 556
        Top = 9
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 615
        Top = 8
        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 = DsPurchPay
      end
      object DBEdit16: TRzDBEdit
        Left = 64
        Top = 4
        Width = 285
        Height = 20
        DataSource = DsPurchPay
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      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
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 232
    Top = 308
  end
  inherited ImgPopMenu: TImageList
    Left = 312
    Top = 308
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{61EFC14A-805A-4497-9C53-2707D0E83759}'
    ServerName = 'CKPurchInBase.PurchInRDM'
    Left = 321
    Top = 199
  end
  object CdsPurchPay: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspPurchPay'
    RemoteServer = DComConn
    AfterScroll = CdsPurchPayAfterScroll
    OnNewRecord = CdsPurchPayNewRecord
    OnReconcileError = CdsPurchPayReconcileError
    Left = 401
    Top = 199
    object CdsPurchPayBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPurchPayFDATE: TDateTimeField
      FieldName = 'FDATE'
    end
    object CdsPurchPayProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPurchPayProvNoChange
      Size = 8
    end
    object CdsPurchPayProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPurchPayDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object CdsPurchPayDepartNo: TStringField
      FieldName = 'DepartNo'
      ProviderFlags = []
      OnChange = CdsPurchPayDepartNoChange
      Size = 12
    end
    object CdsPurchPayDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object CdsPurchPayPayKind: TSmallintField
      FieldName = 'PayKind'
    end
    object CdsPurchPayCurrPay: TBCDField
      FieldName = 'CurrPay'
      OnChange = CdsPurchPayCurrPayChange
      DisplayFormat = '0.0000'
      EditFormat = '0.0000'
      Precision = 19
    end
    object CdsPurchPayChequeNo: TStringField
      FieldName = 'ChequeNo'
    end
    object CdsPurchPayUsePrePay: TBooleanField
      FieldName = 'UsePrePay'
    end
    object CdsPurchPayPrePay: TBCDField
      Alignment = taLeftJustify
      FieldName = 'PrePay'
      DisplayFormat = '0.0000'
      Precision = 19
    end
    object CdsPurchPayPaidUp: TBCDField
      FieldName = 'PaidUp'
      DisplayFormat = '0.0000'
      EditFormat = '0.0000'
      Precision = 19
    end
    object CdsPurchPayAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPurchPayTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPurchPayInvoice: TStringField
      FieldName = 'Invoice'
      Size = 12
    end
    object CdsPurchPayRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsPurchPayAdsPurchPayDtl: TDataSetField
      FieldName = 'AdsPurchPayDtl'
    end
    object CdsPurchPayCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPurchPayCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsPurchPayMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPurchPayUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsPurchPayGrup: TIntegerField
      FieldName = 'Grup'
    end
  end
  object DsPurchPay: TDataSource
    DataSet = CdsPurchPay
    Left = 493
    Top = 199
  end
  object DsPurchPayDtl: TDataSource
    DataSet = CdsPurchPayDtl
    Left = 493
    Top = 263
  end
  object CdsPurchPayDtl: TckClientDataSet
    Aggregates = <>
    AggregatesActive = True
    DataSetField = CdsPurchPayAdsPurchPayDtl
    FieldDefs = <
      item
        Name = 'BillNo'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ItemNo'
        DataType = ftInteger
      end
      item
        Name = 'PInOutKind'
        DataType = ftSmallint
      end
      item
        Name = 'PDate'
        DataType = ftDateTime
      end
      item
        Name = 'PItemNo'
        DataType = ftInteger
      end
      item
        Name = 'GoodsID'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'PAmount'
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'PPaidUp'
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'PUnPaid'
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'PaidUp'
        DataType = ftBCD
        Precision = 19
        Size = 4
      end
      item
        Name = 'Settle'
        DataType = ftBoolean
      end
      item
        Name = 'PBillNo'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    BeforeInsert = CdsPurchPayDtlBeforeInsert
    OnNewRecord = CdsPurchPayDtlNewRecord
    Left = 400
    Top = 264
    object CdsPurchPayDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPurchPayDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPurchPayDtlPInOutKind: TSmallintField
      FieldName = 'PInOutKind'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPurchPayDtlPDate: TDateTimeField
      FieldName = 'PDate'
    end
    object CdsPurchPayDtlPBillNo: TStringField
      FieldName = 'PBillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPurchPayDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsPurchPayDtlPAmount: TBCDField
      FieldName = 'PAmount'
      Precision = 19
    end
    object CdsPurchPayDtlPPaidUp: TBCDField
      FieldName = 'PPaidUp'
      Precision = 19
    end
    object CdsPurchPayDtlPUnPaid: TBCDField
      FieldName = 'PUnPaid'
      Precision = 19
    end
    object CdsPurchPayDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      OnChange = CdsPurchPayDtlPaidUpChange
      Precision = 19
    end
    object CdsPurchPayDtlSettle: TBooleanField
      FieldName = 'Settle'
    end
  end
end