?? frmuserreg.frm
字號:
VERSION 5.00
Begin VB.Form frmUserReg
BorderStyle = 3 'Fixed Dialog
Caption = "新用戶注冊"
ClientHeight = 4845
ClientLeft = 2985
ClientTop = 2265
ClientWidth = 5355
Icon = "frmUserReg.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4845
ScaleWidth = 5355
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame2
Caption = "帳戶設置"
Height = 1455
Left = 90
TabIndex = 17
Top = 855
Width = 5145
Begin VB.TextBox txtUserID
Height = 270
Left = 2025
TabIndex = 0
Top = 270
Width = 1860
End
Begin VB.TextBox txtPassword
Height = 270
IMEMode = 3 'DISABLE
Left = 2025
PasswordChar = "*"
TabIndex = 1
Top = 630
Width = 1860
End
Begin VB.TextBox txtOkPassword
Height = 270
IMEMode = 3 'DISABLE
Left = 2025
PasswordChar = "*"
TabIndex = 2
Top = 990
Width = 1860
End
Begin VB.Label Label9
Caption = "用戶名："
Height = 195
Left = 945
TabIndex = 21
Top = 315
Width = 915
End
Begin VB.Label Label5
Caption = "輸入密碼："
Height = 195
Left = 945
TabIndex = 19
Top = 675
Width = 915
End
Begin VB.Label Label6
Caption = "確認密碼："
Height = 195
Left = 945
TabIndex = 18
Top = 1035
Width = 960
End
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 285
Left = 3735
TabIndex = 9
Top = 4410
Width = 1050
End
Begin VB.CommandButton cmdOk
Caption = "確定"
Height = 285
Left = 2520
TabIndex = 8
Top = 4410
Width = 1050
End
Begin VB.Frame Frame1
Caption = "用戶資枓"
Height = 1815
Left = 90
TabIndex = 10
Top = 2430
Width = 5145
Begin VB.TextBox txtname
Height = 270
Left = 1215
TabIndex = 3
Top = 270
Width = 1500
End
Begin VB.ComboBox ComboSex
Height = 315
ItemData = "frmUserReg.frx":030A
Left = 3960
List = "frmUserReg.frx":0314
Style = 2 'Dropdown List
TabIndex = 4
Top = 270
Width = 780
End
Begin VB.TextBox txtCompanyName
Height = 270
Left = 1215
TabIndex = 5
Top = 630
Width = 2580
End
Begin VB.TextBox txtCompanyAddr
Height = 270
Left = 1215
TabIndex = 6
Top = 990
Width = 3525
End
Begin VB.TextBox txtHomeAddr
Height = 270
Left = 1215
TabIndex = 7
Top = 1350
Width = 3525
End
Begin VB.Label Label2
Caption = "性別："
Height = 285
Left = 3150
TabIndex = 15
Top = 315
Width = 690
End
Begin VB.Label Label3
Caption = "公司名稱："
Height = 285
Left = 315
TabIndex = 14
Top = 675
Width = 915
End
Begin VB.Label Label4
Caption = "公司地址："
Height = 240
Left = 315
TabIndex = 13
Top = 1035
Width = 915
End
Begin VB.Label lablel5
Caption = "家庭地址："
Height = 240
Left = 315
TabIndex = 12
Top = 1395
Width = 915
End
Begin VB.Label Label1
Caption = "姓名："
Height = 240
Left = 315
TabIndex = 11
Top = 315
Width = 690
End
End
Begin VB.Label Label8
Caption = "（不設置密碼即為沒有密碼）"
Height = 240
Left = 1665
TabIndex = 20
Top = 495
Width = 2400
End
Begin VB.Label Label7
Caption = "為防止別人未經您的許可查看您的個人資枓，您可以給您的記錄薄設置密碼。"
Height = 375
Left = 1710
TabIndex = 16
Top = 90
Width = 3390
End
Begin VB.Image Image1
Height = 480
Left = 585
Picture = "frmUserReg.frx":0320
Top = 135
Width = 480
End
End
Attribute VB_Name = "frmUserReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************
' 新用戶注冊
'******************************************************
Private Sub cmdCancel_Click()
Unload frmUserReg
End Sub
Private Sub cmdOK_Click()
Dim strUserID As String
Dim strUserName As String
Dim strSex As String
Dim strPassword As String
Dim strCompanyName As String
Dim strCompanyAddr As String
Dim strHomeAddr As String
Dim strErrMessage As String
Dim intChar As Integer
Dim i As Integer
On Error GoTo VBError
strUserID = Trim(txtUserID.Text)
strUserName = Trim(txtname.Text)
strSex = ComboSex.Text
strCompanyName = Trim(txtCompanyName.Text)
strCompanyAddr = Trim(txtCompanyAddr.Text)
strHomeAddr = Trim(txtHomeAddr.Text)
strPassword = Trim(txtPassword.Text)
'檢驗用戶輸入的帳戶資料和密碼是否合法
If Trim(strUserID) = "" Then
strErrMessage = "必須填寫用戶名" & vbCrLf
End If
If Trim(strUserName) = "" Then
strErrMessage = "必須填寫用戶姓名" & vbCrLf
End If
If Trim(strSex) = "" Then
strErrMessage = strErrMessage & "必須選擇性別" & vbCrLf
End If
If strPassword = txtOkPassword.Text Then
For i = 1 To Len(strPassword)
intChar = Asc(Mid(strPassword, i, 1))
If intChar < 33 And intChar > 126 Then
strErrMessage = strErrMessage & "密碼字符不能為空格、漢字、控制字符、擴展字符"
Exit For
End If
Next i
Else
strErrMessage = strErrMessage & "兩次輸入的密碼不一致"
End If
If strErrMessage <> "" Then
MsgBox strErrMessage, vbCritical, SYSTEMCAPTION
Exit Sub
End If
On Error GoTo ADOError
'插入新的帳戶記錄
strQry = "insert into user(ID,name,sex,companyname,companyaddress,homeaddress,password,lastlogintime) values('" & strUserID & "','" & strUserName & "','" & strSex & "','" & strCompanyName & "','" & strCompanyAddr & "','" & strHomeAddr & "','" & strPassword & "','" & Now() & "')"
cnnConnection.Execute strQry
strQry = "select ID from user where ID = '" & strUserID & "'"
Set rstCustomers = GetRecordSet(cnnConnection, strQry)
'設置登錄成功標志,記錄登錄成功的用戶
blnLoginFlag = True
userID = rstCustomers!ID
Unload frmUserReg
Done:
Set rstCustomers = Nothing
Exit Sub
ADOError:
DisplayADOErrors cnnConnection
VBError:
DisplayVBError
GoTo Done
End Sub
Private Sub Form_Unload(Cancel As Integer)
'加載主窗體
Load frmMain
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -