unit_frmusermain.dfm

影院售票系统完整源码

inherited frmusermain: Tfrmusermain
  Left = 284
  Top = 130
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #29992#25143#31649#29702
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel3: TBevel
    Top = 416
  end
  inherited Panel1: TPanel
    object Label1: TLabel
      Left = 8
      Top = 14
      Width = 136
      Height = 16
      Caption = #35282#33394#21450#25805#20316#21592#31649#29702
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 184
      Top = 8
      Width = 156
      Height = 12
      Caption = #24038#36793#26641#34892#21015#34920#20013#36827#34892#35282#33394#31649#29702
    end
    object Label3: TLabel
      Left = 184
      Top = 24
      Width = 288
      Height = 12
      Caption = #21491#36793#21015#34920#20013#36827#34892#25805#20316#21592#31649#29702#65292#19968#20010#25805#20316#21592#23646#20110#19968#20010#35282#33394
    end
  end
  inherited Panel2: TPanel
    Height = 370
    object Panel4: TPanel
      Left = 195
      Top = 0
      Width = 493
      Height = 370
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object ListView1: TCyberListView
        Left = 0
        Top = 0
        Width = 493
        Height = 370
        Align = alClient
        Columns = <
          item
            Caption = #30331#24405#21517
            Width = 80
          end
          item
            Caption = #22995#21517
            Width = 100
          end
          item
            Caption = #25152#23646#35282#33394
            Width = 150
          end
          item
            Caption = #25152#23646#24433#38498
            Width = 143
          end>
        PopupMenu = PopupMenuuser
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
        OnKeyDown = ListView1KeyDown
        OnCustomDrawItem = ListView1CustomDrawItem
      end
    end
    object CyberSizePanel1: TCyberSizePanel
      Left = 0
      Top = 0
      Width = 195
      Height = 370
      SizeBarWidth = 7
      HotSpotVisible = True
      HotSpotSizePercent = 30
      TabOrder = 1
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 187
        Height = 370
        Align = alClient
        AutoExpand = True
        Indent = 19
        PopupMenu = popmenugroup
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnClick = TreeView1Click
        OnMouseDown = TreeView1MouseDown
      end
    end
  end
  inherited Panel3: TPanel
    Top = 421
    Height = 32
    object CyberMenuButton1: TCyberMenuButton
      Left = 424
      Top = 4
      Width = 80
      Caption = #35282#33394#31649#29702
      TabOrder = 0
      DropDownMenu = popmenugroup
    end
    object CyberMenuButton2: TCyberMenuButton
      Left = 512
      Top = 4
      Width = 80
      Caption = #29992#25143#31649#29702
      TabOrder = 1
      DropDownMenu = PopupMenuuser
    end
    object BtnExit: TBitBtn
      Left = 600
      Top = 4
      Width = 75
      Height = 25
      Caption = #36864#20986'(&X)'
      TabOrder = 2
      OnClick = BtnExitClick
    end
  end
  object popmenugroup: TPopupMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 104
    Top = 72
    object MenuAddGroup: TMenuItem
      Caption = #28155#21152#35282#33394
      OnClick = MenuAddGroupClick
    end
    object MenuEditGroup: TMenuItem
      Caption = #20462#25913#35282#33394
      OnClick = MenuEditGroupClick
    end
    object MenuDelGroup: TMenuItem
      Caption = #21024#38500#35282#33394
      OnClick = MenuDelGroupClick
    end
    object MenuGroupPower: TMenuItem
      Caption = #35282#33394#26435#38480
      OnClick = MenuGroupPowerClick
    end
  end
  object PopupMenuuser: TPopupMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 208
    Top = 96
    object MenuAddUser: TMenuItem
      Caption = #28155#21152#29992#25143
      OnClick = MenuAddUserClick
    end
    object MenuEditUser: TMenuItem
      Caption = #20462#25913#29992#25143
      OnClick = MenuEditUserClick
    end
    object MenuDelUser: TMenuItem
      Caption = #21024#38500#29992#25143
      OnClick = MenuDelUserClick
    end
  end
  object CyberXPMenu1: TCyberXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    XPControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcEdit, xcMaskEdit, xcMemo, xcRichEdit, xcCheckBox, xcRadioButton, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcCybermenuBtn]
    Active = True
    Left = 424
    Top = 16
  end
end