bas_itemclass.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_ItemClass: TFrm_Bas_ItemClass
  Left = 144
  Top = 115
  Caption = '物料存货分类维护'
  ClientHeight = 447
  PixelsPerInch = 96
  TextHeight = 12
  object TLabel [0]
    Left = 344
    Top = 208
    Width = 6
    Height = 12
  end
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      Width = 375
      inherited ToolButton6: TToolButton
        Action = Action2
      end
      inherited TlBtn_Filter: TToolButton
        Action = Action1
      end
      object TlBtn_Hint: TToolButton
        Left = 352
        Top = 0
        Action = Act_Hint
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '物料存货分类维护'
  end
  inherited Pnl_Head: TPanel
    Height = 30
    inherited Image1: TImage
      Height = 30
    end
    inherited Lbl_Condition: TLabel
      Left = 629
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 567
      Width = 6
      Caption = ''
    end
    inherited Lbl_OrderTitle: TLabel
      Left = 567
      Top = 24
      Width = 6
      Caption = ''
    end
    inherited Lbl_Order: TLabel
      Left = 653
      Top = 24
      Width = 6
      Caption = ''
    end
    object Lbl_IteCode: TLabel
      Left = 8
      Top = 5
      Width = 54
      Height = 12
      Caption = '父项代码:'
    end
    object Lbl_Name: TLabel
      Left = 194
      Top = 6
      Width = 54
      Height = 12
      Caption = '父项描述:'
    end
    object Lbl_Name_D: TLabel
      Left = 247
      Top = 6
      Width = 60
      Height = 12
      Caption = 'Lbl_Name_D'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 423
    Height = 24
    inherited Image4: TImage
      Height = 24
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 96
      Height = 12
      Caption = '提示：共有记录：'
    end
    object Lbl_RecordCount: TLabel
      Left = 115
      Top = 8
      Width = 90
      Height = 12
      Caption = 'Lbl_RecordCount'
      Font.ChArset = GB2312_CHArSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  inherited Pnl_Body: TPanel
    Top = 87
    Height = 336
    object TLabel [0]
      Left = 344
      Top = 144
      Width = 6
      Height = 12
    end
    inherited Image3: TImage
      Height = 336
    end
    inherited DBGridEh: TDBGridEh
      Height = 336
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OnKeyDown = CurrencyHint
      Columns = <
        Item
          FieldName = 'ClassCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ClassName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '子项描述'
          Width = 239
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ClassRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 333
          KeyList.Strings = ()
        end>
    end
  end
  object Edt_Ite_ItemCode: TEdit [6]
    Left = 64
    Top = 56
    Width = 125
    Height = 20
    MaxLength = 16
    TabOrder = 5
    OnChange = Edt_Ite_ItemCodeChange
    OnExit = Edt_Ite_ItemCodeExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 397
    Top = 187
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 168
    inherited Act_Hint: TAction
      ShortCut = 120
    end
    inherited Action1: TAction
      OnExecute = Action1Execute
    end
    inherited Action2: TAction
      ShortCut = 32776
      OnExecute = Action2Execute
    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=192' +
      '.168.0.151;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      'select * from ItemClass'
      '   ')
    Left = 144
    Top = 153
    object AdoQry_MainPClassCode: TStringField
      FieldName = 'PClassCode'
      Size = 16
    end
    object AdoQry_MainClassCode: TStringField
      FieldName = 'ClassCode'
      Size = 16
    end
    object AdoQry_MainClassName: TStringField
      FieldName = 'ClassName'
      Size = 60
    end
    object AdoQry_MainClassRemArk: TStringField
      FieldName = 'ClassRemArk'
      Size = 250
    end
  end
  inherited DataSource: TDataSource
    Left = 344
    Top = 145
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 296
    Top = 193
  end
end