sellpayfrm.~dfm

医药连锁经营管理系统源码

      Height = 376
      object dbgPurchPayDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 777
        Height = 376
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsSellPayDtl
        Flat = True
        FooterColor = clInfoBk
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        RowHeight = 16
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 28
          end
          item
            EditButtons = <>
            FieldName = 'PInOutKind'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PDate'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            OnEditButtonClick = dbgPurchPayDtlColumns3EditButtonClick
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PAmount'
            Footer.FieldName = 'PAmount'
            Footer.ValueType = fvtSum
            Footer.WordWrap = True
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PPaidUp'
            Footer.FieldName = 'PPaidUp'
            Footer.ValueType = fvtSum
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PUnPaid'
            Footer.FieldName = 'PUnPaid'
            Footer.ValueType = fvtSum
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footer.FieldName = 'PaidUp'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Settle'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 497
      Width = 777
      Height = 30
      object Label16: TLabel
        Left = 28
        Top = 9
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object RzLabel7: TRzLabel
        Left = 424
        Top = 10
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 466
        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 = DsSellPay
      end
      object RzLabel16: TRzLabel
        Left = 584
        Top = 10
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 639
        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 = 'CreatTime'
        DataSource = DsSellPay
      end
      object DBEdit16: TRzDBEdit
        Left = 84
        Top = 5
        Width = 265
        Height = 20
        DataSource = DsSellPay
        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 = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 321
    Top = 199
  end
  object CdsSellPay: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspSellPay'
    RemoteServer = DComConn
    AfterScroll = CdsSellPayAfterScroll
    OnNewRecord = CdsSellPayNewRecord
    OnReconcileError = CdsSellPayReconcileError
    Left = 397
    Top = 199
    object CdsSellPayBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSellPayFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSellPayCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = CdsSellPayCustNoChange
      Size = 8
    end
    object CdsSellPayCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSellPayDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object CdsSellPayDepartNo: TStringField
      FieldName = 'DepartNo'
      ProviderFlags = []
      OnChange = CdsSellPayDepartNoChange
      Size = 12
    end
    object CdsSellPayDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object CdsSellPayPayKind: TSmallintField
      FieldName = 'PayKind'
    end
    object CdsSellPayChequeNo: TStringField
      FieldName = 'ChequeNo'
    end
    object CdsSellPayCurrPay: TBCDField
      FieldName = 'CurrPay'
      OnChange = CdsSellPayCurrPayChange
      DisplayFormat = '0.0000'
      EditFormat = '0.0000'
      Precision = 19
    end
    object CdsSellPayUsePrePay: TBooleanField
      FieldName = 'UsePrePay'
    end
    object CdsSellPayPrePay: TBCDField
      Alignment = taLeftJustify
      FieldName = 'PrePay'
      DisplayFormat = '0.0000'
      EditFormat = '0.0000'
      Precision = 19
    end
    object CdsSellPayPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 19
    end
    object CdsSellPayAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSellPayTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSellPayInvoice: TStringField
      FieldName = 'Invoice'
      Size = 12
    end
    object CdsSellPayRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsSellPayCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSellPayCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsSellPayMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSellPayUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsSellPayGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSellPayAdsSellPayDtl: TDataSetField
      FieldName = 'AdsSellPayDtl'
    end
  end
  object DsSellPay: TDataSource
    DataSet = CdsSellPay
    Left = 493
    Top = 199
  end
  object DsSellPayDtl: TDataSource
    DataSet = CdsSellPayDtl
    Left = 493
    Top = 267
  end
  object CdsSellPayDtl: TckClientDataSet
    Aggregates = <>
    AggregatesActive = True
    DataSetField = CdsSellPayAdsSellPayDtl
    Params = <>
    BeforeInsert = CdsSellPayDtlBeforeInsert
    OnNewRecord = CdsSellPayDtlNewRecord
    Left = 396
    Top = 268
    object CdsSellPayDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSellPayDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSellPayDtlPInOutKind: TSmallintField
      FieldName = 'PInOutKind'
    end
    object CdsSellPayDtlPDate: TDateTimeField
      FieldName = 'PDate'
    end
    object CdsSellPayDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSellPayDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsSellPayDtlPAmount: TBCDField
      FieldName = 'PAmount'
      Precision = 19
    end
    object CdsSellPayDtlPPaidUp: TBCDField
      FieldName = 'PPaidUp'
      Precision = 19
    end
    object CdsSellPayDtlPUnPaid: TBCDField
      FieldName = 'PUnPaid'
      Precision = 19
    end
    object CdsSellPayDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      OnChange = CdsSellPayDtlPaidUpChange
      Precision = 19
    end
    object CdsSellPayDtlSettle: TBooleanField
      FieldName = 'Settle'
    end
  end
end