软件试用期.frm

公司订单管理系统,这对于方便公司管理床单

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "试用期的限制"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   1800
      Top             =   1440
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
  Dim hKey As Long
  Dim time1 As Long
  Dim lendata As Long
  Dim ret As Long
  Me.Hide
    Dim retvalue As Date
    retvalue = GetSetting(App.Title, "Settings", "datevalue", Date)
    If retvalue = Date Then
        SaveSetting App.Title, "settings", "datevalue", Date
    ElseIf Date - retvalue + 1 > 30 Then
        MsgBox "软件已过期" & 30 - (Date - retvalue) & " 天，请联系作者！QQ:16968526", vbExclamation, "订单管理系统试用版！"
        End
    End If
    MsgBox "本程序的试用期还有：" & 30 - (Date - retvalue) & " 天", vbInformation, "订单管理系统试用版"
    frmLogin.Show
End Sub