viewticketsfrm.dfm.svn-base

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

inherited FormViewTicket: TFormViewTicket
  Left = 300
  Top = 313
  Width = 703
  Caption = #26597#30475#31080#21495
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object PnlTop: TPanel
    Left = 0
    Top = 0
    Width = 695
    Height = 113
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 16
      Width = 54
      Height = 12
      Caption = #26597#30475#26041#24335':'
    end
    object cbApply: TComboBox
      Left = 184
      Top = 15
      Width = 145
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 0
      OnChange = cbApplyChange
      Items.Strings = (
        #20840#37096
        #25353#26085#26399
        #25353#24050#22788#29702
        #25353#26410#22788#29702
        #25353#36229#26399#26410#22788#29702)
    end
    object rbApply: TRadioButton
      Tag = 1001
      Left = 80
      Top = 16
      Width = 89
      Height = 17
      Caption = #25353#31080#21495#30003#35831':'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = RBButtonClick
    end
    object rbLQ: TRadioButton
      Tag = 1002
      Left = 80
      Top = 50
      Width = 89
      Height = 17
      Caption = #25353#31080#21495#39046#21462':'
      TabOrder = 2
      OnClick = RBButtonClick
    end
    object rbStore: TRadioButton
      Tag = 1003
      Left = 80
      Top = 83
      Width = 89
      Height = 17
      Caption = #25353#31080#21495#20351#29992':'
      TabOrder = 3
      OnClick = RBButtonClick
    end
    object cbLQ: TComboBox
      Left = 184
      Top = 47
      Width = 145
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 4
      OnChange = cbLQChange
      Items.Strings = (
        #20840#37096
        #25353#39046#21462#26102#38388
        #25353#39046#21462#31080#25968
        #25353#20195#29702#20154#24080#21495)
    end
    object cbStore: TComboBox
      Left = 184
      Top = 80
      Width = 145
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 12
      TabOrder = 5
      OnChange = cbStoreChange
      Items.Strings = (
        #20840#37096
        #25353#31080#21495
        #25353#20351#29992
        #25353#26410#20351#29992
        #25353#20837#24211#26102#38388)
    end
    object pnllogic: TPanel
      Left = 337
      Top = 46
      Width = 41
      Height = 20
      AutoSize = True
      BevelOuter = bvNone
      TabOrder = 6
    end
  end
  object pnlClient: TPanel
    Left = 0
    Top = 113
    Width = 695
    Height = 174
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object sgResult: TStringGrid
      Left = 0
      Top = 0
      Width = 695
      Height = 174
      Align = alClient
      DefaultColWidth = 80
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
      TabOrder = 0
      OnDrawCell = sgResultDrawCell
    end
  end
end