vb.net機房收費 & Register文字框為空白提示,一鍵清空文字框所有內容,vb.net機房
已經第二次機房收費系統重構了,一遍當然得有一遍的效果,正如對於文字框為空白的提示方法,回顧第一遍機房,那些傻裡傻氣的If語句讓自己對代碼的親和度大打折扣啊!那麼到底有什麼辦法解決那些重複性的判斷呢?這時候我們就要提到所謂的Model表單了。在Model表單中,建立一個封裝數組,當表單中需要判斷大量文字框為空白的時候,只需簡單的調用即可。
建立一個Model類,來存放公用需要的部分。
1、定義一個結構體Term,且用結構體封裝一個數組
Public Structure Term '定義結構體term Dim controlSub As Control Dim strText As String Sub New(ByVal controlSub As Control, ByVal strText As String) '初始化對象 With Me .controlSub = controlSub .strText = strText End With End Sub
2、用結構體定義一個Term類型數組
'定義一個Term類型的結構體數組 Public arrayControl() As Term
3、判斷文字框是否為空白的函數
''' <summary> ''' 判斷文字框是否為空白,進而給出相應提示 ''' </summary> ''' <param name="ArrayControl"></param> ''' <returns></returns> ''' <remarks></remarks> Public Function CIsEmpty(ByVal ArrayControl() As Term) As Boolean Dim termControl As Term '定義一個term類型變數 '遍曆結構體數組中的所有元素,如果控制項文本為空白,則進行相應提示 For Each termControl In ArrayControl '遍曆結構體數組中的所有元素 If TypeOf termControl.controlSub Is TextBox Then '判斷控制項是否為文字框 If termControl.controlSub.Text.Trim = "" Then '判斷文字框內容是否為空白 MessageBox.Show(termControl.strText & "不可為空!", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) termControl.controlSub.Focus() '獲得焦點 Return True Exit Function End If
4、當然函數是寫出來了,但是還得對定義的結構體進行初始化處理。我們需要在Registe的U層定義一個過程Rdim(),來完成此功能
Private Sub Rdim() ReDim Preserve arrayControl(9) '重新聲明數組維數 '初始化數組 arrayControl(0) = New Term(txtCard, "卡號") arrayControl(2) = New Term(txtstudentNo, "學號") arrayControl(3) = New Term(txtstudentName, "姓名") arrayControl(4) = New Term(ComboSex, "性別") arrayControl(5) = New Term(txtgrade, "年級") arrayControl(6) = New Term(txtclass, "班級") arrayControl(7) = New Term(txtCash, "金額") arrayControl(8) = New Term(txtstatus, "注釋") End Sub
5、準備工作做完了,剩下的就是簡單的調用了!在Register表單中直接調用CIsEmpty函數即可。
Call Rdim() '首先調用Rdim過程進行數組初始化 '調用CIsEmoty()函數,檢測是否輸入文字框內容 If CIsEmpty(arrayControl) Then Exit Sub End If
這樣當運行出現文字框為空白的情況,系統則會自動提示,方便簡潔!
6、那麼如何能夠實現一鍵清除操作呢?方法同判斷文字框為空白一樣,只需要編寫一個清除的函數則可
''' <summary> ''' 清楚文字框的資料 ''' </summary> ''' <param name="arraycontrol"></param> ''' <returns>返回Boolean值,true</returns> ''' <remarks></remarks> Public Function AllEmpty(ByVal arraycontrol() As Term) As Boolean Dim termControl As Term '定義一個term類型變數 For Each termControl In arraycontrol If TypeOf termControl.controlSub Is TextBox Then termControl.controlSub.Text = "" '判斷控制項類型,如果是文字框或組合框則內容清空 End If Next Return True End Function
7、然後調用:
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click Call Rdim() '首先調用Rdim過程進行數組初始化 '調用AllEmoty()函數,刪除文字框中內容 If AllEmpty(arrayControl) Then Exit Sub End If End Sub
上述雖然只是在註冊表單中描述,但是對於其他的文字框以及組合框都是使用的,只要在對應的表單中對結構體進行初始化處理,然後直接調用則可。
感受:
機房收費依舊在一步一步的進行著,與以往不同的則是所謂的“感覺”已經成熟了,最起碼當遇到問題的時候自己會想盡辦法去尋找最簡單實用的方法來滿足其需求。
電腦機房計費
網吧上網不花錢~~,嘿嘿... ,自己小心點
1.正常啟動windows,在進入win案頭時按下ctrl+alt+del,出現工作管理員,我們可以看見其中有一個名字叫client的進程,這個就是永珍的用戶端程式,把它結束任務。之後馬上再次按下ctrl+alt+del,看見裡面還有個client的進程,再次殺掉它,這是因為永珍有自身防殺功能,被殺掉進程後會再次啟動一次,不過也僅僅是兩次。這下我們就可以使用了,機子不會再出現要求輸入卡號和密碼的介面。此招我屢試屢爽,從不失手,不過要求掌握好按鍵的時機。
2.正常開機,輸入自己的卡號和密碼進入系統,然後馬上右鍵點擊工作列的永珍客戶管理系統的表徵圖,選擇結帳下機,系統提示是否真的下機,在點確定的同步選取“sleep”鍵,這個時候win會提示出現錯誤,然後你會發現自己已經下機了,?僑床⒚揮諧魷滯螄蟮目突Ф私緱妗?_^我們就可以免費玩了。唯一的遺憾試成功率太低,我在實驗了十幾家網吧後只成功一次,建議不要使用。
3.利用卡號和密碼進入系統後,下載讀取永珍管理軟體密碼的工具來讀取密碼,讀出密碼後,記住密碼,然後結帳下機,出現永珍客戶介面後,在下面管理員密碼中輸入剛才讀出的 密碼。ok了。大家都知道美萍和pubwin的管理員密碼是儲存在本地的,開啟它們的安裝目錄後,在裡面都可以找到設定檔案,用記事本開啟就可以找到。我想永珍也應該是這樣,大家如果找不到讀密碼的軟體,可以試著手動破解一下。
4.上面3中的工具如果找不到,而網吧有還原精靈,我們還可以利用它,下載“還原精靈密碼讀取器”,讀出還原精靈密碼,右鍵還原精靈的表徵圖,選擇“設定參數”,選中不還原,輸入剛才讀的密碼。修改成功後,我們來到永珍的安裝資料夾,一般路徑是:c:\\\\Octopus或者c:\\\\program files\\\\Octopus,我們直接把這個檔案夾改名。然後重新啟動,這裡一定是按機箱上的的複位鍵來重啟,千萬不要按熱鍵。等重啟後我們就可以直接使用了 。
5.開機的時候按f8,進入win啟動選擇方式,我們選純dos方式,一般這個是第5項,在dos下找到永珍的安裝資料夾,(同上面方法)4給它改名,有時候會碰到不能修改的情況,我們要用attrib命令去掉檔案夾的屬性就可以修改了,(刪除這個檔案也可以),之後鍵入命令win,就會回到windows介面。搞定!!
6.有的版本的永珍會禁止熱鍵f8以及ctrl+alt+del,在這樣的情況下,我們可以試一下這種方法,在進入win案頭的瞬間按alt+f4鍵,這樣可以調出,win的真正關機程式,我們選擇重啟並進入dos,後面的方法同方法5。
7.如果上面所有的熱鍵都是禁止,那麼我們還有一種方法,那就是IME漏洞,進入永珍用戶端介面後,在輸入卡號的地方調整輸入,調出微軟全拼來,隨便輸入一個字母,字母下邊會跟隨一個狀態條,右鍵點擊它,選擇協助,這樣就開啟協助檔案,因為永珍會鎖定滑鼠移動的範圍,我們可以用滑鼠去拖動這個協助檔案,只要它撐破了鎖定的邊緣,那麼滑鼠就可以隨意移動了,然後右鍵點擊標題列,選擇“跳轉至”,在出現的框中我們可以填入盤符,具體檔案的路徑,或者直接輸入網址來開啟網頁。成功得繞過了驗證卡號和密碼。
以上7中方法可以說是屬於非正常上機法,建議在網吧人少的時候使用,正常上機和非正常上機在永珍的管理服務端顯示的表徵圖是不一樣的,如果網吧很多人排隊等機子,網管卻發現還先是有空機,那麼你肯定會被生擒......餘下全文>>
急!!!!!!!!有關vbnet與vsnet是什關係
vs.net包括vb.net,c#,vc++等!