?? frmhelp.frm
字號:
VERSION 5.00
Begin VB.Form FrmHelp
BorderStyle = 3 'Fixed Dialog
Caption = "宛楓書社圖書管理系統 系統幫助"
ClientHeight = 4140
ClientLeft = 45
ClientTop = 330
ClientWidth = 8745
Icon = "FrmHelp.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4140
ScaleWidth = 8745
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdAbout
Caption = "關于(&A)"
Height = 375
Left = 7440
TabIndex = 5
Top = 600
Width = 1095
End
Begin VB.CommandButton CmdOK
Cancel = -1 'True
Caption = "確定(&D)"
Default = -1 'True
Height = 375
Left = 7440
TabIndex = 4
Top = 120
Width = 1095
End
Begin VB.PictureBox Picture1
Height = 1935
Left = 120
Picture = "FrmHelp.frx":0E42
ScaleHeight = 1875
ScaleWidth = 1755
TabIndex = 0
Top = 120
Width = 1815
End
Begin VB.Label Label3
Height = 2535
Left = 2160
TabIndex = 3
Top = 1320
Width = 6255
WordWrap = -1 'True
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "系統簡介:"
Height = 180
Left = 2160
TabIndex = 2
Top = 960
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "宛楓書社圖書管理系統 V1.0 Beta 測試版"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 2160
TabIndex = 1
Top = 240
Width = 4440
End
End
Attribute VB_Name = "FrmHelp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdAbout_Click()
Unload Me
Load frmAbout
frmAbout.Show vbModal
End Sub
Private Sub CmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim strInfo As String
strInfo = "宛楓書社圖書管理系統 V1.0 Beta 測試版 面向中小型書店、個體書店進行全面的人員、物流"
strInfo = strInfo & "管理,旨在實現書店管理信息化。" & vbCrLf
strInfo = strInfo & "本系統采用會員制管理,將人員分為經理、倉庫管理員、售書員、會員、游客等,分別擁有不"
strInfo = strInfo & "同的權限,各司其職,以便提高工作效率。系統功能包括:供應商管理、進書管理、圖書資料管理、"
strInfo = strInfo & "售書管理、會員管理、庫存統計、售書統計、退貨統計、基本統計分析等。 " & vbCrLf
strInfo = strInfo & vbCrLf & "用戶權限:" & vbCrLf & vbCrLf
strInfo = strInfo & "(一)經理權限:主要包括各種統計分析、員工管理、制定會員政策等等。" & vbCrLf
strInfo = strInfo & "(二)倉庫管理員權限:包含進書管理、供應商管理、庫存管理、退貨管理等." & vbCrLf
strInfo = strInfo & "(三)售書員權限:包含售書管理、會員管理等。"
Label3.Caption = strInfo
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -