unit1.dfm

改源码是集合了查询

object Form1: TForm1
  Left = 263
  Top = 26
  Width = 520
  Height = 657
  Caption = #20449#24687#32500#25252#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 12
    Width = 481
    Height = 181
    Caption = #20449#24687#20462#25913#12289#26356#26032#27169#22359#65306
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 60
      Height = 13
      Caption = #26381#21009#32534#21495#65306
    end
    object Label2: TLabel
      Left = 240
      Top = 24
      Width = 36
      Height = 13
      Caption = #22995#21517#65306
    end
    object Label3: TLabel
      Left = 24
      Top = 51
      Width = 36
      Height = 13
      Caption = #24615#21035#65306
    end
    object Label4: TLabel
      Left = 240
      Top = 51
      Width = 60
      Height = 13
      Caption = #25152#29359#32618#34892#65306
    end
    object Label5: TLabel
      Left = 24
      Top = 80
      Width = 60
      Height = 13
      Caption = #20837#29425#26102#38388#65306
    end
    object Label7: TLabel
      Left = 30
      Top = 107
      Width = 36
      Height = 13
      Caption = #31821#36143#65306
    end
    object Label6: TLabel
      Left = 240
      Top = 77
      Width = 36
      Height = 13
      Caption = #21009#26399#65306
    end
    object Label8: TLabel
      Left = 240
      Top = 104
      Width = 72
      Height = 13
      Caption = #36523#20221#35777#21495#30721#65306
    end
    object DateTimePicker1: TDateTimePicker
      Left = 95
      Top = 73
      Width = 129
      Height = 21
      Date = 39574.000000000000000000
      Time = 39574.000000000000000000
      ShowCheckbox = True
      ImeName = #20013#25991' ('#31616#20307') - '#37073#30721
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 95
      Top = 20
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 312
      Top = 20
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 2
    end
    object Edit3: TEdit
      Left = 95
      Top = 47
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 3
    end
    object Edit4: TEdit
      Left = 312
      Top = 47
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 4
    end
    object Edit5: TEdit
      Left = 311
      Top = 75
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 5
    end
    object Edit6: TEdit
      Left = 96
      Top = 104
      Width = 129
      Height = 21
      ImeName = #32043#20809#21326#23431#25340#38899'V5'
      TabOrder = 6
    end
    object Edit7: TEdit
      Left = 312
      Top = 104
      Width = 153
      Height = 21
      TabOrder = 7
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 453
    Width = 481
    Height = 161
    Caption = #26174#31034#25968#25454#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 11
      Top = 17
      Width = 443
      Height = 130
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#37073#30721
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
    end
  end
  object BitBtn1: TBitBtn
    Left = 312
    Top = 150
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 403
    Top = 150
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object GroupBox3: TGroupBox
    Left = 32
    Top = 200
    Width = 473
    Height = 121
    Caption = #26597#35810#27169#22359#65306
    TabOrder = 4
    object Label9: TLabel
      Left = 32
      Top = 32
      Width = 60
      Height = 13
      Caption = #26597#35810#23383#27573#65306
    end
    object Label10: TLabel
      Left = 32
      Top = 72
      Width = 60
      Height = 13
      Caption = #26597#35810#26465#20214#65306
    end
    object Combobox1: TComboBox
      Left = 104
      Top = 32
      Width = 153
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        #36523#20221#35777#21495#30721
        #26381#21009#32534#21495)
    end
    object Edit8: TEdit
      Left = 112
      Top = 72
      Width = 145
      Height = 21
      TabOrder = 1
    end
    object BitBtn3: TBitBtn
      Left = 304
      Top = 40
      Width = 105
      Height = 33
      Caption = #26597#35810
      TabOrder = 2
      OnClick = BitBtn3Click
    end
  end
  object BitBtn4: TBitBtn
    Left = 200
    Top = 152
    Width = 97
    Height = 25
    Caption = #28155#21152
    TabOrder = 5
    OnClick = BitBtn4Click
  end
  object GroupBox4: TGroupBox
    Left = 24
    Top = 328
    Width = 481
    Height = 105
    Caption = #37325#22797#35760#24405#21024#38500#27169#22359
    TabOrder = 6
    object Label11: TLabel
      Left = 48
      Top = 32
      Width = 108
      Height = 13
      Caption = #33258#21160#21024#38500#37325#22797#35760#24405#65306
    end
    object BitBtn5: TBitBtn
      Left = 312
      Top = 24
      Width = 97
      Height = 33
      Caption = #37325#22797#35760#24405#21024#38500
      TabOrder = 0
      OnClick = BitBtn5Click
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=sa;Initial Catalog=Police'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 200
    Top = 537
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      ''
      '')
    Left = 256
    Top = 545
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 336
    Top = 537
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 144
    Top = 546
  end
end