baseproducttype.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseProductType: TfrmBaseProductType
  Left = 108
  Top = 90
  Width = 573
  Height = 445
  Caption = #20135#21697#31867#22411#22522#30784#36164#26009
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 201
    Top = 38
    Width = 4
    Height = 380
    Cursor = crHSplit
  end
  inherited ToolBar: TToolBar
    Width = 565
  end
  object Panel1: TPanel [2]
    Left = 205
    Top = 38
    Width = 360
    Height = 380
    Align = alClient
    TabOrder = 1
    object Panel2: TPanel
      Left = 16
      Top = 56
      Width = 329
      Height = 305
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 61
        Width = 76
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31867#22411#20195#30721#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 94
        Width = 75
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31867#22411#21517#31216#65306
      end
      object Label3: TLabel
        Left = 8
        Top = 124
        Width = 76
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object Label4: TLabel
        Left = 8
        Top = 21
        Width = 76
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #29238#31867#20195#30721#65306
      end
      object DBText1: TDBText
        Left = 88
        Top = 21
        Width = 217
        Height = 17
        DataField = 'fParentCode'
        DataSource = dsBaseInfo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 85
        Top = 57
        Width = 220
        Height = 21
        CharCase = ecUpperCase
        DataField = 'fCode'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 85
        Top = 89
        Width = 220
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBMemo1: TDBMemo
        Left = 85
        Top = 121
        Width = 220
        Height = 168
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
    end
    object bbtParent: TBitBtn
      Left = 16
      Top = 30
      Width = 89
      Height = 25
      Action = acParent
      Caption = #22686#21152#22522#31867
      TabOrder = 1
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00000000000000
        000000000000000000000000000000000000000000000000000000000000FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object bbtSelf: TBitBtn
      Left = 106
      Top = 30
      Width = 92
      Height = 25
      Action = acSelf
      Caption = #22686#21152#21516#32423#31867
      TabOrder = 2
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00000000000000
        000000000000000000000000000000000000000000000000000000000000FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
    object bbtChild: TBitBtn
      Left = 199
      Top = 30
      Width = 88
      Height = 25
      Action = acChild
      Caption = #22686#21152#23376#31867
      TabOrder = 3
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000FF
        FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
        00000000000000FFFF0000FFFF00000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00000000000000
        000000000000000000000000000000000000000000000000000000000000FF00
        FF0000000000000000000000000000000000FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF000000000000000000FF00FF000000000000000000FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00BD000000BD00
        0000BD000000BD000000BD000000BD000000BD000000BD000000BD000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
  end
  object dxDBTreeList1: TdxDBTreeList [3]
    Left = 0
    Top = 38
    Width = 201
    Height = 380
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'fID'
    ParentField = 'fParentID'
    Align = alLeft
    TabOrder = 2
    DataSource = dsBaseInfo
    OptionsBehavior = [etoAutoDragDrop, etoAutoDragDropCopy, etoDragExpand, etoDragScroll, etoEnterShowEditor, etoImmediateEditor, etoTabThrough]
    OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoLoadAllRecords]
    TreeLineColor = clGrayText
    OnChangeNode = dxDBTreeList1ChangeNode
    object dxDBTreeList1fCode: TdxDBTreeListColumn
      Width = 96
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fCode'
    end
    object dxDBTreeList1fName: TdxDBTreeListColumn
      Width = 109
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fName'
    end
  end
  inherited ALToolbar: TActionList
    Top = 0
    inherited acNew: TAction
      Visible = False
    end
    object acParent: TAction
      Caption = #22686#21152#22522#31867
      ImageIndex = 17
      OnExecute = acParentExecute
    end
    object acSelf: TAction
      Caption = #22686#21152#21516#32423#31867
      ImageIndex = 17
      OnExecute = acSelfExecute
    end
    object acChild: TAction
      Caption = #22686#21152#23376#31867
      ImageIndex = 17
      OnExecute = acChildExecute
    end
  end
  inherited QBaseInfo: TADOQuery
    AfterInsert = QBaseInfoAfterInsert
    SQL.Strings = (
      'Select * from tProductType'
      'Order by fCode')
    Left = 392
    Top = 8
    object QBaseInfofCode: TWideStringField
      DisplayLabel = #31867#22411#20195#30721
      DisplayWidth = 15
      FieldName = 'fCode'
      OnValidate = QBaseInfofCodeValidate
      Size = 50
    end
    object QBaseInfofTypeName: TWideStringField
      DisplayLabel = #31867#22411#21517#31216
      DisplayWidth = 15
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfofNotes: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fNotes'
      Visible = False
      Size = 200
    end
    object QBaseInfofID: TAutoIncField
      FieldName = 'fID'
    end
    object QBaseInfofParentID: TIntegerField
      FieldName = 'fParentID'
    end
    object QBaseInfofParentCode: TWideStringField
      FieldName = 'fParentCode'
      Size = 50
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 440
    Top = 0
  end
  inherited QIsUnique: TADOQuery
    Active = True
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select fid from tProductType where fcode =:code')
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'15'#9#31867#22411#20195#30721#9'F'
      'fName'#9'15'#9#31867#22411#21517#31216#9'F')
  end
end