pchsettlefrm.dfm

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

            Footers = <>
            Title.Alignment = taCenter
            Width = 66
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CostPrice'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CostAmount'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PayDone'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PayDoneDate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 446
      Width = 782
      Height = 56
      object RzLabel15: TRzLabel
        Left = 615
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #21512#35745#65306
      end
      object RzLabel21: TRzLabel
        Left = 13
        Top = 35
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object RzLabel13: TRzLabel
        Left = 289
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #36135#27454#65306
      end
      object RzLabel14: TRzLabel
        Left = 451
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #31246#27454#65306
      end
      object RzLabel7: TRzLabel
        Left = 451
        Top = 35
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 499
        Top = 35
        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 = DsPchSettle
      end
      object RzLabel16: TRzLabel
        Left = 571
        Top = 35
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 631
        Top = 35
        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 = DsPchSettle
      end
      object RzLabel22: TRzLabel
        Left = 13
        Top = 11
        Width = 60
        Height = 12
        Caption = #21457#31080#22320#22336#65306
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 325
        Top = 6
        Width = 85
        Height = 19
        DataSource = DsPchSettle
        DataField = 'GoodsSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 489
        Top = 6
        Width = 85
        Height = 19
        DataSource = DsPchSettle
        DataField = 'TaxSum'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit2: TRzDBEdit
        Left = 73
        Top = 6
        Width = 184
        Height = 19
        DataSource = DsPchSettle
        DataField = 'Address'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object RzDBEdit5: TRzDBEdit
        Left = 73
        Top = 31
        Width = 337
        Height = 19
        DataSource = DsPchSettle
        DataField = 'ReMark'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBEdit12: TRzDBEdit
        Tag = -1
        Left = 652
        Top = 6
        Width = 119
        Height = 19
        DataSource = DsPchSettle
        DataField = 'Amount'
        ReadOnly = True
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 558
    Top = 306
  end
  inherited ImageList1: TImageList
    Left = 409
    Top = 306
  end
  inherited ActionList1: TActionList
    Left = 484
    Top = 306
    inherited ActAudit: TModlAction
      ModuleFile = 'PurchInBase.bpl;TFmPurchPay'
    end
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmPchSettleQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
      ModuleFile = 'PurchInBase.bpl;TFmPurchPay'
    end
    object ActFinish: TModlAction
      Category = 'Bill'
      Caption = #32467#26696
      ImageIndex = 28
      Visible = False
      Flag2 = 0
      Remark = 'R'
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 116
    Top = 284
  end
  inherited ImgPopMenu: TImageList
    Left = 320
    Top = 308
  end
  object DsPchSettleDtl: TDataSource
    DataSet = CdsPchSettleDtl
    Left = 409
    Top = 223
  end
  object CdsPchSettleDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchSettleAdsPchSettleDtl
    IndexFieldNames = 'ItemNo'
    Params = <>
    BeforeInsert = CdsPchSettleDtlBeforeInsert
    AfterPost = CdsPchSettleDtlAfterPost
    AfterDelete = CdsPchSettleDtlAfterPost
    OnNewRecord = CdsPchSettleDtlNewRecord
    Left = 318
    Top = 223
    object CdsPchSettleDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSettleDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSettleDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsPchSettleDtlGoodsIDChange
      Size = 16
    end
    object CdsPchSettleDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsPchSettleDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsPchSettleDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchSettleDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsPchSettleDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsPchSettleDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsPchSettleDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = CdsPchSettleDtlPriceChange
    end
    object CdsPchSettleDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsPchSettleDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsPchSettleDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      OnChange = CdsPchSettleDtlUnTaxpriceChange
    end
    object CdsPchSettleDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchSettleDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchSettleDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchSettleDtlCostPrice: TFloatField
      FieldName = 'CostPrice'
    end
    object CdsPchSettleDtlCostAmount: TBCDField
      FieldName = 'CostAmount'
      Precision = 19
    end
    object CdsPchSettleDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsPchSettleDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsPchSettleDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 19
    end
    object CdsPchSettleDtlPayDone: TBooleanField
      FieldName = 'PayDone'
    end
    object CdsPchSettleDtlPayDoneDate: TDateTimeField
      FieldName = 'PayDoneDate'
    end
    object CdsPchSettleDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsPchSettle: TDataSource
    DataSet = CdsPchSettle
    Left = 229
    Top = 223
  end
  object CdsPchSettle: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'DspPchSettle'
    RemoteServer = Comcnn
    AfterScroll = CdsPchSettleAfterScroll
    OnNewRecord = CdsPchSettleNewRecord
    OnReconcileError = CdsPchSettleReconcileError
    Left = 159
    Top = 224
    object CdsPchSettleBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSettleFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchSettleInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsPchSettleDepartID: TIntegerField
      FieldName = 'DepartID'
    end
    object CdsPchSettleDepartNo: TStringField
      FieldName = 'DepartNo'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchSettleDepartName: TStringField
      FieldName = 'DepartName'
      ProviderFlags = []
    end
    object CdsPchSettleProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPchSettleProvNOChange
      Size = 8
    end
    object CdsPchSettleProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchSettleLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchSettleCompanyName: TStringField
      FieldName = 'CompanyName'
      Size = 80
    end
    object CdsPchSettleTelephone: TStringField
      FieldName = 'Telephone'
    end
    object CdsPchSettleAddress: TStringField
      FieldName = 'Address'
      Size = 80
    end
    object CdsPchSettleAccountBank: TStringField
      FieldName = 'AccountBank'
      Size = 40
    end
    object CdsPchSettleAccountNo: TStringField
      FieldName = 'AccountNo'
    end
    object CdsPchSettleTaxNo: TStringField
      FieldName = 'TaxNo'
    end
    object CdsPchSettleOrderNo: TStringField
      FieldName = 'OrderNo'
    end
    object CdsPchSettleInvoiceType: TSmallintField
      FieldName = 'InvoiceType'
    end
    object CdsPchSettleInvoiceDate: TDateTimeField
      FieldName = 'InvoiceDate'
    end
    object CdsPchSettleInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 40
    end
    object CdsPchSettleEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object CdsPchSettleEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchSettleAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchSettleGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsPchSettleGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchSettleTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchSettleAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchSettlePayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsPchSettlePayModeName: TStringField
      FieldName = 'PayModeName'
      ProviderFlags = []
      Size = 16
    end
    object CdsPchSettleTimeLimit: TIntegerField
      FieldName = 'TimeLimit'
      ProviderFlags = []
    end
    object CdsPchSettlePayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsPchSettleGatherAtOnce: TBCDField
      FieldName = 'GatherAtOnce'
      Precision = 19
    end
    object CdsPchSettleTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchSettleRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsPchSettleFlag: TStringField
      FieldName = 'Flag'
    end
    object CdsPchSettleCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchSettleCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsPchSettleMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPchSettleGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchSettleAdsPchSettleDtl: TDataSetField
      FieldName = 'AdsPchSettleDtl'
    end
  end
  object Comcnn: TDCOMConnection
    ServerGUID = '{61EFC14A-805A-4497-9C53-2707D0E83759}'
    ServerName = 'CKPurchInBase.PurchInRDM'
    Left = 63
    Top = 227
  end
end