main.~dfm

中国移动集群网销售资料录入管理系统。 包含集群网用户录入

object MainForm: TMainForm
  Left = 382
  Top = 101
  Width = 376
  Height = 318
  Caption = #38598#22242#23458#25143#31649#29702#31995#32479
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 253
    Width = 368
    Height = 19
    AutoHint = True
    Panels = <>
    SimplePanel = True
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 368
    Height = 33
    BorderWidth = 1
    Color = clBtnFace
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Wrapable = False
    object ToolButton1: TToolButton
      Left = 5
      Top = 2
      Action = OpenInput
    end
    object ToolButton2: TToolButton
      Left = 28
      Top = 2
      Caption = #25968#25454#24405#20837'&N'
    end
    object ToolButton3: TToolButton
      Left = 51
      Top = 2
      Action = EditCodeServ
    end
    object ToolButton4: TToolButton
      Left = 74
      Top = 2
      Action = OpenGroupView
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 40
    Top = 200
    object File1: TMenuItem
      Caption = '&F'#19994#21153#25805#20316
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Action = OpenInput
      end
      object FileCloseItem: TMenuItem
        Action = OpenGroupView
      end
      object FileSaveItem: TMenuItem
        Action = OpenCentre
      end
      object FileSaveAsItem: TMenuItem
        Action = OpenReport
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Action = OpenChangePass
      end
      object N3: TMenuItem
        Action = Login
      end
      object FileExitItem: TMenuItem
        Caption = #36864#20986
        Hint = 'Exit|Exit application'
        OnClick = FileExit1Execute
      end
    end
    object Edit1: TMenuItem
      Caption = '&E'#19994#21153#31649#29702
      Hint = 'Edit commands'
      object CutItem: TMenuItem
        Action = OpenSetRight
      end
      object CopyItem: TMenuItem
        Action = OpenAreaList
      end
      object E1: TMenuItem
        Action = EditCodeServ
      end
    end
    object Help1: TMenuItem
      Caption = '&H'#24110#21161
      Hint = 'Help topics'
      object N2: TMenuItem
        Action = registe
      end
      object HelpAboutItem: TMenuItem
        Action = OpenAbout
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Left = 8
    Top = 200
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 72
    Top = 200
    object OpenInput: TAction
      Category = 'Window'
      Caption = #25968#25454#24405#20837'&N'
      OnExecute = OpenInputExecute
    end
    object EditCodeServ: TAction
      Category = 'Window'
      Caption = #32534#36753#21697#29260#23545#24212#34920'&E'
      OnExecute = EditCodeServExecute
    end
    object OpenGroupView: TAction
      Category = 'Window'
      Caption = #26597#30475#24050#26377#38598#22242
      OnExecute = OpenGroupViewExecute
    end
    object OpenAbout: TAction
      Category = 'other'
      Caption = #20851#20110'...'
      OnExecute = OpenAboutExecute
    end
    object OpenCentre: TAction
      Category = 'Window'
      Caption = #26597#30475#25152#26377#25968#25454
      OnExecute = OpenCentreExecute
    end
    object OpenAreaList: TAction
      Category = 'Window'
      Caption = #21306#22495#31649#29702
      OnExecute = OpenAreaListExecute
    end
    object registe: TAction
      Category = 'other'
      Caption = #27880#20876#24207#21015#21495
      OnExecute = registeExecute
    end
    object Login: TAction
      Category = 'other'
      Caption = #37325#30331#24405
      OnExecute = LoginExecute
    end
    object OpenSetRight: TAction
      Category = 'Window'
      Caption = #29992#25143#31649#29702
      OnExecute = OpenSetRightExecute
    end
    object OpenChangePass: TAction
      Category = 'Window'
      Caption = #20462#25913#23494#30721
      OnExecute = OpenChangePassExecute
    end
    object OpenReport: TAction
      Category = 'Window'
      Caption = #24314#31435#25253#34920'&R'
      OnExecute = OpenReportExecute
    end
  end
  object ImageList1: TImageList
    Left = 104
    Top = 200
  end
end