機房收費系統之退卡窗體
退卡窗體的敲寫還是比較順利的，並沒有像自動下機那樣的絞盡腦汁，退卡窗體裡並沒有什麼新鮮的知識點，都是前面窗體裡用到的一些語句，此窗體重點在它的應用範圍、邏輯梳理、資料更新。這次沒有錯誤集和查詢集，就對流程和程式碼進行分享吧^_^
一、退卡窗體流程圖
二、程式碼片段
①、判斷是否有此卡號
txtSQL = "select * from student_Info where cardno='" & txtcardno.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF Then MsgBox "該卡號未註冊,請重新輸入！", vbOKOnly, "溫馨提示：" txtcardno.SetFocus txtcardno.Text = "" Exit Sub ......
②、判斷是否已退卡
If Trim(mrc.Fields(10)) = "不使用" Then
MsgBox "該卡已退卡，請重新輸入！", vbOKOnly, "溫馨提示："
txtcardno.SetFocus
txtcardno.Text = ""
Exit Sub
End If③、判斷是否正在上機
oltxtSQL = "select * from Online_Info where cardno='" & txtcardno.Text & "'" Set olmrc = ExecuteSQL(oltxtSQL, olMsgText) If Not olmrc.EOF Then MsgBox "該卡正在上機，請先下機再退卡！", vbOKOnly, "溫馨提示：" Unload Me frmmain.Show frmmain.txtcardno = Trim(txtcardno.text) frmmain.txttype.Text = olmrc.Fields(1) frmmain.txtstudentno.Text = olmrc.Fields(2) frmmain.txtstudentName.Text = olmrc.Fields(3) frmmain.txtdepartment.Text = olmrc.Fields(4) frmmain.txtsex.Text = olmrc.Fields(5) frmmain.txtondate.Text = olmrc.Fields(6) frmmain.txtontime.Text = olmrc.Fields(7) Exit Sub End If
以上便是退卡窗體的一些梳理，下一個窗體為使用者新增刪除窗體，下一站走起^_^
相關推薦
機房收費系統之退卡窗體
退卡窗體的敲寫還是比較順利的，並沒有像自動下機那樣的絞盡腦汁，退卡窗體裡並沒有什麼新鮮的知識點，都是前面窗體裡用到的一些語句，此窗體重點在它的應用範圍、邏輯梳理、資料更新。這次沒有錯誤集和查詢集，就對流程和程式碼進行分享吧^_^ 一、退卡窗體流程圖 二、
機房收費系統之MDI主窗體和子窗體（覆蓋）
在機房收費系統中，frmMain作為MDI的主窗體，想要在MDI主窗體上新增控制元件，picture控制元件可以起到此作用，但是在添加了picture控制元件以後，問題也就隨之而來了。 點選子窗體的時候，子窗體被“吃掉”了，怎麼樣讓他顯示出來呢？想要解
機房收費系統之細化篇（跨日期下機，MDI窗體的運用，MDI主窗體與子窗體的互動）
最近在細化機房收費系統時，發現在下機窗體出現了很多消費時間為負值的情況，有時還會彈出Bug，仔細一看原來是跨日期的消費時間問題，那麼如何設定跨日期的下機呢？在機房收費系統中的MDI 窗體如何運用呢？下面就這兩個問題進行梳理分享。 一、跨日期的下機 核
機房收費系統之六（上下機窗體）
上機 1.剛開始進行上下機窗體的時候，想的比較簡單，以至於後來遺漏很多問題。所以流程圖改了好幾遍才算比較完善。 上機模組主要功能就是輸入卡號開始計時消費，類似於登陸窗體模組。需要注意的有兩點：一是要考慮輸入的卡號是否正在上機（卡號不能重複上機），二是考慮餘額是否充足（不充足
機房收費系統之巨集觀聯絡（各窗體與資料表的聯絡）
剛開始的機房收費系統並不是上來就敲程式碼，而是執行已有的exe小程式，看每個表格與資料庫的關係，對整個機房的邏輯進行了梳理，以下是梳理出來的巨集觀聯絡，還算不是標準的流程圖，只是用於自己的邏輯梳理，還希望巨人們可以多多給予指導^_^
機房收費系統之結尾
分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！
機房收費系統之總結篇
歷時兩個月的機房收費系統終於結束咯，感覺機房收費系統在學生管理系統的基礎上又提升了一個等級，學生管理系統是照著原始碼敲的，而機房收費系統除了Excel的匯出，報表的生成，模組是參照原始碼學習的，其他都是自己一個一個敲出來的，感覺還是很充實的，這兩個月都做了哪
機房收費系統之手動下機（獲取時間差、更新資料庫資料、判斷時間差）
下機窗體的梳理著實耗費了不少時間，的確是一個費腦細胞的活兒，不過過程也是挺享受的，那個專注力、那個廢寢忘食的勁頭兒少有吖^_^ 一、下機窗體的流程圖（如有不對的地方還望各位大神給予指導^_^）： 二、錯誤集（本窗體中的大錯誤並不是很多，都是以前遇到
機房收費系統之學生檢視上機記錄（MSHFlexGrid控制元件資料匯出Excel）
這個窗體之所以可以順利的進行下去，全靠藉助於巨人的力量，站在了巨人的肩膀上前行，Excel的匯出還是很神奇的，讓我們一起來看一下吧^_^ 一、學生檢視上下機記錄窗體的流程圖 二、查詢集 ①、機房收費系統中Excel表如何匯出 ②、vb中DoEve
機房收費系統之組合查詢（程式碼部分）
最近的事情比較多，本該留出大塊時間整理組合查詢的程式碼部分，結果是分為一段一段的零散時間來整理的，最終整理的這些組合查詢程式碼可能還是有很多冗餘，本來不想拿出來的，但考慮到自己的不足就要展示給大家，這樣自己才能進步嘛，所以還是厚著臉皮把我冗餘的程式碼展示出來了，
機房收費系統之收取金額查詢（TPicker控制元件時間段取值、SQL語句中單引號與雙引號區別）
收取金額查詢窗體較組合查詢而言就是小菜一碟，但即便是內容較少也有其精華之處，現在分享一下我的學習過程吧^_^ 一、收取金額查詢窗體的流程圖： 二、問題集 這是什麼錯誤呢，為什麼會出現這個型別的錯誤？ 產生此問題的程式碼部分是什麼樣子的呢？ 以
機房收費系統之學生基本資訊維護
前言 該窗體功能是實現查詢學生的資訊，並可給予修改的許可權。其中包含兩個重大部分，一是組合查詢，二是修改；其中修改又涉及到了修改學生資訊窗體，此窗體中取消修改嘗試了很多方法，最後選取比較簡單的方法，這個窗體不難。最重要的莫過於組合查詢：組合查詢我使用的方法是一行一行的查，因為對於我目前的
機房收費系統之收取金額查詢
前言 本窗體相對來說比較簡單，主要涉及到從Recharge_info表中查詢，與及excel的匯出；其大概思路如下：終止日期不能小於起始日期----連線Recharge_info表，顯示內容----匯出表格：判斷有無資訊可匯出-----有則呼叫excel程式 問題所在 問題1：卡
機房收費系統之新增和刪除使用者
前言 剛開始敲此窗體時，頭就開始暈了，因為覺得自己啥也不會，覺得這個還挺難的，其實主要還是抗拒產生難。不過還是應徵了魯迅先生說的那句話：有些路走著走著就有了。 流程 因為沒有拷流程圖，所以我基本上是手動輸入的。具體如下：使用者級別點選事件，連線資料庫，更新至MSFlexGri
機房收費系統之學生檢視餘額
流程 判斷卡號是否為空----為空，輸入卡好—不為空，連線資料庫----判斷是否有此使用者----沒有，提示-----有，連線並顯示資訊 知識點 If mrc.BOf Then :當前指標的位置是在第一行記錄之前 If mrc.EOF Then :當前指標的位置是在最後一行記
機房收費系統之註冊
流程 註冊—判斷卡號是否為空—為空，輸入卡號—不為空，連線資料庫判斷是否存在—存在，進行金額查詢—不存在，註冊資訊存入存檔—清除資訊，為了使用者方便，一鍵清除所有的資訊 注意：combobox不能手動輸入，只能選擇；存檔存入資訊有條件限制，充值有條件：輸入的金額不能低於餘額 挫折
機房收費系統之操作員記錄、正在值班人員記錄（關閉視窗判斷事件，MsgBox返回值，Queryunload與Unload區別）
機房收費系統的操作員記錄與正在值班人員記錄的窗體比較簡單，思路也差不多，在這裡就彙總在一起進行總結。 一、流程圖 ①操作員工作記錄窗體流程圖 ②正在值班人員窗體流程圖 二、查詢集 ①MsgBox的返回值有哪些，如何獲取返回值？
機房收費系統之學生上機資訊
前言 組合查詢是機房三大難點之一，不過等做完之後會豁然開朗，原來就是一句話的事。雖然這樣還是自己還是研究了好幾天才弄明白。下面先來說一下我的思路。 思路 重點程式碼： Private Sub ComboField2_Click() If ComboFi
機房收費系統之刪除和新增使用者
刪除和新增使用者作為機房收費系統軟體的重要部分，在機房收費系統中起著不可忽視的作用。 刪除和新增使用者這一版塊有三個重要的組成部分：刪除資料，更新資料，選擇不同的級別顯示不同的資訊。 第一：選擇不同級別顯示不同的資訊 1、不同的級別所指：
機房收費系統之標識是否已經被修改
我們常常在編寫程式碼的時候是以程式設計師的思想參與編寫的，而有時會忽略程式設計本身的思想，這就需要我們程式設計師的思維向程式設計本身的思維轉變。如何才能做到這一點呢？ 答案為以程式設計的思維去做程式設計，或許有人看到我這一句話是廢話，說我是在瞎