机房收费系统之——利用数组添加多条记录

机房收费系统做到全部强制下机时，需要将正在上机表的所有用户记录删除，并且将下机所有用户的下机信息添加到上下机记录表中。

单个记录删除和添加这个很好实现，但是成批量的删除和添加记录确实很让我困扰。成批量的话自然就想到了数组，以下就是我利用数组来实现的代码。

'=========首先先将正在上机表里的记录删除，同时将上机卡号的所有用户信息输出给数组变量

txtSQL = "select * fromOnline_Info "

Set mrcOnline = ExecuteSQL(txtSQL,MsgText)

a = mrcOnline.RecordCount

Do While Not mrcOnline.EOF

If mrcOnline.RecordCount = 0 Then

Exit Do

Else

For i = 1 To a

mrcOnline.MoveFirst

StrCardId(i) =Trim(mrcOnline.Fields(0))

StrName(i) =Trim(mrcOnline.Fields(1))

StrDate(i) =Trim(mrcOnline.Fields(2))

StrTime(i) =Trim(mrcOnline.Fields(3))

mrcOnline.Delete

Next i

End If

Loop

MsgBox "全部下机成功！", vbOKOnly +vbExclamation, "提示"

MSHFlexGrid1.Clear

'========往余额表里添加所有用户的下机余额

For i= 1 toa

txtSQL = "select * fromRemainMoney_Info where Card_ID='" & StrCardId(i) & "'"

Set mrcRemainMoney =ExecuteSQL(txtSQL, MsgText)

mrcRemainMoney.MoveLast

StrRemainMoney(i) =mrcRemainMoney.Fields(1)

NowStrRemainMoney(i) =Val(StrRemainMoney(i)) - Val(StrCostMoney(i))

mrcRemainMoney.MoveLast

mrcRemainMoney.AddNew

mrcRemainMoney.Fields(0) =StrCardId(i)

mrcRemainMoney.Fields(1) =NowStrRemainMoney(i)

mrcRemainMoney.Update

mrcRemainMoney.Close

'=========往上下机记录表里添加所有用户的下机记录信息

txtSQL = "select * fromLineRecord_Info " 'where Card_ID='" & strcardid(i) &"'"

Set mrcLine = ExecuteSQL(txtSQL,MsgText)

'往记录表里添加信息

mrcLine.AddNew

mrcLine.Fields(0) = StrCardId(i)

mrcLine.Fields(1) = StrName(i)

mrcLine.Fields(2) = StrDate(i)

mrcLine.Fields(3) = StrTime(i)

mrcLine.Fields(4) = StrEndDate

mrcLine.Fields(5) = StrEndTime

mrcLine.Fields(6) = StrCostMoney(i)

mrcLine.Fields(7) =NowStrRemainMoney(i)

mrcLine.Fields(8) = "强制下机"

mrcLine.Update

mrcLine.Close

Next i

欢迎大家多提意见。