注册.frm

一间公司的管理系统的源码

VERSION 5.00
Begin VB.Form zhuce 
   Caption         =   "注册"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdTryout 
      Caption         =   "试用"
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Top             =   2160
      Width           =   975
   End
   Begin VB.CommandButton cmdReg 
      Caption         =   "注册"
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   2160
      Width           =   975
   End
   Begin VB.TextBox SeriesNumber 
      Height          =   270
      Left            =   1800
      TabIndex        =   3
      Top             =   1320
      Width           =   1815
   End
   Begin VB.TextBox UserName 
      Height          =   270
      Left            =   1800
      TabIndex        =   1
      Top             =   840
      Width           =   1815
   End
   Begin VB.Label regcode 
      Caption         =   "注册码："
      Height          =   255
      Left            =   840
      TabIndex        =   2
      Top             =   1320
      Width           =   855
   End
   Begin VB.Label reguser 
      Caption         =   "用户名："
      Height          =   255
      Left            =   840
      TabIndex        =   0
      Top             =   840
      Width           =   855
   End
End
Attribute VB_Name = "zhuce"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim TryoutTimes As Integer '当前的试用次数

Private Sub cmdReg_Click()
If Trim(UserName.Text) = "" Then
    MsgBox "用户名不能为空！", vbOKOnly, App.Title
    UserName.SetFocus
ElseIf Trim(SeriesNumber.Text) = "" Then
    MsgBox "注册码不能为空！", vbOKOnly, App.Title
    SeriesNumber.SetFocus
ElseIf SeriesNumber.Text = RegSN Then
    UpdateKey HKEY_LOCAL_MACHINE, "software\Company", "CompanyName", REG_SZ, UserName.Text, LenB(UserName.Text)
    UpdateKey HKEY_LOCAL_MACHINE, "software\Company", "CompanySN", REG_SZ, SeriesNumber.Text, 8
    MsgBox "注册成功！欢迎使用正版软件！", vbOKOnly + vbInformation, App.Title
    denglu.Show
    Unload Me
Else
    MsgBox "注册码错误，请使用正版软件注册码！", vbOKOnly + vbCritical, App.Title
    SeriesNumber.SetFocus
    SeriesNumber.SelStart = 0
    SeriesNumber.SelLength = Len(SeriesNumber.Text)
End If

End Sub

Private Sub cmdTryout_Click()
If cmdTryout.Caption = "请注册" Or cmdTryout.Enabled = False Then
    End
End If


If TryoutLimit - TryoutTimes = 1 Then
    MsgBox "这是您最后一次登录本系统，如果继续使用，请联系我们注册！", vbOKOnly, App.Title
Else
    MsgBox "现在剩下：" & TryoutLimit - TryoutTimes - 1 & "试用次数", vbOKOnly, App.Title
End If

TryoutTimes = TryoutTimes + 1
SaveSetting App.Title, "设置", "次数", TryoutTimes
  
Unload Me
denglu.Show

End Sub

Private Sub Form_Load()

Call SetCenter(Me)
Call zhuceSet(Me)
Dim CheckReg As String
'检查是否注册
CheckReg = GetKeyValue(HKEY_LOCAL_MACHINE, "software\Company", "CompanySN")
If CheckReg = RegSN Then
    Unload Me
    denglu.Show
Else
    TryoutTimes = GetSetting(App.Title, "设置", "次数", 0)
    If TryoutTimes >= TryoutLimit Then
        MsgBox "试用次数已满，请注册您的产品！" & vbCr & vbCr & "注册联系电话：[phone]" & vbCr & vbCr & "电子信箱：[e-mail]", vbOKOnly + vbInformation, App.Title
        cmdTryout.Enabled = False
        cmdTryout.Caption = "请注册"
    Else
        cmdTryout.Enabled = True
        cmdTryout.Caption = "试用"
    End If
End If



End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call CloseSystem(UnloadMode, Cancel)
End Sub

Private Sub Form_Paint()
'渐变背景
Dim lY As Long
Dim lScaleHeight As Long
Dim lScaleWidth As Long
ScaleMode = vbPixels
lScaleHeight = ScaleHeight
lScaleWidth = ScaleWidth
DrawStyle = vbInvisible
FillStyle = vbFSSolid
For lY = 0 To lScaleHeight
    FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
    Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
Next lY
End Sub

Private Sub SeriesNumber_Change()
If Trim(SeriesNumber.Text) > 0 Then
    cmdReg.Default = True
Else
    cmdReg.Default = False
End If
End Sub