?? frmmain.frm
字號:
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 + -