第一次機房收費系統之正在值班教師

對於其他的窗體來說，「正在值班教師」這個窗體就相對來說比較簡單了，只需要把此窗體連線到onwork表即可。

'新增表頭

with mshflexgrid1
.cellalignment = 4 '**居中對齊
.textmatrix(0, 0) = "記錄號"
.textmatrix(0, 1) = "教師"
.textmatrix(0, 2) = "級別"
.textmatrix(0, 3) = "登入日期"
.textmatrix(0, 4) = "登入時間"
.textmatrix(0, 5) = "機器名"
end with
dim txtsql as string
dim mrc as adodb.recordset
dim msgtext as string
txtsql = "select * from onwork_info" '連線onwork表
set mrc = executesql(txtsql, msgtext)
with mshflexgrid1
.rows = .rows + 1
.cellalignment = 4 '**居中對齊
.textmatrix(.rows - 2, 1) = trim(mrc.fields(0))
.textmatrix(.rows - 2, 2) = trim(mrc.fields(1))
.textmatrix(.rows - 2, 3) = trim(mrc.fields(2))
.textmatrix(.rows - 2, 4) = trim(mrc.fields(3))
.textmatrix(.rows - 2, 5) = trim(mrc.fields(4))
end with
mrc.close

第一次機房收費系統 幽夢

經過了分析需求 基本配置。終於開始敲機房了。第一步就是敲模組，我只能按照學生資訊管理系統的模組照葫蘆畫瓢。稍微改改，雖然當時整學生時把模組的 一句一句的查了一遍，但到現在還是不懂。不管怎樣，接著進行吧。於是，正式開始了！0.0 登入 在敲登入窗體時，還是要參考學生資訊管理系統。這第一句 就讓我一頭霧...

第一次機房收費系統總結

1.sub與function的區別 1 sub 過程，不需要返回值 function 函式,可以帶返回值 2 語法 sub subname 引數1,引數2,end sub function functionname 引數1,引數2,functionname 返回值 end function 2.如何...

第一次機房收費系統 總攻

前言 今天終於驗完了機房收費系統，驗完後感覺如釋重負 終於結束了。這次的驗專案相比上次的完善功能相比，更多的是對邏輯 使用者體驗的要求，所以這次的驗證相比上次來說要重要的多 因為後面我們會不斷進行機房收費系統的重構，而第一遍的邏輯若能梳理好，那麼後面不僅會輕鬆，更會少走不必要的彎路。首先我先來總結一...