unit_frmcinema.dfm

影院售票系统完整源码

inherited frmcinema: Tfrmcinema
  Left = 214
  Top = 95
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24433#38498#31649#29702
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Top = 60
  end
  inherited Bevel3: TBevel
    Top = 422
  end
  inherited Panel1: TPanel
    Height = 60
    object Label1: TLabel
      Left = 8
      Top = 19
      Width = 102
      Height = 16
      Caption = #24433#38498#24433#21381#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 = 176
      Top = 8
      Width = 228
      Height = 12
      Caption = #24038#36793#26641#20013#19968#32423#33410#28857#20026#24433#38498#65292#20108#32423#33410#28857#20026#24433#21381
    end
    object Label3: TLabel
      Left = 176
      Top = 32
      Width = 480
      Height = 12
      Caption = #36873#20013#20840#37096#24433#38498#21487#20197#28155#21152#24433#38498#65292#36873#20013#24433#38498#33410#28857#21487#20197#28155#21152#24433#21381#65292#36873#20013#26576#19968#24433#21381#21487#20197#35774#32622#24433#21381#24231#20301
    end
  end
  inherited Panel2: TPanel
    Top = 65
    Height = 357
    object CyberSizePanel1: TCyberSizePanel
      Left = 0
      Top = 0
      Width = 217
      Height = 357
      SizeBarWidth = 7
      HotSpotVisible = True
      HotSpotSizePercent = 30
      TabOrder = 0
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 209
        Height = 357
        Align = alClient
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RightClickSelect = True
        RowSelect = True
        TabOrder = 0
        OnClick = TreeView1Click
        OnMouseDown = TreeView1MouseDown
      end
    end
    object Panel4: TPanel
      Left = 217
      Top = 0
      Width = 471
      Height = 357
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 471
        Height = 145
        Align = alTop
        TabOrder = 0
        object Label4: TLabel
          Left = 8
          Top = 21
          Width = 60
          Height = 12
          Caption = #24433#38498#21517#31216#65306
        end
        object Label5: TLabel
          Left = 237
          Top = 21
          Width = 60
          Height = 12
          Caption = #20840#22269#32534#21495#65306
        end
        object Label6: TLabel
          Left = 8
          Top = 111
          Width = 60
          Height = 12
          Caption = #24433#38498#22320#22336#65306
        end
        object Label7: TLabel
          Left = 20
          Top = 51
          Width = 48
          Height = 12
          Caption = #32852#31995#20154#65306
        end
        object Label12: TLabel
          Left = 237
          Top = 51
          Width = 60
          Height = 12
          Caption = #32852#31995#26041#24335#65306
        end
        object Label13: TLabel
          Left = 32
          Top = 83
          Width = 36
          Height = 12
          Caption = #37038#32534#65306
        end
        object Edtname: TCyberEdit
          Left = 66
          Top = 17
          Width = 150
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 0
        end
        object Edtnationalcode: TCyberEdit
          Left = 294
          Top = 17
          Width = 150
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 1
        end
        object edtadr: TCyberEdit
          Left = 66
          Top = 107
          Width = 377
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 2
        end
        object edtperson: TCyberEdit
          Left = 66
          Top = 47
          Width = 150
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 3
        end
        object edtcontact: TCyberEdit
          Left = 294
          Top = 47
          Width = 150
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 4
        end
        object edtpostcode: TCyberEdit
          Left = 66
          Top = 79
          Width = 150
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clBtnFace
          ReadOnly = True
          TabOrder = 5
        end
      end
      object ListView1: TCyberListView
        Left = 0
        Top = 145
        Width = 471
        Height = 212
        Align = alClient
        AlphaSortAll = True
        Columns = <
          item
            Caption = #24433#38498#21517#31216
            Width = 130
          end
          item
            Caption = #24433#21381#32534#21495
            Width = 60
          end
          item
            Caption = #24433#21381#21517#31216
            Width = 120
          end
          item
            Alignment = taRightJustify
            Caption = #24231#20301#25968
          end
          item
            Caption = #22791#27880
            Width = 91
          end>
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        ViewStyle = vsReport
        OnDblClick = ListView1DblClick
        OnKeyDown = ListView1KeyDown
        OnCustomDrawItem = ListView1CustomDrawItem
      end
    end
  end
  inherited Panel3: TPanel
    Top = 427
    Height = 26
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 688
      Height = 20
      AutoSize = True
      ButtonHeight = 20
      ButtonWidth = 55
      Caption = 'ToolBar1'
      Customizable = True
      EdgeBorders = []
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = False
      TabOrder = 0
      object ToolBtnAddCinema: TToolButton
        Left = 0
        Top = 0
        AllowAllUp = True
        AutoSize = True
        Caption = #28155#21152#24433#38498
        ImageIndex = 0
        OnClick = ToolBtnAddCinemaClick
      end
      object ToolBtnEditCinema: TToolButton
        Left = 59
        Top = 0
        Caption = #20462#25913#24433#38498
        ImageIndex = 1
        OnClick = ToolBtnEditCinemaClick
      end
      object ToolBtnDelCinema: TToolButton
        Left = 114
        Top = 0
        Caption = #21024#38500#24433#38498
        ImageIndex = 2
        OnClick = ToolBtnDelCinemaClick
      end
      object ToolButton4: TToolButton
        Left = 169
        Top = 0
        Width = 10
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsDivider
      end
      object ToolBtnAddHall: TToolButton
        Left = 179
        Top = 0
        Caption = #28155#21152#24433#21381
        ImageIndex = 4
        OnClick = ToolBtnAddHallClick
      end
      object ToolBtnEditHall: TToolButton
        Left = 234
        Top = 0
        Caption = #20462#25913#24433#21381
        ImageIndex = 5
        OnClick = ToolBtnEditHallClick
      end
      object ToolBtnDelHall: TToolButton
        Left = 289
        Top = 0
        Caption = #21024#38500#24433#21381
        ImageIndex = 6
        OnClick = ToolBtnDelHallClick
      end
      object ToolBtnHallSet: TToolButton
        Left = 344
        Top = 0
        Caption = #35774#32622#24231#20301
        ImageIndex = 7
        OnClick = ToolBtnHallSetClick
      end
      object ToolButton9: TToolButton
        Left = 399
        Top = 0
        Width = 10
        Caption = 'ToolButton9'
        ImageIndex = 8
        Style = tbsDivider
      end
      object ToolButton10: TToolButton
        Left = 409
        Top = 0
        Caption = #36820#22238'(&X)'
        ImageIndex = 9
        OnClick = ToolButton10Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 104
    Top = 144
    object MenuAdd1: TMenuItem
      Caption = #28155#21152#24433#38498
      OnClick = MenuAdd1Click
    end
    object MenuEdit1: TMenuItem
      Caption = #20462#25913#24433#38498
      OnClick = MenuEdit1Click
    end
    object menudel1: TMenuItem
      Caption = #21024#38500#24433#38498
      OnClick = menudel1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Menuadd2: TMenuItem
      Caption = #28155#21152#24433#21381
      OnClick = Menuadd2Click
    end
    object MenuEdit2: TMenuItem
      Caption = #20462#25913#24433#21381
      OnClick = MenuEdit2Click
    end
    object MenuDel2: TMenuItem
      Caption = #21024#38500#24433#21381
      OnClick = MenuDel2Click
    end
    object MenuHallset: TMenuItem
      Caption = #35774#32622#24433#21381#24231#20301
    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