zhuce.frm

针对于订房中心的酒店合同管理。管理权限有管理员和业务员等。

VERSION 5.00
Begin VB.Form zhuce 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统注册"
   ClientHeight    =   3195
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "zhuce.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdTryout 
      Caption         =   "试  用"
      Height          =   375
      Left            =   2520
      TabIndex        =   5
      Top             =   2280
      Width           =   975
   End
   Begin VB.CommandButton cmdReg 
      Caption         =   "注 册"
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   2280
      Width           =   975
   End
   Begin VB.TextBox SeriesNumber 
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      Top             =   1320
      Width           =   2055
   End
   Begin VB.TextBox UserName 
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   720
      Width           =   2055
   End
   Begin VB.Label Label2 
      Caption         =   "注册码："
      Height          =   255
      Left            =   840
      TabIndex        =   3
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      Height          =   255
      Left            =   840
      TabIndex        =   1
      Top             =   840
      Width           =   735
   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
    frmlogin.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
frmlogin.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
    frmlogin.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 SeriesNumber_Change()
If Trim(SeriesNumber.Text) > 0 Then
    cmdReg.Default = True
Else
    cmdReg.Default = False
End If
End Sub