机房收费系统之下机

下机找好逻辑然后慢慢来，平静下心来，其实也不难。 主要逻辑和上机还是挺像的。 如图： 部分代码如下： 一、判断卡号是否为空： If Trim(txtCardno.Text) = "" Then MsgBox "请输入卡号，卡号不能为空！", 48, "提示" Exit Sub '防止错误 3021 二、判断此卡是否存在 Else txtsql = "select * fro

>>阅读原文<<