📄 帮助主题.frm
字号:
VERSION 5.00
Begin VB.Form 帮助主题
Caption = "帮助主题"
ClientHeight = 7155
ClientLeft = 60
ClientTop = 450
ClientWidth = 9480
LinkTopic = "Form1"
ScaleHeight = 7155
ScaleWidth = 9480
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "退 出 "
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 4
Top = 1440
Width = 1215
End
Begin VB.TextBox Text1
BackColor = &H00FFFF80&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 3735
Left = 2400
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 2760
Width = 4935
End
Begin VB.ListBox List2
BackColor = &H00FFFF80&
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1500
ItemData = "帮助主题.frx":0000
Left = 5040
List = "帮助主题.frx":0002
TabIndex = 2
Top = 960
Width = 2295
End
Begin VB.ListBox List1
BackColor = &H00FFFF80&
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1500
ItemData = "帮助主题.frx":0004
Left = 2400
List = "帮助主题.frx":001A
TabIndex = 1
Top = 960
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "选择帮助项目"
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF80&
Height = 375
Left = 480
TabIndex = 0
Top = 360
Width = 2055
End
Begin VB.Image Image1
Height = 7215
Left = 0
Picture = "帮助主题.frx":0058
Stretch = -1 'True
Top = 0
Width = 9495
End
End
Attribute VB_Name = "帮助主题"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload 帮助主题
End Sub
Private Sub List1_Click()
If List1.Text = "登陆与注册" Then
List2.Clear
List2.AddItem "登陆"
List2.AddItem "注册"
ElseIf List1.Text = "常用工具" Then
List2.Clear
List2.AddItem "切换用户"
List2.AddItem "修改密码"
ElseIf List1.Text = "销售管理" Then
List2.Clear
List2.AddItem "登记销售单"
List2.AddItem "销售单查询"
List2.AddItem "销售汇总"
ElseIf List1.Text = "仓库管理" Then
List2.Clear
List2.AddItem "登记入库单"
List2.AddItem "库存报警设置"
List2.AddItem "库存查询"
ElseIf List1.Text = "系统设置" Then
List2.Clear
List2.AddItem "基础资料设置"
List2.AddItem "商品资料设置"
List2.AddItem "用户权限设置"
ElseIf List1.Text = "帮助" Then
List2.Clear
List2.AddItem "帮助主题"
List2.AddItem "关于本系统"
End If
End Sub
Private Sub List2_Click()
If List2.Text = "登陆" Then
Text1.Text = "登陆：" + Chr(13) + Chr(10) + "若为新用户，请点击“注册”；若是旧用户，在用户名一栏输入用户名，并在密码一栏输入相应的密码。用户在填写其正确的用户名及密码后点击“登录”键即可进入软件。" + Chr(13) + Chr(10) + "注意：" + Chr(13) + Chr(10) + "用户必须正确填写其用户名及密码才能登录,当连续三次输入错误密码时本软件会自行关闭，用户须重新启动才能进行登录."
ElseIf List2.Text = "注册" Then
Text1.Text = "用户注册：" + Chr(13) + Chr(10) + "用户注册后才能获得本软件的使用权.用户在填写完所有信息之后点击“确定”键即完成注册。" + Chr(13) + Chr(10) + "注意：" + Chr(13) + Chr(10) + "新注册的用户均为待定用户,用户名长度不得超过10位,密码可由数字与英文字母组成，不能包括汉字或符号，长度在6至8位之间."
ElseIf List2.Text = "切换用户" Then
Text1.Text = "用户切换：" + Chr(13) + Chr(10) + "多用户可自由切换。点击菜单中“常用工具”——“用户切换”或常用工具栏中的“用户切换”键即可进行用户切换。"
ElseIf List2.Text = "修改密码" Then
Text1.Text = "修改密码：" + Chr(13) + Chr(10) + "用户可以自由修改个人密码。" + Chr(13) + Chr(10) + "点击菜单中的“常用工具”--“密码修改”键进入“修改密码”对话框，输入原密码，新密码和确认，点击“修改”键即修改成功。新密码必须按照指定的要求输入"
ElseIf List2.Text = "登记销售单" Then
Text1.Text = "登记销售单：" + Chr(13) + Chr(10) + "实现销售信息写入数据库。" + Chr(13) + Chr(10) + "点击菜单中“销售管理”——“登记销售单”或常用工具栏中的“登记销售单”键进入销售单界面。在列表框里点击选择销售的商品名称，对应的商品编号就会出现在复选框里，对应的单位也会被选中，而点击选择销售的商品编号，对应的商品名称也就会被选中。" + Chr(13) + Chr(10) + "在“销售数量”中填上数值，点击“销售确认”，则给出对话框，点击“确定”将确定销售，点击“取消”则取消操作。"
ElseIf List2.Text = "销售单查询" Then
Text1.Text = "销售单查询：" + Chr(13) + Chr(10) + "实现快速查出数据库中某一时期内的销售单信息。" + Chr(13) + Chr(10) + "点击菜单中“销售管理”——“销售单查询”或常用工具栏中的“销售单查询”键进入查询框。" + Chr(13) + Chr(10) + "首先确定查询的方式,若选择“按商品查询”，则输入相应的查询信息,点击“查询”即可进行查询；" + Chr(13) + Chr(10) + "若选择“全部查询”,则输入销售日期,点击“查询”即可查询.查询结果显示在主窗体的网格中。" + Chr(13) + Chr(10) + "当没有用户要查询的结果,则弹出对话框,显示“没有满足查询条件的信息”,点击“确定”；" + Chr(13) + Chr(10) + "销售日期应按递增的顺序填写,不然会弹出对话框显示“前后日期不对”,点击“确定”；" + Chr(13) + Chr(10) + "选择“按商品查询”，则应填满所有查询信息框。"
ElseIf List2.Text = "销售汇总" Then
Text1.Text = "销售汇总：" + Chr(13) + Chr(10) + "实现对商品销售的财务信息查询。" + Chr(13) + Chr(10) + "点击菜单中“销售管理”——“销售汇总”或常用工具栏中的“销售汇总”键进入销售汇总界面。" + Chr(13) + Chr(10) + "首先确定汇总的方式,若选择“按商品进行统计”，则选择要进行汇总的商品，点击“汇总”即可对选中商品进行查询；" + Chr(13) + Chr(10) + "若选择“全部统计”，则对全部商品惊醒汇总，其结果显示在下面的网格中。" + Chr(13) + Chr(10) + "若汇总以后想进行清零，点击“汇总清零”即可。"
ElseIf List2.Text = "登记入库单" Then
Text1.Text = "登记入库单：" + Chr(13) + Chr(10) + "用户需要填写商品编码，单位，商品名称和数量的相关信息，其中前三项的信息只需点击文本框后的带三角的图标即可在其中选择所要的信息，输入在图标中没有的信息入库失败。"
ElseIf List2.Text = "库存报警设置" Then
Text1.Text = "库存下限设置：" + Chr(13) + Chr(10) + "用户在商品编号和商品名称后带三角的图标中选择所要的信息，在库存下限中填写具体的下限，填写完毕点击“确定设置”即可。"
ElseIf List2.Text = "库存查询" Then
Text1.Text = "库存查询：" + Chr(13) + Chr(10) + "实现快速查出数据库中的库存信息。" + Chr(13) + Chr(10) + "点击菜单中的“库存管理”——“库存查询”或常用工具栏中的“库存查询”键进入查询框。" + Chr(13) + Chr(10) + "首先确定查询的方式，然后输入相应的查询信息，点击“查询”即可进行查询。" + Chr(13) + Chr(10) + "其中商品信息必须是已经入库的信息。查询结果显示在主窗体的网格中。"
ElseIf List2.Text = "基础资料设置" Then
Text1.Text = "基础资料设置：" + Chr(13) + Chr(10) + "此项设置包括三部分：本超市资料,员工资料,计量单位。" + Chr(13) + Chr(10) + "在相应的对话框中输入信息即可。"
ElseIf List2.Text = "商品资料设置" Then
Text1.Text = "商品资料设置：" + Chr(13) + Chr(10) + "用户需要填写商品名称，成本价，商品编号，售价和单位的相关信息，填写完毕后点击“保存设置”键即可."
ElseIf List2.Text = "用户权限设置" Then
Text1.Text = "用户权限设置：" + Chr(13) + Chr(10) + "管理员用来实现对系统的管理。" + Chr(13) + Chr(10) + "点击菜单中的“系统设置”——“用户权限设置”，可看到两个选项卡：修改用户权限；增加/删除用户。" + Chr(13) + Chr(10) + "在“更改用户权限”选项卡中选择要修改的用户，可在“用户身份”下拉按钮中选择要更改成的用户身份；" + Chr(13) + Chr(10) + "增加新用户可查看“注册”的帮助信息；选中要删除的用户后，按“删除”按键可删除选中用户。"
ElseIf List2.Text = "帮助主题" Then
Text1.Text = "帮助：" + Chr(13) + Chr(10) + "用户可以通过点击菜单中的帮助，选择帮助主题，即可查看帮助文件。"
ElseIf List2.Text = "关于本系统" Then
Text1.Text = "点击可查看本系统的相关信息"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -