doapplyfrm.dfm

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

inherited FormDoApply: TFormDoApply
  Left = 296
  Top = 275
  Width = 703
  Height = 463
  Caption = #22788#29702#30003#35831
  OldCreateOrder = True
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object pnlTop: TPanel
    Left = 0
    Top = 312
    Width = 695
    Height = 124
    Align = alBottom
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 0
    object Label4: TLabel
      Left = 16
      Top = 39
      Width = 54
      Height = 12
      Caption = #22788#29702#32467#26524':'
    end
    object btnDoApply: TButton
      Left = 441
      Top = 88
      Width = 79
      Height = 25
      Caption = #36827#34892#22788#29702
      Enabled = False
      TabOrder = 0
      OnClick = btnDoApplyClick
    end
    object cbApply: TCheckBox
      Left = 16
      Top = 12
      Width = 305
      Height = 17
      Caption = #21516#24847#30003#35831
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object mmResult: TMemo
      Left = 80
      Top = 38
      Width = 345
      Height = 75
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
    end
  end
  object pnlClient: TPanel
    Left = 0
    Top = 0
    Width = 695
    Height = 312
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object lvApply: TListView
      Left = 0
      Top = 0
      Width = 695
      Height = 312
      Align = alClient
      Columns = <
        item
          Caption = #24207#21495
        end
        item
          Alignment = taCenter
          Caption = #20195#29702#24080#21495
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = #20195#29702#22995#21517
          Width = 80
        end
        item
          Alignment = taCenter
          Caption = #30003#35831#26085#26399
          Width = 90
        end
        item
          Alignment = taCenter
          Caption = #24635#20849#31080#25968
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = #21487#29992#31080#25968
          Width = 70
        end
        item
          Alignment = taCenter
          Caption = #30003#35831#31080#25968
          Width = 85
        end
        item
          Alignment = taCenter
          Caption = #29366#24577
          Width = 70
        end>
      GridLines = True
      ReadOnly = True
      RowSelect = True
      PopupMenu = ppmApply
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = lvApplyDblClick
      OnMouseDown = lvApplyMouseDown
    end
  end
  object ppmApply: TTBPopupMenu
    Left = 168
    Top = 120
    object TBXItem1: TTBXItem
      Action = acCopyAgentId
    end
    object TBXItem2: TTBXItem
      Action = acCopyName
    end
    object TBXItem3: TTBXItem
      Caption = #21047#26032
      OnClick = TBXItem3Click
    end
  end
  object aclMain: TActionList
    OnUpdate = aclMainUpdate
    Left = 88
    Top = 56
    object acDelSuperDateTicket: TAction
      Caption = #21024#38500#36807#26399#30003#35831#31080
    end
    object acCopyAgentId: TAction
      Caption = #22797#21046#20195#29702#24080#21495
      OnExecute = acCopyAgentIdExecute
    end
    object acCopyName: TAction
      Caption = #22797#21046#20195#29702#22995#21517
      OnExecute = acCopyNameExecute
    end
  end
end