help.frm

音像制品管理系统共分为四个功能模块

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form help1 
   AutoRedraw      =   -1  'True
   Caption         =   "帮助"
   ClientHeight    =   4665
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6480
   BeginProperty Font 
      Name            =   "楷体_GB2312"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "help.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4665
   ScaleWidth      =   6480
   StartUpPosition =   2  'CenterScreen
   Begin TabDlg.SSTab SSTab1 
      Height          =   4695
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6495
      _ExtentX        =   11456
      _ExtentY        =   8281
      _Version        =   393216
      Tabs            =   2
      Tab             =   1
      TabHeight       =   520
      TabCaption(0)   =   "安装"
      TabPicture(0)   =   "help.frx":0442
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "RichTextBox1"
      Tab(0).ControlCount=   1
      TabCaption(1)   =   "使用说明"
      TabPicture(1)   =   "help.frx":045E
      Tab(1).ControlEnabled=   -1  'True
      Tab(1).Control(0)=   "RichTextBox2"
      Tab(1).Control(0).Enabled=   0   'False
      Tab(1).Control(1)=   "TreeView1"
      Tab(1).Control(1).Enabled=   0   'False
      Tab(1).ControlCount=   2
      Begin MSComctlLib.TreeView TreeView1 
         Height          =   4095
         Left            =   120
         TabIndex        =   3
         Top             =   480
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   7223
         _Version        =   393217
         Style           =   7
         Appearance      =   1
      End
      Begin RichTextLib.RichTextBox RichTextBox2 
         Height          =   4095
         Left            =   2280
         TabIndex        =   2
         Top             =   480
         Width           =   4095
         _ExtentX        =   7223
         _ExtentY        =   7223
         _Version        =   393217
         Enabled         =   -1  'True
         AutoVerbMenu    =   -1  'True
         TextRTF         =   $"help.frx":047A
      End
      Begin RichTextLib.RichTextBox RichTextBox1 
         Height          =   4095
         Left            =   -74880
         TabIndex        =   1
         Top             =   480
         Width           =   6255
         _ExtentX        =   11033
         _ExtentY        =   7223
         _Version        =   393217
         Enabled         =   -1  'True
         TextRTF         =   $"help.frx":070E
      End
   End
End
Attribute VB_Name = "help1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
RichTextBox1.LoadFile "d:\毕业设计\设计\功能集\help.txt", rtfText
'TreeView1.Style = tvwPictureText
TreeView1.LineStyle = tvwTreeLines
Dim nodx As Node
Set nodx = TreeView1.Nodes.Add(, , "first", "使用说明")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "payout", "销售使用")
Set nodx = TreeView1.Nodes.Add("payout", tvwChild, "vcdpayout", "歌碟销售")
Set nodx = TreeView1.Nodes.Add("payout", tvwChild, "falmpayout", "影碟销售")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "sum", "销售统计")
Set nodx = TreeView1.Nodes.Add("sum", tvwChild, "vcdsum", "歌碟销售统计")
Set nodx = TreeView1.Nodes.Add("sum", tvwChild, "falmsum", "影碟销售统计")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "pandian", "库存盘点")
Set nodx = TreeView1.Nodes.Add("pandian", tvwChild, "vcdpandian", "歌碟库存盘点")
Set nodx = TreeView1.Nodes.Add("pandian", tvwChild, "falmpandian", "影碟库存盘点")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "vcdpayin", "歌碟入库说明")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "newsong", "新歌快递")
Set nodx = TreeView1.Nodes.Add("first", tvwChild, "rent", "出租管理")
nodx.EnsureVisible

End Sub

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
RichTextBox2.Text = ""
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node.Text
       Case "歌碟销售":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\vcdpayout.txt", rtfText
       Case "影碟销售":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\falmpayout.txt", rtfText
       Case "歌碟销售统计":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\vcdsum.txt", rtfText
       Case "影碟销售统计":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\falmsum.txt", rtfText
       Case "歌碟库存盘点":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\vcdpandian.txt", rtfText
       Case "影碟库存盘点":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\falmpandian.txt", rtfText
       Case "新歌快递":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\newsong.txt", rtfText
       Case "出租管理":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\rent.txt", rtfText
       Case "歌碟入库说明":
       RichTextBox2.LoadFile "d:\毕业设计\设计\功能集\vcdpayin.txt", rtfText
       Case "销售使用":
       RichTextBox2.Text = ""
       Case "销售统计":
       RichTextBox2.Text = ""
       Case "库存盘点"
       RichTextBox2.Text = ""
       End Select
End Sub