?? frmmain.frm
字號(hào):
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm FrmMain
BackColor = &H00FFFFFF&
Caption = "宛楓書社圖書管理系統(tǒng) V1.0 Beta 測試版"
ClientHeight = 6885
ClientLeft = 960
ClientTop = 1530
ClientWidth = 9375
Icon = "FrmMain.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar FrmMainSBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 6510
Width = 9375
_ExtentX = 16536
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 5715
Key = "frmMainSbar1"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Alignment = 1
Enabled = 0 'False
TextSave = "CAPS"
Key = "sbar2"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
TextSave = "NUM"
Key = "sbar3"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
TextSave = "01-12-12"
Key = "sbar4"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "19:18"
Key = "sbar5"
EndProperty
EndProperty
End
Begin VB.Menu frmMain_sys
Caption = "系統(tǒng)(&S)"
Begin VB.Menu MfrmMainS_notepad
Caption = "記事本"
End
Begin VB.Menu FrmMnuS_jsq
Caption = "計(jì)算器"
End
Begin VB.Menu FrmMnu_lin
Caption = "-"
End
Begin VB.Menu FrmMainS_return
Caption = "返回工作環(huán)境 "
Shortcut = ^H
End
Begin VB.Menu frmMainS_logOff
Caption = "注銷(&Q)"
Shortcut = ^Q
End
Begin VB.Menu FMS_line
Caption = "-"
End
Begin VB.Menu FrmMainS_exit
Caption = "退出(&X)"
End
End
Begin VB.Menu frmMain_help
Caption = "系統(tǒng)幫助(&H)"
Begin VB.Menu frmMainH_about
Caption = "關(guān)于宛楓書社圖書管理系統(tǒng)... "
End
Begin VB.Menu FrmMainH_hlp
Caption = "幫助"
Shortcut = {F1}
End
Begin VB.Menu FMH_line
Caption = "-"
End
Begin VB.Menu FMH_webHlp
Caption = "聯(lián)機(jī)幫助"
End
End
Begin VB.Menu popMnu
Caption = "POPUPMNU"
Visible = 0 'False
Begin VB.Menu POP_jsb
Caption = "記事本"
End
Begin VB.Menu POP_jsq
Caption = "計(jì)算器"
End
Begin VB.Menu POP_line
Caption = "-"
End
Begin VB.Menu pop_retuHome
Caption = "返回我的工作環(huán)境 "
Shortcut = {F12}
End
Begin VB.Menu pop_zhuXiao
Caption = "注銷"
Shortcut = ^Z
End
Begin VB.Menu pop_lin2
Caption = "-"
End
Begin VB.Menu pop_about
Caption = "關(guān)于宛楓書社圖書管理系統(tǒng)..."
Shortcut = {F2}
End
Begin VB.Menu pop_hlp
Caption = "幫助(&H)"
End
Begin VB.Menu pop_iline
Caption = "-"
End
Begin VB.Menu pop_webHlp
Caption = "聯(lián)機(jī)幫助"
Shortcut = {F3}
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub FMH_webHlp_Click()
Dim pid As Long
pid = Shell("Explorer.exe http://hmj.student.hvttc.edu.cn", vbNormalFocus)
If pid = 0 Then
MsgBox "無法打開瀏覽器！", vbOKOnly + vbExclamation, "打開程序出錯(cuò)"
End If
End Sub
Private Sub frmMainH_about_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub FrmMainH_hlp_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub
Private Sub FrmMainS_exit_Click()
Call Sys_exit
End Sub
Private Sub frmMainS_logOff_Click()
Call LogOff
End Sub
Private Sub FrmMainS_return_Click()
If UserShenFen = "經(jīng)理" Then
Load FrmAdminMain
FrmAdminMain.Show
ElseIf UserShenFen = "倉庫管理員" Then
Load FrmCangGuanMain
FrmCangGuanMain.Show
ElseIf UserShenFen = "售書員" Then
Load FrmBookSellerMain
FrmBookSellerMain.Show
ElseIf UserShenFen = "會(huì)員" Then
Load FrmMemberMain
FrmMemberMain.Show
Else
Load FrmGuestMain
FrmGuestMain.Show
End If
End Sub
Private Sub FrmMnuS_jsq_Click()
Dim pid As Long
pid = Shell("Calc.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "無法打開計(jì)算器！", vbOKOnly + vbExclamation, "打開程序出錯(cuò)"
End If
End Sub
Private Sub MDIForm_Load()
'設(shè)置用戶環(huán)境
If UserShenFen = "經(jīng)理" Then
Load FrmAdminMain
FrmAdminMain.Show
ElseIf UserShenFen = "倉庫管理員" Then
Load FrmCangGuanMain
FrmCangGuanMain.Show
ElseIf UserShenFen = "售書員" Then
Load FrmBookSellerMain
FrmBookSellerMain.Show
ElseIf UserShenFen = "會(huì)員" Then
Load FrmMemberMain
FrmMemberMain.Show
Else
Load FrmGuestMain
FrmGuestMain.Show
End If
End Sub
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu popMnu
End If
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Load FrmLogIn
FrmLogIn.Show
If UserShenFen = "經(jīng)理" Then
Unload FrmAdminMain
ElseIf UserShenFen = "倉庫管理員" Then
Unload FrmCangGuanMain
ElseIf UserShenFen = "售書員" Then
Unload FrmBookSellerMain
ElseIf UserShenFen = "會(huì)員" Then
Unload FrmMemberMain
Else
Unload FrmGuestMain
End If
Unload FrmMain
UserShenFen = ""
logOK = False
End Sub
Private Sub MfrmMainS_notepad_Click()
Dim pid As Long
pid = Shell("Notepad.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "無法打開記事本！", vbOKOnly + vbExclamation, "打開程序出錯(cuò)"
End If
End Sub
Private Sub pop_about_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub pop_hlp_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub
Private Sub POP_jsb_Click()
Call MfrmMainS_notepad_Click
End Sub
Private Sub POP_jsq_Click()
Call FrmMnuS_jsq_Click
End Sub
Private Sub pop_retuHome_Click()
Call FrmMainS_return_Click
End Sub
Private Sub pop_webHlp_Click()
Call FMH_webHlp_Click
End Sub
Private Sub pop_zhuXiao_Click()
Call LogOff
End Sub
'此源碼由程序太平洋收集整理發(fā)布,任何人都可自由轉(zhuǎn)載,但需保留本站信息
'╭⌒╮┅~ ¤ 歡迎光臨程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮ ︶ ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶ ,''
'╔ ╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱ ╬
'╬ http://www.5ivb.net ╬
'╬ ╭○╮● ╬
'╬ /■\/■\ ╬
'╬ <| || 有希望,就有成功！ ╬
'╬ ╬
'╚╬╬╬╬╬╬╬╬╬╬╗ ╔╬╬╬╬╝
'
'說明：
'專業(yè)提供VB、．NET、Delphi、ASP、PB源碼下載
'包括:程序源碼,控件,商業(yè)源碼,系統(tǒng)方案，開發(fā)工具，書籍教程，技術(shù)文檔
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -