form_register.frm

仓库扫描管理系统

VERSION 5.00
Begin VB.Form form_Register 
   BackColor       =   &H00C0FFFF&
   Caption         =   "软件注册"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdClose 
      Caption         =   "&C关闭"
      Height          =   375
      Left            =   2573
      TabIndex        =   2
      Top             =   2400
      Width           =   1095
   End
   Begin VB.CommandButton cmdRegister 
      Caption         =   "&R注册"
      Height          =   375
      Left            =   1013
      TabIndex        =   1
      Top             =   2400
      Width           =   1095
   End
   Begin VB.TextBox txtRN 
      Height          =   320
      Left            =   1440
      TabIndex        =   0
      Top             =   1680
      Width           =   2175
   End
   Begin VB.TextBox txtSN 
      BackColor       =   &H8000000A&
      Height          =   320
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   6
      Top             =   1200
      Width           =   2175
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      Caption         =   "注册码："
      Height          =   255
      Left            =   480
      TabIndex        =   5
      Top             =   1680
      Width           =   735
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      Caption         =   "序列号："
      Height          =   255
      Left            =   480
      TabIndex        =   4
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "       本软件是根据下面序列号生成注册码，获取注册码请跟广州友联商用器材有限公司联系。"
      ForeColor       =   &H00800000&
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   4215
   End
End
Attribute VB_Name = "form_Register"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdRegister_Click()
    If Trim(txtRN.Text) = "" Then
        MsgBox "请输入注册码！", vbCritical, "警告"
        txtRN.SetFocus
        Exit Sub
    End If
' g_registerNumber
   Dim rsRegister As Recordset
   Set rsRegister = g_db.OpenRecordset("SELECT * FROM hp_sysParas WHERE paraCode='registerNumber'")
' and paraValue='" & g_registerNumber & "'"
    If Trim(txtRN.Text) = g_registerNumber Then
        If rsRegister.RecordCount > 0 Then
            g_db.Execute ("update hp_sysParas set paraValue='" + g_registerNumber + "' WHERE paraCode='registerNumber'")
        Else
            g_db.Execute ("insert into hp_sysParas(paraCode,paraValue,paraDesc) values('registerNumber','" + g_registerNumber + "','注册码') ")
        End If
        MsgBox "注册成功，请重新登陆！", vbInformation, "提示"
        rsRegister.Close
        Set rsRegister = Nothing
        End
    Else
        MsgBox "注册码无效，请与软件开发商联系！", vbCritical, "警告"
        txtRN.SetFocus
        rsRegister.Close
        Set rsRegister = Nothing
        Exit Sub
    End If
End Sub

Private Sub Form_Load()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    txtSN.Text = g_HddInfo
End Sub

Private Sub Form_Unload(Cancel As Integer)
 frm_main.Enabled = True
End Sub