一、在機房中遇到的問題
問題一：
用msflexgrid控制項的時候，設定click事件以達到查詢的目的，並且將查詢內容顯示在控制項中，需要刪除上一次查詢的內容，有兩種方法。
第一種方法是，在第二次顯示內容的時候先判斷控制項的第二行是否有內容，有的話則刪除，用迴圈語句來判斷，直到第二行（除了第一行的表頭）沒有內容為空的時候，再顯示該顯示的內容。
第二種方法是，在第二次顯示的內容的時候，直接將內容顯示在控制項的第二行，將原內容覆蓋。呼叫該函式即可。**如下：
public sub viewdata()
txtsql = "select * from user_info where level = '" & combolevel.text & " ' "
set mrc = executesql(txtsql, msgtext)
with myflexgrid
.rows = 1 '直接從第二行開始顯示
.cellalignment = 4
'設定控制項的第一行內容
.textmatrix(0, 0) = "使用者名稱"
.textmatrix(0, 1) = "姓名"
.textmatrix(0, 2) = "開戶人"
do while not mrc.eof
.rows = .rows + 1
.cellalignment = 4
.textmatrix(.rows - 1, 0) = mrc.fields(0)
.textmatrix(.rows - 1, 1) = mrc.fields(3)
.textmatrix(.rows - 1, 2) = mrc.fields(4)
mrc.movenext
loop
end with
mrc.close
end sub
將msflexgrid控制項中顯示的資料匯入excel，首先要做好準備工作就是引用。
**如下：
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
private sub cmdexcel_click()
'判斷是否有記錄可供匯出
if myflexgrid.text = "" then
msgbox "沒有查詢結果", vbokonly + vbexclamation, "警告"
exit sub
else
set xlsheet = excel.activeworkbook.activesheet
for i = o to myflexgrid.rows - 1
for j = 0 to myflexgrid.cols - 1
xlsheet.cells(i + 1, j + 1) = myflexgrid.textmatrix(i, j)
next j
next i
end if
end sub
問題三msflexgrid控制項刪除指定行
首先先選中行，即設定滑鼠事件。
private sub myflexgrid_mousedown(button as integer, shift as integer, x as single, y as single)
nowrow = myflexgrid.mouserow '選中行的行號賦給nowrow
end sub
private sub myflexgrid_mouseup(button as integer, shift as integer, x as single, y as single)
txtnowrow.text = myflexgrid.textmatrix(nowrow, 0) '將選中行的第一列資料（即使用者名稱）賦給txtnowrow
end sub
private sub cmddelete_click()
'判斷是否選中行
if nowrow = 0 then
msgbox "沒有選中卡號", vbokonly + vbexclamation, "警告"
exit sub
end if
txtsql = "select * from user_info where userid = '" & txtnowrow.text & " ' "
set mrc = executesql(txtsql, msgtext)
if (trim(mrc.fields(0)) = trim(txtnowrow.text)) then
msgbox "使用者已刪除", vbokonly + vbexclamation, "警告"
mrc.delete
mrc.close
else
mrc.movenext
end if
end sub
1、屬性
row：單元格所在行
col：單元格所在列
textmatix：設定單元格內容
2、事件
mousedown / mouseup事件
click事件
3、方法
removeitem方法
additem方法
clear方法
機房收費系統 VB版 選擇下機
今天實現機房收費系統 一般使用者 學生上機狀態檢視 選中全部 部分下機部分收穫很多！多虧了看光哥的部落格，寫的很清楚機房收費系統 上機狀態查詢之下機 要顯示的 式寫查詢，就會出來這樣子 private sub 顯示全部 click dim txtsql as string dim msgtext a...
VB 機房收費系統（初）
管理許可權 機房收費系統，我覺得有點兒像網咖的系統，然後管理員呢，就像是最大的老闆，有著最高的許可權和所有的功能，也能檢視操作員的工作情況和盈利狀況，能調整上網的費用什麼的。而操作員，就像是老闆招的網管，功能就少了很多，能註冊使用者，充值，退卡等功能操作，一般使用者，就相當於我們這些去上網的孩子，只...
機房收費系統 VB版 新增和刪除使用者
功能 新增刪除各種使用者 包括 管理員，操作員，一般使用者 新增按鈕的邏輯 1.判斷是否將所有資訊正確填寫完畢 2.判斷是否這個使用者已存在，需要呼叫user info查詢是否有匹配項，存在則提醒，不存在就注入sql.刪除按鈕的邏輯 刪除使用者就是顯示出此型別使用者，選中要刪除的使用者。有三點注意的...