frm_star.frm

这是个进销存管理系统

VERSION 5.00
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash.ocx"
Begin VB.Form frm_Star 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3705
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5835
   Icon            =   "frm_Star.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   11  'Hourglass
   Picture         =   "frm_Star.frx":164A
   ScaleHeight     =   247
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   389
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1500
      Left            =   2700
      Top             =   1725
   End
   Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
      Height          =   240
      Left            =   645
      TabIndex        =   0
      Top             =   2850
      Width           =   4650
      _cx             =   8202
      _cy             =   423
      FlashVars       =   ""
      Movie           =   "E:\毕业设计项目\进销存管理系统\Program\SWF\sss.swf"
      Src             =   "E:\毕业设计项目\进销存管理系统\Program\SWF\sss.swf"
      WMode           =   "Transparent"
      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       =   ""
   End
End
Attribute VB_Name = "frm_Star"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
Dim ss As Date
Dim dd As Integer
   ShockwaveFlash1.Movie = App.Path & "\SWF\sss.swf"    '自动识别Falsh文件路径
   '判断试用期
   If GetSetting(appname:="this", Section:="user", Key:="time") = "" Then
      MsgBox "尊敬的用户：你好！你还没有注册软件，从现在开始，你的试用为30天！"
      SaveSetting appname:="this", Section:="user", Key:="time", setting:=Date  '将软件第一次使用的日期存储到注册表中
   Else
      ss = GetSetting(appname:="this", Section:="user", Key:="time")  '提取注册表中的日期数据
      dd = Date - ss        '计算软件试用天数
      If dd > 30 Then
         MsgBox "对不起，你的试用期已到！ "
         Unload Me       '试用期已到，卸载本窗体，终止程序继续进行
      Else
         MsgBox "您现在还没有注册本软件，试用期还有" & 30 - dd & "天！"
      End If
   End If
   Timer1.Enabled = True   '设置控件可用
End Sub

Private Sub Timer1_Timer()
  frm_login.Show  '窗体的 Show方法 显示指定的窗体
  Unload Me
End Sub