uproviders.dfm

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

                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Tel2'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Mobile'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'OICQ'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'EMail'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Remark'
                Footers = <>
              end>
          end
        end
      end
    end
    inherited plFooter: TRzPanel
      Top = 474
      Height = 31
      BorderInner = fsBump
      object Label24: TLabel
        Left = 9
        Top = 10
        Width = 48
        Height = 12
        Caption = #22791#12288#12288#27880
      end
      object edRemark: TRzDBEdit
        Left = 61
        Top = 5
        Width = 711
        Height = 20
        DataSource = DsProviders
        DataField = 'Remark'
        Anchors = [akLeft, akTop, akRight]
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        MaxLength = 40
        TabOnEnter = True
        TabOrder = 0
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 790
    Top = 183
  end
  inherited ActionList1: TActionList
    Left = 789
    Top = 141
    inherited ActAddSubItem: TAction
      OnExecute = ActAddSubItemExecute
    end
    inherited ActDelSubItem: TAction
      OnExecute = ActDelSubItemExecute
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 789
    Top = 48
  end
  inherited ImgPopMenu: TImageList
    Left = 788
    Top = 99
  end
  object CdsProviders: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspMaster'
    OnReconcileError = CdsProvidersReconcileError
    Left = 530
    Top = 287
    object CdsProvidersProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object CdsProvidersProvName: TStringField
      FieldName = 'ProvName'
    end
    object CdsProvidersFullName: TStringField
      FieldName = 'FullName'
      Size = 40
    end
    object CdsProvidersABCKind: TStringField
      FieldName = 'ABCKind'
      Size = 1
    end
    object CdsProvidersTrade: TStringField
      FieldName = 'Trade'
      Size = 16
    end
    object CdsProvidersSubjectDept: TStringField
      FieldName = 'SubjectDept'
      Size = 16
    end
    object CdsProvidersWorkingMode: TStringField
      FieldName = 'WorkingMode'
      Size = 16
    end
    object CdsProvidersWorkingBound: TStringField
      FieldName = 'WorkingBound'
      Size = 60
    end
    object CdsProvidersCorpName: TStringField
      FieldName = 'CorpName'
      Size = 8
    end
    object CdsProvidersCorpDuty: TStringField
      FieldName = 'CorpDuty'
      Size = 12
    end
    object CdsProvidersOwnerKind: TStringField
      FieldName = 'OwnerKind'
      Size = 16
    end
    object CdsProvidersQualityPar: TStringField
      FieldName = 'QualityPar'
      Size = 16
    end
    object CdsProvidersPermitNo: TStringField
      FieldName = 'PermitNo'
      Size = 30
    end
    object CdsProvidersCompetency: TStringField
      FieldName = 'Competency'
      Size = 30
    end
    object CdsProvidersArea: TStringField
      FieldName = 'Area'
      Size = 16
    end
    object CdsProvidersPostCode: TStringField
      FieldName = 'PostCode'
      Size = 8
    end
    object CdsProvidersAddress: TStringField
      FieldName = 'Address'
      Size = 40
    end
    object CdsProvidersLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsProvidersMobile: TStringField
      FieldName = 'Mobile'
      Size = 12
    end
    object CdsProvidersLinkTel: TStringField
      FieldName = 'LinkTel'
      Size = 12
    end
    object CdsProvidersFax: TStringField
      FieldName = 'Fax'
      Size = 12
    end
    object CdsProvidersAccountBank: TStringField
      FieldName = 'AccountBank'
      Size = 40
    end
    object CdsProvidersAccountNo: TStringField
      FieldName = 'AccountNo'
      Size = 30
    end
    object CdsProvidersTaxNo: TStringField
      FieldName = 'TaxNo'
    end
    object CdsProvidersCredit: TIntegerField
      FieldName = 'Credit'
    end
    object CdsProvidersPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 8
    end
    object CdsProvidersPause: TBooleanField
      FieldName = 'Pause'
    end
    object CdsProvidersRemark: TStringField
      FieldName = 'Remark'
      Size = 60
    end
    object CdsProvidersAdosProMan: TDataSetField
      FieldName = 'AdosProMan'
    end
    object CdsProvidersAdosProGoods: TDataSetField
      FieldName = 'AdosProGoods'
    end
  end
  object CdsProvGoods: TClientDataSet
    Aggregates = <>
    DataSetField = CdsProvidersAdosProGoods
    Params = <>
    ReadOnly = True
    OnNewRecord = CdsProvGoodsNewRecord
    BeforeApplyUpdates = CdsProvGoodsBeforeApplyUpdates
    Left = 599
    Top = 287
    object CdsProvGoodsGoodsid: TStringField
      DisplayLabel = #21830#21697#32534#21495
      FieldName = 'Goodsid'
      Size = 16
    end
    object CdsProvGoodsPrice1: TBCDField
      FieldName = 'Price1'
      OnChange = CdsProvGoodsPrice1Change
      Precision = 12
      Size = 3
    end
    object CdsProvGoodsPrice2: TBCDField
      DisplayLabel = #36741#20215
      FieldName = 'Price2'
      OnChange = CdsProvGoodsPrice1Change
      Precision = 12
      Size = 3
    end
    object CdsProvGoodsRebate: TBCDField
      DisplayLabel = #25240#25187
      FieldName = 'Rebate'
      Precision = 9
      Size = 3
    end
    object CdsProvGoodsRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 40
    end
    object CdsProvGoodsProvGoodsID: TStringField
      DisplayLabel = #20379#26041#20135#21697#32534#21495
      FieldName = 'ProvGoodsID'
      Size = 16
    end
    object CdsProvGoodsNearDate: TDateTimeField
      DisplayLabel = #20132#26131#26085#26399
      FieldName = 'NearDate'
    end
    object CdsProvGoodsname: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      ReadOnly = True
      Size = 24
    end
    object CdsProvGoodsProvNo: TStringField
      FieldName = 'ProvNo'
      Visible = False
      Size = 8
    end
    object CdsProvGoodsSpecs: TStringField
      FieldName = 'Specs'
      ReadOnly = True
    end
  end
  object CdsProvLinkmans: TClientDataSet
    Aggregates = <>
    DataSetField = CdsProvidersAdosProMan
    Params = <>
    ReadOnly = True
    OnNewRecord = CdsProvLinkmansNewRecord
    BeforeApplyUpdates = CdsProvLinkmansBeforeApplyUpdates
    Left = 671
    Top = 287
    object CdsProvLinkmansProvNo: TStringField
      FieldName = 'ProvNo'
      Visible = False
      Size = 8
    end
    object CdsProvLinkmansLinkMan: TStringField
      DisplayWidth = 12
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsProvLinkmansNickName: TStringField
      DisplayWidth = 11
      FieldName = 'NickName'
      Size = 12
    end
    object CdsProvLinkmansSex: TStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 4
      FieldName = 'Sex'
      Size = 2
    end
    object CdsProvLinkmansBirthday: TDateTimeField
      DisplayLabel = #29983#26085
      DisplayWidth = 9
      FieldName = 'Birthday'
    end
    object CdsProvLinkmansDept: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 12
      FieldName = 'Dept'
      Size = 12
    end
    object CdsProvLinkmansDuty: TStringField
      DisplayLabel = #32844#21153
      DisplayWidth = 10
      FieldName = 'Duty'
      Size = 12
    end
    object CdsProvLinkmansAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 38
      FieldName = 'Address'
      Size = 40
    end
    object CdsProvLinkmansTel1: TStringField
      DisplayLabel = #30005#35805#19968
      DisplayWidth = 15
      FieldName = 'Tel1'
      Size = 15
    end
    object CdsProvLinkmansTel2: TStringField
      DisplayLabel = #30005#35805#20108
      DisplayWidth = 15
      FieldName = 'Tel2'
      Size = 15
    end
    object CdsProvLinkmansMobile: TStringField
      DisplayLabel = #31227#21160#30005#35805
      DisplayWidth = 15
      FieldName = 'Mobile'
      Size = 15
    end
    object CdsProvLinkmansOICQ: TStringField
      DisplayWidth = 12
      FieldName = 'OICQ'
      Size = 12
    end
    object CdsProvLinkmansEMail: TStringField
      DisplayWidth = 30
      FieldName = 'EMail'
      Size = 30
    end
    object CdsProvLinkmansRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 40
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsProviders: TDataSource
    DataSet = CdsProviders
    Left = 536
    Top = 340
  end
  object DsProvGoods: TDataSource
    DataSet = CdsProvGoods
    Left = 602
    Top = 343
  end
  object DsProvLinkmans: TDataSource
    DataSet = CdsProvLinkmans
    Left = 674
    Top = 340
  end
  object CdsFields: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspFields'
    Left = 746
    Top = 286
    object CdsFieldsTableName: TStringField
      FieldName = 'TableName'
      Size = 40
    end
    object CdsFieldsFieldName: TStringField
      FieldName = 'FieldName'
      Size = 40
    end
    object CdsFieldsDispLabel: TStringField
      FieldName = 'DispLabel'
      Size = 60
    end
    object CdsFieldsDispFormat: TStringField
      FieldName = 'DispFormat'
    end
    object CdsFieldsRequisite: TBooleanField
      FieldName = 'Requisite'
    end
    object CdsFieldsDataType: TStringField
      FieldName = 'DataType'
      Size = 12
    end
    object CdsFieldsdLength: TIntegerField
      FieldName = 'dLength'
    end
    object CdsFieldsState: TStringField
      FieldName = 'State'
      Size = 10
    end
  end
end