mainfrm.~dfm

这个是个简单的关于出票申请的处理

object FormMain: TFormMain
  Left = 278
  Top = 161
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'FormMain'
  ClientHeight = 521
  ClientWidth = 697
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object TBXToolbar1: TTBXToolbar
    Left = 0
    Top = 0
    Width = 697
    Height = 18
    Align = alTop
    Caption = 'TBXToolbar1'
    CloseButton = False
    FullSize = True
    MenuBar = True
    ProcessShortCuts = True
    ShrinkMode = tbsmWrap
    TabOrder = 0
    object TBXSubmenuItem1: TTBXSubmenuItem
      Caption = #29992#25143
      object TBXItem1: TTBXItem
        Action = acReLogin
        Visible = False
      end
      object TBXItem2: TTBXItem
        Action = acEdtPwd
        Enabled = False
      end
      object TBXSeparatorItem1: TTBXSeparatorItem
      end
      object TBXItem3: TTBXItem
        Action = acExit
        ImageIndex = 6
        Images = TBImageList1
      end
    end
    object TBXSubmenuItem3: TTBXSubmenuItem
      Caption = #25805#20316
      object TBXItem10: TTBXItem
        Action = actDoApply
        Images = TBImageList1
      end
      object TBXItem11: TTBXItem
        Action = acAgentLQ
        Images = TBImageList1
      end
      object TBXSeparatorItem2: TTBXSeparatorItem
      end
      object TBXItem20: TTBXItem
        Action = acViewTicket
        Images = TBImageList1
      end
      object TBXItem12: TTBXItem
        Action = acInputTicket
        Images = TBImageList1
      end
      object TBXItem13: TTBXItem
        Action = acDisTickets
      end
      object TBXSeparatorItem5: TTBXSeparatorItem
      end
      object TBXItem21: TTBXItem
        Action = acOther
      end
    end
    object TBXSubmenuItem4: TTBXSubmenuItem
      Caption = #32479#35745
      object TBXItem16: TTBXItem
        Tag = 2001
        Caption = #31080#21495#30003#35831#32479#35745
        Images = TBImageList1
        OnClick = StaticsOnClick
      end
      object TBXItem17: TTBXItem
        Tag = 2002
        Caption = #31080#21495#39046#21462#32479#35745
        OnClick = StaticsOnClick
      end
      object TBXItem18: TTBXItem
        Tag = 2003
        Caption = #31080#21495#20837#24211#32479#35745
        OnClick = StaticsOnClick
      end
    end
    object TBXSubmenuItem5: TTBXSubmenuItem
      Caption = #24110#21161
      object TBXItem14: TTBXItem
        Action = acHelp
        Enabled = False
      end
      object TBXSeparatorItem3: TTBXSeparatorItem
      end
      object TBXItem15: TTBXItem
        Action = acAbout
        Enabled = False
      end
    end
  end
  object TBXDock1: TTBXDock
    Left = 0
    Top = 18
    Width = 697
    Height = 39
    BoundLines = [blTop]
    object TBXToolbar2: TTBXToolbar
      Left = 0
      Top = 0
      BorderStyle = bsNone
      Caption = 'TBXToolbar2'
      DockPos = 0
      DockRow = 2
      Options = [tboImageAboveCaption, tboShowHint]
      ParentShowHint = False
      ShowCaption = False
      ShowHint = True
      TabOrder = 0
      object TBXItem4: TTBXItem
        Action = actDoApply
        GroupIndex = 1
        Images = TBImageList1
      end
      object TBXItem6: TTBXItem
        Action = acAgentLQ
        GroupIndex = 1
        Hint = #20195#29702#39046#21462
        Images = TBImageList1
      end
      object TBXItem22: TTBXItem
        Action = acPersonalLQ
        GroupIndex = 1
        Images = TBImageList1
        Layout = tbxlGlyphTop
      end
      object TBXSeparatorItem4: TTBXSeparatorItem
      end
      object TBXItem5: TTBXItem
        Action = acInputTicket
        GroupIndex = 1
        Hint = #31080#21495#20837#24211
        Images = TBImageList1
      end
      object TBXItem23: TTBXItem
        Action = acRefund
        Images = TBImageList1
        Layout = tbxlGlyphTop
      end
      object TBXSeparatorItem6: TTBXSeparatorItem
      end
      object TBXItem8: TTBXItem
        Action = acViewTicket
        GroupIndex = 1
        Hint = #31080#21495#26597#30475
        Images = TBImageList1
      end
      object TBXItem19: TTBXItem
        Action = acSatistics
        ImageIndex = 7
        Images = TBImageList1
      end
      object TBXItem7: TTBXItem
        Action = acDisTickets
        GroupIndex = 1
        Hint = #31080#21495#20998#37197
        Images = TBImageList1
      end
      object TBXItem9: TTBXItem
        Action = acExit
        GroupIndex = 1
        Hint = #36864#20986#31995#32479
        ImageIndex = 6
        Images = TBImageList1
      end
    end
  end
  object bxStb: TTBXStatusBar
    Left = 0
    Top = 499
    Width = 697
    Panels = <
      item
        Size = 300
        Tag = 0
      end
      item
        Framed = False
        Tag = 0
      end>
    UseSystemFont = False
    object pb: TProgressBar
      Left = 305
      Top = 3
      Width = 320
      Height = 18
      TabOrder = 0
      Visible = False
    end
  end
  object PnlControl: TTBXDockablePanel
    Left = 0