findmultiselect.dfm

一个很好用的万能查询控件。部分代码经过更改。

object frmMultiFindSelect: TfrmMultiFindSelect
  Left = 254
  Top = 138
  BorderStyle = bsDialog
  Caption = #26597#35810
  ClientHeight = 165
  ClientWidth = 317
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object pn1: TPanel
    Left = 0
    Top = 0
    Width = 317
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object lbDate: TLabel
      Left = 16
      Top = 13
      Width = 36
      Height = 12
      Caption = 'lbDate'
    end
    object Bevel1: TBevel
      Left = 189
      Top = 19
      Width = 26
      Height = 2
    end
    object dtpBegin: TDateTimePicker
      Left = 99
      Top = 9
      Width = 88
      Height = 20
      CalAlignment = dtaLeft
      Date = 37084.6843077083
      Time = 37084.6843077083
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object dtpEnd: TDateTimePicker
      Left = 216
      Top = 9
      Width = 88
      Height = 20
      CalAlignment = dtaLeft
      Date = 37084.6843077083
      Time = 37084.6843077083
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnKeyDown = dtpEndKeyDown
    end
  end
  object pn2: TPanel
    Left = 0
    Top = 32
    Width = 317
    Height = 95
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 36
      Height = 12
      Caption = 'Label1'
    end
    object Label2: TLabel
      Left = 16
      Top = 42
      Width = 36
      Height = 12
      Caption = 'Label2'
    end
    object Label3: TLabel
      Left = 16
      Top = 71
      Width = 36
      Height = 12
      Caption = 'Label3'
    end
    object Edit1: TEdit
      Left = 99
      Top = 8
      Width = 204
      Height = 20
      TabOrder = 0
      OnKeyDown = FormKeyDown
    end
    object Edit2: TEdit
      Left = 99
      Top = 38
      Width = 204
      Height = 20
      TabOrder = 1
      OnKeyDown = FormKeyDown
    end
    object Edit3: TEdit
      Left = 99
      Top = 68
      Width = 204
      Height = 20
      TabOrder = 2
      OnKeyDown = FormKeyDown
    end
  end
  object pn3: TPanel
    Left = 0
    Top = 127
    Width = 317
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object btnOK: TButton
      Left = 144
      Top = 7
      Width = 75
      Height = 23
      Caption = #30830#23450'(&C)'
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 228
      Top = 7
      Width = 75
      Height = 23
      Caption = #21462#28040'(&X)'
      TabOrder = 1
      OnClick = btnCancelClick
    end
  end
end