上機的基本思路就是，先查詢卡號是否存在，是否已經上機，如果符合要求就新增上機記錄和上機狀態，這個還是比較簡單的，不是特別的複雜
dim mrc1 as adodb.recordset '用來儲存online_info 的sql語句
dim txtsql1 as string '用來接收返回的結果
if txtcardname.text = "" then
msgbox "卡號不能為空", vbokcancel + vbexclamation, "警告"
exit sub
end if
txtsql = "exec proc_sutdentinfo_select @cardno = '" & txtcardname.text & "'" '連線資料庫判斷文字是否存在
set mrc = executesql(txtsql, msgtext)
if mrc.eof then
msgbox "卡號不存在", vbokcancel + vbexclamation, "警告"
exit sub
else
txtsql1 = "exec proc_online_info @cardno = '" & txtcardname.text & "'" '連線online表判斷是否已經上機
set mrc1 = executesql(txtsql1, msgtext)
if mrc1.eof then '如果查不到說明沒有上機
txtcardname.text = mrc.fields(0)
txtsid.text = mrc.fields(1)
txtname.text = mrc.fields(2)
combo***.text = mrc.fields(3)
txtdepartment.text = mrc.fields(4)
txttype.text = mrc.fields(10)
txtupdate.text = date
txtuptime.text = time
txtbalance.text = mrc.fields(9)
txtcomputername.text = vba.environ("computername")
mrc.close '關閉學生表
mrc1.addnew
mrc1.fields(0) = txtcardname.text
mrc1.fields(1) = txttype.text
mrc1.fields(2) = txtsid.text
mrc1.fields(3) = txtname.text
mrc1.fields(4) = txtdepartment.text
mrc1.fields(5) = combo***.text
mrc1.fields(6) = txtupdate.text
mrc1.fields(7) = txtuptime.text
mrc1.fields(8) = txtcomputername.text
mrc1.fields(9) = now
mrc1.update
mrc1.close '關閉上機表
else
msgbox "此卡號已上機", vbokcancel + vbexclamation, "警告"
exit sub
end if
end if
dim mrc2 as adodb.recordset '用來訪問line表儲存記錄
dim txtsql2 as string '用來接收返回的結果
txtsql2 = "exec proc_line_info" '連線online表新增上機記錄，下機的時候還要進行更改
set mrc2 = executesql(txtsql2, msgtext)
mrc2.addnew
mrc2.fields(0) = txtcardname.text
mrc2.fields(1) = txtsid.text
mrc2.fields(2) = txtname.text
mrc2.fields(3) = txtdepartment.text
mrc2.fields(4) = combo***.text
mrc2.fields(5) = txtupdate.text
mrc2.fields(6) = txtuptime.text
mrc2.fields(10) = txtbalance.text
mrc2.fields(11) = "正常上機"
mrc2.fields(12) = trim(txtcomputername.text)
mrc2.update
msgbox "上機成功", vbokcancel + vbexclamation, "提示"
mrc2.close
label9.caption = label9.caption + 1
第一次上機
1 已知a,b均是整型變數，寫出將a,b兩個變數中 的值互換的程式。知識點 變數和運算子綜合 應用 2 給定乙個0 1000的整數，求各位數的和，例 如345的結果是3 4 5 12注 分解數字既可以先 除後模也可以先模後除 知識點 變數和運算子 綜合應用 3 華氏溫度和攝氏溫度互相轉換，從華氏度變...
第一次上機
1 已知a,b均是整型變數，寫出將a,b兩個變數中的值互換的程式。知識點 變數和 運算子綜合應用 package aaaa public class caaas 2給定乙個0 1000的整數，求各位數的和，例 如345的結果是3 4 5 12注 分解數字既可以先 除後模也可以先模後除 知識點 變數和...
第一次上機報告
一 問題及 檔名稱 作 者 譚星宇 完成日期 2016 年3月10 日 版 本 號 v1.0 對任務及求解方法的描述部分 輸入兩個整數a和b，輸出它們的和及差 輸入描述 問題描述 在輸入a。b值得時候多次輸入 不能識別 程式輸出 輸出它們的和及差 問題分析 演算法設計 三 心得體會 在程式設計序的過...