unit_frmseatset.dfm

影院售票系统完整源码

inherited frmseatset: Tfrmseatset
  Left = 236
  Top = -11
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #24433#21381#24231#20301#35774#32622
  ClientHeight = 623
  ClientWidth = 768
  OldCreateOrder = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Top = 41
    Width = 768
  end
  inherited Bevel2: TBevel
    Top = 618
    Width = 768
  end
  inherited Panel1: TPanel
    Width = 768
    Height = 41
    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 102
      Height = 16
      Caption = #24433#21381#24231#20301#35774#32622
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 136
      Top = 8
      Width = 144
      Height = 12
      Caption = #27599#27425#21487#35774#32622#25110#31227#38500#19968#25490#24231#20301
    end
  end
  inherited Panel2: TPanel
    Top = 46
    Width = 768
    Height = 572
    object CyberSizePanel1: TCyberSizePanel
      Left = 0
      Top = 0
      Width = 222
      Height = 572
      SizeBarWidth = 7
      HotSpotVisible = True
      HotSpotSizePercent = 30
      TabOrder = 0
      object Bevel3: TBevel
        Left = 0
        Top = 164
        Width = 214
        Height = 5
        Align = alTop
        Shape = bsTopLine
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 214
        Height = 164
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 2
          Top = 67
          Width = 36
          Height = 12
          Caption = #31867#21035#65306
        end
        object Label3: TLabel
          Left = 14
          Top = 36
          Width = 24
          Height = 12
          Caption = #21495#65306
        end
        object Label2: TLabel
          Left = 14
          Top = 10
          Width = 24
          Height = 12
          Caption = #25490#65306
        end
        object Comboseattype: TComboBox
          Left = 40
          Top = 64
          Width = 80
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 0
          OnChange = ComboseattypeChange
        end
        object Edtcol: TSpinEdit
          Left = 40
          Top = 34
          Width = 80
          Height = 21
          MaxValue = 0
          MinValue = 0
          TabOrder = 1
          Value = 1
        end
        object Edtrow: TSpinEdit
          Left = 40
          Top = 6
          Width = 80
          Height = 21
          MaxValue = 0
          MinValue = 0
          TabOrder = 2
          Value = 1
        end
        object Btnsave: TBitBtn
          Left = 133
          Top = 7
          Width = 75
          Height = 21
          Caption = #35774#32622#24231#20301'(&S)'
          TabOrder = 3
          OnClick = BtnsaveClick
        end
        object BtnDel: TBitBtn
          Left = 133
          Top = 92
          Width = 75
          Height = 21
          Caption = #31227#38500#24231#20301'(&D)'
          TabOrder = 4
          OnClick = BtnDelClick
        end
        object BitBtn1: TBitBtn
          Left = 133
          Top = 63
          Width = 75
          Height = 21
          Caption = #21047#26032'(&R)'
          TabOrder = 5
          OnClick = BitBtn1Click
        end
        object BtnSame: TBitBtn
          Left = 133
          Top = 34
          Width = 75
          Height = 21
          Caption = #31561#21516'(&A)'
          TabOrder = 6
          OnClick = BtnSameClick
        end
        object RadioGroup1: TRadioGroup
          Left = 40
          Top = 86
          Width = 80
          Height = 71
          ItemIndex = 0
          Items.Strings = (
            #25972#34892#31227
            #25972#21015#31227
            #21333#20010#31227)
          TabOrder = 7
        end
      end
      object ListView1: TCyberListView
        Left = 0
        Top = 169
        Width = 214
        Height = 403
        Align = alClient
        AlphaSortAll = True
        Columns = <
          item
            Caption = #34892#21495
            Width = 40
          end
          item
            Caption = #21015#21495
            Width = 40
          end
          item
            Caption = #24231#20301#31867#22411
            Width = 130
          end>
        FillLastColumn = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 1
        ViewStyle = vsReport
      end
    end
    object Panel4: TPanel
      Left = 222
      Top = 0
      Width = 546
      Height = 572
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object panelColor: TCyberSizePanel
        Left = 0
        Top = 0
        Width = 546
        Height = 60
        Align = alTop
        LockBar = True
        Locked = True
        HotSpotSizePercent = 30
        TabOrder = 0
        object Label5: TLabel
          Left = 387
          Top = 38
          Width = 84
          Height = 12
          Caption = #40736#26631#25351#31034#24231#20301#65306
        end
        object Label8: TLabel
          Left = 500
          Top = 38
          Width = 12
          Height = 12
          Caption = #25490
        end
        object Label9: TLabel
          Left = 547
          Top = 38
          Width = 12
          Height = 12
          Caption = #21495
        end
        object Label6: TLabel
          Left = 10
          Top = 38
          Width = 60
          Height = 12
          BiDiMode = bdRightToLeft
          Caption = #24231#20301#24635#25968#65306
          ParentBiDiMode = False
        end
        object Label7: TLabel
          Left = 139
          Top = 38
          Width = 60
          Height = 12
          BiDiMode = bdRightToLeft
          Caption = #21487#23481#20154#25968#65306
          ParentBiDiMode = False
        end
        object Edtrow1: TCyberEdit
          Left = 468
          Top = 34
          Width = 29
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clWindow
          TabOrder = 0
        end
        object Edtseat: TCyberEdit
          Left = 563
          Top = 34
          Width = 70
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clWindow
          TabOrder = 1
        end
        object Edtcol1: TCyberEdit
          Left = 515
          Top = 34
          Width = 29
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clWindow
          TabOrder = 2
        end
        object Edtseatcount: TCyberEdit
          Left = 67
          Top = 34
          Width = 65
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clWindow
          TabOrder = 3
        end
        object Edtpersoncount: TCyberEdit
          Left = 195
          Top = 34
          Width = 65
          Height = 20
          EditAlign = etAlignNone
          AllowEmpty = True
          Color = clWindow
          TabOrder = 4
        end
      end
      object Panel6: TPanel
        Left = 0
        Top = 60
        Width = 546
        Height = 512
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object DrawGrid1: TDrawGrid
          Left = 0
          Top = 0
          Width = 546
          Height = 512
          Align = alClient
          Color = clBtnFace
          ColCount = 26
          DefaultColWidth = 35
          DefaultRowHeight = 20
          DefaultDrawing = False
          RowCount = 26
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnDrawCell = DrawGrid1DrawCell
          OnMouseDown = DrawGrid1MouseDown
          OnMouseUp = DrawGrid1MouseUp
          OnSelectCell = DrawGrid1SelectCell
        end
      end
    end
  end
  inherited Panel3: TPanel
    Top = 618
    Width = 768
    Height = 0
    Visible = False
    inherited BtnExit: TBitBtn
      Left = 800
    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 = 536
    Top = 16
  end
end