📄 frmfixdeposit4.frm
字号:
VERSION 5.00
Begin VB.Form frmFixDeposit4
BackColor = &H00404040&
BorderStyle = 1 'Fixed Single
Caption = "定期存款：完成"
ClientHeight = 4020
ClientLeft = 45
ClientTop = 435
ClientWidth = 7905
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4020
ScaleWidth = 7905
Begin VB.CommandButton cmdBack
Caption = "上一步"
Height = 345
Left = 2520
TabIndex = 3
Top = 3240
Width = 975
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
Height = 345
Left = 4920
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 = 3840
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 = 3840
PasswordChar = "*"
TabIndex = 2
Top = 2520
Width = 2415
End
Begin VB.CommandButton cmdFinally
Caption = "完 成"
Default = -1 'True
Height = 345
Left = 3720
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 = 1920
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 = 1560
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 = 3240
TabIndex = 9
Top = 1560
Width = 1620
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 0
X2 = 9000
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 = 0
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 = 3000
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 = 7200
TabIndex = 6
Top = 360
Width = 675
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 1
X1 = 0
X2 = 9000
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 = 1800
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 thePassword 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).Text = ""
txt(1).Text = ""
txt(0).SetFocus
Exit Sub
End If
thePassword = txt(0).Text
Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
con.Open
con.Execute "insert FConsumers values('" & theID & "','" & theName & "','" & thePassword & "'," & theMoney & "," & thePassTime & ",'" & theStationID & "','" & theAddress & "','" & thePhone & "','" & theCAccrual & "'," & theFAccrual & ",'" & userName & "','1','')"
con.Close
MsgBox "你的账号是：" & theID
If MsgBox("存款成功，是否需要打印存根", vbOKCancel, "提示") = vbOK Then
frmPrintFDed.lbl(1).Caption = theID
frmPrintFDed.lbl(2).Caption = theName
frmPrintFDed.lbl(3).Caption = theMoney
frmPrintFDed.lbl(4).Caption = theDepositTime
frmPrintFDed.lbl(5).Caption = theFetchTime
frmPrintFDed.lbl(6).Caption = thePassTime
frmPrintFDed.lbl(7).Caption = (theFAccrual / 100 * thePassTime) * theMoney
frmPrintFDed.lbl(8).Caption = theFAccrual
frmPrintFDed.lbl(9).Caption = userName
frmPrintFDed.PrintForm
Unload frmPrintFDed
End If
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -