機房【上機】

    流程圖如下： 部分重要代碼如下： Private Sub cmdOnLine_Click() Dim mrc_li As ADODB.Recordset '判斷卡號是否爲空 If Trim(txtCardno.Text) = "" Then MsgBox "請輸入卡號！", 48 txtCardno.Text = ""

>>阅读原文<<