selectinfo.dfm

医药连锁经营管理系统源码

object FrmSecInfo: TFrmSecInfo
  Left = 249
  Top = 136
  Width = 520
  Height = 368
  Caption = #37096#38376#36873#25321
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 512
    Height = 341
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Panel2: TPanel
      Left = 2
      Top = 2
      Width = 508
      Height = 337
      Align = alClient
      BevelInner = bvLowered
      TabOrder = 0
      object vstree: TVirtualStringTree
        Left = 2
        Top = 2
        Width = 504
        Height = 333
        Align = alClient
        BevelEdges = []
        BevelInner = bvLowered
        BevelOuter = bvRaised
        BevelKind = bkFlat
        ButtonFillMode = fmShaded
        CheckImageKind = ckFlat
        Colors.BorderColor = clCream
        Colors.GridLineColor = clHighlight
        DragOperations = [doMove]
        Header.AutoSizeIndex = 0
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.Options = [hoColumnResize, hoDrag, hoVisible]
        Header.Style = hsXPStyle
        HintAnimation = hatSlide
        TabOrder = 0
        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages]
        OnBeforeItemErase = vstreeBeforeItemErase
        OnDblClick = vstreeDblClick
        OnGetText = vstreeGetText
        OnGetNodeDataSize = vstreeGetNodeDataSize
        Columns = <
          item
            MaxWidth = 300
            Position = 0
            Width = 250
            WideText = #37096#38376#32534#21495
          end
          item
            Alignment = taCenter
            MaxWidth = 200
            Position = 1
            Width = 100
            WideText = #37096#38376#21517#31216
          end>
      end
    end
  end
  object cdssetting: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSyssetting'
    RemoteServer = dcomcn
    Left = 276
    Top = 272
  end
  object cdsdepart: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDepart'
    RemoteServer = dcomcn
    Left = 184
    Top = 272
  end
  object dcomcn: TDCOMConnection
    ServerGUID = '{EC762396-854F-4283-AEF6-3F78DBF3D402}'
    ServerName = 'dptinfosvr.svrdepart'
    Left = 104
    Top = 272
  end
  object ActionList1: TActionList
    Left = 36
    Top = 272
    object fresh: TModlAction
      Caption = #21047#26032#26174#31034
      ImageIndex = 0
      Flag2 = 0
    end
    object addditem: TModlAction
      Caption = #26032#22686#26465#30446
      ImageIndex = 1
      Flag2 = 0
    end
    object editem: TModlAction
      Caption = #32534#36753#26465#30446
      ImageIndex = 2
      Flag2 = 0
    end
    object delitem: TModlAction
      Caption = #21024#38500#26465#30446
      ImageIndex = 3
      Flag2 = 0
    end
    object finditem: TModlAction
      Caption = #26597#35810#25968#25454
      ImageIndex = 4
      Flag2 = 0
    end
    object pntitem: TModlAction
      Caption = #25171#21360#25253#34920
      ImageIndex = 5
      Flag2 = 0
    end
    object closewnd: TModlAction
      Caption = #20851#38381#31383#21475
      ImageIndex = 6
      Flag2 = 0
    end
  end
end