p; "'" rs.Open e, cnk, adOpenKeyset, adLockOptimistic
‘改变卡状态标识
（6） 个人卡解挂失
e = " update KXX set kztbs='00' where kh='" & (txtkh.Text) & "'"
rs.Open e, cnk, adOpenKeyset, adLockOptimistic
‘改变卡状态标识
（7） 个人卡销户
f = "select * from GRZHXX where kyyxlh='" & Trim(txtkh.Text) & "'"
rsf.Open f, cnk, adOpenKeyset, adLockOptimistic
Dim a As Integer
q = DateDiff("m", (rsf!cjrq), Now) ‘计算卡使用时间
Dim w As Single
If q < 6 Then
xx = MsgBox("卡开户未满六个月，不能销户！", vbExclamation, "消息")
cmdrec.Enabled = False
cmdret.SetFocus
Else
w = (Val(txtye.Text) + Val(txtyj.Text) - q) ‘计算找还金额
txtzh.Text = w ‘显示找还金额
txtzj.Text = q ‘显示折旧费
End if
（8） 卡消费交易
s = " select * from KXX join KLXXX on KXX.klxbs=KLXXX.Klxbs join KZTXX on KXX.kztbs=KZTXX.kztbs where kh ='" & (txtkh.Text) & "'"
rsk.Open s, cnkjy, adOpenKeyset, adLockOptimistic
‘读卡信息
sr = "select * from KJYJL where jyrq='" & (Date) & "' and xfdbh='" & Trim(txtxfd.Text) & "'"
rsy.Open sr, cnkjy, adOpenKeyset, adLockOptimistic
‘查询上次交易流水号
If rsy.EOF Then
txtxh.Text = "000001"
kjyxh = 1
Else
rsy.MoveLast
kjyxh = (Val(rsy!jyxh) + 1) ‘计算本次交易流水号
txtxh = String((7 - Len(kjyxh)), "0") & (kjyxh)
‘显示本次交易流水号
ss = " insert into KJYJL values('" & (Date) & "','" & Trim(txtxfd.Text) & "','" & Trim(txtxh.Text) & "','" & Trim(txtkh.Text) & "','" & Trim(txtje(1).Text) & "','" & Trim(txtsf.Text) & "')"
rsj.Open ss, cnkjy, adOpenKeyset, adLockOptimistic
‘记录本次消费信息
s1 = "update ZPXX set Zpdzrq='" & (Date) & "' where Zph='" & Trim(txth.Text) & "'"
rss.Open s1, cnz, adOpenKeyset, adLockOptimistic
‘更改支票信息
f = " insert into DWCZMX values ('" & (o) & "','" & (Date) & "')" rss1.Open f, cnz, adOpenKeyset, adLockOptimistic
‘记录单位充值信息
k1 = "select * from KJKMSZ where Kjkmbh='00'"
rs1.Open k1, cnz, adOpenKeyset, adLockOptimistic
If rs1.EOF Then
k2 = "insert into KJKMSZ values ('" & (Date) & "','00','0','" & Trim(txtz(2).Text) & "','" & Trim(txtz(2).Text) & "')"
rs2.Open k2, cnz, adOpenKeyset, adLockOptimistic
Else
rs1.MoveLast
If rs1!Jyrq <> (Date) Then
Dim q As Single
q = rs1!Ye
q = (q + Val(txtz(2).Text))
k3 = "insert into KJKMSZ values ('" & (Date) & "','00','0','" & Trim(txtz(2).Text) & "','" & (q) & "')"
rs3.Open k3, cnz, adOpenKeyset, adLockOptimistic
Else
Dim w, w1 As Single
w = rs1!Dffse
w1 = rs1!Ye
k4 = "update KJKMSZ set Dffse='" & (Val(txtz(2).Text) + w) & "',Ye='" & (Val(txtz(2).Text) + w1) & "' where Jyrq='" & (Date) & "' and Kjkmbh='00'"
rs4.Open k4, cnz, adOpenKeyset, adLockOptimistic
End if
End if
‘更改会计科目收支信息
（11） 会计科目收支查询
On Error Resume Next‘错误处理后，返回到出错语句的下一句
Select Case Index
Case 0 '首记录 ‘查询首记录
rskjsz.MoveFirst
txt(0).Text = rskjsz!Jyrq
Dim i1 As Integer
i1 = 2
Do While i1 <= 4 ‘显示记录
txt(i1).Text = rskjsz.Fields(i1)
i1 = i1 + 1
Loop
Case 1 '上一条 ‘查询上一条记录
rskjsz.MovePrevious
If rskjsz.BOF Then
rskjsz.MoveFirst
xx = MsgBox("本条为首记录", vbExclamation, "消息")
End If ‘提示处于首记录位置
txt(0).Text = rskjsz!Jyrq
Dim i2 As Integer
i2 = 2
Do While i2 <= 4
txt(i2).Text = rskjsz.Fields(i2)
i2 = i2 + 1
Loop
Case 2 '下一条 ‘查询下一条记录
rskjsz.MoveNext
If rskjsz.EOF Then
rskjsz.MoveLast
xx = MsgBox("本条为末记录", vbExclamation, "消息")
End If ‘提示处于末记录位置
txt(0).Text = rskjsz!Jyrq
Dim i3 As Integer
i3 = 2
Do While i3 <= 4
txt(i3).Text = rskjsz.Fields(i3)
i3 = i3 + 1
Loop
Case 3 '末记录 ‘查询末记录
rskjsz.MoveLast
txt(0).Text = rskjsz!Jyrq
Dim i4 As Integer
i4 = 2
Do While i4 <= 4
txt(i4).Text = rskjsz.Fields(i4)
i4 = i4 + 1
Loop
End Select
