basedepartment.dfm

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

inherited frmBaseDepartment: TfrmBaseDepartment
  Left = 141
  Height = 407
  Caption = #37096#38376#22522#30784#36164#26009
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 233
    Top = 38
    Width = 4
    Height = 342
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel [2]
    Left = 237
    Top = 38
    Width = 299
    Height = 342
    Align = alRight
    TabOrder = 1
    object Panel2: TPanel
      Left = 7
      Top = 39
      Width = 285
      Height = 296
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label1: TLabel
        Left = 0
        Top = 16
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #37096#38376#32534#21495#65306
      end
      object Label2: TLabel
        Left = 0
        Top = 49
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #37096#38376#21517#31216#65306
      end
      object Label3: TLabel
        Left = 0
        Top = 80
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #37096#38376#32463#29702#65306
      end
      object Label4: TLabel
        Left = 0
        Top = 112
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #37096#38376#22320#22336#65306
      end
      object Label5: TLabel
        Left = 0
        Top = 144
        Width = 77
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #30005'    '#35805#65306
      end
      object Label6: TLabel
        Left = 0
        Top = 176
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #20256'    '#30495#65306
      end
      object Label7: TLabel
        Left = 0
        Top = 209
        Width = 82
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'EMAIL'#65306
      end
      object Label8: TLabel
        Left = 0
        Top = 273
        Width = 80
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = ' '#29366'    '#24577#65306
      end
      object Label10: TLabel
        Left = 0
        Top = 243
        Width = 79
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object DBEdit1: TDBEdit
        Left = 81
        Top = 13
        Width = 168
        Height = 21
        CharCase = ecUpperCase
        DataField = 'fCode'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 81
        Top = 45
        Width = 168
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 81
        Top = 77
        Width = 168
        Height = 21
        DataField = 'fDeptManager'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 81
        Top = 109
        Width = 168
        Height = 21
        DataField = 'fAddress'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 81
        Top = 141
        Width = 168
        Height = 21
        DataField = 'fTel'
        DataSource = dsBaseInfo
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 81
        Top = 173
        Width = 168
        Height = 21
        DataField = 'fFax'
        DataSource = dsBaseInfo
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 81
        Top = 205
        Width = 168
        Height = 21
        DataField = 'fEmail'
        DataSource = dsBaseInfo
        TabOrder = 6
      end
      object DBEdit9: TDBEdit
        Left = 81
        Top = 238
        Width = 168
        Height = 21
        DataField = 'fNotes'
        DataSource = dsBaseInfo
        TabOrder = 7
      end
      object DBCheckBox1: TDBCheckBox
        Left = 83
        Top = 271
        Width = 97
        Height = 17
        Caption = #21551'   '#29992
        DataField = 'fStatus'
        DataSource = dsBaseInfo
        TabOrder = 8
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
    object bbtParent: TBitBtn
      Left = 8
      Top = 14
      Width = 92
      Height = 25
      Action = acParent
      Caption = #22686#21152#22522#31867
      TabOrder = 1
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C0000000000000000000000000000000000001F7C000000000000
        00001F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object bbtSelf: TBitBtn
      Left = 101
      Top = 14
      Width = 96
      Height = 25
      Action = acSelf
      Caption = #22686#21152#21516#32423#31867
      TabOrder = 2
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C0000000000000000000000000000000000001F7C000000000000
        00001F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object bbtChild: TBitBtn
      Left = 198
      Top = 14
      Width = 92
      Height = 25
      Action = acChild
      Caption = #22686#21152#23376#31867
      TabOrder = 3
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07FE07FE07F
        E07FE07F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000E07FE07F
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07FE07F
        00001F7C1F7C0000000000000000000000000000000000001F7C000000000000
        00001F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C000000001F7C000000001F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1700170017001700170017001700170017001F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
  end
  object dxDBTreeList1: TdxDBTreeList [3]
    Left = 0
    Top = 38
    Width = 233
    Height = 342
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'fID'
    ParentField = 'fParentID'
    Align = alClient
    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 = 83
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fCode'
    end
    object dxDBTreeList1fName: TdxDBTreeListColumn
      Width = 110
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fName'
    end
  end
  inherited ALToolbar: TActionList
    Left = 456
    Top = 8
    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 tdepartment'
      'Order by fCode')
    Top = 8
    object QBaseInfofCode: TWideStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 15
      FieldName = 'fCode'
      OnValidate = QBaseInfofCodeValidate
      Size = 50
    end
    object QBaseInfofDeptName: TWideStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 15
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfofDeptManager: TWideStringField
      DisplayLabel = #37096#38376#32463#29702
      FieldName = 'fDeptManager'
      Visible = False
      Size = 50
    end
    object QBaseInfofAddress: TWideStringField
      FieldName = 'fAddress'
      Visible = False
      Size = 200
    end
    object QBaseInfofTel: TWideStringField
      FieldName = 'fTel'
      Visible = False
      Size = 50
    end
    object QBaseInfofFax: TWideStringField
      FieldName = 'fFax'
      Visible = False
      Size = 50
    end
    object QBaseInfofEmail: TWideStringField
      FieldName = 'fEmail'
      Visible = False
      Size = 50
    end
    object QBaseInfofStatus: TBooleanField
      FieldName = 'fStatus'
      Visible = False
    end
    object QBaseInfofNotes: TWideStringField
      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 = 416
    Top = 8
  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 tDepartment where fcode=:Code')
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'15'#9#32534#21495#9'F'
      'fName'#9'15'#9#37096#38376#21517#31216#9'F')
  end
end