unit_frmmain.dfm

影院售票系统完整源码

object Frmmain: TFrmmain
  Left = 0
  Top = 350
  Width = 514
  Height = 390
  Caption = #22025#20852#22823#21095#38498#21806#31080#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  WindowMenu = MenuWin
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 506
    Height = 325
    Align = alClient
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 325
    Width = 506
    Height = 19
    Panels = <
      item
        Text = #27993#27743#25968#30721#28207#31185#25216#21457#23637#26377#38480#20844#21496
        Width = 180
      end
      item
        Text = #25805#20316#21592#65306
        Width = 120
      end
      item
        Text = #36830#25509#29366#24577#65306
        Width = 150
      end
      item
        Alignment = taRightJustify
        Text = #24403#21069#26102#38388#65306
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 80
    Top = 56
    object N4: TMenuItem
      Caption = #25991#20214'(&F)'
      object MenuTool: TMenuItem
        Caption = #24037#20855#26639'(&T)...'
        Checked = True
      end
      object menuquick: TMenuItem
        Caption = #23548#33322#26639'(&O)...'
        Checked = True
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Menuset: TMenuItem
        Caption = #21442#25968#35774#32622'(&S)...'
        OnClick = MenusetClick
      end
      object MenuLogin: TMenuItem
        Caption = #25805#20316#21592#30331#24405'(&E)...'
        OnClick = MenuLoginClick
      end
      object MenuLogout: TMenuItem
        Caption = #27880#38144'(&Logout)...'
        OnClick = MenuLogoutClick
      end
      object MenuLock: TMenuItem
        Caption = #23631#24149#20445#25252'(&P)...'
        OnClick = MenuLockClick
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object MenuExit: TMenuItem
        Caption = #36864#20986'(&X)...'
        OnClick = MenuExitClick
      end
    end
    object N1: TMenuItem
      Caption = #31995#32479#31649#29702
      Visible = False
      object MenuUser: TMenuItem
        Tag = 1000
        Caption = #29992#25143#31649#29702
        OnClick = MenuUserClick
      end
      object MenuCinema: TMenuItem
        Tag = 1001
        Caption = #24433#38498#31649#29702
        OnClick = MenuCinemaClick
      end
      object MenuFilm: TMenuItem
        Tag = 1007
        Caption = #24433#29255#31649#29702
        OnClick = MenuFilmClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object MenuPriceTemplate: TMenuItem
        Tag = 1002
        Caption = #31080#20215#27169#26495
        OnClick = MenuPriceTemplateClick
      end
      object MenuplanTemplate: TMenuItem
        Tag = 1003
        Caption = #35745#21010#27169#26495
        OnClick = MenuplanTemplateClick
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Menuseattype: TMenuItem
        Tag = 1004
        Caption = #24231#20301#31867#21035
        OnClick = MenuseattypeClick
      end
      object MenuDict: TMenuItem
        Tag = 1005
        Caption = #25968#25454#23383#20856
        OnClick = MenuDictClick
      end
      object MenuSysparam: TMenuItem
        Tag = 1006
        Caption = #31995#32479#21442#25968
        OnClick = MenuSysparamClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MenuCleardata: TMenuItem
        Tag = 1008
        Caption = #25968#25454#28165#29702
        OnClick = MenuCleardataClick
      end
    end
    object N15: TMenuItem
      Caption = #25918#26144#35745#21010#31649#29702
      Visible = False
      object Menuplan: TMenuItem
        Tag = 2001
        Caption = #25918#26144#35745#21010#23433#25490
        OnClick = MenuplanClick
      end
      object MenuPlanquery: TMenuItem
        Tag = 2002
        Caption = #25918#26144#35745#21010#26597#35810
        OnClick = MenuPlanqueryClick
      end
    end
    object N22: TMenuItem
      Caption = #31080#21153#31649#29702
      Visible = False
      object MenuLocalsale: TMenuItem
        Tag = 3001
        Caption = #26412#22320#22270#24418#21806#31080
        OnClick = MenuLocalsaleClick
      end
      object MenuSellBookticket: TMenuItem
        Tag = 4002
        Caption = #21806#39044#35746#31080
        OnClick = MenuSellBookticketClick
      end
    end
    object N3: TMenuItem
      Caption = #32479#35745#26597#35810
      Visible = False
      object Menusellquery: TMenuItem
        Tag = 4001
        Caption = #21806#31080#24773#20917#32479#35745
        OnClick = MenusellqueryClick
      end
    end
    object MenuWin: TMenuItem
      Caption = #31383#21475'(&W)'
      object MenuCascade: TMenuItem
        Caption = #23618#21472'(&C)'
        OnClick = MenuCascadeClick
      end
      object MenuHer: TMenuItem
        Caption = #27700#24179#24179#38138'(&H)'
        OnClick = MenuHerClick
      end
      object MenuVer: TMenuItem
        Caption = #22402#30452#24179#38138'(&V)'
        OnClick = MenuVerClick
      end
      object MenuCloseWin: TMenuItem
        Caption = #20851#38381#25152#26377#31383#21475'(&C)'
        OnClick = MenuCloseWinClick
      end
      object MenuMin: TMenuItem
        Caption = #20840#37096#26368#23567#21270'(&M)'
        OnClick = MenuMinClick
      end
      object N16: TMenuItem
        Caption = '-'
      end
    end
    object MenuHelp: TMenuItem
      Caption = #24110#21161'(&H)'
      object MenuIndex: TMenuItem
        Caption = #30446#24405#19982#32034#24341'(&I)'
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object MenuHomePage: TMenuItem
        Caption = #25968#30721#28207#20027#39029'(&J)'
        OnClick = MenuHomePageClick
      end
      object MenuAbout: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 224
    Top = 128
  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 = True
    XPControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcEdit, xcMaskEdit, xcMemo, xcRichEdit, xcCheckBox, xcRadioButton, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcCybermenuBtn]
    Active = True
    Left = 392
    Top = 72
  end
end