📄 frmsave.frm
字号:
VERSION 5.00
Begin VB.Form frmSave
BorderStyle = 3 'Fixed Dialog
Caption = "个人充值"
ClientHeight = 3225
ClientLeft = 45
ClientTop = 330
ClientWidth = 3810
Icon = "frmSave.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3225
ScaleWidth = 3810
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdSave
Caption = "充 值"
Height = 375
Left = 1680
TabIndex = 3
Top = 2640
Width = 855
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2760
TabIndex = 4
Top = 2640
Width = 855
End
Begin VB.Frame Frame1
Caption = "个人充值"
Height = 2295
Left = 240
TabIndex = 0
Top = 240
Width = 3375
Begin VB.CommandButton cmdList
Caption = "..."
Height = 255
Left = 2520
TabIndex = 11
Top = 360
Width = 495
End
Begin VB.TextBox txtC_ID
Height = 270
Left = 1320
MaxLength = 10
TabIndex = 1
Top = 360
Width = 1215
End
Begin VB.ComboBox cboMoney
Height = 300
ItemData = "frmSave.frx":000C
Left = 1320
List = "frmSave.frx":0025
Style = 2 'Dropdown List
TabIndex = 2
Top = 800
Width = 1215
End
Begin VB.Label lblYuan
AutoSize = -1 'True
Caption = "元"
Height = 180
Left = 2640
TabIndex = 12
Top = 840
Width = 180
End
Begin VB.Label lblMoneyTT
AutoSize = -1 'True
Height = 180
Left = 1440
TabIndex = 10
Top = 1800
Width = 90
End
Begin VB.Label lblMoneySS
AutoSize = -1 'True
Caption = "剩余金额："
Height = 180
Left = 240
TabIndex = 9
Top = 1800
Width = 900
End
Begin VB.Label lblCH_nameList
AutoSize = -1 'True
Height = 180
Left = 1440
TabIndex = 8
Top = 1320
Width = 90
End
Begin VB.Label lblCH_name
AutoSize = -1 'True
Caption = "持卡人姓名："
Height = 180
Left = 240
TabIndex = 7
Top = 1320
Width = 1080
End
Begin VB.Label LblC_ID
AutoSize = -1 'True
Caption = "持卡人ID："
Height = 180
Left = 240
TabIndex = 6
Top = 405
Width = 900
End
Begin VB.Label lblMoney
AutoSize = -1 'True
Caption = "充值金额："
Height = 180
Left = 240
TabIndex = 5
Top = 840
Width = 900
End
End
End
Attribute VB_Name = "frmSave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RsCardholder As Recordset
Dim rsSaving As Recordset
Dim rsCardholderTemp As Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdList_Click()
frmCardholderList.StrForm = "frmSave"
frmCardholderList.Show 1
txtC_ID.SetFocus
End Sub
Private Sub cmdSave_Click()
If Judge = True Then
If MsgBox("确实要充值吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
SaveInfo
cboMoney.ListIndex = -1
lblCH_nameList.Caption = ""
lblMoneyTT.Caption = ""
End If
End If
End Sub
Private Function Judge() As Boolean
If Trim(txtC_ID) = "" Then
MsgBox "持卡人ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtC_ID.SetFocus
ElseIf Trim(cboMoney.Text) = "" Then
MsgBox "充值金额不能为空", vbOKOnly + vbExclamation, "机房管理"
cboMoney.SetFocus
Else
Judge = True
End If
End Function
Private Sub SaveInfo()
RsCardholder.Fields!Money = CDbl(RsCardholder.Fields!Money) + CDbl(cboMoney.Text)
RsCardholder.Update
If RsCardholder.Fields!State = "上机" Then
Set rsCardholderTemp = New Recordset
rsCardholderTemp.Open "select * from TbCardholderTemp where CH_ID like '" & RsCardholder.Fields!CH_ID & "' ", Modmain.conn, 3, 2
rsCardholderTemp.Fields!startmoney = CDbl(rsCardholderTemp.Fields!startmoney) + CDbl(cboMoney.Text)
rsCardholderTemp.Fields!Money = CDbl(rsCardholderTemp.Fields!Money) + CDbl(cboMoney.Text)
rsCardholderTemp.Update
Set itmX = frmmain.lvwPerson.FindItem(RsCardholder.Fields!CH_ID, , , lvwPartial) '改变lvwPweson控件的金额值
itmX.SubItems(10) = CDbl(rsCardholderTemp.Fields!Money) + CDbl(cboMoney.Text)
End If
Set rsSaving = New Recordset
rsSaving.Open "select * from TbSaving ", Modmain.conn, 3, 2
With rsSaving
.AddNew
.Fields!C_ID = txtC_ID.Text
.Fields!Date = Date
.Fields!Money = cboMoney.Text
.Fields!Type = "个人充值"
.Fields!U_ID = frmLoad.StrU_ID
.Update
End With
Dim strinfo As String
strinfo = RsCardholder.Fields!CH_Name & "充值 " & CStr(cboMoney.Text) & "元"
MsgBox strinfo, vbDefaultButton1, "机房管理"
AddLog '记入操作日志
End Sub
Private Sub txtC_ID_Change()
txtC_ID.Text = Left(txtC_ID.Text, 1) & UCase(Mid(txtC_ID.Text, 2, 1)) & Right(txtC_ID.Text, 8)
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where ch_ID like '" & txtC_ID.Text & "'", Modmain.conn, 3, 2
lblCH_nameList.Caption = RsCardholder.Fields!CH_Name
lblMoneyTT.Caption = RsCardholder.Fields!Money
If RsCardholder.RecordCount = 0 Then
MsgBox "您输入的卡号不存在，请确认后重新输入", vbOKOnly + vbExclamation, "机房管理"
txtC_ID.Text = ""
txtC_ID.SetFocus
End If
SendKeys "{tab}"
End Sub
Private Sub txtC_ID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or Len(txtC_ID.Text) = 10 Then
txtC_ID.Text = Left(txtC_ID.Text, 1) & UCase(Mid(txtC_ID.Text, 2, 1)) & Right(txtC_ID.Text, 8)
Set RsCardholder = New Recordset
RsCardholder.Open "select * from TbCardholder where ch_ID like '" & txtC_ID.Text & "'", Modmain.conn, 3, 2
lblCH_nameList.Caption = RsCardholder.Fields!CH_Name
lblMoneyTT.Caption = RsCardholder.Fields!Money
If RsCardholder.RecordCount = 0 Then
MsgBox "您输入的卡号不存在，请确认后重新输入", vbOKOnly + vbExclamation, "机房管理"
txtC_ID.Text = ""
txtC_ID.SetFocus
End If
SendKeys "{tab}"
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''将用户个人充值的信息记入操作日志 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddLog()
Dim strEvents As String
Dim strTemp As String
strTemp = "'"
Set rsOperateLog = New Recordset
rsOperateLog.Open "select * from tbOperateLog", Modmain.conn, 3, 2
Set rsLog = New Recordset
rsLog.Open "select * from tblog where L_ID='L26'", Modmain.conn, 3, 2
strEvents = rsLog.Fields!Events
rsOperateLog.AddNew
rsOperateLog.Fields!U_ID = frmLoad.StrU_ID
rsOperateLog.Fields!Time = Time
rsOperateLog.Fields!Date = Date
rsOperateLog.Fields!Events = strEvents
rsOperateLog.Fields!Description = strTemp & txtC_ID.Text & strTemp & strEvents
rsOperateLog.Update
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -