unit_frmfilm.dfm

影院售票系统完整源码

inherited frmfilm: Tfrmfilm
  Left = 151
  Top = 120
  Width = 738
  Height = 554
  Caption = #24433#29255#31649#29702
  FormStyle = fsNormal
  OldCreateOrder = True
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Width = 730
  end
  inherited Bevel3: TBevel
    Top = 481
    Width = 730
  end
  inherited Panel1: TPanel
    Width = 730
    object Label1: TLabel
      Left = 12
      Top = 12
      Width = 68
      Height = 16
      Caption = #24433#29255#31649#29702
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  inherited Panel2: TPanel
    Width = 730
    Height = 435
    object ListView1: TCyberListView
      Left = 0
      Top = 0
      Width = 730
      Height = 435
      Align = alClient
      AlphaSortAll = True
      Columns = <
        item
          Caption = #24433#29255#32534#30721
          Width = 80
        end
        item
          Caption = #24433#29255#21517#31216
          Width = 150
        end
        item
          Caption = #24433#29255#31867#21035
          Width = 80
        end
        item
          Caption = #20135#22320
          Width = 150
        end
        item
          Caption = #21457#34892#21830
          Width = 150
        end
        item
          Caption = #23548#28436
          Width = 80
        end
        item
          Caption = #20027#35201#28436#21592
          Width = 100
        end>
      FillLastColumn = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = ListView1DblClick
      OnCustomDrawItem = ListView1CustomDrawItem
    end
  end
  inherited Panel3: TPanel
    Top = 486
    Width = 730
    object Btnadd: TBitBtn
      Left = 376
      Top = 8
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BtnaddClick
    end
    object btnedit: TBitBtn
      Left = 464
      Top = 8
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 1
      OnClick = btneditClick
    end
    object BtnDel: TBitBtn
      Left = 552
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BtnDelClick
    end
    object BtnExit: TBitBtn
      Left = 648
      Top = 8
      Width = 75
      Height = 25
      Caption = #20851#38381'(&X)'
      TabOrder = 3
      OnClick = BtnExitClick
    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 = 560
    Top = 64
  end
end