【VB开源代码栏目提醒】：网学会员VB开源代码为您提供frmFixDeposit4.frm参考，解决您在frmFixDeposit4.frm学习中工作中的难题，参考学习。
VERSION 5.00
Begin VB.Form frmFixDeposit4
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "定期存款：完成"
ClientHeight = 4020
ClientLeft = 45
ClientTop = 435
ClientWidth = 5970
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4020
ScaleWidth = 5970
Begin VB.CommandButton cmdBack
Caption = "上一步"
Height = 345
Left = 1440
TabIndex = 3
Top = 3240
Width = 975
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
Height = 345
Left = 3840
TabIndex = 5
Top = 3240
Width = 975
End
Begin VB.TextBox txt
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
IMEMode = 3 'DISABLE
Index = 0
Left = 2760
PasswordChar = "*"
TabIndex = 1
Top = 2040
Width = 2415
End
Begin VB.TextBox txt
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
IMEMode = 3 'DISABLE
Index = 1
Left = 2760
PasswordChar = "*"
TabIndex = 2
Top = 2520
Width = 2415
End
Begin VB.CommandButton cmdFinally
Caption = "完 成"
Default = -1 'True
Height = 345
Left = 2640
TabIndex = 4
Top = 3240
Width = 975
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请用户输入帐户密码："
ForeColor = &H00FFFFFF&
Height = 180
Index = 4
Left = 840
TabIndex = 11
Top = 2160
Width = 1800
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请用户再次输入帐户密码："
ForeColor = &H00FFFFFF&
Height = 180
Index = 5
Left = 480
TabIndex = 10
Top = 2640
Width = 2160
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "(密码不得大于12位)"
ForeColor = &H00FFFFFF&
Height = 180
Index = 6
Left = 2160
TabIndex = 9
Top = 1560
Width = 1620
End
Begin
VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 240
X2 = 5520
Y1 = 600
Y2 = 600
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Finally"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 0
Left = 240
TabIndex = 8
Top = 360
Width = 840
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "完成定期存款"
BeginProperty Font
Name = "华文新魏"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 315
Index = 2
Left = 1920
TabIndex = 7
Top = 240
Width = 1890
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第四步"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 1
Left = 4920
TabIndex = 6
Top = 360
Width = 675
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 1
X1 = 240
X2 = 5520
Y1 = 960
Y2 = 960
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "将用刚打印出来的单子，交由用户签名后收回！"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 3
Left = 720
TabIndex = 0
Top = 720
Width = 4410
End
End
Attribute VB_Name = "frmFixDeposit4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''详细说明请参照 frmOAA4↓
Public theID As String
Public theName As String
Public thePass
word As String
Public thePhone As String
Public theStationID As String
Public theAddress As String
Public theMoney As Double
Public thePassTime As Double
Public theDepositTime As String
Public theFetchTime As String
Public theFAccrual As Double
Public theCAccrual As Double
Public theNowTime As String
'响应 "上一步" 铵钮
Private Sub cmdBack_Click()
Unload Me
frmFixDeposit3.Show
End Sub
'响应 "取消" 铵钮
Private Sub cmdCancel_Click()
Unload Me
End Sub
'响应 "完成" 铵钮
Private Sub cmdFinally_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'判断输入的正确性↓
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''密码长度的正确性↓
If Len(txt(0)) > 12 Or Len(txt(1)) > 12 Then
MsgBox "密码不得长于12位", vbExclamation, "提示"
txt(0).Text = ""
txt(1).Text = ""
txt(0).SetFocus
Exit Sub
End If
''''''''''''''''''''''密码验证的正确性↓
If txt(0) <> txt(1) Then
MsgBox "两次密码输入不一样，请重新输入", vbExclamation, "提示"
txt(0).T
相关文章
2013-9-1
