storetickets.~dfm

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

inherited FormStoreTicket: TFormStoreTicket
  Left = 195
  Top = 217
  Width = 703
  Caption = #31080#21495#20837#24211
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object pnlClient: TPanel
    Left = 0
    Top = 0
    Width = 695
    Height = 78
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 50
      Width = 54
      Height = 12
      Caption = #31080#21495#21495#27573':'
    end
    object Label2: TLabel
      Left = 88
      Top = 50
      Width = 12
      Height = 12
      Caption = #20174
    end
    object Label3: TLabel
      Left = 216
      Top = 50
      Width = 12
      Height = 12
      Caption = #21040
    end
    object Label4: TLabel
      Left = 16
      Top = 17
      Width = 54
      Height = 12
      Caption = #20351#29992#21306#22495':'
    end
    object Label5: TLabel
      Left = 360
      Top = 50
      Width = 30
      Height = 12
      Caption = #24352#25968':'
    end
    object EdtStartTicketNo: TEdit
      Left = 108
      Top = 45
      Width = 101
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
      OnKeyPress = EdtStartTicketNoKeyPress
    end
    object EdtEndTicketNo: TEdit
      Left = 236
      Top = 45
      Width = 101
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
      OnKeyPress = EdtStartTicketNoKeyPress
    end
    object BtnStore: TButton
      Left = 496
      Top = 42
      Width = 75
      Height = 25
      Caption = #20837#24211
      TabOrder = 2
      OnClick = BtnStoreClick
    end
    object cbArea: TComboBox
      Left = 87
      Top = 12
      Width = 114
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 3
      Items.Strings = (
        #21271#20140
        #19978#28023)
    end
    object EdtCount: TEdit
      Left = 395
      Top = 44
      Width = 71
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 4
      OnMouseDown = EdtCountMouseDown
    end
  end
  object pnlBottom: TPanel
    Left = 0
    Top = 78
    Width = 695
    Height = 337
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 695
      Height = 337
      Align = alClient
      Caption = #21382#21490#35760#24405
      TabOrder = 0
      object lvHistory: TListView
        Left = 2
        Top = 14
        Width = 691
        Height = 321
        Align = alClient
        Columns = <
          item
            Caption = #24207#21495
          end
          item
            Alignment = taCenter
            Caption = #36215#22987#31080#21495
            Width = 100
          end
          item
            Alignment = taCenter
            Caption = #25968#37327
            Width = 80
          end
          item
            Alignment = taCenter
            Caption = #20837#24211#26102#38388
            Width = 140
          end
          item
            Alignment = taCenter
            Caption = #20351#29992#21306#22495
            Width = 80
          end>
        GridLines = True
        ReadOnly = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
end