unit_frmsaleticket.dfm

影院售票系统完整源码

      Width = 24
      Height = 12
      Caption = #24050#21806
    end
    object Label16: TLabel
      Left = 174
      Top = 51
      Width = 24
      Height = 12
      Caption = #39044#35746
    end
    object Label17: TLabel
      Left = 232
      Top = 51
      Width = 24
      Height = 12
      Caption = #21487#21806
    end
    object ListView2: TListView
      Left = 296
      Top = 5
      Width = 273
      Height = 72
      Columns = <
        item
          Caption = #22330#27425
          Width = 40
        end
        item
          Alignment = taRightJustify
          Caption = #25490
          Width = 25
        end
        item
          Alignment = taRightJustify
          Caption = #21495
          Width = 25
        end
        item
          Caption = #24231#31867
          Width = 60
        end
        item
          Caption = #31080#31867
          Width = 60
        end
        item
          Caption = #31080#20215
        end>
      Ctl3D = False
      FlatScrollBars = True
      ReadOnly = True
      RowSelect = True
      TabOrder = 3
      ViewStyle = vsReport
      OnKeyDown = ListView2KeyDown
    end
    object Edtticketcount: TCyberEdit
      Left = 624
      Top = 14
      Width = 45
      Height = 20
      TabStop = False
      EditAlign = etAlignNone
      AllowEmpty = True
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 4
    end
    object Edtmoney1: TCyberEdit
      Left = 624
      Top = 48
      Width = 45
      Height = 20
      Max = 1000000000
      EditType = etFloat
      EditAlign = etAlignNone
      Caption = #36755#20837#23454#25968
      AllowEmpty = True
      Color = clWindow
      TabOnEnter = False
      TabOrder = 1
      Text = '0'
      OnKeyDown = Edtmoney1KeyDown
    end
    object EdtGivechange: TCyberEdit
      Left = 713
      Top = 48
      Width = 45
      Height = 20
      TabStop = False
      EditAlign = etAlignNone
      AllowEmpty = True
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object Edtmoney: TCyberEdit
      Left = 713
      Top = 14
      Width = 45
      Height = 20
      TabStop = False
      Max = 1000000000
      EditType = etFloat
      EditAlign = etAlignNone
      Caption = #36755#20837#23454#25968
      AllowEmpty = True
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
      Text = '0'
    end
    object BtnSell: TBitBtn
      Left = 768
      Top = 12
      Width = 60
      Height = 25
      Caption = #21806#31080
      TabOrder = 0
      OnClick = BtnSellClick
    end
    object Btngiveup: TBitBtn
      Left = 768
      Top = 46
      Width = 60
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = BtngiveupClick
    end
    object BitBtn1: TBitBtn
      Left = 840
      Top = 12
      Width = 60
      Height = 25
      Caption = #39044#35746
      TabOrder = 7
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 840
      Top = 46
      Width = 60
      Height = 25
      Caption = #21806#39044#35746#31080
      TabOrder = 8
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 912
      Top = 12
      Width = 60
      Height = 25
      Caption = #36864#31080
      TabOrder = 9
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 912
      Top = 46
      Width = 60
      Height = 25
      Caption = #36864#20986
      TabOrder = 10
      OnClick = BitBtn4Click
    end
    object Edtseat: TCyberEdit
      Left = 84
      Top = 7
      Width = 205
      Height = 24
      TabStop = False
      EditAlign = etAlignNone
      AllowEmpty = True
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOnEnter = False
      TabOrder = 11
    end
    object Edtalreadysell: TCyberEdit
      Left = 142
      Top = 47
      Width = 30
      Height = 20
      EditAlign = etAlignNone
      AllowEmpty = True
      Alignment = taRightJustify
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
    end
    object EdtBook: TCyberEdit
      Left = 200
      Top = 47
      Width = 30
      Height = 20
      EditAlign = etAlignNone
      AllowEmpty = True
      Alignment = taRightJustify
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
    end
    object Edtfree: TCyberEdit
      Left = 259
      Top = 47
      Width = 30
      Height = 20
      EditAlign = etAlignNone
      AllowEmpty = True
      Alignment = taRightJustify
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 14
    end
    object EdtSum: TCyberEdit
      Left = 84
      Top = 47
      Width = 30
      Height = 20
      EditAlign = etAlignNone
      AllowEmpty = True
      Alignment = taRightJustify
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 15
    end
  end
  object ListView1: TListView
    Left = 526
    Top = 84
    Width = 226
    Height = 113
    BevelEdges = []
    Columns = <
      item
        Caption = #22330#27425
        Width = 40
      end
      item
        Caption = #24320#22987
      end
      item
        Caption = #32467#26463
      end
      item
        Caption = #25918#26144#24433#29255
        Width = 150
      end>
    Ctl3D = False
    FlatScrollBars = True
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 3
    ViewStyle = vsReport
    Visible = False
    OnClick = ListView1Click
    OnDblClick = ListView1DblClick
    OnKeyPress = ListView1KeyPress
  end
  object Timer1: TTimer
    Interval = 500
    OnTimer = Timer1Timer
    Left = 176
    Top = 56
  end
  object MenuOther: TPopupMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 320
    Top = 144
    object MenuQuit: TMenuItem
      Caption = #36864#31080
      OnClick = MenuQuitClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object MenuBookTicket: TMenuItem
      Caption = #39044#35746#24433#31080
      OnClick = MenuBookTicketClick
    end
    object MenuSellBookticket: TMenuItem
      Caption = #21806#39044#35746#31080
      OnClick = MenuSellBookticketClick
    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 = 440
    Top = 24
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 344
    Top = 184
  end
end