goodsesfm.~dfm

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

      Height = 22
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object BtnWhatIs: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Visible = False
      end
      object BtnHelp: TFlatSpeedButton
        Left = 24
        Top = 2
        Width = 18
        Height = 18
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600000000000084
          0084848284000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6000000000000840084848284FFFFFFFFFFFFC6C3C6000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6000000000000840084848284FFFFFFFFFFFFFF
          FFFFFFFFFFC6C3C6C6C3C6000000CED3D6CED3D6CED3D6CED3D6000000840084
          848284FFFFFFFFFFFFFFFFFFC6C3C6848284000000C6C3C6C6C3C6C6C3C60000
          00CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFC6C3C684828400000084
          0084840084000000C6C3C6C6C3C6C6C3C6000000CED3D6CED3D6000000FFFFFF
          C6C3C6848284000000840084840084840084840084840084000000C6C3C6C6C3
          C6C6C3C6000000CED3D600000084828400000084008484008484008400FFFF84
          0084840084840084840084840084C6C3C6C6C3C6848284000000840084840084
          8400848400848400848400848400840082848400848400848400848400840000
          00C6C3C6848284CED3D6CED3D684008484008484008484008484008484008400
          FFFF00FFFF00FFFF840084840084840084000000848284CED3D6CED3D6CED3D6
          84008484008484008484008484008400828484008400828400FFFF8400848400
          84840084000000CED3D6CED3D6CED3D6CED3D684008484008484008484008400
          FFFF00828400828400FFFF840084840084840084840084000000CED3D6CED3D6
          CED3D6CED3D684008484008484008484008400FFFF00FFFF8400848400848400
          84840084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684008484008484
          0084840084840084840084840084000000CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6840084840084840084840084000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
        OnClick = BtnPopMenuClick
      end
    end
  end
  object dsGoodses: TDataSource
    DataSet = cdsGoodses
    Left = 360
    Top = 100
  end
  object DCom1: TDCOMConnection
    ServerGUID = '{DE96C9C1-ECFE-4BFF-89C1-BA5AFD84C6FD}'
    ServerName = 'CKGoodsBase.DmGoodses'
    Left = 200
    Top = 100
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 124
    Top = 100
    object Actrefresh: TModlAction
      Caption = #21047#26032'&R'
      ImageIndex = 0
      OnExecute = ActrefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActMore: TModlAction
      Caption = #26356#22810'&M'
      ImageIndex = 1
      OnExecute = ActMoreExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActNew: TModlAction
      Caption = #26032#22686'&N'
      ImageIndex = 2
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActCopy: TModlAction
      Caption = #22797#21046'&C'
      ImageIndex = 3
      OnExecute = ActCopyExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Caption = #20462#25913'&E'
      ImageIndex = 4
      OnExecute = ActModifyExecute
      Flag2 = 0
      Remark = 'M'
    end
    object ActDel: TModlAction
      Caption = #21024#38500'&D'
      ImageIndex = 5
      OnExecute = ActDelExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActQuery: TModlAction
      Caption = #26597#35810'&Q'
      ImageIndex = 6
      OnExecute = ActQueryExecute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActPrint: TModlAction
      Caption = #25253#34920'&P'
      ImageIndex = 7
      OnExecute = ActPrintExecute
      Flag2 = 0
      Remark = 'P'
    end
    object ActDesignReport: TModlAction
      Caption = 'ActDesignReport'
      Flag2 = 0
      Remark = 'G'
    end
    object ActExit: TModlAction
      Caption = #36864#20986'&X'
      ImageIndex = 8
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActViewPrice: TModlAction
      Category = 'Module'
      Caption = #26174#31034#20215#26684
      ImageIndex = 11
      OnExecute = ActViewPriceExecute
      Flag2 = 0
      Remark = '$'
    end
    object ActModifyPrice: TModlAction
      Category = 'Module'
      Caption = #20462#25913#20215#26684
      ImageIndex = 4
      OnExecute = ActModifyPriceExecute
      Flag2 = 0
      Remark = '$'
    end
    object ActViewPriceModes: TModlAction
      Category = 'Module'
      Caption = #20215#26684#20307#31995#31649#29702
      OnExecute = ActViewPriceModesExecute
      ModuleFile = 'GoodsBase.bpl;TFmPriceModes'
      Flag2 = 0
      Remark = 'E'
    end
    object ActFieldsLayout: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      ImageIndex = 9
      OnExecute = ActFieldsLayoutExecute
      Flag2 = 0
      Remark = 'L'
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      ImageIndex = 10
      OnExecute = ActDataExportExecute
      Flag2 = 0
      Remark = 'X'
    end
    object ActAddBatchRebate: TModlAction
      Category = 'Module'
      Caption = #26032#22686
      ImageIndex = 2
      OnExecute = ActAddBatchRebateExecute
      Flag2 = 0
      Remark = 'B$'
    end
    object ActEdtBatchRebate: TModlAction
      Category = 'Module'
      Caption = #20462#25913
      ImageIndex = 4
      OnExecute = ActEdtBatchRebateExecute
      Flag2 = 0
      Remark = 'B$'
    end
    object ActDelBatchRebate: TModlAction
      Category = 'Module'
      Caption = #21024#38500
      ImageIndex = 5
      OnExecute = ActDelBatchRebateExecute
      Flag2 = 0
      Remark = 'B$'
    end
    object ActChkBatchRebate: TModlAction
      Category = 'Module'
      Caption = #21512#27861#24615#26816#26597
      ImageIndex = 12
      OnExecute = ActChkBatchRebateExecute
      Flag2 = 0
      Remark = 'B$'
    end
    object ActViewBatchRebate: TModlAction
      Category = 'Module'
      Caption = #26174#31034
      ImageIndex = 11
      OnExecute = ActViewBatchRebateExecute
      Flag2 = 0
      Remark = 'B$'
    end
  end
  object cdsGoodsPrices: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftString
        Name = 'GoodsID'
        ParamType = ptInput
        Value = ' '
      end
      item
        DataType = ftString
        Name = 'UserID'
        ParamType = ptInput
        Value = ' '
      end>
    ProviderName = 'dspGoodsPrices'
    RemoteServer = DCom1
    BeforeInsert = cdsGoodsPricesBeforeInsert
    OnNewRecord = cdsGoodsPricesNewRecord
    Left = 48
    Top = 340
    object cdsGoodsPricesGoodsId: TStringField
      FieldName = 'GoodsId'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 16
    end
    object cdsGoodsPricesModeNo: TIntegerField
      DisplayWidth = 12
      FieldName = 'ModeNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsGoodsPricesModeName: TStringField
      FieldName = 'ModeName'
      ProviderFlags = [pfInWhere]
      Size = 16
    end
    object cdsGoodsPricesPrice1: TFloatField
      FieldName = 'Price1'
    end
    object cdsGoodsPricesPrice2: TFloatField
      FieldName = 'Price2'
    end
  end
  object dsGoodsPrices: TDataSource
    DataSet = cdsGoodsPrices
    Left = 120
    Top = 356
  end
  object ImageList1: TImageList
    Left = 456
    Top = 100
    Bitmap = {
      494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000C618C618734E0000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000039678C31C618C618000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000008C318C318C31C618734E0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000039678C318C318C31C618604E
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000008C318C31F37F33673367
      604E000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000039671042F97FF37F3367
      3367604E33670000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000002C67FF7FF97FF37F
      F37F33672C67604E000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000002C67FF7FF97FF97F
      F37FF37F33673367604E2C670000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000003367FF7FF97F
      F97FF37FF37F33673F67D300D300000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000002C67FF7FF97F
      F97F3F6799019901D300D300D300D30000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000003367FF7F
      F97F9901990199019901D300D300D300D3000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000000000002C67FF7F
      3F6799019901990199019901D300D300D3000000000000000000000000000000
      000000000