frmzhci.frm

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

VERSION 5.00
Begin VB.Form Frmzhce 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户注册"
   ClientHeight    =   3345
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6255
   ControlBox      =   0   'False
   Icon            =   "FRMZHCI.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3345
   ScaleWidth      =   6255
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame2 
      Height          =   532
      Left            =   2760
      TabIndex        =   6
      Top             =   2640
      Width           =   3240
      Begin VB.CommandButton Command3 
         Caption         =   "帮助"
         Height          =   375
         Left            =   30
         TabIndex        =   9
         Top             =   120
         Width           =   1095
      End
      Begin VB.CommandButton Command4 
         Caption         =   "正式版注册"
         Height          =   375
         Left            =   1130
         TabIndex        =   8
         Top             =   120
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   375
         Left            =   2230
         TabIndex        =   7
         Top             =   120
         Width           =   975
      End
   End
   Begin VB.TextBox Text2 
      DataField       =   "zs"
      DataSource      =   "Data1"
      Height          =   270
      Left            =   4080
      TabIndex        =   4
      Top             =   1880
      Width           =   1935
   End
   Begin VB.Frame Frame1 
      Caption         =   "说明"
      Height          =   2235
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2460
      Begin VB.Label Label5 
         Caption         =   $"FRMZHCI.frx":000C
         Height          =   1815
         Left            =   360
         TabIndex        =   5
         Top             =   360
         Width           =   1935
      End
   End
   Begin VB.Label Label7 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4080
      TabIndex        =   11
      Top             =   310
      Width           =   1700
   End
   Begin VB.Label Label6 
      Caption         =   "当前版本为"
      Height          =   255
      Left            =   2880
      TabIndex        =   10
      Top             =   360
      Width           =   1095
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   240
      X2              =   6000
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Label Label4 
      DataField       =   "dn"
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3940
      TabIndex        =   3
      Top             =   1095
      Width           =   1935
   End
   Begin VB.Label Label3 
      Caption         =   "正式版注册号"
      Height          =   255
      Left            =   2880
      TabIndex        =   2
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "您的电脑号为"
      Height          =   255
      Left            =   2880
      TabIndex        =   1
      Top             =   1140
      Width           =   1095
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      BorderWidth     =   2
      X1              =   240
      X2              =   6000
      Y1              =   2530
      Y2              =   2530
   End
End
Attribute VB_Name = "Frmzhce"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command4_Click()
Dim a, b, c As Double '定义正式注册变量
a = CDbl(Label4.Caption)
b = (a + 13579) * 7 - 2468
c = CDbl(Left$(Str$(b), 9))
If Text2.Text = Right$(Str(c), 8) Then
   '将注册码加入数据库
   With frmLogin.Adodc1
   .RecordSource = "select * from zyj"
   .Refresh
   .Recordset.Fields(4).Value = Text2.Text
   版本状态 = 1
   .Recordset.Fields(2).Value = 1  '版本状态
   .Recordset.Update
   Me.Command4.Enabled = False
   End With
 
   
MsgBox "正式版注册成功！感谢您使用紫宇软件！", vbOKOnly Or vbInformation, "系统信息"
   Text2.Enabled = False
Else
MsgBox "正式版注册码错误！请重新输入。", vbOKOnly Or vbInformation, "系统信息"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End If
End Sub

Private Sub Form_Load()
'显示版本状态
Select Case 版本状态
Case 0
Me.Label7 = "试用版本"
Case 1
Me.Label7 = "正试版本"
Case 2
Me.Label7 = "版本到期"
End Select
'显示电脑编号
With frmLogin.Adodc1
.RecordSource = "select * from zyj"
.Refresh
If .Recordset.Fields(3).Value = "0" Then
Dim X As Double
Dim Y, z As String
Randomize
X = Fix(Rnd() * 100000000)
Y = Str$(X)
z = "32895468"
Label4 = Left$(Y & z, 9)
.Recordset.Fields(3).Value = Label4.Caption
.Recordset.Update
Else
Label4 = .Recordset.Fields(3).Value
End If
End With
'显示注册号
With frmLogin.Adodc1
If .Recordset.Fields(4).Value = "0" Then
Text2.Text = ""
Else
Text2.Text = .Recordset.Fields(4).Value
Text2.Enabled = False
Me.Command4.Enabled = False
End If
End With
End Sub