logicselectedfrm.dfm

来自「这个是个简单的关于出票申请的处理」· DFM 代码 · 共 95 行

object FormSelectLogic: TFormSelectLogic
  Left = 340
  Top = 517
  BorderStyle = bsDialog
  Caption = #36923#36753#20851#31995
  ClientHeight = 94
  ClientWidth = 265
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 265
    Height = 37
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 88
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450
      Default = True
      ModalResult = 1
      TabOrder = 0
    end
    object BitBtn2: TBitBtn
      Left = 176
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 265
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    Color = clMedGray
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 30
      Height = 12
      Caption = #31080#25968':'
    end
    object cbLogic: TComboBox
      Left = 56
      Top = 19
      Width = 65
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        '>'
        '>='
        '='
        '<'
        '<=')
    end
    object EdtCount: TEdit
      Left = 128
      Top = 19
      Width = 121
      Height = 20
      TabOrder = 1
      Text = '0'
      OnChange = EdtCountChange
      OnKeyPress = EdtCountKeyPress
    end
  end
end