unit_frmsaleticket.dfm

影院售票系统完整源码

inherited frmsaleticket: Tfrmsaleticket
  Left = 21
  Top = 136
  Width = 919
  Height = 603
  Caption = #26412#22320#21806#31080
  OldCreateOrder = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Top = 53
    Width = 911
    Visible = False
  end
  inherited Bevel3: TBevel
    Top = 487
    Width = 911
    Visible = False
  end
  inherited Panel1: TPanel
    Width = 911
    Height = 53
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Font.Height = -16
    Font.Style = [fsBold]
    ParentFont = False
    object Label5: TLabel
      Left = 96
      Top = 10
      Width = 354
      Height = 12
      Caption = #25353'S'#21806#31080#65292#25353'Esc'#25110'X'#25918#24323#25152#36873#30340#31080#65292#25353'Q'#36864#31080#65292#25353'R'#39044#35746','#25353'D'#21806#39044#35746#31080
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label7: TLabel
      Left = 0
      Top = 21
      Width = 77
      Height = 16
      Caption = ' '#22270#24418#21806#31080
    end
    object Label9: TLabel
      Left = 96
      Top = 34
      Width = 294
      Height = 12
      Caption = #22312#23454#25910#36755#20837#26694#20013#25353#22238#36710#25171#21360#24433#31080#65292#25353'V'#21487#20197#26597#30475#21806#31080#35760#24405
      Color = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Lblfilm: TLabel
      Left = 544
      Top = 19
      Width = 9
      Height = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Top = 58
    Width = 911
    Height = 429
    TabOrder = 2
    object CyberSizePanel1: TPanel
      Left = 0
      Top = 0
      Width = 911
      Height = 33
      Align = alTop
      BevelOuter = bvNone
      Locked = True
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 60
        Height = 12
        Caption = #25918#26144#26085#26399#65306
      end
      object Label2: TLabel
        Left = 160
        Top = 8
        Width = 60
        Height = 12
        Caption = #25918#26144#22320#28857#65306
      end
      object Label3: TLabel
        Left = 328
        Top = 10
        Width = 60
        Height = 12
        Caption = #25918#26144#24433#21381#65306
      end
      object Label4: TLabel
        Left = 488
        Top = 9
        Width = 36
        Height = 12
        Caption = #22330#27425#65306
      end
      object Label6: TLabel
        Left = 759
        Top = 9
        Width = 36
        Height = 12
        Caption = #31080#31867#65306
      end
      object Label18: TLabel
        Left = 887
        Top = 9
        Width = 48
        Height = 12
        Caption = #25240#25187#29575#65306
      end
      object Label19: TLabel
        Left = 963
        Top = 9
        Width = 6
        Height = 12
        Caption = '%'
      end
      object DTPplandate: TDateTimePicker
        Left = 64
        Top = 5
        Width = 89
        Height = 20
        CalAlignment = dtaLeft
        Date = 37727.6457248727
        Time = 37727.6457248727
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
        OnChange = DTPplandateChange
      end
      object Combocinema: TComboBox
        Left = 224
        Top = 4
        Width = 97
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 1
        OnChange = CombocinemaChange
      end
      object Combohall: TComboBox
        Left = 384
        Top = 6
        Width = 97
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 2
        OnChange = CombohallChange
      end
      object Edtfield: TCyberButtonEdit
        Left = 526
        Top = 6
        Width = 224
        Height = 20
        EditAlign = etAlignNone
        AllowEmpty = True
        Color = clWindow
        ReadOnly = True
        TabOnEnter = False
        TabOrder = 3
        OnDblClick = EdtfieldDblClick
        OnKeyDown = EdtfieldKeyDown
        OnButtonClick = EdtfieldButtonClick
      end
      object Combotickettype: TComboBox
        Left = 793
        Top = 5
        Width = 89
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
        OnEnter = CombotickettypeEnter
      end
      object Edtrebate: TCyberEdit
        Left = 934
        Top = 5
        Width = 27
        Height = 20
        Value = 100
        EditAlign = etAlignNone
        AllowEmpty = True
        Color = clWindow
        TabOrder = 5
        Text = '100'
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 33
      Width = 911
      Height = 396
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object DrawGrid1: TDrawGrid
        Left = 0
        Top = 0
        Width = 849
        Height = 396
        Align = alClient
        Color = clBtnFace
        Ctl3D = True
        DefaultColWidth = 45
        DefaultRowHeight = 25
        DefaultDrawing = False
        RowCount = 1
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnMouseDown = DrawGrid1MouseDown
        OnMouseMove = DrawGrid1MouseMove
        OnMouseUp = DrawGrid1MouseUp
        OnSelectCell = DrawGrid1SelectCell
      end
      object panelcolor: TPanel
        Left = 849
        Top = 0
        Width = 62
        Height = 396
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object SelledColor: TStaticText
          Left = 4
          Top = 8
          Width = 50
          Height = 16
          Alignment = taCenter
          AutoSize = False
          BevelKind = bkFlat
          BevelOuter = bvNone
          BorderStyle = sbsSunken
          Caption = #24050#21806
          Color = clRed
          ParentColor = False
          TabOrder = 0
          OnClick = SelledColorClick
        end
        object Bookcolor: TStaticText
          Left = 4
          Top = 32
          Width = 50
          Height = 16
          Alignment = taCenter
          AutoSize = False
          BevelKind = bkFlat
          BevelOuter = bvNone
          BorderStyle = sbsSunken
          Caption = #39044#35746
          Color = clBlue
          ParentColor = False
          TabOrder = 1
          OnClick = BookcolorClick
        end
        object Checkcolor: TStaticText
          Left = 5
          Top = 56
          Width = 50
          Height = 16
          Alignment = taCenter
          AutoSize = False
          BevelKind = bkFlat
          BevelOuter = bvNone
          BorderStyle = sbsSunken
          Caption = #24050#26816
          Color = clSilver
          ParentColor = False
          TabOrder = 2
          OnClick = CheckcolorClick
        end
      end
    end
  end
  inherited Panel3: TPanel
    Top = 492
    Width = 911
    Height = 84
    TabOrder = 1
    object Label8: TLabel
      Left = 576
      Top = 18
      Width = 48
      Height = 12
      Caption = #24635#31080#25968#65306
    end
    object Label11: TLabel
      Left = 588
      Top = 52
      Width = 36
      Height = 12
      Caption = #23454#25910#65306
    end
    object Label12: TLabel
      Left = 677
      Top = 52
      Width = 36
      Height = 12
      Caption = #25214#38646#65306
    end
    object Label10: TLabel
      Left = 677
      Top = 18
      Width = 36
      Height = 12
      Caption = #24212#25910#65306
    end
    object Label13: TLabel
      Left = 1
      Top = 11
      Width = 84
      Height = 12
      Caption = #40736#26631#25429#33719#24231#20301#65306
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label14: TLabel
      Left = 25
      Top = 51
      Width = 60
      Height = 12
      Caption = #26412#21381#20849#35745#65306
    end
    object Label15: TLabel
      Left = 115
      Top = 51