這次的VB機房收費系統,昨天算是完全做完了.

        其實還是有些問題,比如我的特殊字元檢查就做的不好,我只檢查了單引號,其他的特殊字元,想想都覺得麻煩,就沒做.其實還是有些方法的,比如楊元說可以用正則表示式來控制輸入,\W就是隻能輸入數字,字母,漢字和_的,就不用擔心會輸入一些特殊字元了.還有就是可以多寫些函式,到時候呼叫就好了.還有就是控制鍵盤的輸入,只能輸入數字和字母.

       系統花了比較長的時間來做,前面做的時候還好,沒什麼大問題,後面就費勁了.報表,和強制下機這部分我覺得最麻煩.主要就是想不通.

       比如選中學生強制下機,我分析流程,首先是要選中學生,然後獲得卡號,然後就是從各個表中獲得需要的資料,然後計算消費金額,餘額,最後把結果寫到下機表中,還要更新學生資訊表的金額欄位.這部分到是不難,但是程式碼很多.

       要從基本資訊表,正在上機表和學生資訊表中都呼叫資料,然後還要進行計算,不管是日期的,還是金額的都相當費勁.而且選中學生強制下機還好辦,只要這麼寫一次就好.所有學生強制下機,得寫多少次啊.後來一想,寫成函式呼叫就好了.所有學生強制下機,弄個迴圈就好了.每次選中一個記錄,獲得卡號,然後執行一次函式,移到下一條記錄,繼續迴圈.

       接著就是報表,報表弄起來也還算可以.先是弄好了介面,參考部落格還有Grid++Report自帶的例子.我想不通的是,資料什麼時候寫進表裡?我知道報表要的就是從日結賬單表或周結賬單中獲取資料,這很簡單.

        可是我是什麼時候把資料寫到表裡去的呢?後來想了很久,覺得窗體載入的時候把資料寫進去就好了,然後把資料顯示出來.然後每次都清空表,清空的話用truncast,比delete要好用,具體什麼好,上網查.這是沒問題了,然後日結賬單,周結賬單的記錄從哪來?從其他各個表中得來,充值表,下機表,退卡表,分別獲得充值金額,消費金額,和退卡金額.然後就是上期餘額,要怎麼得來比較費勁. 還要根據日期,日期的話,當成引數傳入就好.把符合條件的,語句是這樣的,

 Select sum(sAmount) from StuInfo where datediff(dd,sdate,’ “ &strDate & “ ‘)>0,這句的意思就是查詢StuInfo表中日期sdate小於strDate(我傳入的引數)的金額的和.這就是上期的餘額.本來是這樣的,但是我的資料有問題,所以只好換另外一種方法,把充值表,下機表,退卡表中符合條件的資料依次讀出,然後上期充值餘額=充值表-下機表-退卡表.

       周結賬單的內容也差不多,只不過要傳入的是兩個日期.其實作為引數的仍然是一個日期,跟日結賬單的函式是一模一樣的.用迴圈,先將開始日期傳入,然後datediff增加日期,直到結束日期.會弄日結賬單,周結賬單也就差不多了.

        還有就是弄完之後,發現Tag這個屬性其實是很好用的.比如我要修改學生的基本資訊,然後改錯了想取消修改的時候,就可以用它來還原那些值.而不是像我寫的那樣,從資料庫中查找出來.

txtCardNo.Tag=txtCardNo.Text '儲存文字框的值
txtCardNo.Text=txtCardNo.Tag '還原值

控制所有的控制元件

Dim control As Control '控制元件
For Each control In Me.Controls
    control.Left= 1000
Next

TypeOf txt Is TextBox=True/False

Dim myTextbox As Control '控制元件
  For Each myTextbox In Me.Controls
   IfTypeOf myTextbox Is TextBox Then
      myTextbox.Left = 2000
  End If
Next