c_component.dfm

电子元件管理软件

        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = 0
        ParentFont = False
        TabOrder = 1
        Text = #26410#30693
        OnChange = c_kindChange
        Items.Strings = (
          #26410#30693)
      end
      object c_child_kind: TComboBox
        Left = 48
        Top = 72
        Width = 161
        Height = 21
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = 0
        ParentFont = False
        TabOrder = 2
        Text = #26410#30693
        OnChange = c_child_kindChange
        Items.Strings = (
          #26410#30693)
      end
      object c_encap: TComboBox
        Left = 48
        Top = 103
        Width = 161
        Height = 21
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = 0
        ParentFont = False
        TabOrder = 3
        Text = #26410#30693
        OnChange = c_encapChange
        Items.Strings = (
          #26410#30693)
      end
      object e_sheet: TEdit
        Left = 72
        Top = 132
        Width = 137
        Height = 21
        TabOrder = 4
      end
      object e_value: TEdit
        Left = 72
        Top = 161
        Width = 137
        Height = 21
        TabOrder = 5
      end
      object e_number: TEdit
        Left = 48
        Top = 190
        Width = 161
        Height = 21
        TabOrder = 6
      end
      object e_price: TEdit
        Left = 48
        Top = 220
        Width = 161
        Height = 21
        TabOrder = 7
      end
      object Button6: TButton
        Left = 24
        Top = 296
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 8
        OnClick = Button6Click
      end
      object Button10: TButton
        Left = 120
        Top = 296
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 9
        OnClick = Button10Click
      end
    end
    object Button7: TButton
      Left = 24
      Top = 320
      Width = 75
      Height = 25
      Caption = #22686#21152
      TabOrder = 7
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 112
      Top = 320
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 8
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 200
      Top = 320
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 9
      OnClick = Button9Click
    end
    object Button11: TButton
      Left = 376
      Top = 320
      Width = 75
      Height = 25
      Caption = #35774#32622
      TabOrder = 10
      OnClick = Button11Click
    end
  end
  object Button1: TButton
    Left = 256
    Top = 408
    Width = 75
    Height = 25
    Caption = #26597#25214'/'#20840#37096
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 72
    Top = 408
    Width = 169
    Height = 21
    TabOrder = 2
  end
  object Memo1: TMemo
    Left = 568
    Top = 400
    Width = 177
    Height = 41
    Lines.Strings = (
      #24076#26395#22823#23478#33021#25552#20379#35774#35745#21644#20351
      #29992#19978#30340#24314#35758#65281'[e-mail]')
    ReadOnly = True
    TabOrder = 3
  end
  object ado_component: TADOQuery
    Connection = d.ado1
    CursorType = ctStatic
    AfterOpen = ado_componentAfterOpen
    AfterScroll = ado_componentAfterScroll
    Parameters = <
      item
        Name = 's1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 's2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 's3'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from v_component where :s1 like :s2 order by :s3')
    Left = 72
    Top = 8
    object ado_componentID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ado_componentname: TWideStringField
      FieldName = 'name'
      Size = 50
    end
    object ado_componentkind_id: TSmallintField
      FieldName = 'kind_id'
    end
    object ado_componentchild_kind_id: TSmallintField
      FieldName = 'child_kind_id'
    end
    object ado_componentencap_kind_id: TIntegerField
      FieldName = 'encap_kind_id'
    end
    object ado_componentsheet: TWideStringField
      FieldName = 'sheet'
      Size = 50
    end
    object ado_componentvalue: TWideStringField
      FieldName = 'value'
      Size = 50
    end
    object ado_componentmemo_id: TIntegerField
      FieldName = 'memo_id'
    end
    object ado_componentnumber: TIntegerField
      FieldName = 'number'
    end
    object ado_componentprice: TBCDField
      FieldName = 'price'
      Precision = 19
    end
    object ado_componentencap_name: TWideStringField
      FieldName = 'encap_name'
      Size = 50
    end
    object ado_componentencap_memo: TWideStringField
      FieldName = 'encap_memo'
      Size = 50
    end
    object ado_componentencap_order_id: TIntegerField
      FieldName = 'encap_order_id'
    end
    object ado_componentkind_name: TWideStringField
      FieldName = 'kind_name'
      Size = 50
    end
    object ado_componentkind_order_id: TSmallintField
      FieldName = 'kind_order_id'
    end
    object ado_componentpara_kind_id: TSmallintField
      FieldName = 'para_kind_id'
    end
    object ado_componentchild_kind_name: TWideStringField
      FieldName = 'child_kind_name'
      Size = 50
    end
    object ado_componentchild_kind_order_id: TSmallintField
      FieldName = 'child_kind_order_id'
    end
  end
  object ado_memo: TADOQuery
    Connection = d.ado1
    AfterOpen = ado_memoAfterOpen
    Parameters = <>
    SQL.Strings = (
      'select * from component_know')
    Left = 192
    Top = 8
    object ado_memocomponent_know_size: TIntegerField
      FieldName = 'component_know_size'
    end
    object ado_memocomponent_know_filename: TWideStringField
      FieldName = 'component_know_filename'
      Size = 255
    end
    object ado_memocomponent_know_id: TAutoIncField
      FieldName = 'component_know_id'
      ReadOnly = True
    end
    object ado_memocomponent_know_component_id: TIntegerField
      FieldName = 'component_know_component_id'
    end
  end
  object ado_temp: TADOQuery
    Connection = d.ado1
    Parameters = <
      item
        Name = 's1'
        DataType = ftBlob
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      ':s1')
    Left = 296
    Top = 8
  end
  object ds_ado_component: TDataSource
    DataSet = ado_component
    Left = 104
    Top = 8
  end
  object ds_ado_memo: TDataSource
    DataSet = ado_memo
    Left = 224
    Top = 8
  end
  object od1: TOpenDialog
    Filter = #20219#20309#25991#20214'(*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = #35831#36873#25321#35201#23548#20837#30340#25991#20214','#21487#20197#22810#37325#36873#25321
    Left = 488
    Top = 8
  end
  object sd1: TSaveDialog
    Filter = #20219#20309#25991#20214'(*.*)|*.*'
    Title = #35831#36873#25321#23548#20986#25991#20214
    Left = 536
    Top = 8
  end
  object pop1: TPopupMenu
    AutoHotkeys = maManual
    Left = 424
    Top = 8
    object sss1: TMenuItem
      Caption = 'sss'
    end
  end
end