pensonallqfrm.~dfm

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

inherited FrmPersonalLQ: TFrmPersonalLQ
  Left = 208
  Top = 173
  Hint = #20010#20154#39046#21462
  Caption = #20010#20154#39046#21462
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 689
    Height = 415
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 689
      Height = 415
      Align = alClient
      TabOrder = 0
      object Label4: TLabel
        Left = 20
        Top = 111
        Width = 66
        Height = 12
        Caption = #39046#21462#20154#22995#21517':'
      end
      object Label2: TLabel
        Left = 20
        Top = 70
        Width = 54
        Height = 12
        Caption = #36215#22987#31080#21495':'
      end
      object Label1: TLabel
        Left = 20
        Top = 30
        Width = 54
        Height = 12
        Caption = #20351#29992#21306#22495':'
      end
      object Label5: TLabel
        Left = 232
        Top = 110
        Width = 54
        Height = 12
        Caption = #39046#21462#26085#26399':'
      end
      object Label3: TLabel
        Left = 232
        Top = 70
        Width = 54
        Height = 12
        Caption = #39046#21462#24352#25968':'
      end
      object lblStoreCount: TLabel
        Left = 420
        Top = 69
        Width = 78
        Height = 12
        Caption = 'lblStoreCount'
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object EdtStartTicketNo: TEdit
        Left = 77
        Top = 65
        Width = 125
        Height = 20
        Color = clBtnFace
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 0
      end
      object EdtLQName: TEdit
        Left = 92
        Top = 106
        Width = 121
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
      end
      object EdtLQDate: TEdit
        Left = 295
        Top = 105
        Width = 147
        Height = 20
        Color = clBtnFace
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 2
      end
      object EdtCount: TEdit
        Left = 294
        Top = 65
        Width = 121
        Height = 20
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
        OnKeyPress = EdtCountKeyPress
      end
      object BtnLQ: TButton
        Left = 470
        Top = 101
        Width = 75
        Height = 25
        Caption = #39046#21462
        TabOrder = 4
        OnClick = BtnLQClick
      end
      object cbArea: TComboBox
        Left = 77
        Top = 25
        Width = 126
        Height = 20
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 12
        TabOrder = 5
        OnChange = cbAreaChange
        Items.Strings = (
          #21271#20140
          #19978#28023)
      end
    end
  end
end