?? frmfetch.frm
字號:
VERSION 5.00
Begin VB.Form frmFetch
BackColor = &H80000007&
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 5445
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 5445
StartUpPosition = 3 '窗口缺省
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 = 2
Left = 2160
TabIndex = 4
Top = 1800
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 = 2160
TabIndex = 3
Top = 1320
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 = 0
Left = 2160
TabIndex = 2
Top = 840
Width = 2415
End
Begin VB.CommandButton cmdFinally
Caption = "完 成"
Default = -1 'True
Height = 345
Left = 1800
TabIndex = 1
Top = 2400
Width = 975
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
Height = 345
Left = 3120
TabIndex = 0
Top = 2400
Width = 975
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
X1 = -720
X2 = 6840
Y1 = 480
Y2 = 480
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 = 2520
TabIndex = 8
Top = 120
Width = 630
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請再次輸入取款金額："
ForeColor = &H00FFFFFF&
Height = 180
Index = 3
Left = 240
TabIndex = 7
Top = 1920
Width = 1800
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請輸入取款金額："
ForeColor = &H00FFFFFF&
Height = 180
Index = 1
Left = 600
TabIndex = 6
Top = 1440
Width = 1440
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請輸入帳戶號碼："
ForeColor = &H00FFFFFF&
Height = 180
Index = 4
Left = 600
TabIndex = 5
Top = 960
Width = 1440
End
End
Attribute VB_Name = "frmFetch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim money As Double
Dim balance As Double
Dim rst As Recordset
Dim password As String
Dim i As Integer
Dim nowDate As String
Dim DDate As String
Dim nowTime As String
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdFinally_Click()
Set rst = New Recordset
nowTime = Now
nowDate = Format(nowTime, "yyyy") + Format(nowTime, "mm") + Format(nowTime, "dd") + Format(nowTime, "hh") + Format(nowTime, "nn") + Format(nowTime, "ss")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'驗證用戶輸入的正確性↓
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''取款金額的正確性↓
If txt(1) <> txt(2) Then
MsgBox "請確定兩次輸入的取款金額相同！"
Exit Sub
End If
''''''''''''''''''''''''''''''''''''金額輸入的正確性↓
Dim getErr As Boolean
getErr = True
On Error GoTo errMoney
money = CDbl(txt(1).Text)
getErr = False
errMoney:
If getErr = True Then
MsgBox "請確定您所輸入的金額是數值！"
Exit Sub
End If
''''''''''''''''''''''''''''''''''''賬戶的正確性
Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
con.Open
getErr = True
On Error GoTo errID
rst.Open "select * from CConsumers where id='" & txt(0).Text & "'", con, adOpenDynamic, adLockOptimistic
rst.Close
getErr = False
errID:
If getErr = True Then
MsgBox "您所輸入的帳戶號不存在！"
Exit Sub
End If
Call frmQuery.QueryID(txt(0).Text)
'''''''''''''''''''''''''''''''''''''''''''取款金額的大小的正確性↓
Dim have As Boolean
have = False
On Error GoTo errHave
rst.Open "select * from " & txt(0).Text, con, adOpenDynamic, adLockOptimistic
rst.MoveFirst
have = True
errHave:
If have = False Then
MsgBox "您的銀行余額為0，不能進行存款！"
Exit Sub
Else
i = 0
Do While Not rst.EOF
i = i + 1
rst.MoveNext
Loop
End If
If i = 1 Then
rst.MoveFirst
Else
rst.MoveLast
End If
If money > CDbl(rst!balance) Then
MsgBox "此帳戶的銀行余額為 " & CDbl(rst!balance)
MsgBox "取款金額大于銀行余額，不能提取！"
Exit Sub
Else
balance = CDbl(rst!balance)
DDate = CDbl(rst!Wdate)
End If
rst.Close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'如果輸入全部正確，則↓
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
frmIBF.passTime = (CDbl(Mid(nowDate, 1, 4)) - CDbl(Mid(DDate, 1, 4))) * 12 + (CDbl(Mid(nowDate, 5, 2)) - CDbl(Mid(DDate, 5, 2)))
frmIBF.consumerID = txt(0).Text
frmIBF.consumerMoney = money
frmIBF.balance = balance
frmIBF.nowDate = nowDate
frmIBF.nowTime = nowTime
frmIBF.DDate = DDate
frmIBF.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -