frm试用期.frm

来自「1. 观察计算机显示系统构成」· FRM 代码 · 共 40 行

VERSION 5.00
Begin VB.Form frm试用期 
   Caption         =   "试用期"
   ClientHeight    =   3135
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3135
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frm试用期"
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 > 365 Then
        MsgBox "软件已过期" & 365 - (Date - retvalue) & " 天，注册请联系作者！QQ:826509803", vbExclamation, "客户管理系统试用版，请注册使用！"
        End
    End If
    MsgBox "本程序的试用期还有：" & 365 - (Date - retvalue) & " 天", vbInformation, "客户管理系统试用版"
    Load frm主窗体
    frm登录.Show
End Sub