queryform.dfm

骨灰盒规范化果腹

object fmQuery: TfmQuery
  Left = 193
  Top = 101
  Width = 546
  Height = 430
  Caption = '信息查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 362
    Width = 538
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 219
      Top = 9
      Width = 75
      Height = 25
      Caption = 'OK'
      ModalResult = 1
      TabOrder = 0
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object pc1: TPageControl
    Left = 0
    Top = 0
    Width = 538
    Height = 362
    ActivePage = tsResult
    Align = alClient
    TabOrder = 1
    object tsSet: TTabSheet
      Caption = '查询设置'
      object Label1: TLabel
        Left = 204
        Top = 27
        Width = 48
        Height = 12
        Caption = '文件类型'
      end
      object Label2: TLabel
        Left = 36
        Top = 27
        Width = 48
        Height = 12
        Caption = '信息类型'
      end
      object Label3: TLabel
        Left = 36
        Top = 63
        Width = 36
        Height = 12
        Caption = '关键字'
      end
      object cbFile: TComboBox
        Left = 258
        Top = 23
        Width = 121
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
      end
      object cbInfo: TComboBox
        Left = 90
        Top = 23
        Width = 109
        Height = 20
        ItemHeight = 12
        TabOrder = 1
      end
      object clbKey: TCheckListBox
        Left = 90
        Top = 51
        Width = 427
        Height = 70
        Columns = 3
        ItemHeight = 12
        TabOrder = 2
      end
      object rgSort: TRadioGroup
        Left = 90
        Top = 192
        Width = 436
        Height = 70
        Caption = '排序'
        Columns = 4
        ItemIndex = 3
        Items.Strings = (
          '加入日期'
          '信息类型'
          '文件类型'
          '不排序')
        TabOrder = 3
      end
      object rgGx: TRadioGroup
        Left = 90
        Top = 126
        Width = 199
        Height = 61
        Caption = '关键字之间关系'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          '与'
          '或')
        TabOrder = 4
      end
      object rgSortRule: TRadioGroup
        Left = 300
        Top = 126
        Width = 217
        Height = 61
        Caption = '排序规则'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          '升序'
          '降序')
        TabOrder = 5
      end
      object btQuery: TButton
        Left = 138
        Top = 300
        Width = 75
        Height = 25
        Caption = '查询'
        TabOrder = 6
        OnClick = btQueryClick
      end
      object btDelete: TButton
        Left = 312
        Top = 300
        Width = 75
        Height = 25
        Caption = '删除'
        TabOrder = 7
        OnClick = btDeleteClick
      end
      object chk1: TCheckBox
        Left = 90
        Top = 270
        Width = 160
        Height = 17
        Caption = '查询其他用户公开的资料'
        TabOrder = 8
      end
      object chk2: TCheckBox
        Left = 303
        Top = 270
        Width = 97
        Height = 17
        Caption = '删除公开资料'
        TabOrder = 9
      end
    end
    object tsResult: TTabSheet
      Caption = '查询结果'
      ImageIndex = 1
      object sb1: TStatusBar
        Left = 0
        Top = 316
        Width = 530
        Height = 19
        Panels = <
          item
            Text = '总记录数'
            Width = 60
          end
          item
            Width = 50
          end
          item
            Text = '当前记录'
            Width = 60
          end
          item
            Width = 50
          end
          item
            Text = '本程序由罗小飞（抱雪）设计'
            Width = 50
          end>
        SimplePanel = False
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 411
        Height = 316
        Align = alClient
        TabOrder = 1
        object DBNavigator1: TDBNavigator
          Left = 1
          Top = 1
          Width = 409
          Height = 19
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          Align = alTop
          TabOrder = 0
          OnClick = DBNavigator1Click
        end
        object DBGrid1: TDBGrid
          Left = 1
          Top = 20
          Width = 409
          Height = 295
          Align = alClient
          DataSource = DataSource1
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clNavy
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object Panel3: TPanel
        Left = 411
        Top = 0
        Width = 119
        Height = 316
        Align = alRight
        TabOrder = 2
        object Label4: TLabel
          Left = 15
          Top = 189
          Width = 91
          Height = 31
          AutoSize = False
          Caption = '文件没有关联时默认的查看程序'
          WordWrap = True
        end
        object btView: TButton
          Left = 21
          Top = 63
          Width = 75
          Height = 25
          Caption = '查看文件'
          TabOrder = 0
          OnClick = btViewClick
        end
        object btExport: TButton
          Left = 21
          Top = 123
          Width = 75
          Height = 25
          Caption = '导出文件'
          TabOrder = 1
          OnClick = btExportClick
        end
        object edExe: TEdit
          Left = 12
          Top = 231
          Width = 100
          Height = 20
          TabOrder = 2
          Text = 'NotePad'
        end
        object btSelecr: TButton
          Left = 21
          Top = 267
          Width = 75
          Height = 25
          Caption = '选择程序'
          TabOrder = 3
          OnClick = btSelecrClick
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.q
    Left = 49
    Top = 218
  end
  object sd1: TSaveDialog
    Title = '请选择导出路径和文件名'
    Left = 103
    Top = 104
  end
  object od1: TOpenDialog
    DefaultExt = 'EXE'
    Filter = 
      'EXE文件|*.exe|快捷方式|*.LNK|所有程序文件|*.exe;*.com;*.bat;*.ln' +
      'k'
    Title = '选择程序'
    Left = 205
    Top = 182
  end
end