department.dfm

delphi renyuanguanlixinxioxitong

inherited frmDepartment: TfrmDepartment
  Left = 173
  Top = 162
  Width = 641
  Height = 410
  Caption = #37096#38376#32500#25252
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited CoolBar1: TCoolBar
    Top = 353
    Width = 633
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 26
        Width = 629
      end>
    inherited ToolBar1: TToolBar
      Width = 616
      inherited tbtnUpdate: TToolButton
        Visible = False
      end
      inherited tbtnQuery: TToolButton
        Visible = False
      end
    end
  end
  inherited Panel1: TPanel
    Width = 633
    object sbtnRefresh: TSpeedButton
      Tag = 100
      Left = 232
      Top = 16
      Width = 33
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF33339993707399933333773337F3777FF3399933000339
        9933377333777F3377F3399333707333993337733337333337FF993333333333
        399377F33333F333377F993333303333399377F33337FF333373993333707333
        333377F333777F333333993333101333333377F333777F3FFFFF993333000399
        999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
        99933773FF777F3F777F339993707399999333773F373F77777F333999999999
        3393333777333777337333333999993333333333377777333333}
      NumGlyphs = 2
      OnClick = sbtnRefreshClick
    end
    object sbtnUpperDepartment: TSpeedButton
      Tag = 110
      Left = 232
      Top = 184
      Width = 33
      Height = 22
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = sbtnUpperDepartmentClick
    end
    object Label1: TLabel
      Left = 304
      Top = 16
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #37096#38376#32534#21495#65306
    end
    object Label2: TLabel
      Left = 304
      Top = 52
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #37096#38376#21517#31216#65306
    end
    object Label3: TLabel
      Left = 304
      Top = 89
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #36127#36131#20154#65306
    end
    object Label4: TLabel
      Left = 304
      Top = 126
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #37096#38376#30005#35805#65306
    end
    object Label5: TLabel
      Left = 304
      Top = 163
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #37096#38376#22320#22336#65306
    end
    object Label6: TLabel
      Left = 304
      Top = 200
      Width = 81
      Height = 16
      AutoSize = False
      Caption = #19978#32423#37096#38376#65306
    end
    object TreeView1: TTreeView
      Left = 1
      Top = 1
      Width = 224
      Height = 231
      Align = alLeft
      Indent = 19
      ReadOnly = True
      TabOrder = 0
    end
    object dbedtDepartmentNo: TDBEdit
      Left = 384
      Top = 16
      Width = 193
      Height = 24
      DataField = 'DEPARTMENTNO'
      DataSource = dsDeaprtment
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 384
      Top = 51
      Width = 193
      Height = 24
      DataField = 'DEPARTMENTNAME'
      DataSource = dsDeaprtment
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 384
      Top = 86
      Width = 193
      Height = 24
      DataField = 'MANAGER'
      DataSource = dsDeaprtment
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 384
      Top = 121
      Width = 193
      Height = 24
      DataField = 'TELEPHONE'
      DataSource = dsDeaprtment
      TabOrder = 4
    end
    object DBEdit5: TDBEdit
      Left = 384
      Top = 156
      Width = 193
      Height = 24
      DataField = 'ADDRESS'
      DataSource = dsDeaprtment
      TabOrder = 5
    end
    object DBEdit6: TDBEdit
      Left = 384
      Top = 192
      Width = 193
      Height = 24
      DataField = 'UpperDepartment'
      DataSource = dsDeaprtment
      TabOrder = 6
    end
  end
  inherited Panel2: TPanel
    Width = 633
    Height = 120
    inherited DBGrid1: TDBGrid
      Width = 631
      Height = 118
      DataSource = dsDeaprtment
      ReadOnly = True
      Columns = <
        item
          Expanded = False
          FieldName = 'DEPARTMENTNO'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#32534#21495
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPARTMENTNAME'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#21517#31216
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UpperDepartment'
          Title.Alignment = taCenter
          Title.Caption = #19978#32423#37096#38376
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MANAGER'
          Title.Alignment = taCenter
          Title.Caption = #36127#36131#20154
          Width = 88
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDRESS'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#22320#22336
          Width = 119
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TELEPHONE'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#30005#35805
          Width = 107
          Visible = True
        end>
    end
  end
  object atbDepartment: TADOTable
    Connection = DataModule1.connOracle
    TableName = 'DEPARTMENT'
    Left = 40
    Top = 321
    object atbDepartmentDEPARTMENTNO: TWideStringField
      FieldName = 'DEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
    object atbDepartmentDEPARTMENTNAME: TWideStringField
      FieldName = 'DEPARTMENTNAME'
      Size = 30
    end
    object atbDepartmentUpperDepartment: TStringField
      FieldKind = fkLookup
      FieldName = 'UpperDepartment'
      LookupDataSet = aqryDepartment
      LookupKeyFields = 'DEPARTMENTNO'
      LookupResultField = 'DEPARTMENTNAME'
      KeyFields = 'UPPERDEPARTMENTNO'
      Size = 50
      Lookup = True
    end
    object atbDepartmentMANAGER: TWideStringField
      FieldName = 'MANAGER'
    end
    object atbDepartmentADDRESS: TWideStringField
      FieldName = 'ADDRESS'
      Size = 30
    end
    object atbDepartmentTELEPHONE: TWideStringField
      FieldName = 'TELEPHONE'
    end
    object atbDepartmentUPPERDEPARTMENTNO: TWideStringField
      FieldName = 'UPPERDEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
  end
  object aqryDepartment: TADOQuery
    Connection = DataModule1.connOracle
    Parameters = <>
    SQL.Strings = (
      'select DepartmentNo,DepartmentName'
      'from Department')
    Left = 288
    Top = 321
    object aqryDepartmentDEPARTMENTNO: TWideStringField
      FieldName = 'DEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
    object aqryDepartmentDEPARTMENTNAME: TWideStringField
      FieldName = 'DEPARTMENTNAME'
      Size = 30
    end
  end
  object dsDeaprtment: TDataSource
    DataSet = atbDepartment
    Left = 72
    Top = 321
  end
  object dsqDepartment: TDataSource
    DataSet = aqryDepartment
    Left = 320
    Top = 321
  end
end