misearch11.dfm

某公司资料管理系统

object MISearchForm11: TMISearchForm11
  Left = 98
  Top = 140
  Width = 622
  Height = 477
  Caption = 'MI'#36164#26009#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 614
    Height = 101
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 40
      Top = 25
      Width = 48
      Height = 12
      Caption = #20135#21697#32534#21495
    end
    object Label3: TLabel
      Left = 245
      Top = 20
      Width = 72
      Height = 12
      Caption = #23458#25143#20135#21697#32534#21495
    end
    object Label4: TLabel
      Left = 40
      Top = 48
      Width = 48
      Height = 12
      Caption = #23458#25143#21517#31216
    end
    object Label5: TLabel
      Left = 265
      Top = 40
      Width = 48
      Height = 12
      Caption = #21152#24037#31867#22411
    end
    object Label6: TLabel
      Left = 40
      Top = 73
      Width = 60
      Height = 12
      Caption = #21046#20316#26085#26399': '
    end
    object Label7: TLabel
      Left = 210
      Top = 70
      Width = 18
      Height = 12
      Caption = 'TO:'
    end
    object Bevel1: TBevel
      Left = 25
      Top = 5
      Width = 456
      Height = 91
      Shape = bsFrame
    end
    object Label8: TLabel
      Left = 330
      Top = 70
      Width = 48
      Height = 12
      Caption = #25490#24207#26041#24335
    end
    object DateTimePicker1: TDateTimePicker
      Left = 115
      Top = 65
      Width = 91
      Height = 20
      CalAlignment = dtaLeft
      Date = 37411.691671331
      Time = 37411.691671331
      Color = clInfoBk
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object PartNoEdit: TEdit
      Left = 115
      Top = 15
      Width = 121
      Height = 20
      Color = clInfoBk
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 1
    end
    object CustPartNoEdit: TEdit
      Left = 350
      Top = 15
      Width = 121
      Height = 20
      Color = clInfoBk
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 2
    end
    object CustNoEdit: TEdit
      Left = 115
      Top = 40
      Width = 121
      Height = 20
      Color = clInfoBk
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 3
    end
    object BoardTypeEdit: TEdit
      Left = 350
      Top = 40
      Width = 121
      Height = 20
      Color = clInfoBk
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 4
    end
    object CheckBox1: TCheckBox
      Left = 95
      Top = 20
      Width = 16
      Height = 17
      Caption = 'CheckBox1'
      TabOrder = 5
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 330
      Top = 15
      Width = 16
      Height = 17
      Caption = 'CheckBox2'
      TabOrder = 6
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 95
      Top = 45
      Width = 16
      Height = 17
      Caption = 'CheckBox3'
      TabOrder = 7
      OnClick = CheckBox3Click
    end
    object CheckBox4: TCheckBox
      Left = 330
      Top = 40
      Width = 16
      Height = 17
      Caption = 'CheckBox4'
      TabOrder = 8
      OnClick = CheckBox4Click
    end
    object CheckBox5: TCheckBox
      Left = 95
      Top = 70
      Width = 16
      Height = 17
      Caption = 'CheckBox5'
      TabOrder = 9
      OnClick = CheckBox5Click
    end
    object BitBtn1: TBitBtn
      Left = 520
      Top = 10
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 10
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 520
      Top = 40
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 11
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 520
      Top = 70
      Width = 75
      Height = 25
      Caption = #39044#35272
      TabOrder = 12
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
        FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
        FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
        FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
        FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
        FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
        C880733777777777733700000000000000007777777777777777333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object OrderComboBox: TComboBox
      Left = 385
      Top = 65
      Width = 86
      Height = 20
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 13
      Text = #20135#21697#32534#21495
      Items.Strings = (
        #20135#21697#32534#21495
        #23458#25143#21517#31216
        #21046#20316#26085#26399)
    end
    object DateTimePicker2: TDateTimePicker
      Left = 235
      Top = 65
      Width = 86
      Height = 20
      CalAlignment = dtaLeft
      Date = 37412.6932797106
      Time = 37412.6932797106
      Color = clInfoBk
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      Kind = dtkDate
      ParseInput = False
      TabOrder = 14
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 101
    Width = 614
    Height = 140
    Align = alTop
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 612
      Height = 138
      Align = alClient
      DataSource = DataSource1
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PartNo'
          Title.Caption = #20135#21697#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CustomerNo'
          Title.Caption = #23458#25143#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CustPartNo'
          Title.Caption = #23458#25143#20135#21697#32534#21495
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BoardNo'
          Title.Caption = #26495#26009#31616#31216
          Width = 90
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 241
    Width = 201
    Height = 209
    Align = alLeft
    Caption = 'Panel3'
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 199
      Height = 207
      Align = alClient
      DataSource = DataSource2
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'RouteNo'
          Title.Caption = #24207#21495
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RouteCode'
          Title.Caption = #24037#24207#20195#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RouteName'
          Title.Caption = #24037#24207#21517#31216
          Visible = True
        end>
    end
  end
  object Panel4: TPanel
    Left = 201
    Top = 241
    Width = 413
    Height = 209
    Align = alClient
    Caption = 'Panel4'
    TabOrder = 3
    object DBGrid3: TDBGrid
      Left = 1
      Top = 1
      Width = 411
      Height = 207
      Align = alClient
      DataSource = DataSource3
      ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    OnDataChange = DataSource1DataChange
    Left = 105
    Top = 145
  end
  object DataSource2: TDataSource
    DataSet = Query2
    OnDataChange = DataSource2DataChange
    Left = 75
    Top = 285
  end
  object DataSource3: TDataSource
    DataSet = RouteDetail
    Left = 300
    Top = 305
  end
  object Query1: TQuery
    DatabaseName = 'RedDatabase'
    SQL.Strings = (
      'Select PartNo,CustomerNo,CustPartNo,BoardNo FROM MIBase ')
    Left = 145
    Top = 130
  end
  object Query2: TQuery
    DatabaseName = 'RedDatabase'
    SQL.Strings = (
      
        'select A.PartNo, A.RouteNo,A.RouteCode,B.RouteName from MIRoute ' +
        'A,StandardRoute B where A.RouteCode=B.RouteCode and A.PartNo=:Pa' +
        'rtNo')
    Left = 130
    Top = 295
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PartNo'
        ParamType = ptUnknown
      end>
  end
  object RouteDetail: TQuery
    DatabaseName = 'RedDatabase'
    SQL.Strings = (
      
        'select PartNo,RouteNo,ItemNo,Parameter1,Parameter2,Parameter3,Pa' +
        'rameter4,Parameter5,Parameter6,Parameter7,Parameter8 from RouteD' +
        'etail where PartNo=:PartNo and RouteNo=:RouteNo')
    Left = 335
    Top = 325
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PartNo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'RouteNo'
        ParamType = ptUnknown
      end>
    object RouteDetailPartNo: TStringField
      FieldName = 'PartNo'
      Origin = 'REDDATABASE.RouteDetail.PartNo'
      FixedChar = True
      Size = 15
    end
    object RouteDetailRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Origin = 'REDDATABASE.RouteDetail.RouteNo'
    end
    object RouteDetailItemNo: TSmallintField
      FieldName = 'ItemNo'
      Origin = 'REDDATABASE.RouteDetail.ItemNo'
    end
    object RouteDetailParameter1: TStringField
      FieldName = 'Parameter1'
      Origin = 'REDDATABASE.RouteDetail.Parameter1'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter2: TStringField
      FieldName = 'Parameter2'
      Origin = 'REDDATABASE.RouteDetail.Parameter2'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter3: TStringField
      FieldName = 'Parameter3'
      Origin = 'REDDATABASE.RouteDetail.Parameter3'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter4: TStringField
      FieldName = 'Parameter4'
      Origin = 'REDDATABASE.RouteDetail.Parameter4'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter5: TStringField
      FieldName = 'Parameter5'
      Origin = 'REDDATABASE.RouteDetail.Parameter5'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter6: TStringField
      FieldName = 'Parameter6'
      Origin = 'REDDATABASE.RouteDetail.Parameter6'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter7: TStringField
      FieldName = 'Parameter7'
      Origin = 'REDDATABASE.RouteDetail.Parameter7'
      FixedChar = True
      Size = 30
    end
    object RouteDetailParameter8: TStringField
      FieldName = 'Parameter8'
      Origin = 'REDDATABASE.RouteDetail.Parameter8'
      FixedChar = True
      Size = 30
    end
  end
end