學生檢視上機記錄（MSFlexGrid載入資料 ）

2021-10-22 06:23:06 字數 3045 閱讀 9928

先放上**

​private sub cmdinquiry_click()


'判空if txtcardno = "" then


msgbox "卡號不能為空", vbokonly + vbexclamation, "警告"


txtcardno.setfocus


exit sub


else


'鏈結學生表


txtsql = "select cardno,studentname,ondate,ontime,offdate,offtime,consume,cash,status from line_info where offdate is not null and cardno='" & txtcardno.text & "'"


set mrc = executesql(txtsql, msgtext)


if mrc.eof then


msgbox " 沒有記錄", vbokonly + vbexclamation, "警告"


else


with msflexgrid1


.rows = 1


.textmatrix(0, 0) = "卡號"


.textmatrix(0, 1) = "姓名"


.textmatrix(0, 2) = "上機日期"


.textmatrix(0, 3) = "上機時間"


.textmatrix(0, 4) = "下機日期"


.textmatrix(0, 5) = "下機時間"


.textmatrix(0, 6) = "消費金額"


.textmatrix(0, 7) = "餘額"


.textmatrix(0, 8) = "備註"


cellalignment = 4 '單元格的內容居中、居中對齊


do while not mrc.eof


.rows = .rows + 1


.textmatrix(.rows - 1, 0) = trim(mrc.fields(0))


.textmatrix(.rows - 1, 1) = trim(mrc.fields(1))


.textmatrix(.rows - 1, 2) = mrc.fields(2)


.textmatrix(.rows - 1, 3) = mrc.fields(3)


.textmatrix(.rows - 1, 4) = mrc.fields(4)


.textmatrix(.rows - 1, 5) = mrc.fields(5)


.textmatrix(.rows - 1, 6) = mrc.fields(6)


.textmatrix(.rows - 1, 7) = mrc.fields(7)


.textmatrix(.rows - 1, 8) = mrc.fields(8)


mrc.movenext


loop


end with


end if


end if


end sub
在寫msflexgrid**上的列名的時候，和資料庫裡的字段要一致，開始使用的方法是是貼圖乙個個的對，然而還是出錯了，其實應該使用sql語句查詢的時候就按照列名去對著查詢，那麼就是從mrc.fields(0)字段開始順著往下面寫。

開始查詢時候使用*查詢所有字段，所以跟想顯示的字段位置並不是相對應的。如下面的**段和顯示的結果圖

select * from line_info where  offdate is not null and studentno=11
後面select後面直接跟想查詢的字段，方便了很多。

但是如上圖所示，使用者11是管理員，我所使用的就是管理員身份，所以今天登入的狀態裡並沒有下機時間和日期，出現了null.執行的時候也出現了錯誤。

除錯，下機日期提示出錯。如下圖

後面改了sql語句，在where後面加了條件，offdate不允許為空，offdate is not null。執行正常。但是這樣的話不能顯示現在正在上機的使用者資訊，不知道這樣的邏輯是否存在問題。

txtsql = "select cardno,studentname,ondate,ontime,offdate,offtime,consume,cash,status from line_info where offdate is not null and cardno='" & txtcardno.text & "'"


set mrc = executesql(txtsql, msgtext)
後面執行又出了新的問題，卡號和姓名不顯示，因此做了trim去除空格。

.textmatrix(.rows - 1, 0) = trim(mrc.fields(0))


.textmatrix(.rows - 1, 1) = trim(mrc.fields(1))

機房收費系統之學生檢視上機記錄

該窗體涉及到msflexgrid1控制項與及excle表的匯出，在這一步中所遇到的問題如下 1 下標越界381 下標越界 原因 是在myflexgrid中溢位問題 該窗體的思路，沒有用流程圖，手動大概寫了一下，具體如下 判斷卡號是否為空 為空，提示 不為空，連線student資料庫 存在，連線lin...

ArcGIS 發布SLPK 檢視上傳速度

portal slpk儲存於couchdb couchdb 是非關係型資料庫，有 下一代web儲存 之稱。datastore將slpk資料報及發布的sceneservice 儲存於couchdb 登入https portal.com.cn server manager site.html 驗證arc...

linux 終端 檢視上一頁

問題描述 我在終端中使用 dpkg l 命令顯示主機中安裝的軟體時，發現內容很多，而當命令執行完畢後，只顯示終端最後一屏的內容。前面的都無法檢視，這個是很讓人憋屈的。下面就這乙個問題說一下我的解決方法。解決方法 一 在執行命令的時候在後面加個 more 就如同我使用 dpkg l more 然後按回...