frmregister.frm

来自「通用书店管理系统」· FRM 代码 · 共 160 行

VERSION 5.00
Begin VB.Form frmRegister 
   Caption         =   "注册窗口"
   ClientHeight    =   3150
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5100
   LinkTopic       =   "Form1"
   ScaleHeight     =   3150
   ScaleWidth      =   5100
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame fraStep3 
      Height          =   2680
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   120
      Width           =   3645
      Begin VB.TextBox txtRegister 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1080
         MaxLength       =   50
         TabIndex        =   5
         Top             =   2160
         Width           =   2415
      End
      Begin VB.TextBox txtUserName 
         Height          =   375
         Left            =   1080
         MaxLength       =   50
         TabIndex        =   4
         Top             =   1380
         Width           =   2415
      End
      Begin VB.TextBox txtBSName 
         Height          =   375
         Left            =   1080
         MaxLength       =   50
         TabIndex        =   3
         Top             =   600
         Width           =   2415
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "用户名  "
         Height          =   180
         Index           =   3
         Left            =   120
         TabIndex        =   8
         Top             =   1500
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "注册码  "
         Height          =   180
         Index           =   4
         Left            =   120
         TabIndex        =   7
         Top             =   2280
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "书店名称"
         Height          =   180
         Index           =   2
         Left            =   120
         TabIndex        =   6
         Top             =   720
         Width           =   720
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   4140
      TabIndex        =   1
      Top             =   1740
      Width           =   735
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   4140
      TabIndex        =   0
      Top             =   2460
      Width           =   735
   End
End
Attribute VB_Name = "frmRegister"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Public blnOK As Boolean
Dim intTry As Integer

Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    Dim strKey As String
    Dim str_conPWd As String
    Dim strSQL As String
    Dim L As Long
    
    On Error GoTo err
    
    If Not CheckRegCode(Trim(txtBSName.Text), Trim(txtRegister)) Then
        intTry = intTry + 1
        MsgBox "注册码错误！"
        If intTry >= 5 Then Me.Hide
        Exit Sub
    End If
    
    strSQL = "update Company set chrCompanyName='" & Trim(txtBSName.Text) & "'"
    cN.Execute strSQL, L
    If L <> 1 Then err.Raise vbObjectError + 2, , "更新书店名称失败！"
    
    strKey = "Software\" & App.CompanyName & "\" & App.ProductName & "\REG"
    Call Registry.UpdateKey(HKEY_LOCAL_MACHINE, strKey, "UserName", Trim(txtUserName.Text))
    Call Registry.UpdateKey(HKEY_LOCAL_MACHINE, strKey, "RegisterCode", Trim(txtRegister.Text))
    blnOK = True        ' 置成功标志
    MsgBox "已成功进行注册。", vbInformation
    Me.Hide
    Exit Sub
    
err:
    MsgBox "注册过程出现错误。" & err.Description
End Sub

Private Sub Form_Load()
    Dim strSQL As String
    Dim strTemp As String * 300, strKey As String
    
    blnOK = False
    intTry = 0
    
    strKey = "software\" & App.CompanyName & "\" & App.ProductName & "\REG"
    If Registry.GetKeyValue(HKEY_LOCAL_MACHINE, strKey, "UserName", strTemp) Then
        txtUserName = Trim(strTemp)
    Else
        txtUserName = ""
    End If
    
    strSQL = "select chrCompanyName from Company"
    Set rs = cN.Execute(strSQL)
    If Not rs.EOF() Then
        txtBSName.Text = Trim(rs.Fields("chrCompanyName"))
    End If
    Set rs = Nothing
End Sub