unit1.~dfm

一个很小很实用的数据库模糊查询程序,可实现几种条件的查询.

object Form1: TForm1
  Left = 180
  Top = 107
  Width = 858
  Height = 567
  Caption = #25968#25454#24211#27169#31946#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object grpbxQry: TGroupBox
    Left = 0
    Top = 0
    Width = 321
    Height = 540
    Align = alLeft
    Caption = #35774#23450#26597#35810#26465#20214
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object cbxempid: TComboBox
      Left = 119
      Top = 26
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 0
      Text = 'Between'
      OnChange = cbxempidChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '=')
    end
    object cbxlname: TComboBox
      Left = 116
      Top = 189
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 1
      Text = 'Between'
      OnChange = cbxlnameChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object cbxfname: TComboBox
      Left = 119
      Top = 81
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 2
      Text = 'Between'
      OnChange = cbxfnameChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object cbxjobid: TComboBox
      Left = 118
      Top = 237
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 3
      Text = 'Between'
      OnChange = cbxjobidChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object cbxminit: TComboBox
      Left = 118
      Top = 129
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 4
      Text = 'Between'
      OnChange = cbxminitChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object edtlname1: TEdit
      Left = 195
      Top = 187
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object ClQrySlt: TCheckListBox
      Left = 10
      Top = 15
      Width = 104
      Height = 426
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 51
      Items.Strings = (
        'emp_id'
        'fname'
        'minit'
        'lname'
        'job_id'
        'job_lvl'
        'pub_id'
        'hire_date')
      ParentCtl3D = False
      ParentFont = False
      Style = lbOwnerDrawFixed
      TabOrder = 6
    end
    object edtjobid1: TEdit
      Left = 196
      Top = 238
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnExit = edtjobid1Exit
    end
    object cbxjoblvl: TComboBox
      Left = 118
      Top = 289
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 8
      Text = 'Between'
      OnChange = cbxjoblvlChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object cbxpubid: TComboBox
      Left = 118
      Top = 336
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 9
      Text = 'Between'
      OnChange = cbxpubidChange
      Items.Strings = (
        'Between'
        'Like'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object edtempid1: TEdit
      Left = 193
      Top = 27
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object edtfname1: TEdit
      Left = 194
      Top = 80
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object edtfname2: TEdit
      Left = 194
      Top = 103
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
    object edtminit1: TEdit
      Left = 195
      Top = 129
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 13
    end
    object edtminit2: TEdit
      Left = 195
      Top = 154
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 14
    end
    object edtjoblvl1: TEdit
      Left = 195
      Top = 291
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      OnExit = edtjobid1Exit
    end
    object edtjoblvl2: TEdit
      Left = 195
      Top = 316
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      OnExit = edtjobid1Exit
    end
    object edtpubid1: TEdit
      Left = 195
      Top = 340
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 17
    end
    object edtlname2: TEdit
      Left = 196
      Top = 211
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 18
    end
    object edtjobid2: TEdit
      Left = 196
      Top = 260
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 19
      OnExit = edtjobid1Exit
    end
    object edtpubid2: TEdit
      Left = 195
      Top = 362
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 20
    end
    object grpbxZh: TGroupBox
      Left = 17
      Top = 464
      Width = 104
      Height = 46
      Caption = #32452#21512#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 21
      object rbtnAnd: TRadioButton
        Left = 4
        Top = 23
        Width = 41
        Height = 17
        Caption = #19982
        Checked = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        TabStop = True
      end
      object rbtnOr: TRadioButton
        Left = 58
        Top = 23
        Width = 35
        Height = 17
        Caption = #25110
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object btnSearch: TBitBtn
      Left = 189
      Top = 477
      Width = 108
      Height = 36
      Caption = #26597#35810'[&Q]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 22
      OnClick = btnSearchClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object edtempid2: TEdit
      Left = 193
      Top = 51
      Width = 118
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 23
    end
    object cbxdate: TComboBox
      Left = 118
      Top = 391
      Width = 71
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 24
      Text = 'Between'
      OnChange = cbxdateChange
      Items.Strings = (
        'Between'
        '<='
        '<'
        '>='
        '>'
        '='
        '')
    end
    object dtpDate: TDateTimePicker
      Left = 195
      Top = 392
      Width = 117
      Height = 20
      CalAlignment = dtaLeft
      Date = 37679
      Time = 37679
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 25
    end
    object dtpDate2: TDateTimePicker
      Left = 195
      Top = 417
      Width = 116
      Height = 20
      CalAlignment = dtaLeft
      Date = 37679
      Time = 37679
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 26
    end
  end
  object DBGrid1: TDBGrid
    Left = 321
    Top = 0
    Width = 529
    Height = 540
    Align = alClient
    DataSource = DM.DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'emp_id'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fname'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'minit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lname'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'job_id'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'job_lvl'
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pub_id'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hire_date'
        Width = 100
        Visible = True
      end>
  end
end