unit_enterprise.dfm

来自「美汇美容网网站管理系统」· DFM 代码 · 共 623 行 · 第 1/2 页

object Form_Enterprise: TForm_Enterprise
  Left = 220
  Top = 214
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #32463#38144#21830#31649#29702
  ClientHeight = 374
  ClientWidth = 620
  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 = 620
    Height = 28
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 603
      Height = 20
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object tbAdd: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#22686
        ImageIndex = 0
        OnClick = tbAddClick
      end
      object tbEdit: TToolButton
        Left = 31
        Top = 0
        Caption = #32534#36753
        ImageIndex = 1
        OnClick = tbEditClick
      end
      object tbDel: TToolButton
        Left = 62
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = tbDelClick
      end
      object ToolButton1: TToolButton
        Left = 93
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object tbList: TToolButton
        Left = 101
        Top = 0
        Caption = #21015#34920
        DropdownMenu = pmInfoList
        ImageIndex = 3
        Style = tbsDropDown
        OnClick = tbListClick
      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 tbClassManage: TToolButton
        Left = 197
        Top = 0
        Caption = #30465#24066
        DropdownMenu = pmClass
        ImageIndex = 5
        Style = tbsDropDown
      end
      object ToolButton4: TToolButton
        Left = 241
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 7
        Style = tbsSeparator
      end
      object tbClose: TToolButton
        Left = 249
        Top = 0
        Caption = #20851#38381
        ImageIndex = 6
        OnClick = tbCloseClick
      end
    end
  end
  object pcEnterprise: TPageControl
    Left = 0
    Top = 28
    Width = 620
    Height = 346
    ActivePage = tsList
    Align = alClient
    TabOrder = 1
    object tsList: TTabSheet
      Caption = #21015#34920
      TabVisible = False
      object Splitter1: TSplitter
        Left = 177
        Top = 0
        Height = 336
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 177
        Height = 336
        Align = alLeft
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object Panel3: TPanel
          Left = 1
          Top = 1
          Width = 175
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          Caption = '  '#30465#24066#26816#32034
          TabOrder = 0
        end
        object dbtvClass: TdxDBTreeView
          Left = 1
          Top = 26
          Width = 175
          Height = 309
          Hint = #35831#28857#40736#26631#21491#38190#31649#29702#30465#24066'.'
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ShowNodeHint = True
          DataSource = dm.dsProvinceCity
          KeyField = 'iNo'
          ListField = 'vName'
          ParentField = 'iUpNo'
          SeparatedSt = ' - '
          RaiseOnError = True
          Indent = 19
          OnChange = dbtvClassChange
          Align = alClient
          ParentColor = False
          Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
          SortType = stText
          SelectedIndex = -1
          TabOrder = 1
          PopupMenu = pmClass
          ParentShowHint = False
          ShowHint = True
        end
      end
      object Panel2: TPanel
        Left = 180
        Top = 0
        Width = 432
        Height = 336
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 432
          Height = 25
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          Caption = '  '#32463#38144#21830#21015#34920
          TabOrder = 0
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 25
          Width = 432
          Height = 311
          Align = alClient
          DataSource = dm.dsEnterprise
          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 = []
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'vUserName'
              Title.Caption = #29992#25143#21517
              Width = 69
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vName'
              Title.Caption = #20225#19994#21517#31216
              Width = 129
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vPrin'
              Title.Caption = #36127#36131#20154
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vPhone'
              Title.Caption = #32852#31995#30005#35805
              Width = 73
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vEmail'
              Title.Caption = 'Email'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'vAddress'
              Title.Caption = #32852#31995#22320#22336
              Visible = True
            end>
        end
      end
    end
    object tsParticular: TTabSheet
      Caption = #20869#23481
      ImageIndex = 1
      TabVisible = False
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 612
        Height = 336
        Align = alClient
        Caption = #12288#35814#32454#20869#23481#12288
        TabOrder = 0
        object Label12: TLabel
          Left = 144
          Top = 100
          Width = 42
          Height = 12
          AutoSize = False
          Caption = '-'
        end
        object Label13: TLabel
          Left = 224
          Top = 100
          Width = 42
          Height = 12
          AutoSize = False
          Caption = '-'
        end
        object Label4: TLabel
          Left = 16
          Top = 25
          Width = 100
          Height = 13
          AutoSize = False
          Caption = #29992#25143#21517
          FocusControl = dbeusername
        end
        object Label5: TLabel
          Left = 16
          Top = 53
          Width = 100
          Height = 13
          AutoSize = False
          Caption = #20225#19994#21517#31216
          FocusControl = dbeName
        end
        object Label6: TLabel
          Left = 16