sys_sysmenu.dfm

一个MRPII系统源代码版本

inherited Frm_Sys_SysMenu: TFrm_Sys_SysMenu
  Left = 32
  Top = 186
  Caption = '系统菜单维护'
  ClientHeight = 495
  ClientWidth = 714
  OldCreateOrder = True
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label17: TLabel
    Left = 370
    Top = 39
    Width = 30
    Height = 12
    Caption = '模块:'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label18: TLabel
    Left = 14
    Top = 39
    Width = 72
    Height = 12
    Caption = '菜单结构(&T):'
    FocuScontrol = Treeview1
  end
  object lbl_ModuleName: TLabel
    Left = 405
    Top = 39
    Width = 224
    Height = 12
    AutoSize = False
    Font.ChArset = GB2312_CHArSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Treeview1: TTreeview
    Left = 5
    Top = 58
    Width = 331
    Height = 426
    HideSelection = False
    Indent = 19
    ReadOnly = True
    TabOrder = 0
    OnClick = Treeview1Click
    OnEnter = Treeview1Enter
    OnKeyDown = Treeview1KeyDown
    OnKeyUp = Treeview1KeyUp
  end
  object btn_ok: TButton
    Left = 523
    Top = 425
    Width = 64
    Height = 21
    Caption = '确定(&O)'
    TabOrder = 2
    OnClick = btn_okClick
  end
  object btn_Cancel: TButton
    Left = 619
    Top = 425
    Width = 64
    Height = 21
    Caption = '取消(&C)'
    TabOrder = 3
    OnClick = btn_CancelClick
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 714
    Height = 30
    Align = alTop
    AutoSize = True
    TabOrder = 4
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 185
      Height = 22
      Align = alNone
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBOrders = []
      Flat = True
      Images = Frm_Sys_Global.ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object tlbtn_Hint: TToolButton
        Left = 0
        Top = 0
        Hint = '代码提示(F1)'
        Caption = 'tlbtn_Hint'
        ImageIndex = 11
      end
      object ToolButton4: TToolButton
        Left = 23
        Top = 0
        Width = 6
        Caption = 'ToolButton4'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object tlbtn_Add: TToolButton
        Left = 29
        Top = 0
        Hint = '增加(Ctrl+N)'
        Caption = 'tlbtn_Add'
        ImageIndex = 0
        OnClick = tlbtn_AddClick
      end
      object tlbtn_Delete: TToolButton
        Left = 52
        Top = 0
        Hint = '删除(Ctrl+D)'
        Caption = 'tlbtn_Delete'
        ImageIndex = 6
        OnClick = tlbtn_DeleteClick
      end
      object ToolButton2: TToolButton
        Left = 75
        Top = 0
        Width = 6
        Caption = 'ToolButton2'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object tlbtn_Condition: TToolButton
        Left = 81
        Top = 0
        Hint = '改变条件(Ctrl+F)'
        Caption = 'tlbtn_Condition'
        ImageIndex = 12
        OnClick = tlbtn_ConditionClick
      end
      object ToolButton5: TToolButton
        Left = 104
        Top = 0
        Width = 6
        Caption = 'ToolButton5'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object tlbtn_expand: TToolButton
        Left = 110
        Top = 0
        Hint = '展开所有下级(F11)'
        Caption = 'tlbtn_expand'
        ImageIndex = 36
        OnClick = tlbtn_expandClick
      end
      object tlbtn_CollApse: TToolButton
        Left = 133
        Top = 0
        Hint = '折叠所有下级(F12)'
        Caption = 'tlbtn_CollApse'
        ImageIndex = 37
        OnClick = tlbtn_CollApseClick
      end
      object ToolButton3: TToolButton
        Left = 156
        Top = 0
        Width = 6
        Caption = 'ToolButton3'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object tlbtn_exit: TToolButton
        Left = 162
        Top = 0
        Hint = '退出(ESc)'
        Caption = 'tlbtn_exit'
        ImageIndex = 10
        OnClick = tlbtn_exitClick
      end
    end
  end
  object PageControl1: TPageControl
    Left = 355
    Top = 93
    Width = 346
    Height = 302
    ActivePage = tbsht_general
    HotTrack = True
    RaggedRight = True
    TabOrder = 1
    OnChange = edt_Cmbbx_Change
    object tbsht_general: TTabSheet
      Caption = '基本(&G) '
      object Label20: TLabel
        Left = 6
        Top = 37
        Width = 78
        Height = 12
        Caption = '菜单代码(&I)：'
        FocuScontrol = Edt_SysMenuCode
      end
      object Label21: TLabel
        Left = 6
        Top = 74
        Width = 78
        Height = 12
        Caption = '菜单名称(&N)：'
        FocuScontrol = Edt_SysMenuName
      end
      object Label1: TLabel
        Left = 6
        Top = 113
        Width = 78
        Height = 12
        Caption = '程序名称(&F)：'
        FocuScontrol = Edt_FormName
      end
      object Edt_SysMenuCode: TEdit
        Left = 86
        Top = 31
        Width = 103
        Height = 20
        Enabled = False
        TabOrder = 0
        OnChange = edt_Cmbbx_Change
        OnEnter = Edt_SysMenuCodeEnter
        OnExit = Edt_SysMenuCodeExit
      end
      object Edt_SysMenuName: TEdit
        Left = 86
        Top = 67
        Width = 220
        Height = 20
        Enabled = False
        ImeName = '双拼输入法'
        TabOrder = 1
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object Edt_FormName: TEdit
        Left = 87
        Top = 106
        Width = 220
        Height = 20
        Enabled = False
        TabOrder = 2
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
    end
    object tbsht_PAra: TTabSheet
      Caption = '运行参数(&P) '
      Enabled = False
      ImageIndex = 2
      object Label5: TLabel
        Left = 11
        Top = 11
        Width = 36
        Height = 12
        Caption = '参数1:'
        FocuScontrol = edt_1
      end
      object Label6: TLabel
        Left = 11
        Top = 38
        Width = 36
        Height = 12
        Caption = '参数2:'
        FocuScontrol = edt_2
      end
      object Label7: TLabel
        Left = 11
        Top = 64
        Width = 36
        Height = 12
        Caption = '参数3:'
        FocuScontrol = edt_3
      end
      object Label8: TLabel
        Left = 11
        Top = 91
        Width = 36
        Height = 12
        Caption = '参数4:'
        FocuScontrol = edt_4
      end
      object Label9: TLabel
        Left = 11
        Top = 118
        Width = 36
        Height = 12
        Caption = '参数5:'
        FocuScontrol = edt_5
      end
      object Label10: TLabel
        Left = 11
        Top = 144
        Width = 36
        Height = 12
        Caption = '参数6:'
        FocuScontrol = edt_6
      end
      object Label2: TLabel
        Left = 11
        Top = 171
        Width = 36
        Height = 12
        Caption = '参数7:'
        FocuScontrol = edt_7
      end
      object Label4: TLabel
        Left = 11
        Top = 198
        Width = 36
        Height = 12
        Caption = '参数8:'
        FocuScontrol = edt_8
      end
      object Label11: TLabel
        Left = 11
        Top = 224
        Width = 36
        Height = 12
        Caption = '参数9:'
        FocuScontrol = edt_9
      end
      object Label12: TLabel
        Left = 5
        Top = 251
        Width = 42
        Height = 12
        Caption = '参数10:'
        FocuScontrol = edt_10
      end
      object edt_1: TEdit
        Left = 50
        Top = 7
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 0
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_2: TEdit
        Left = 50
        Top = 33
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 1
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_3: TEdit
        Left = 50
        Top = 60
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 2
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_4: TEdit
        Left = 50
        Top = 86
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 3
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_5: TEdit
        Left = 50
        Top = 113
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 4
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_6: TEdit
        Left = 50
        Top = 139
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 5
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_7: TEdit
        Left = 50
        Top = 166
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 6
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_8: TEdit
        Left = 50
        Top = 192
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 7
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_9: TEdit
        Left = 50
        Top = 219
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 8
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
      object edt_10: TEdit
        Left = 50
        Top = 245
        Width = 238
        Height = 20
        Enabled = False
        TabOrder = 9
        OnChange = edt_Cmbbx_Change
        OnExit = Edt_SysMenuCodeExit
      end
    end
  end
  object Panel1: TPanel
    Left = 608
    Top = 76
    Width = 45
    Height = 24
    BevelOuter = bvLowered
    Caption = '增加'
    Font.ChArset = GB2312_CHArSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Visible = False
  end
  object AdoQry_Tmp2: TAdoQuery
    Parameters = <>
    Left = 184
    Top = 208
  end
  object AdoQry_Tmp1: TAdoQuery
    Parameters = <>
    Left = 232
    Top = 96
  end
  object AdoQry_Check: TAdoQuery
    Parameters = <>
    Left = 192
    Top = 120
  end
end