commain.dfm

delphi作得信息业进销存源码.功能全面,运行稳定.

    Width = 103
    Height = 25
    Min = 0
    Max = 100
    ParentShowHint = False
    Position = 50
    ShowHint = False
    TabOrder = 0
    Visible = False
  end
  object PageScroller1: TPageScroller
    Left = 24
    Top = 120
    Width = 103
    Height = 25
    AutoScroll = True
    Color = clWhite
    ParentColor = False
    TabOrder = 2
    object tlbSKey: TToolBar
      Left = 0
      Top = 0
      Width = 92
      Height = 25
      Align = alLeft
      AutoSize = True
      ButtonHeight = 25
      Caption = 'tlbSKey'
      Color = clSilver
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ilsBar
      ParentColor = False
      TabOrder = 0
      object btnGuide: TToolButton
        Left = 0
        Top = 0
        Hint = #25171#24320#19994#21153#23548#33322
        Caption = 'btnGuide'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = btnGuideClick
      end
      object btnInCommonUse: TToolButton
        Left = 23
        Top = 0
        Hint = #25171#24320#24120#29992#39033#30446
        Caption = 'btnInCommonUse'
        DropdownMenu = pmnInCommonUse
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
      end
      object btnWord: TToolButton
        Left = 46
        Top = 0
        Hint = #25171#24320'Word'
        Caption = 'btnWord'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = btnWordClick
      end
      object btnExcel: TToolButton
        Left = 69
        Top = 0
        Hint = #25171#24320'Excel'
        Caption = 'btnExcel'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = btnExcelClick
      end
    end
  end
  object PageScroller2: TPageScroller
    Left = 24
    Top = 150
    Width = 103
    Height = 25
    AutoScroll = True
    Color = clSilver
    ParentColor = False
    TabOrder = 3
    object tlbAForm: TToolBar
      Left = 0
      Top = 0
      Width = 115
      Height = 25
      Align = alLeft
      AutoSize = True
      ButtonWidth = 115
      Caption = 'tlbSKey'
      Color = clSilver
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ilsBar
      List = True
      ParentColor = False
      ShowCaptions = True
      TabOrder = 0
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Images = ilsMain
    Left = 60
    Top = 24
    object pmnCascade: TMenuItem
      Caption = #23618#21472
      Checked = True
      RadioItem = True
    end
    object pmnHorizontally: TMenuItem
      Caption = #24179#38138
      RadioItem = True
    end
    object pmnMinAll: TMenuItem
      Caption = #20840#37096#26368#23567
    end
    object LineP1: TMenuItem
      Caption = '-'
    end
    object pmnCloseAll: TMenuItem
      Caption = #20840#37096#20851#38381
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 132
    Top = 24
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Images = ilsMain
    Left = 24
    Top = 24
    object mnuFile: TMenuItem
      Caption = #25991#20214'(&F)'
      GroupIndex = 1
      object mnuBackup: TMenuItem
        Caption = #22791#20221'(&B)'
        ImageIndex = 13
        OnClick = mnuBackupClick
      end
      object mnuRestore: TMenuItem
        Caption = #24674#22797'(&R)'
        OnClick = mnuRestoreClick
      end
      object mnuSjzl: TMenuItem
        Caption = #25968#25454#25972#29702'(&C)'
        OnClick = mnuSjzlClick
      end
      object LineF1: TMenuItem
        Caption = '-'
      end
      object mmuPrintSet: TMenuItem
        Caption = #25171#21360#35774#32622'(&S)'
      end
      object LineF2: TMenuItem
        Caption = '-'
      end
      object mnuChangUser: TMenuItem
        Caption = #26356#25442#25805#20316#21592'(&L)'
        ImageIndex = 4
        OnClick = mnuChangUserClick
      end
      object mnuExit: TMenuItem
        Caption = #36864#20986#31995#32479'(&X)'
        ImageIndex = 0
        ShortCut = 27
        OnClick = mnuExitClick
      end
    end
    object mnuWindow: TMenuItem
      Caption = #31383#21475'(&W)'
      GroupIndex = 3
      object mnuToolBar: TMenuItem
        Caption = #24037#20855#26465
        Checked = True
        OnClick = mnuToolBarClick
      end
      object mnuStatusBar: TMenuItem
        Caption = #29366#24577#26465
        Checked = True
        OnClick = mnuStatusBarClick
      end
      object LineW1: TMenuItem
        Caption = '-'
      end
      object mnuCascade: TMenuItem
        Caption = #23618#21472'(&C)'
        ImageIndex = 10
        OnClick = mnuCascadeClick
      end
      object mnuHorizontally: TMenuItem
        Caption = #24179#38138'(&T)'
        ImageIndex = 11
        OnClick = mnuHorizontallyClick
      end
      object LineW2: TMenuItem
        Caption = '-'
      end
      object mnuMinAll: TMenuItem
        Caption = #20840#37096#26368#23567'(&A)'
        OnClick = mnuMinAllClick
      end
      object mnuCloseAll: TMenuItem
        Caption = #20840#37096#20851#38381'(&M)'
        OnClick = mnuCloseAllClick
      end
    end
    object mnuTools: TMenuItem
      Caption = #24037#20855'(&T)'
      GroupIndex = 3
      object mnuPopedom: TMenuItem
        Caption = #26435#38480#20998#37197
        OnClick = mnuPopedomClick
      end
      object mnuUser: TMenuItem
        Caption = #29992#25143#31649#29702'(&U)'
        OnClick = mnuUserClick
      end
      object mnuPassword: TMenuItem
        Caption = #26356#25913#23494#30721'(&P)'
        ImageIndex = 3
        OnClick = mnuPasswordClick
      end
      object LineT1: TMenuItem
        Caption = '-'
      end
      object mnuLog: TMenuItem
        Caption = #25805#20316#26085#24535
        OnClick = mnuLogClick
      end
      object LineT4: TMenuItem
        Caption = '-'
      end
      object mnuSetIcon: TMenuItem
        Caption = #22270#26631#35774#32622
        OnClick = mnuSetIconClick
      end
      object mnuDesktop: TMenuItem
        Caption = #26700#38754#24067#23616
        OnClick = mnuDesktopClick
      end
      object LineT2: TMenuItem
        Caption = '-'
      end
      object mnuCalendar: TMenuItem
        Caption = #19975#24180#21382'(&C)'
        ImageIndex = 5
        OnClick = mnuCalendarClick