help.frm

图书管理系统（VB+ACESS） 满不错的~你们

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Begin VB.Form help 
   BackColor       =   &H8000000A&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Form4"
   ClientHeight    =   4485
   ClientLeft      =   5670
   ClientTop       =   3735
   ClientWidth     =   3600
   ControlBox      =   0   'False
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "help.frx":0000
   ScaleHeight     =   4485
   ScaleWidth      =   3600
   ShowInTaskbar   =   0   'False
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   1935
      Left            =   720
      TabIndex        =   1
      Top             =   120
      Width           =   2175
      _cx             =   3836
      _cy             =   3413
      FlashVars       =   ""
      Movie           =   ""
      Src             =   ""
      WMode           =   "Window"
      Play            =   -1  'True
      Loop            =   -1  'True
      Quality         =   "High"
      SAlign          =   ""
      Menu            =   -1  'True
      Base            =   ""
      AllowScriptAccess=   "always"
      Scale           =   "ShowAll"
      DeviceFont      =   0   'False
      EmbedMovie      =   0   'False
      BGColor         =   ""
      SWRemote        =   ""
      MovieData       =   ""
      SeamlessTabbing =   -1  'True
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H8000000A&
      Caption         =   "确定"
      Height          =   375
      Left            =   2760
      Picture         =   "help.frx":8112
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   4080
      Width           =   735
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "Label5"
      Height          =   180
      Left            =   240
      TabIndex        =   7
      Top             =   3840
      Width           =   540
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "Label4"
      Height          =   180
      Left            =   240
      TabIndex        =   6
      Top             =   3210
      Width           =   540
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "Label3"
      Height          =   180
      Left            =   240
      TabIndex        =   5
      Top             =   2910
      Width           =   540
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   180
      Left            =   240
      TabIndex        =   4
      Top             =   2595
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H80000001&
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      Height          =   180
      Left            =   240
      TabIndex        =   3
      Top             =   2280
      Width           =   540
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Label6"
      Height          =   180
      Left            =   240
      TabIndex        =   2
      Top             =   3525
      Width           =   540
   End
End
Attribute VB_Name = "help"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Show
Form2.Hide
Form3.Hide
Unload help
user.Hide
End Sub

Private Sub Form_Load()
help.Caption = "帮助"
Label1.Caption = "本版本为试用版！出现问题，概不负责！"
Label2.Caption = "支持正版！翻版必究！"
Label3.Caption = "联系人QQ：15074009   24447534"
Label4.Caption = "E-mail：[e-mail]"
Label6.Caption = "        [e-mail]  "
Label5.Caption = "谢谢使用！请点击确定按钮！Bye-bye"
ShockwaveFlash1.Movie = "E:\qqiao\FLASH\flash.swf"
End Sub