（五）組合查詢 機房收費系統

2021-07-23 08:49:05 字數 2706 閱讀 3754

前提：

組合查詢的思路需要理清，在理清思路的同時，按照先英的想法去執行

一、流程圖 思路

1.用selectcase進行文字轉換

select case n


case text1.text = "卡號"


b = "cardno"


case text1.text = "姓名"


b = studentname


case text1.text = "上機日期"


b = ondate


case text1.text = "上機時間"


b = ontime


case text1.text = "下機日期"


b = offdate


case text1.text = "下機時間"


b = offtime


case text1.text = "消費金額"


b = consume


case text1.text = "餘額"


b = cash


case else


end select



2.利用 if ···then···


if combo7.text = "與" then


one = "and "


elseif combo7.text = "或" then


one = "or "


else


one = ""


end if


if combo8.text = "與" then


two = "and "


elseif combo8.text = "或" then


two = "or "


else


two = ""


end if






3..combo 顯示


（1）利用迴圈,在模組中建立乙個 function


private sub form_load()


a(0) = "卡號"


a(1) = "姓名"


a(2) = "上機日期"


a(3) = "上機時間"


a(4) = "下機日期"


a(5) = "下機時間"


a(6) = "消費金額"


a(7) = "餘額"


call combo(me)




（2）


相應窗體


public function combo(nam)


for i = 0 to 7


nam.combo1.additem a(i)


nam.combo2.additem a(i)


nam.combo3.additem a(i)


next


end function


4.查詢（最基本的執行） 在最一開始除錯的時候 使用的 b 可以直接用 cardno 之列的資料庫中有的表示。後來發現要與combox 裡的內容相對應所以需要


select case 如前面所寫的**


'任務二:查詢


if one= "" then 


txtsql = "select * from line_info where " & b & combo4.text & trim(text1.text) & "' "


set mrc = executesql(txtsql, msgtext)


if mrc.eof then


msgbox "沒有資訊", vbokonly + vbexclamation, "提示"


end if


elseif two =""then


txtsql =txtsql & one & c & combo5.text & "'" & trim(text2.text) & "' "


set mrc = executesql(txtsql, msgtext)


if mrc.eof then


msgbox "沒有資訊", vbokonly + vbexclamation, "提示"


end if
else
txtsql =txtsql & two & d & combo6.text & "'" & trim(text2.text) & "'"


set mrc = executesql(txtsql, msgtext)


if mrc.eof then


msgbox "沒有資訊", vbokonly + vbexclamation, "提示"end if


end ifend if
總結： 


每乙個窗體裡都會有很多不一樣的東西慢慢學習，在敲這個窗體的時候對vb的知識的整體運用，才會發現自己的vb學的水平，機房是乙個進步，也是乙個複習。
 
No3 組合查詢 機房收費
怎麼說呢，之前的組合查詢，現在想起來都是很痛心的，剛開始我單蠢的想要用case語句來查，於是我硬著頭皮往下寫，結果呢，乙個條件還沒有查出來的時候，我的case語句就用了20多個了，於是我果斷放棄了這個方法，看這麼多的case，我還是很頭暈的，實現乙個功能重複使用乙個 數量超過一定的界限那就是很有問題...


機房收費系統 組合查詢
機房收費系統在磕磕絆絆中過來了，這期間遇到問題，解決問題，最後收穫的特別多，在敲得過程中，不斷的學習新知識，應該說組合查詢是收費系統的乙個小難點了吧，起初我是真的不知道該從 下手，總是有種剪不斷理還亂的感覺，分析分析就繞進去了，我總是把問題想的很複雜，其實只要一句 語句，一切都解決了，根本用不到好多...


機房收費系統 組合查詢
關於組合查詢，真的是乙個令人頭疼的東西，但是當自己突然間的做出來時，卻莫名的有種貌似又不是很難得感覺。昨天弄了整整一下午，今天的下午終於在除錯了兩個小時做出來了。首先是查到了一些關於組合查詢的部落格，有乙個共同的特點就是都要獲得使用者所選的欄位名並轉化成資料庫表中的欄位名，這樣實現了人機共同語言的轉...