providerfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 1,793 行 · 第 1/5 页

    end
    object ActNew: TModlAction
      Caption = #26032#22686'(&N)'
      ImageIndex = 2
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Caption = #20462#25913'(&E)'
      ImageIndex = 3
      OnExecute = ActModifyExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDele: TModlAction
      Caption = #21024#38500'(&D)'
      ImageIndex = 4
      OnExecute = ActDeleExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFind: TModlAction
      Caption = #26597#35810'(&Q)'
      ImageIndex = 5
      Flag2 = 0
      Remark = 'Q'
    end
    object ActPrint: TModlAction
      Caption = #25253#34920'(&P)'
      ImageIndex = 6
      OnExecute = ActPrintExecute
      Flag2 = 0
      Remark = 'P'
    end
    object ActDesignReport: TModlAction
      Caption = 'ActDesignReport'
      Flag2 = 0
      Remark = 'G'
    end
    object ActExit: TModlAction
      Caption = #36864#20986'(&E)'
      ImageIndex = 7
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActNewLinkman: TModlAction
      Category = 'Module'
      Caption = #26032#22686#32852#31995#20154
      ImageIndex = 12
      OnExecute = ActNewLinkmanExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActEdtLinkman: TModlAction
      Category = 'Module'
      Caption = #20462#25913#32852#31995#20154
      ImageIndex = 14
      OnExecute = ActEdtLinkmanExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelLinkman: TModlAction
      Category = 'Module'
      Caption = #21024#38500#32852#31995#20154
      ImageIndex = 13
      OnExecute = ActDelLinkmanExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActNewProvGoods: TModlAction
      Category = 'Module'
      Caption = #26032#22686#21697#31181
      ImageIndex = 12
      OnExecute = ActNewProvGoodsExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActEditProvGoods: TModlAction
      Category = 'Module'
      Caption = #20462#25913#21697#31181
      ImageIndex = 14
      OnExecute = ActEditProvGoodsExecute
      Flag2 = 0
      Remark = 'U'
    end
    object ActDelProvGoods: TModlAction
      Category = 'Module'
      Caption = #21024#38500#21697#31181
      ImageIndex = 13
      OnExecute = ActDelProvGoodsExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActFieldsLayOut: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      ImageIndex = 8
      OnExecute = ActFieldsLayOutExecute
      Flag2 = 0
      Remark = 'L'
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      ImageIndex = 9
      OnExecute = ActDataExportExecute
      Flag2 = 0
      Remark = 'X'
    end
  end
  object DCOMCONN: TDCOMConnection
    ServerGUID = '{E67E2A10-3351-46B3-8976-222ABFB77E8E}'
    ServerName = 'ProviderSvr.Providers'
    Left = 71
    Top = 67
  end
  object CdsProviders: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <>
    ProviderName = 'DspMaster'
    RemoteServer = DCOMCONN
    BeforeOpen = CdsProvidersBeforeOpen
    AfterOpen = CdsProvidersAfterOpen
    BeforeRefresh = CdsProvidersBeforeRefresh
    OnReconcileError = CdsProvidersReconcileError
    BeforeGetRecords = CdsProvidersBeforeGetRecords
    AfterGetRecords = CdsProvidersAfterGetRecords
    Left = 161
    Top = 76
    object CdsProvidersProvNo: TStringField
      FieldName = 'ProvNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 8
    end
    object CdsProvidersProvName: TStringField
      FieldName = 'ProvName'
    end
    object CdsProvidersFullName: TStringField
      FieldName = 'FullName'
      Size = 40
    end
    object CdsProvidersProvPyCode: TStringField
      FieldName = 'ProvPyCode'
      Size = 8
    end
    object CdsProvidersEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    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 CdsProvidersCreditDays: TIntegerField
      FieldName = 'CreditDays'
    end
    object CdsProvidersPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 8
    end
    object CdsProvidersPayModename: TStringField
      FieldName = 'PayModename'
      ProviderFlags = []
      Size = 16
    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
    object CdsProvidersCoinKind: TStringField
      FieldName = 'CoinKind'
      Size = 6
    end
    object CdsProvidersDataUsable: TBooleanField
      FieldName = 'DataUsable'
    end
    object CdsProvidersCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsProvidersCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsProvidersMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsProvidersUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsProvidersGrup: TIntegerField
      FieldName = 'Grup'
    end
  end
  object CdsProvGoods: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsProvidersAdosProGoods
    Params = <>
    OnNewRecord = CdsProvGoodsNewRecord
    OnReconcileError = CdsProvGoodsReconcileError
    Left = 71
    Top = 143
    object CdsProvGoodsProvNo: TStringField
      FieldName = 'ProvNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 8
    end
    object CdsProvGoodsGoodsID: TStringField
      FieldName = 'GoodsID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnChange = CdsProvGoodsGoodsidChange
      Size = 16
    end
    object CdsProvGoodsName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsProvGoodsSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsProvGoodsUnit1: TStringField
      FieldName = 'Unit1'
      ProviderFlags = []
      Size = 8
    end
    object CdsProvGoodsPrice1: TBCDField
      FieldName = 'Price1'
      Precision = 12
      Size = 3
    end
    object CdsProvGoodsUnit2: TStringField
      FieldName = 'Unit2'
      ProviderFlags = []
      Size = 8
    end
    object CdsProvGoodsPrice2: TBCDField
      FieldName = 'Price2'
      Precision = 12
      Size = 3
    end
    object CdsProvGoodsDataUsable: TBooleanField
      FieldName = 'DataUsable'
    end
    object CdsProvGoodsRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object CdsProvGoodsProvGoodsID: TStringField
      FieldName = 'ProvGoodsID'
      Size = 16
    end
    object CdsProvGoodsNearDate: TDateTimeField
      FieldName = 'NearDate'
    end
  end
  object CdsProvLinkmans: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsProvidersAdosProMan
    Params = <>
    OnNewRecord = CdsProvLinkmansNewRecord
    OnReconcileError = CdsProvLinkmansReconcileError
    Left = 167
    Top = 143