unit_frmplan.dfm

影院售票系统完整源码

inherited frmplan: Tfrmplan
  Caption = #26144#20986#35745#21010#31649#29702
  OldCreateOrder = True
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    object Label1: TLabel
      Left = 8
      Top = 14
      Width = 102
      Height = 16
      Caption = #26144#20986#35745#21010#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
    object CyberSizePanel1: TCyberSizePanel
      Left = 0
      Top = 0
      Width = 185
      Height = 271
      SizeBarWidth = 7
      HotSpotVisible = True
      HotSpotSizePercent = 30
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 177
        Height = 271
        Align = alClient
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object Panelconsign: TPanel
          Left = 2
          Top = 14
          Width = 173
          Height = 255
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object Panel4: TPanel
            Left = 0
            Top = 0
            Width = 173
            Height = 255
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 0
            object Panel31: TPanel
              Left = 0
              Top = 0
              Width = 173
              Height = 25
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 0
              object Chkcode: TCheckBox
                Left = 15
                Top = 8
                Width = 97
                Height = 17
                Caption = #35745#21010#27969#27700#21495
                TabOrder = 0
                OnClick = ChkcodeClick
              end
              object EdTcode: TEdit
                Left = 15
                Top = 27
                Width = 150
                Height = 20
                TabOrder = 1
              end
            end
            object Panel32: TPanel
              Left = 0
              Top = 25
              Width = 173
              Height = 25
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 1
              object ChkCinema: TCheckBox
                Left = 16
                Top = 8
                Width = 97
                Height = 17
                Caption = #25918#26144#22320#28857
                TabOrder = 0
                OnClick = ChkCinemaClick
              end
              object Combocinema: TComboBox
                Left = 16
                Top = 28
                Width = 150
                Height = 20
                Style = csDropDownList
                ItemHeight = 12
                TabOrder = 1
                OnChange = CombocinemaChange
              end
            end
            object Panel35: TPanel
              Left = 0
              Top = 100
              Width = 173
              Height = 25
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 2
              object Label2: TLabel
                Left = 16
                Top = 53
                Width = 12
                Height = 12
                Caption = #33267
              end
              object Chkplandate: TCheckBox
                Left = 16
                Top = 8
                Width = 97
                Height = 17
                Caption = #25918#26144#26085#26399
                TabOrder = 0
                OnClick = ChkplandateClick
              end
              object Dtpstartdate: TDateTimePicker
                Left = 16
                Top = 32
                Width = 150
                Height = 20
                CalAlignment = dtaLeft
                Date = 37635.9730663657
                Time = 37635.9730663657
                ShowCheckbox = True
                DateFormat = dfShort
                DateMode = dmComboBox
                Kind = dtkDate
                ParseInput = False
                TabOrder = 1
              end
              object Dtpenddate: TDateTimePicker
                Left = 16
                Top = 68
                Width = 150
                Height = 20
                CalAlignment = dtaLeft
                Date = 37635.9730663657
                Time = 37635.9730663657
                ShowCheckbox = True
                DateFormat = dfShort
                DateMode = dmComboBox
                Kind = dtkDate
                ParseInput = False
                TabOrder = 2
              end
            end
            object Panel33: TPanel
              Left = 0
              Top = 50
              Width = 173
              Height = 25
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 3
              object Chkhall: TCheckBox
                Left = 16
                Top = 8
                Width = 97
                Height = 17
                Caption = #24433#21381
                TabOrder = 0
                OnClick = ChkhallClick
              end
              object Combohall: TComboBox
                Left = 16
                Top = 28
                Width = 150
                Height = 20
                Style = csDropDownList
                ItemHeight = 12
                TabOrder = 1
              end
            end
            object Panel34: TPanel
              Left = 0
              Top = 75
              Width = 173
              Height = 25
              Align = alTop
              BevelOuter = bvNone
              TabOrder = 4
              object chkstatus: TCheckBox
                Left = 16
                Top = 8
                Width = 97
                Height = 17
                Caption = #29366#24577
                TabOrder = 0
                OnClick = chkstatusClick
              end
              object Combostatus: TComboBox
                Left = 16
                Top = 28
                Width = 150
                Height = 20
                Style = csDropDownList
                ItemHeight = 12
                ItemIndex = 0
                TabOrder = 1
                Text = '0-'#26410#21806
                Items.Strings = (
                  '0-'#26410#21806
                  '1-'#24320#21806
                  '2-'#20572#21806
                  '3-'#27880#38144)
              end
            end
            object BtnQuery: TBitBtn
              Left = 88
              Top = 448
              Width = 75
              Height = 25
              Caption = #26597#35810'(&Q)'
              TabOrder = 5
              OnClick = BtnQueryClick
            end
          end
        end
      end
    end
    object ListView1: TCyberListView
      Left = 185
      Top = 0
      Width = 321
      Height = 271
      Align = alClient
      AlphaSortAll = True
      Columns = <
        item
          Caption = #25918#26144#26085#26399
          Width = 80
        end
        item
          Caption = #22320#28857
          Width = 100
        end
        item
          Caption = #24433#21381'   '#9660
          Width = 100
        end
        item
          Alignment = taRightJustify
          Caption = #22330#27425
          Width = 40
        end
        item
          Caption = #24320#22987
        end
        item
          Caption = #32467#26463
        end
        item
          Caption = #25918#26144#24433#29255
          Width = 120
        end
        item
          Caption = #29366#24577
          Width = 60
        end
        item
          Alignment = taRightJustify
          Caption = #21487#21806
          Width = 40
        end
        item
          Alignment = taRightJustify
          Caption = #24050#21806
          Width = 40
        end
        item
          Alignment = taRightJustify
          Caption = #39044#35746
          Width = 40
        end
        item
          Alignment = taRightJustify
          Caption = #21097#20313
          Width = 40
        end
        item
          Alignment = taRightJustify
          Caption = #31354#24231#29575
          Width = 60
        end
        item
          Alignment = taRightJustify
          Caption = #31080#25151#25910#20837
          Width = 60
        end>
      FillLastColumn = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 1
      ViewStyle = vsReport
      OnDblClick = ListView1DblClick
      OnCustomDrawItem = ListView1CustomDrawItem
    end
  end
  inherited Panel3: TPanel
    object BtnAdd: TBitBtn
      Left = 472
      Top = 8
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BtnAddClick
    end
    object BtnEdit: TBitBtn
      Left = 549
      Top = 8
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 1
      OnClick = BtnEditClick
    end
    object BtnDel: TBitBtn
      Left = 627
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 2
      OnClick = BtnDelClick
    end
    object BtnExit: TBitBtn
      Left = 784
      Top = 8
      Width = 75
      Height = 25
      Caption = #36820#22238
      TabOrder = 3
      OnClick = BtnExitClick
    end
    object BtnCopy: TBitBtn
      Left = 395
      Top = 8
      Width = 75
      Height = 25
      Caption = #22797#21046#35745#21010
      TabOrder = 4
      OnClick = BtnCopyClick
    end
    object Btncontrol: TCyberMenuButton
      Left = 312
      Top = 8
      Width = 81
      Caption = #35745#21010#25511#21046
      TabOrder = 5
      DropDownMenu = PopupMenu1
    end
    object BtnExcel: TBitBtn
      Left = 705
      Top = 8
      Width = 75
      Height = 25
      Caption = #23548#20837'&Excel'
      TabOrder = 6
      OnClick = BtnExcelClick
    end
    object ProgressBar1: TProgressBar
      Left = 5
      Top = 8
      Width = 175
      Height = 16
      Min = 0
      Max = 100
      TabOrder = 7
      Visible = False
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 336
    Top = 120
    object Menustart: TMenuItem
      Caption = #24320#21806
      OnClick = MenustartClick
    end
    object Menuend: TMenuItem
      Caption = #20572#21806
      OnClick = MenuendClick
    end
    object Menustop: TMenuItem
      Caption = #27880#38144
      OnClick = MenustopClick
    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 = 520
    Top = 24
  end
end