unit_frmsellbookticket.dfm

影院售票系统完整源码

inherited frmsellBookTicket: TfrmsellBookTicket
  Left = 201
  Top = 123
  Caption = #21806#39044#35746#31080
  ClientHeight = 554
  ClientWidth = 762
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Top = 41
    Width = 762
  end
  inherited Bevel2: TBevel
    Top = 508
    Width = 762
  end
  inherited Panel1: TPanel
    Width = 762
    Height = 41
    BevelInner = bvLowered
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 68
      Height = 16
      Caption = #21806#39044#35746#31080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Top = 46
    Width = 762
    Height = 462
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 762
      Height = 89
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 797
        Height = 79
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Top = 16
          Width = 48
          Height = 12
          Caption = #35746#31080#21592#65306
        end
        object Label7: TLabel
          Left = 8
          Top = 48
          Width = 48
          Height = 12
          Caption = #21462#31080#21495#65306
        end
        object Label8: TLabel
          Left = 192
          Top = 16
          Width = 60
          Height = 12
          Caption = #25918#26144#26085#26399#65306
        end
        object Label9: TLabel
          Left = 192
          Top = 48
          Width = 60
          Height = 12
          Caption = #35746#31080#26085#26399#65306
        end
        object EdtBookperson: TCyberEdit
          Left = 53
          Top = 12
          Width = 120
          Height = 20
          EditAlign = etAlignNone
          Color = clWindow
          TabOrder = 0
        end
        object EdtDrawcode: TCyberEdit
          Left = 53
          Top = 44
          Width = 120
          Height = 20
          EditAlign = etAlignNone
          Color = clWindow
          TabOrder = 1
        end
        object BtnQuery: TBitBtn
          Left = 680
          Top = 46
          Width = 75
          Height = 25
          Caption = #26597#35810'(&Q)'
          TabOrder = 2
          OnClick = BtnQueryClick
        end
        object DTPPLANDATE: TCyberDateTimePicker
          Left = 248
          Top = 12
          Width = 120
          Height = 20
          CalAlignment = dtaLeft
          Date = 37733.4762580324
          Time = 37733.4762580324
          ShowCheckbox = True
          Checked = False
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
          FrameColor = clBlack
          FrameSides = [sdLeft, sdTop, sdRight, sdBottom]
        end
        object dtpselldate: TCyberDateTimePicker
          Left = 248
          Top = 44
          Width = 120
          Height = 20
          CalAlignment = dtaLeft
          Date = 37733.4762580324
          Time = 37733.4762580324
          ShowCheckbox = True
          Checked = False
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
          FrameColor = clBlack
          FrameSides = [sdLeft, sdTop, sdRight, sdBottom]
        end
      end
    end
    object Panel5: TPanel
      Left = 0
      Top = 411
      Width = 762
      Height = 51
      Align = alBottom
      BevelOuter = bvNone
      Color = clGray
      TabOrder = 1
      object Label2: TLabel
        Left = 16
        Top = 16
        Width = 51
        Height = 16
        Caption = #31080#25968#65306
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label3: TLabel
        Left = 128
        Top = 16
        Width = 51
        Height = 16
        Caption = #24212#25910#65306
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label4: TLabel
        Left = 280
        Top = 16
        Width = 51
        Height = 16
        Caption = #23454#25910#65306
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label5: TLabel
        Left = 424
        Top = 16
        Width = 51
        Height = 16
        Caption = #25214#38646#65306
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Edtcount: TEdit
        Left = 64
        Top = 12
        Width = 49
        Height = 24
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Edtsummoney: TEdit
        Left = 176
        Top = 12
        Width = 70
        Height = 24
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object Edtalready: TEdit
        Left = 328
        Top = 12
        Width = 70
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object Edtchange: TEdit
        Left = 472
        Top = 12
        Width = 70
        Height = 24
        Color = clGray
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
      object BtnSave: TBitBtn
        Left = 560
        Top = 12
        Width = 75
        Height = 25
        Caption = #30830#23450'(&S)'
        TabOrder = 4
        OnClick = BtnSaveClick
      end
    end
    object Panel6: TPanel
      Left = 0
      Top = 89
      Width = 762
      Height = 322
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 2
      object ListView1: TCyberListView
        Left = 0
        Top = 0
        Width = 762
        Height = 322
        Align = alClient
        AlphaSortAll = True
        Checkboxes = True
        Columns = <
          item
            Caption = #35746#31080#26085#26399
            Width = 90
          end
          item
            Caption = #25918#26144#26085#26399
            Width = 90
          end
          item
            Caption = #25918#26144#22320#28857
            Width = 100
          end
          item
            Caption = #24433#21381
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = #22330#27425
            Width = 40
          end
          item
            Caption = #25918#26144#26102#38388
            Width = 60
          end
          item
            Caption = #24433#29255
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = #31080#20215
          end
          item
            Caption = #35746#31080#21592
            Width = 60
          end
          item
            Caption = #21462#31080#21495
            Width = 60
          end>
        FillLastColumn = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  inherited Panel3: TPanel
    Top = 513
    Width = 762
    inherited BtnExit: TBitBtn
      Left = 680
    end
    object BitBtn1: TBitBtn
      Left = 584
      Top = 8
      Width = 90
      Height = 25
      Caption = #36864#35746#36873#20013#31080'(&R)'
      TabOrder = 1
      OnClick = BitBtn1Click
    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 = 432
    Top = 32
  end
end