📄 frmmain.frm

📁 职工信息系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMain.frx":4200
               Key             =   ""
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMain.frx":435C
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
   Begin VB.Menu tool 
      Caption         =   "="
   End
   Begin VB.Menu mnuFile 
      Caption         =   "职工表(&F)"
      Begin VB.Menu mnuFileNew 
         Caption         =   "新建职工表(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打开职工表(&O)..."
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuFileClose 
         Caption         =   "关闭职工表(&C)"
      End
      Begin VB.Menu mnuFileBar0 
         Caption         =   "-"
      End
      Begin VB.Menu MnuModify 
         Caption         =   "修改职工数据"
         Shortcut        =   ^M
      End
      Begin VB.Menu mnuFileBar5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "保存职工表(&S)"
      End
      Begin VB.Menu mnuFileSaveAs 
         Caption         =   "另存为(&A)..."
         Enabled         =   0   'False
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuFileSaveAll 
         Caption         =   "全部保存(&L)"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuFileBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileProperties 
         Caption         =   "属性(&P)"
      End
      Begin VB.Menu mnuFileBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "操作(&E)"
      Begin VB.Menu MnuSearch 
         Caption         =   "查找(&S)"
         Shortcut        =   {F3}
      End
      Begin VB.Menu MnuInsert 
         Caption         =   "插入(&I)"
      End
      Begin VB.Menu MnuSort 
         Caption         =   "字段排序"
         Begin VB.Menu MnuSortID 
            Caption         =   "职工编号"
            Checked         =   -1  'True
         End
         Begin VB.Menu MnuSortName 
            Caption         =   "姓名"
         End
         Begin VB.Menu MnuSortSex 
            Caption         =   "性别"
         End
         Begin VB.Menu MnuSortSty 
            Caption         =   "学历"
         End
         Begin VB.Menu MnuSortPos 
            Caption         =   "职称"
         End
         Begin VB.Menu MnuSortSale 
            Caption         =   "工资"
         End
         Begin VB.Menu MnuSortDate 
            Caption         =   "出生日期"
         End
      End
      Begin VB.Menu mnuEditSelect 
         Caption         =   "筛选数据(&U)"
      End
      Begin VB.Menu MnuReflash 
         Caption         =   "数据库刷新(&F)"
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "视图(&V)"
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "工具栏(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
      Begin VB.Menu MnuFullScreen 
         Caption         =   "全屏表格"
         Shortcut        =   {F11}
      End
   End
   Begin VB.Menu mnuTools 
      Caption         =   "设置(&T)"
      Begin VB.Menu mnuToolsOptions 
         Caption         =   "选项(&O)..."
      End
      Begin VB.Menu MnuDataStore 
         Caption         =   "数据库存放路径"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuWindowNewWindow 
         Caption         =   "新建窗口(&N)"
      End
      Begin VB.Menu mnuWindowBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "横向平铺(&H)"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "纵向平铺(&V)"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列图标(&A)"
      End
   End
   Begin VB.Menu MnuPrint 
      Caption         =   "打印(&P)"
      Begin VB.Menu mnuFilePageSetup 
         Caption         =   "页面设置(&U)..."
      End
      Begin VB.Menu mnuFilePrintPreview 
         Caption         =   "打印预览(&V)"
      End
      Begin VB.Menu mnuFilePrint 
         Caption         =   "打印表格(&P)..."
      End
   End
   Begin VB.Menu MnuHelp 
      Caption         =   "帮助与说明(&H)"
      Begin VB.Menu mnuHelpContents 
         Caption         =   "软件说明书(&B)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MnuHelpEveryDay 
         Caption         =   "日积月累(&R)"
      End
      Begin VB.Menu mnuHelpSearchForHelpOn 
         Caption         =   "搜索帮助主题(&S)..."
      End
      Begin VB.Menu mnuWindowBar9 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于本软件(&A)..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private WithEvents m_Menu As EnhancedMenu
Attribute m_Menu.VB_VarHelpID = -1
Dim frmD As frmDocument
Private Sub MDIForm_Load()
    InitMenu
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    CurrentFile = App.Path & "\data.mdb"
    LoadNewDoc
    
    StatusBar1.Panels.Item(3).Text = "日期:" & Format(Date, "Long Date")
    
End Sub
Private Sub InitMenu()
 Set m_Menu = New EnhancedMenu
    m_Menu.Subclass hwnd
    m_Menu(8).RightJustify = True
    Set m_Menu(2).SubMenu(1).Picture = ImageList1.ListImages(1).Picture
    Set m_Menu(2).SubMenu(2).Picture = ImageList1.ListImages(2).Picture
    Set m_Menu(2).SubMenu(5).Picture = ImageList1.ListImages(4).Picture
    Set m_Menu(2).SubMenu(7).Picture = ImageList1.ListImages(3).Picture
    Set m_Menu(2).SubMenu(11).Picture = ImageList1.ListImages(6).Picture
    Set m_Menu(3).SubMenu(2).Picture = ImageList1.ListImages(10).Picture
    Set m_Menu(3).SubMenu(4).Picture = ImageList1.ListImages(9).Picture
    Set m_Menu(3).SubMenu(1).Picture = ImageList1.ListImages(11).Picture
    Set m_Menu(7).SubMenu(3).Picture = ImageList1.ListImages(5).Picture
    Set m_Menu(8).SubMenu(2).Picture = ImageList1.ListImages(7).Picture
     Set m_Menu(8).SubMenu(5).Picture = ImageList1.ListImages(12).Picture
    'Set m_Menu(8).SubMenu(2).Picture = frmTip.Icon
End Sub
Public Property Get Menu() As EnhancedMenu
    Set Menu = m_Menu
End Property


Private Sub LoadNewDoc()
    Static lDocumentCount As Long
    
    lDocumentCount = lDocumentCount + 1
    Set frmD = New frmDocument
    frmD.Caption = "职工数据库　 " & "路径：" & CurrentFile
    Load frmD
    frmD.Show
    
End Sub


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim SureQ As Integer
SureQ = MsgBox("真的退出该系统吗？    ", vbYesNo + 32, "信息提示：")
  If SureQ = 6 Then
     Cancel = 0
     Else
     Cancel = -1
  End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
  
    End
End Sub


Private Sub MnuDataStore_Click()
frmDataStore.Show
End Sub



Private Sub mnuFileExit_Click()
Unload Me
End Sub

Private Sub MnuFullScreen_Click()
MnuFullScreen.Checked = Not MnuFullScreen.Checked
If MnuFullScreen.Checked Then
frmDocument.Frame1.Visible = False
frmDocument.DataView.Move 100, 100, frmDocument.ScaleWidth - 200, frmDocument.ScaleHeight - 100
Else
frmDocument.Frame1.Visible = True
frmDocument.DataView.Move 100, 100, frmDocument.ScaleWidth - 200, frmDocument.ScaleHeight - 1850
End If
End Sub

Private Sub MnuHelpEveryDay_Click()
frmTip.Show
End Sub


Private Sub MnuSearch_Click()
frmSearch.Show
End Sub


Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "新建"
            LoadNewDoc
        Case "打开"
            mnuFileOpen_Click
        Case "保存"
            mnuFileSave_Click
        Case "打印"
            mnuFilePrint_Click
        Case "剪切"
            mnuEditCut_Click
        Case "复制"
            mnuEditCopy_Click
        Case "粘贴"
            mnuEditPaste_Click
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -