?? mdiform1.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "圖書館管理系統"
ClientHeight = 5460
ClientLeft = 165
ClientTop = 735
ClientWidth = 7575
LinkTopic = "MDIForm1"
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 4965
Width = 7575
_ExtentX = 13361
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Menu menu1
Caption = "圖書借還管理"
Begin VB.Menu menu11
Caption = "圖書借閱處理"
End
Begin VB.Menu spc1
Caption = "-"
End
Begin VB.Menu menu12
Caption = "圖書歸還處理"
End
Begin VB.Menu spc2
Caption = "-"
End
Begin VB.Menu menu13
Caption = "退出"
Shortcut = ^X
End
End
Begin VB.Menu menu2
Caption = "圖書管理"
Begin VB.Menu menu21
Caption = "圖書入庫管理"
End
Begin VB.Menu spc3
Caption = "-"
End
Begin VB.Menu menu22
Caption = "圖書查找管理"
End
End
Begin VB.Menu menu3
Caption = "讀者處理"
Begin VB.Menu menu31
Caption = "讀者登記處理"
End
Begin VB.Menu spc4
Caption = "-"
End
Begin VB.Menu menu32
Caption = "讀者查找處理"
End
End
Begin VB.Menu menu4
Caption = "系統維護管理"
Begin VB.Menu menu41
Caption = "設置系統用戶"
End
Begin VB.Menu spc5
Caption = "-"
End
Begin VB.Menu menu42
Caption = "系統初始化"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Dim i As Integer
For i = 1 To 4
StatusBar1.Panels.Add
Next i
StatusBar1.Panels(1).Text = Date
StatusBar1.Panels(2).Text = Time
StatusBar1.Panels(3).Text = "Ins"
StatusBar1.Panels(4).AutoSize = sbrContents
StatusBar1.Panels(4).Text = "圖書館管理系統-成功軟件開發工作室 2004.11"
If Not userlevel = "系統管理員" Then
menu21.Enabled = False
menu31.Enabled = False
menu41.Enabled = False
menu42.Enabled = False
End If
End Sub
Private Sub menu11_Click()
frmBorbook.Show vbModal
End Sub
Private Sub menu12_Click()
frmRetbook.Show vbModal
End Sub
Private Sub menu13_Click()
End
End Sub
Private Sub menu21_Click()
frmEdbook.Show vbModal
End Sub
Private Sub menu22_Click()
frmQubook.Show vbModal
End Sub
Private Sub menu31_Click()
frmEdreader.Show vbModal
End Sub
Private Sub menu32_Click()
frmQureader.Show vbModal
End Sub
Private Sub menu41_Click()
frmSetuser.Show vbModal
End Sub
Private Sub menu42_Click()
If MsgBox("本功能要清除系統中所有的數據,真的要初始化嗎", vbYesNo, "確認初始化操作") = vbYes Then
Call delData("book")
Call delData("reader")
Call delData("borrow")
Call delData("rlevel")
Call delData("depart")
Call delData("press")
Call delData("oper")
MsgBox "系統初始化完畢,下次只能以1234/1234(用戶名/口令)進入本系統", vbOKOnly, "信息提示"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -