unit_info.~dfm

美汇美容网网站管理系统

object Form_Info: TForm_Info
  Left = 206
  Top = 160
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #20449#24687#31649#29702
  ClientHeight = 392
  ClientWidth = 631
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 631
    Height = 28
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 614
      Height = 20
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object tbInfoAdd: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#22686
        ImageIndex = 0
        OnClick = tbInfoAddClick
      end
      object tbInfoEdit: TToolButton
        Left = 31
        Top = 0
        Caption = #32534#36753
        ImageIndex = 1
        OnClick = tbInfoEditClick
      end
      object tbInfoDel: TToolButton
        Left = 62
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = tbInfoDelClick
      end
      object ToolButton1: TToolButton
        Left = 93
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbInfoList: TToolButton
        Left = 101
        Top = 0
        Caption = #21015#34920
        DropdownMenu = pmInfoList
        ImageIndex = 3
        Style = tbsDropDown
        OnClick = tbInfoListClick
      end
      object tbSearch: TToolButton
        Left = 145
        Top = 0
        Caption = #25628#32034
        DropdownMenu = pmInfoSearch
        ImageIndex = 4
        Style = tbsDropDown
        OnClick = N7Click
      end
      object ToolButton2: TToolButton
        Left = 189
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object tbClass: TToolButton
        Left = 197
        Top = 0
        Caption = #20998#31867
        DropdownMenu = pmClass
        ImageIndex = 7
        Style = tbsDropDown
      end
      object ToolButton3: TToolButton
        Left = 241
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object tbClose: TToolButton
        Left = 249
        Top = 0
        Caption = #20851#38381
        ImageIndex = 6
        OnClick = tbCloseClick
      end
    end
  end
  object pcInfo: TPageControl
    Left = 0
    Top = 28
    Width = 631
    Height = 364
    ActivePage = tsInfoList
    Align = alClient
    TabOrder = 1
    object tsInfoList: TTabSheet
      Caption = #20449#24687#21015#34920
      TabVisible = False
      object Splitter1: TSplitter
        Left = 185
        Top = 0
        Height = 354
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 354
        Align = alLeft
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object Panel3: TPanel
          Left = 1
          Top = 1
          Width = 183
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          Caption = '  '#20998#31867#26816#32034
          TabOrder = 0
        end
        object dbtvClass: TdxDBTreeView
          Left = 1
          Top = 26
          Width = 183
          Height = 327
          Hint = #35831#28857#40736#26631#21491#38190#31649#29702#20998#31867'.'
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ShowNodeHint = True
          DataSource = dm.dsInfoClass
          KeyField = 'iNo'
          ListField = 'vName'
          ParentField = 'iUpNo'
          SeparatedSt = ' - '
          RaiseOnError = True
          Indent = 19
          OnChange = dbtvClassChange
          Align = alClient
          ParentColor = False
          Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          SelectedIndex = -1
          TabOrder = 1
          PopupMenu = pmClass
          ParentShowHint = False
          ShowHint = True
        end
      end
      object Panel2: TPanel
        Left = 188
        Top = 0
        Width = 435
        Height = 354
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 435
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = '  '#20449#24687#21015#34920
          TabOrder = 0
          object Shape1: TShape
            Left = 277
            Top = 3
            Width = 16
            Height = 16
            Brush.Color = clMoneyGreen
          end
          object Shape2: TShape
            Left = 325
            Top = 3
            Width = 16
            Height = 16
            Brush.Color = clSilver
          end
          object Shape3: TShape
            Left = 373
            Top = 3
            Width = 16
            Height = 16
            Brush.Color = clInfoBk
          end
          object Label1: TLabel
            Left = 296
            Top = 5
            Width = 24
            Height = 12
            Caption = #38142#25509
          end
          object Label2: TLabel
            Left = 344
            Top = 5
            Width = 24
            Height = 12
            Caption = #26412#31449
          end
          object Label3: TLabel
            Left = 393
            Top = 5
            Width = 24
            Height = 12
            Caption = #22270#29255
          end
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 25
          Width = 435
          Height = 329
          Align = alClient
          DataSource = dm.dsInfo
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          PopupMenu = pmInfoList
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDrawColumnCell = DBGrid1DrawColumnCell
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'iNo'
              Title.Caption = #32534#21495
              Width = 62
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vCaption'
              Title.Caption = #26631#39064
              Width = 282
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'dDate'
              Title.Caption = #26085#26399
              Width = 68
              Visible = True
            end>
        end
      end
    end
    object tsParticularInfo: TTabSheet
      Caption = #20449#24687#20869#23481
      ImageIndex = 1
      TabVisible = False
      OnExit = tsParticularInfoExit