机房【上机】

    流程图如下： 部分重要代码如下： Private Sub cmdOnLine_Click() Dim mrc_li As ADODB.Recordset '判断卡号是否为空 If Trim(txtCardno.Text) = "" Then MsgBox "请输入卡号！", 48 txtCardno.Text = ""

>>阅读原文<<