search.~dfm

有关delphi的应用

object frmsearch: Tfrmsearch
  Left = 27
  Top = 22
  Width = 777
  Height = 544
  Caption = #26597#25214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  DesignSize = (
    769
    517)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 15
    Top = 8
    Width = 738
    Height = 89
    Anchors = [akLeft, akTop, akRight]
    Caption = #26597#35810#26465#20214#35774#23450
    TabOrder = 0
    object Label1: TLabel
      Left = 192
      Top = 23
      Width = 17
      Height = 13
      AutoSize = False
      Caption = #21040
    end
    object prodorder: TCheckBox
      Left = 296
      Top = 21
      Width = 49
      Height = 17
      Caption = #24037#24207
      TabOrder = 0
      OnClick = prodorderClick
    end
    object SN: TCheckBox
      Left = 24
      Top = 54
      Width = 49
      Height = 17
      Caption = 'SN'
      TabOrder = 1
      OnClick = SNClick
    end
    object PN: TCheckBox
      Left = 296
      Top = 54
      Width = 41
      Height = 17
      Caption = 'PN'
      TabOrder = 2
      OnClick = PNClick
    end
    object FInTP: TDateTimePicker
      Left = 104
      Top = 19
      Width = 81
      Height = 21
      Date = 38633.477105833340000000
      Time = 38633.477105833340000000
      Enabled = False
      TabOrder = 3
    end
    object TInTP: TDateTimePicker
      Left = 208
      Top = 19
      Width = 79
      Height = 21
      Date = 38633.477157638890000000
      Time = 38633.477157638890000000
      Enabled = False
      TabOrder = 4
    end
    object prodorderCBox: TComboBox
      Left = 344
      Top = 20
      Width = 113
      Height = 19
      Style = csOwnerDrawFixed
      Enabled = False
      ItemHeight = 13
      Sorted = True
      TabOrder = 5
    end
    object SNEdit: TEdit
      Left = 72
      Top = 52
      Width = 113
      Height = 21
      Enabled = False
      TabOrder = 6
    end
    object PNEdit: TEdit
      Left = 344
      Top = 52
      Width = 113
      Height = 21
      Enabled = False
      TabOrder = 7
    end
    object Button1: TButton
      Left = 656
      Top = 40
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 8
      OnClick = Button1Click
    end
    object opdate: TCheckBox
      Left = 24
      Top = 21
      Width = 73
      Height = 17
      Caption = #24405#20837#26102#38388
      TabOrder = 9
      OnClick = opdateClick
    end
    object JobOrder: TCheckBox
      Left = 472
      Top = 54
      Width = 65
      Height = 17
      Caption = 'JobOrder'
      TabOrder = 10
      OnClick = JobOrderClick
    end
    object JobOrderEdit: TEdit
      Left = 560
      Top = 52
      Width = 81
      Height = 21
      Enabled = False
      TabOrder = 11
    end
    object opnumEdit: TEdit
      Left = 560
      Top = 20
      Width = 81
      Height = 21
      Enabled = False
      TabOrder = 12
    end
    object opnum: TCheckBox
      Left = 472
      Top = 22
      Width = 81
      Height = 17
      Caption = #25805#20316#21592#24037#21495
      TabOrder = 13
      OnClick = opnumClick
    end
  end
  object PageControl1: TPageControl
    Left = 16
    Top = 96
    Width = 737
    Height = 409
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #26597#35810#32467#26524#35760#24405#19968
      DesignSize = (
        729
        381)
      object DBGrid1: TDBGrid
        Left = 0
        Top = 4
        Width = 145
        Height = 373
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource1
        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
        Columns = <
          item
            Expanded = False
            FieldName = 'pn'
            Width = 100
            Visible = True
          end>
      end
      object DBGrid3: TDBGrid
        Left = 152
        Top = 4
        Width = 185
        Height = 372
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource3
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid3CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'joborder'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sn'
            Width = 76
            Visible = True
          end>
      end
      object DBGrid4: TDBGrid
        Left = 344
        Top = 4
        Width = 153
        Height = 373
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource4
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid4CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'prodorder'
            Title.Caption = #24037#24207#21517
            Width = 100
            Visible = True
          end>
      end
      object DBGrid5: TDBGrid
        Left = 512
        Top = 4
        Width = 209
        Height = 373
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource5
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'paraname'
            Title.Caption = #21442#25968#21517
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'testvalue'
            Title.Caption = #27979#35797#20540
            Width = 80
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#32467#26524#32426#24405#20108
      ImageIndex = 1
      DesignSize = (
        729
        381)
      object DBGrid2: TDBGrid
        Left = 0
        Top = 4
        Width = 137
        Height = 374
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource2
        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 = DBGrid2CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'pn'
            Width = 100
            Visible = True
          end>
      end
      object DBGrid6: TDBGrid
        Left = 144
        Top = 4
        Width = 177
        Height = 373
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource6
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid6CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'joborder'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sn'
            Width = 80
            Visible = True
          end>
      end
      object DBGrid7: TDBGrid
        Left = 328
        Top = 4
        Width = 113
        Height = 373
        Anchors = [akLeft, akTop, akBottom]
        DataSource = DataSource7
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid7CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'prodorder'
            Title.Caption = #24037#24207#21517
            Width = 80
            Visible = True
          end>
      end
      object DBGrid8: TDBGrid
        Left = 448
        Top = 3
        Width = 282
        Height = 373
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource8
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'paraname'
            Title.Caption = #21442#25968#21517
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'temperature'
            Title.Caption = #28201#24230
            Width = 35
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'maxvalue'
            Title.Caption = #26368#22823#20540
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'minvalue'
            Title.Caption = #26368#23567#20540
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'testvalue'
            Title.Caption = #27979#35797#20540
            Width = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'status'
            Title.Caption = #29366#24577
            Width = 30
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 32
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 40
    Top = 216
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select distinct s.pn from device_testvalue1 v,device_paraset1 s ' +
      'where (s.para_id1=v.para_id1)'
    Parameters = <>
    Left = 72
    Top = 136
  end
  object ADODataSet2: TADODataSet
    Active = True
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select distinct s.pn from device_testvalue2 v,device_paraset2 s ' +
      'where (s.para_id2=v.para_id2)'
    Parameters = <>
    Left = 72
    Top = 216
  end
  object ADODataSet3: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select distinct v.sn, v.joborder from device_testvalue1 v,device' +
      '_paraset1 s where (s.para_id1=v.para_id1)'
    Parameters = <>
    Left = 264
    Top = 128
  end
  object DataSource3: TDataSource
    DataSet = ADODataSet3
    Left = 224
    Top = 128
  end
  object ADODataSet4: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select distinct s.prodorder from device_testvalue1 v,device_para' +
      'set1 s where (s.para_id1=v.para_id1)'
    Parameters = <>
    Left = 424
    Top = 128
  end
  object DataSource4: TDataSource
    DataSet = ADODataSet4
    Left = 384
    Top = 128
  end
  object ADODataSet5: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select s.paraname,v.testvalue from device_testvalue1 v,device_pa' +
      'raset1 s where (s.para_id1=v.para_id1) order by v.value_id1'
    Parameters = <>
    Left = 616
    Top = 136
  end
  object DataSource5: TDataSource
    DataSet = ADODataSet5
    Left = 576
    Top = 136
  end
  object DataSource6: TDataSource
    DataSet = ADODataSet6
    Left = 248
    Top = 264
  end
  object ADODataSet6: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select  distinct  v.sn, v.joborder from device_testvalue2 v,devi' +
      'ce_paraset2 s where (s.para_id2=v.para_id2)'
    Parameters = <>
    Left = 280
    Top = 264
  end
  object DataSource7: TDataSource
    DataSet = ADODataSet7
    Left = 384
    Top = 240
  end
  object ADODataSet7: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select distinct s.prodorder from device_testvalue2 v,device_para' +
      'set2 s where (s.para_id2=v.para_id2)'
    Parameters = <>
    Left = 416
    Top = 240
  end
  object DataSource8: TDataSource
    DataSet = ADODataSet8
    Left = 544
    Top = 224
  end
  object ADODataSet8: TADODataSet
    Connection = DM.ADOConn
    CursorType = ctStatic
    CommandText = 
      'select s.paraname, s.temperature, s.maxvalue, s.minvalue, v.test' +
      'value, v.status from device_testvalue2 v,device_paraset2 s where' +
      ' (s.para_id2=v.para_id2) '
    Parameters = <>
    Left = 576
    Top = 224
  end
end