.#pchspeer.dfm.1.37

群星医药系统源码

            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 117
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 349
      Height = 57
      object RzLabel10: TRzLabel
        Left = 599
        Top = 11
        Width = 48
        Height = 12
        Caption = #21512'  '#35745#65306
      end
      object RzLabel17: TRzLabel
        Left = 24
        Top = 36
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object RzLabel13: TRzLabel
        Left = 24
        Top = 11
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object RzLabel8: TRzLabel
        Left = 216
        Top = 11
        Width = 48
        Height = 12
        Caption = #36135'  '#27454#65306
      end
      object RzLabel9: TRzLabel
        Left = 402
        Top = 11
        Width = 48
        Height = 12
        Caption = #31246'  '#27454#65306
      end
      object RzLabel7: TRzLabel
        Left = 402
        Top = 37
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 452
        Top = 36
        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 = DsPchSpeer
      end
      object RzLabel16: TRzLabel
        Left = 587
        Top = 37
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 648
        Top = 36
        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 = DsPchSpeer
      end
      object RzDBEdit1: TRzDBEdit
        Left = 84
        Top = 32
        Width = 282
        Height = 19
        DataSource = DsPchSpeer
        DataField = 'Remark'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 648
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBNumericEdit5: TRzDBEdit
        Tag = -1
        Left = 84
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBNumericEdit1: TRzDBEdit
        Tag = -1
        Left = 263
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 452
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 4
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 344
    Top = 204
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      OnExecute = ActBillTurnExecute
      ModuleFile = 'PurchBase.bpl;TFmPchOrder'
      Remark = 'I'
    end
  end
  object CdsPchSpeerDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsPchSpeerAdsPchSpeerDtl
    Params = <>
    BeforeInsert = CdsPchSpeerDtlBeforeInsert
    AfterPost = CdsPchSpeerDtlAfterPost
    AfterDelete = CdsPchSpeerDtlAfterPost
    OnNewRecord = CdsPchSpeerDtlNewRecord
    Left = 142
    Top = 280
    object CdsPchSpeerDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSpeerDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSpeerDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsPchSpeerDtlGoodsIDChange
      Size = 16
    end
    object CdsPchSpeerDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsPchSpeerDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsPchSpeerDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsPchSpeerDtlQty: TBCDField
      CustomConstraint = 'Qty>0'
      ConstraintErrorMessage = #25968#37327#20063#19968#23450#35201#22823#20110#38646
      FieldName = 'Qty'
      OnChange = CdsPchSpeerDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsPchSpeerDtlOprice: TFloatField
      FieldName = 'OPrice'
      OnChange = CdsPchSpeerDtlQtyChange
      DisplayFormat = '##.000000'
    end
    object CdsPchSpeerDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsPchSpeerDtlQtyChange
      Precision = 8
      Size = 2
    end
    object CdsPchSpeerDtlprice: TFloatField
      FieldName = 'Price'
      Required = True
      OnChange = CdsPchSpeerDtlpriceChange
      DisplayFormat = '##.000000'
    end
    object CdsPchSpeerDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsPchSpeerDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsPchSpeerDtlUnTaxprice: TFloatField
      FieldName = 'UnTaxPrice'
      Required = True
      OnChange = CdsPchSpeerDtlUnTaxpriceChange
      DisplayFormat = '##.000000'
    end
    object CdsPchSpeerDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchSpeerDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchSpeerDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchSpeerDtlProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
    object CdsPchSpeerDtlReMark: TStringField
      FieldName = 'ReMark'
      Size = 40
    end
  end
  object DsPchSpeerDtl: TDataSource
    DataSet = CdsPchSpeerDtl
    Left = 232
    Top = 269
  end
  object DsPchSpeer: TDataSource
    DataSet = CdsPchSpeer
    Left = 232
    Top = 204
  end
  object CdsPchSpeer: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptInput
      end>
    ProviderName = 'DspPchSpeer'
    RemoteServer = ComCnn
    AfterScroll = CdsPchSpeerAfterScroll
    OnNewRecord = CdsPchSpeerNewRecord
    OnReconcileError = CdsPchSpeerReconcileError
    Left = 139
    Top = 204
    object CdsPchSpeerBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsPchSpeerFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsPchSpeerEmpNO: TStringField
      FieldName = 'EmpNO'
      OnChange = CdsPchSpeerEmpNOChange
      Size = 8
    end
    object CdsPchSpeerValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsPchSpeerName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsPchSpeerAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsPchSpeerProvNo: TStringField
      FieldName = 'ProvNo'
      OnChange = CdsPchSpeerProvNoChange
      Size = 8
    end
    object CdsPchSpeerProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object CdsPchSpeerLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsPchSpeerGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsPchSpeerTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsPchSpeerAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsPchSpeerCoinKind: TStringField
      FieldName = 'CoinKind'
      Size = 6
    end
    object CdsPchSpeerCoinExRate: TBCDField
      FieldName = 'CoinExRate'
      Precision = 19
    end
    object CdsPchSpeerGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsPchSpeerPayModeNO: TStringField
      FieldName = 'PayModeNO'
      Size = 8
    end
    object CdsPchSpeerTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsPchSpeerFinish: TBooleanField
      FieldName = 'Finish'
    end
    object CdsPchSpeerRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsPchSpeerCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsPchSpeerMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsPchSpeerGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsPchSpeerAdsPchSpeerDtl: TDataSetField
      FieldName = 'AdsPchSpeerDtl'
    end
    object CdsPchSpeerCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object ComCnn: TDCOMConnection
    ServerGUID = '{45B1C149-A01D-49BA-9D02-C7BA71DC7CF2}'
    ServerName = 'ckPurchBase.coPurchBase'
    Left = 75
    Top = 204
  end
  object ADOTable1: TADOTable
    Left = 331
    Top = 253
    object ADOTable1eew: TIntegerField
      FieldName = 'eew'
    end
  end
end