機房完結篇

2021-08-13 07:40:40 字數 1747 閱讀 5296

做著做著這個大一點的專案就被我做完了。

從開始的不知從何入手,到後來的對大多數問題應對自如,這個過程只有自己親身體會過了才能深刻感受到自己真的學到了不少。

既然是完結篇,我就總結一下完成之前做的最後的工作吧:

1、建立mdi窗體。

一開始沒有意識到這個問題,最後優化的時候加上mdi窗體發現子窗體都出不來了。原來只是被mdi窗體上的picture給擋住了,想辦法把子窗體顯示在上就行了:

模組定義:

public declare function setparent lib "user32" (byval hwndchild as long, byval hwndnewparent as long) as long

main窗體:
frmmodifyuserinfo.show

setparent frmmodifyuserinfo.hwnd, picture1.hwnd

2、金額動態查詢

上機過程中卡里的餘額扣完了怎麼辦?還在上機?必須得強制下機啊

技術點:新增timer控制項

設定其interval屬性為65535(最大只能是65535,表示一分鐘執行一次timer的事件)

在timer的timer事件中新增查詢餘額和餘額不足下機** (有了之前的基礎,最後優化的時候這點**太簡單了)

3、修改了密碼還在登入著,肯定也不行。

unload frmmain

frmlogin.show

4、刪除使用者也不能刪除自己正在登入使用中的使用者啊

我的解決辦法是查的時候就不顯示自己正在使用中的使用者

& " and userid<>'" & username & "'"
5、獲取伺服器時間。因為系統時間誰都可以隨便更改,所以我們在獲取時間的時候需要或許伺服器的時間。

新增乙個timer控制項

private sub timer3_timer()

dim cnn as new adodb.connection

dim cmd as new adodb.command

dim rst as new adodb.recordset

dim sqlser_time

cnn.connectionstring = "filedsn=charge;uid=sa;pwd=123456"

cnn.open

cmd.activeconnection = cnn

cmd.commandtext = "select getdate() as sys_sqlser_time"

set rst = cmd.execute

sqlser_time = rst(0)

laltime.caption = sqlser_time

rst.close

cnn.close

end sub

這些問題肯定存在,但我的辦法不一定是最好用的,大家有更好的方法可以交流溝通啊!

機房就是開始的時候覺得不簡單,因為算是第一次嘗試自己動手動腦,但不懼它一步一步的走下來,遇見問題了就解決,到最後發現沒有自己開始想的那麼可怕。以後的我們也應該不懼困難,迎難而上,最後才能收穫勝利的果實。

機房重構(6) 完結篇

經過乙個暑假艱苦卓絕的努力,機房重構告一段落。從一開始對三層理解的懵懵懂懂,到後來機房重構敲的非常順手,感覺自己成長了很多,機房重構時間拖得有點長,心情起伏有點大,不過收穫還是有的。資料庫的設計決定了系統的好壞,所以在開始前,一定要認真的分析業務,畫好e r圖,經過認真考慮後再設計資料庫,我用血淋淋...

CSS基礎完結篇

position 它的英文意思 位置 的意思 它在css中主要是用來實現對乙個元素的定位 在css中定位有三種方式 固定定位 position fixed 相對定位 position relative 絕對定位 position absolute 注意 要實現乙個元素的定位 那麼一定使用 定位的座標...

包頭的生活完結篇

隨著火車的開動,我在包頭一周的生活也隨之結束了。在火車上我有一種如釋重負的感覺,包頭的生活讓我覺的太累了。每天紅腫著眼睛,用兩條腿來回在商行和資訊中心,包頭的天氣很冷,尤其是風很大。吹的讓人受不了。在包頭的工作到不是很緊張,只是去商行看看有什麼新的需要,然後記下來或改一下就可以,但包頭宿舍的居住環境...