📄 frmmain.frm
字号:
TabIndex = 14
Top = 2693
Visible = 0 'False
Width = 2295
Begin VB.Label cmdCircRenew
BackStyle = 0 'Transparent
Caption = "Renew"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 25
Top = 960
Width = 1455
End
Begin VB.Line Line3
BorderWidth = 3
X1 = 0
X2 = 0
Y1 = 0
Y2 = 2040
End
Begin VB.Label cmdCircSignout
BackStyle = 0 'Transparent
Caption = "Sign Out"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 15
Top = 0
Width = 2175
End
Begin VB.Label cmdCircReturn
BackStyle = 0 'Transparent
Caption = "Return"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 16
Top = 480
Width = 1815
End
End
Begin VB.Line linInternet
BorderWidth = 3
Visible = 0 'False
X1 = 320
X2 = 448
Y1 = 275.533
Y2 = 275.533
End
Begin VB.Line linHelp
BorderWidth = 3
Visible = 0 'False
X1 = 312
X2 = 449
Y1 = 235.533
Y2 = 235.533
End
Begin VB.Line linCirc
BorderWidth = 3
Visible = 0 'False
X1 = 376
X2 = 448
Y1 = 196
Y2 = 196
End
Begin VB.Line linBrowse
BorderWidth = 3
Visible = 0 'False
X1 = 295
X2 = 448
Y1 = 155.533
Y2 = 155.533
End
Begin VB.Line linAdmin
BorderWidth = 3
Visible = 0 'False
X1 = 344
X2 = 448
Y1 = 116
Y2 = 116
End
Begin VB.Label cmdInternet
BackStyle = 0 'Transparent
Caption = "Internet"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3240
TabIndex = 5
Top = 3893
Width = 1815
End
Begin VB.Label cmdAdmin
BackStyle = 0 'Transparent
Caption = "Administration"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
TabIndex = 1
Top = 1493
Width = 2775
End
Begin VB.Label cmdBrowse
BackStyle = 0 'Transparent
Caption = "Broswe"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
TabIndex = 4
Top = 2093
Width = 1815
End
Begin VB.Label cmdExit
BackStyle = 0 'Transparent
Caption = "Exit"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2880
TabIndex = 3
Top = 4493
Width = 1815
End
Begin VB.Label cmdHelp
BackStyle = 0 'Transparent
Caption = "Help"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
TabIndex = 2
Top = 3293
Width = 1815
End
Begin VB.Label cmdCirc
BackStyle = 0 'Transparent
Caption = "Circulation"
BeginProperty Font
Name = "Times New Roman"
Size = 21.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 0
Top = 2700
Width = 2295
End
Begin VB.Shape Shape1
BorderWidth = 3
Height = 3615
Left = 120
Shape = 3 'Circle
Top = 1613
Visible = 0 'False
Width = 3255
End
Begin VB.Image Image2
Height = 3735
Left = 2280
Top = 1373
Width = 2535
End
Begin VB.Image Image1
Height = 2835
Left = 360
Picture = "frmMain.frx":0000
Top = 1973
Width = 2820
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdmin_Click()
linAdmin.Visible = True
mnuAdmin.Visible = True
linBrowse.Visible = False
mnuBrowse.Visible = False
linCirc.Visible = False
mnuCirc.Visible = False
linHelp.Visible = False
mnuHelp.Visible = False
linInternet.Visible = False
mnuInternet.Visible = False
End Sub
Private Sub cmdAdminBooks_Click()
frmBookAdmin.Show
End Sub
Private Sub cmdAdminPatrons_Click()
frmPatrons.Show
End Sub
Private Sub cmdAdminSettings_Click()
frmSettings.Show
End Sub
Private Sub cmdBrowse_Click()
linAdmin.Visible = False
mnuAdmin.Visible = False
linBrowse.Visible = True
mnuBrowse.Visible = True
linCirc.Visible = False
mnuCirc.Visible = False
linHelp.Visible = False
mnuHelp.Visible = False
linInternet.Visible = False
mnuInternet.Visible = False
End Sub
Private Sub cmdCirc_Click()
linAdmin.Visible = False
mnuAdmin.Visible = False
linBrowse.Visible = False
mnuBrowse.Visible = False
linCirc.Visible = True
mnuCirc.Visible = True
linHelp.Visible = False
mnuHelp.Visible = False
linInternet.Visible = False
mnuInternet.Visible = False
End Sub
Private Sub cmdCircRenew_Click()
frmRenew.Show
End Sub
Private Sub cmdCircReturn_Click()
frmReturn.Show
End Sub
Private Sub cmdCircSignout_Click()
frmSignout.Show
End Sub
Private Sub cmdExit_Click()
frmExit.Show
frmExit.ZOrder (0)
End Sub
Private Sub cmdHelp_Click()
linAdmin.Visible = False
mnuAdmin.Visible = False
linBrowse.Visible = False
mnuBrowse.Visible = False
linCirc.Visible = False
mnuCirc.Visible = False
linHelp.Visible = True
mnuHelp.Visible = True
linInternet.Visible = False
mnuInternet.Visible = False
End Sub
Private Sub cmdHelpAbout_Click()
frmAbout.Show 'Show the About Program Dialog Box
End Sub
Private Sub cmdInternet_Click()
linAdmin.Visible = False
mnuAdmin.Visible = False
linBrowse.Visible = False
mnuBrowse.Visible = False
linCirc.Visible = False
mnuCirc.Visible = False
linHelp.Visible = False
mnuHelp.Visible = False
linInternet.Visible = True
mnuInternet.Visible = True
End Sub
Private Sub cmdInternetAmazon_Click()
X = Shell("c:\program files\ie5\iexplore.exe http://www.amazon.com", vbNormalFocus)
End Sub
Private Sub cmdInternetBarnesandNoble_Click()
X = Shell("c:\program files\ie5\iexplore.exe http://www.barnesandnoble.com", vbNormalFocus)
End Sub
Private Sub cmdInternetChapters_Click()
X = Shell("c:\program files\ie5\iexplore.exe http://www.chapters.ca", vbNormalFocus)
End Sub
Private Sub cmdInternetYahoo_Click()
X = Shell("c:\program files\ie5\iexplore.exe http://ca.yahoo.com", vbNormalFocus)
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
linAdmin.Visible = False
mnuAdmin.Visible = False
linBrowse.Visible = False
mnuBrowse.Visible = False
linCirc.Visible = False
mnuCirc.Visible = False
linHelp.Visible = False
mnuHelp.Visible = False
linInternet.Visible = False
mnuInternet.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -