bas_dept2.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Dept2: TFrm_Bas_Dept2
  Left = 261
  Top = 94
  Align = alClient
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = #37096#38376#20027#25991#20214
  ClientHeight = 571
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Modify: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Filter: TToolButton
        Enabled = False
        Visible = False
      end
      inherited TlBtn_Locate: TToolButton
        Enabled = False
        Visible = False
      end
      inherited ToolButton3: TToolButton
        Visible = False
      end
      inherited TlBtn_Order: TToolButton
        Action = Act_Expend
        Enabled = False
        Visible = False
      end
      inherited ToolButton2: TToolButton
        Action = Act_CollApse
        Enabled = False
        Visible = False
      end
      inherited ToolButton9: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = #37096#38376#20027#25991#20214
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_ConditionTitle: TLabel
      Left = 360
      Top = 14
      Visible = False
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 126
      Top = 14
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Left = 194
      Top = 14
      Width = 48
      Caption = #37096#38376#20195#30721
      Visible = False
    end
    object Label4: TLabel
      Left = 14
      Top = 14
      Width = 78
      Height = 12
      Caption = #37096#38376#32467#26500'(&S)'#65306
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 93
    Height = 478
    Align = alClient
    inherited Image4: TImage
      Left = 328
      Width = 464
      Height = 478
      Center = False
    end
    object Label1: TLabel
      Left = 420
      Top = 112
      Width = 78
      Height = 12
      Caption = #37096#38376#20195#30721'(&D)'#65306
      FocusControl = Edt_DeptCode
    end
    object Label2: TLabel
      Left = 420
      Top = 151
      Width = 78
      Height = 12
      Caption = #37096#38376#21517#31216'(&N)'#65306
      FocusControl = Edt_DeptName
    end
    object Label3: TLabel
      Left = 414
      Top = 190
      Width = 84
      Height = 12
      Caption = #19978#32423#37096#38376#21517#31216#65306
    end
    object Lbl_DeptName: TLabel
      Left = 507
      Top = 190
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 444
      Top = 229
      Width = 54
      Height = 12
      Caption = #22791#27880'(&R)'#65306
      FocusControl = Edt_RemArk
    end
    object Edt_DeptCode: TEdit
      Left = 507
      Top = 104
      Width = 198
      Height = 20
      Enabled = False
      TabOrder = 0
      OnChange = Edt_DeptCodeChange
      OnExit = Edt_DeptCodeExit
    end
    object Edt_DeptName: TEdit
      Left = 507
      Top = 143
      Width = 198
      Height = 20
      TabOrder = 1
      OnChange = Edt_DeptCodeChange
    end
    object Edt_RemArk: TEdit
      Left = 507
      Top = 221
      Width = 198
      Height = 20
      TabOrder = 2
      OnChange = Edt_DeptCodeChange
    end
    object btn_ok: TButton
      Left = 507
      Top = 286
      Width = 88
      Height = 23
      Caption = #30830#23450'(&O)'
      TabOrder = 3
      OnClick = btn_okClick
    end
    object btn_Cancel: TButton
      Left = 617
      Top = 286
      Width = 88
      Height = 23
      Caption = #21462#28040'(&C)'
      TabOrder = 4
      OnClick = btn_CancelClick
    end
    object Pnl_Add: TPanel
      Left = 647
      Top = 30
      Width = 58
      Height = 20
      BevelOuter = bvLowered
      Caption = #22686#21152
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object TV: TTreeView
      Left = 0
      Top = 0
      Width = 328
      Height = 478
      Align = alLeft
      Indent = 19
      TabOrder = 6
      OnClick = TVClick
      OnEnter = TVEnter
      OnKeyUp = TVKeyUp
    end
  end
  inherited Pnl_Body: TPanel
    Height = 0
    Align = alTop
    Visible = False
    inherited Image3: TImage
      Height = 0
    end
    inherited DBGridEh: TDBGridEh
      Height = 0
      Visible = False
      Columns = <
        item
          EditButtons = <>
          FieldName = 'DeptCode'
          Footers = <>
          Title.Caption = #37096#38376#20195#30721
          Width = 127
        end
        item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Title.Caption = #37096#38376#21517#31216
          Width = 199
        end
        item
          EditButtons = <>
          FieldName = 'DeptREMArK'
          Footers = <>
          Title.Caption = #22791#27880
        end>
    end
  end
  inherited ActionList: TActionList
    inherited Act_New: TAction
      ShortCut = 16429
    end
    inherited Act_DeleteLine: TAction
      ShortCut = 46
    end
    inherited Act_Delete: TAction
      ShortCut = 16430
    end
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=NT2'
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Dept')
    Left = 29
    Top = 183
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'DeptCode'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'DeptName'
      Size = 40
    end
    object AdoQry_MainDeptREMArK: TStringField
      FieldName = 'DeptREMArK'
      Origin = 'DeptremArk'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 389
    Top = 143
  end
end