udepartment.dfm

天涯進銷存系統

object frmDepartment: TfrmDepartment
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #37096#38376#20449#24687
  Color = clGray
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 2
    Top = 30
    Width = 215
    Height = 520
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object DataDBGrid: TLBDBGrid
      Left = 1
      Top = 22
      Width = 195
      Height = 497
      Align = alClient
      BorderStyle = bsNone
      Color = 16251903
      DataSource = dmData.dsDepartment
      Enabled = False
      GridlineColor = clBackground
      Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ShowScrollBars = False
      SelectRowColor = 16774127
      SelectRowFontColor = clHighlight
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = Action2Execute
      OnKeyDown = DataDBGridKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'DEPTNAME'
          Width = 195
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 215
      Height = 22
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = ' '#37096#38376#21517#31216
      Color = 14581072
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Panel9: TPanel
      Left = 0
      Top = 22
      Width = 1
      Height = 497
      Align = alLeft
      BevelOuter = bvNone
      Color = clBackground
      TabOrder = 2
    end
    object Panel11: TPanel
      Left = 0
      Top = 519
      Width = 215
      Height = 1
      Align = alBottom
      BevelOuter = bvNone
      Color = clBackground
      TabOrder = 3
    end
    object LBDBScrollBar1: TLBDBScrollBar
      Left = 196
      Top = 22
      Width = 19
      Height = 497
      Align = alRight
      Color = 16774127
      LineColor = clBackground
      DownFontColor = clBlack
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Marlett'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      DataSource = dmData.sdsDepartment
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 550
    Width = 800
    Height = 3
    Align = alBottom
    BevelOuter = bvNone
    Color = 16251903
    TabOrder = 1
  end
  object Panel4: TPanel
    Left = 0
    Top = 30
    Width = 2
    Height = 520
    Align = alLeft
    BevelOuter = bvNone
    Color = 16251903
    TabOrder = 2
  end
  object plData: TPanel
    Left = 217
    Top = 30
    Width = 419
    Height = 520
    Align = alClient
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 3
    object Shape21: TShape
      Left = 8
      Top = 106
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape2: TShape
      Left = 8
      Top = -1
      Width = 398
      Height = 22
      Brush.Color = 14581072
      Pen.Color = 14581072
    end
    object Label1: TLabel
      Left = 13
      Top = 5
      Width = 52
      Height = 12
      Caption = #37096#38376#20449#24687
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Shape3: TShape
      Left = 8
      Top = 21
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape4: TShape
      Left = 8
      Top = 38
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape5: TShape
      Left = 8
      Top = 55
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape6: TShape
      Left = 8
      Top = 72
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape7: TShape
      Left = 8
      Top = 89
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Label6: TLabel
      Left = 16
      Top = 25
      Width = 48
      Height = 12
      Caption = #32534'    '#21495
      Transparent = True
    end
    object Label8: TLabel
      Left = 16
      Top = 41
      Width = 48
      Height = 12
      Caption = #37096#38376#21517#31216
      Transparent = True
    end
    object Label9: TLabel
      Left = 16
      Top = 58
      Width = 48
      Height = 12
      Caption = #22320'    '#22336
      Transparent = True
    end
    object Label10: TLabel
      Left = 16
      Top = 75
      Width = 48
      Height = 12
      Caption = #32852' '#31995' '#20154
      Transparent = True
    end
    object Label11: TLabel
      Left = 16
      Top = 92
      Width = 48
      Height = 12
      Caption = #32852#31995#30005#35805
      Transparent = True
    end
    object Label7: TLabel
      Left = 16
      Top = 109
      Width = 48
      Height = 12
      Caption = #22791'    '#27880
      Transparent = True
    end
    object LBDBEdit1: TLBDBEdit
      Left = 144
      Top = 21
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = 'LBDBEdit1'
      OnKeyDown = LBDBEdit1KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'DEPTCODE'
      DataSource = dmData.dsDepartment
    end
    object LBDBEdit2: TLBDBEdit
      Left = 144
      Top = 38
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = 'LBDBEdit2'
      OnKeyDown = LBDBEdit1KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'DEPTNAME'
      DataSource = dmData.dsDepartment
    end
    object LBDBEdit3: TLBDBEdit
      Left = 144
      Top = 55
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = 'LBDBEdit3'
      OnKeyDown = LBDBEdit1KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'ADDRESS'
      DataSource = dmData.dsDepartment
    end
    object LBDBEdit4: TLBDBEdit
      Left = 144
      Top = 72
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Text = 'LBDBEdit4'
      OnKeyDown = LBDBEdit1KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'LINKMAN'
      DataSource = dmData.dsDepartment
    end
    object LBDBEdit5: TLBDBEdit
      Left = 144
      Top = 89
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      Text = 'LBDBEdit5'
      OnKeyDown = LBDBEdit1KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'PHONE'
      DataSource = dmData.dsDepartment
    end
    object LBDBEdit18: TLBDBEdit
      Left = 144
      Top = 106
      Width = 262
      Height = 18
      ParentColor = True
      Color = clWhite
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      Text = 'LBDBEdit18'
      OnKeyDown = LBDBEdit18KeyDown
      AutoSize = False
      BorderStyle = bsNone
      DataField = 'MEMO'
      DataSource = dmData.dsDepartment
    end
    object EnterButton: TLBButton
      Left = 272
      Top = 129
      Width = 62
      Height = 19
      Cursor = crHandPoint
      Caption = #30830#23450'(&Y)'
      TabOrder = 6
      OnClick = Action7Execute
    end
    object CancelButton: TLBButton
      Left = 344
      Top = 129
      Width = 62
      Height = 19
      Cursor = crHandPoint
      Caption = #21462#28040'(&C)'
      TabOrder = 7
      OnClick = Action8Execute
    end
  end
  object Panel8: TPanel
    Left = 636
    Top = 30
    Width = 164
    Height = 520
    Align = alRight
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 4
    object Shape1: TShape
      Left = 0