前言:这两个窗体代码逻辑基本类似,开始正文
逻辑图:
重要代码展示:
从下机来说下机时间的确定是一个承上启下的作用
basicSQL = "select * from BasicData_Info " ’连接基本数据表
Set basicmrc = ExecuteSQL(basicSQL, basicText)
If onlinemrc.RecordCount = 0 Then '处理3021
Exit Sub
Else
txtConsume.Text = DateDiff("n", onlinemrc.Fields(9), Format(Now, "yyyy/mm/dd h:mm:ss"))'判断时间间隔
If Val(txtConsume.Text) < basicmrc.Fields(4) Then
txtConscash.Text = 0
Else
If Val(txtConsume.Text) > 60 Then
If txtType.Text = "固定用户" Then
txtConscash.Text = Int(basicmrc.Fields(0) / 60 * Val(txtConsume.Text))
Else
txtConscash.Text = Int(basicmrc.Fields(1) / 60 * Val(txtConsume.Text))
End If
Else
If txtType.Text = "临时用户" Then
txtConscash.Text = basicmrc.Fields(1)
Else
txtConscash.Text = basicmrc.Fields(0)
End If
End If
End If
End If
总结:上下机理清思路之后,没有那么难,每个人处理代码的方式不一样,尽量让代码变得简单。