c_component.~dfm

电子元件管理软件

object Form1: TForm1
  Left = 160
  Top = 103
  Width = 759
  Height = 480
  Caption = #20010#20154#20803#22120#20214#31649#29702' V 0.2  ndust(freedom)  [e-mail]'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 16
    Top = 408
    Width = 48
    Height = 13
    Caption = #22120#20214#21517#31216
  end
  object Label10: TLabel
    Left = 344
    Top = 400
    Width = 216
    Height = 13
    Caption = #35814#32454#26597#35810#25110#25490#24207#35831#21333#20987#30456#24212#23383#27573#30340#26631#39064#26639
  end
  object Label11: TLabel
    Left = 344
    Top = 416
    Width = 168
    Height = 13
    Caption = #25152#26377#36164#26009#25991#20214#20840#37096#23548#20837#25968#25454#24211#20013
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 40
    Width = 713
    Height = 353
    TabOrder = 0
    object Shape1: TShape
      Left = 459
      Top = 8
      Width = 9
      Height = 337
      Brush.Color = 4227327
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 449
      Height = 289
      DataSource = ds_ado_component
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'name'
          Title.Caption = #21517#31216
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'value'
          Title.Caption = #26631#31216#20540
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sheet'
          Title.Caption = #24341#33050
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'price'
          Title.Caption = #20215#26684
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'number'
          Title.Caption = #25968#37327
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'encap_name'
          Title.Caption = #23553#35013
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kind_name'
          Title.Caption = #31867#22411
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'child_kind_name'
          Title.Caption = #23567#31867
          Width = 70
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 472
      Top = 16
      Width = 225
      Height = 289
      DataSource = ds_ado_memo
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'component_know_filename'
          Title.Caption = #25991#20214#21517
          Width = 128
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'component_know_size'
          Title.Caption = #25991#20214#22823#23567
          Width = 68
          Visible = True
        end>
    end
    object Button2: TButton
      Left = 488
      Top = 312
      Width = 41
      Height = 25
      Caption = #23548#20837
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 541
      Top = 312
      Width = 49
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 594
      Top = 312
      Width = 41
      Height = 25
      Caption = #25171#24320
      TabOrder = 4
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 648
      Top = 312
      Width = 41
      Height = 25
      Caption = #23548#20986
      TabOrder = 5
      OnClick = Button5Click
    end
    object gb2: TGroupBox
      Left = 472
      Top = 8
      Width = 225
      Height = 337
      Caption = #22686#21152
      TabOrder = 6
      Visible = False
      object Label1: TLabel
        Left = 8
        Top = 20
        Width = 36
        Height = 13
        Caption = #21517#31216#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 49
        Width = 36
        Height = 13
        Caption = #22823#31867#65306
      end
      object Label3: TLabel
        Left = 8
        Top = 76
        Width = 36
        Height = 13
        Caption = #23567#31867#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 107
        Width = 36
        Height = 13
        Caption = #23553#35013#65306
      end
      object Label5: TLabel
        Left = 8
        Top = 136
        Width = 60
        Height = 13
        Caption = #24341#33050#25968#37327#65306
      end
      object Label6: TLabel
        Left = 8
        Top = 165
        Width = 48
        Height = 13
        Caption = #26631#31216#20540#65306
      end
      object Label7: TLabel
        Left = 8
        Top = 194
        Width = 36
        Height = 13
        Caption = #25968#37327#65306
      end
      object Label8: TLabel
        Left = 8
        Top = 224
        Width = 36
        Height = 13
        Caption = #20215#26684#65306
      end
      object e_name: TEdit
        Left = 46
        Top = 16
        Width = 163
        Height = 21
        TabOrder = 0
      end
      object c_kind: TComboBox
        Left = 48
        Top = 45
        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 = 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