機房收費系統組合查詢

細節優化

'查詢語句
txtsql = "select * from line_info where "
'判斷第一行資訊是否填寫完整
if trim(combo1(0).text) = "" or trim(combo2(0).text) = "" or trim(a) = "" then
msgbox "請填寫第一行資訊!", vbokonly, "提示 "
end if
'查詢第一行資訊
txtsql = txtsql & field(combo1(0).text) & combo2(0).text & "'" & trim(a) & "'"
'判斷組合關係1是否為空
if trim(combo3(0)) <> "" then
if combo1(1).text = "" or combo2(1).text = "" or trim(b) = "" then
msgbox "請填寫第二行資訊!", vbokonly, "提示"
exit sub
else
'查詢第一行和第二行
txtsql = txtsql & field(combo3(0)) & " " & field(combo1(1).text) & combo2(1).text & "'" & trim(b) & "'"
end if
end if
'判斷組合關係2是否為空
if combo3(1) <> "" then
'判斷第三行資訊是否為空
if combo1(2).text = "" or combo2(2).text = "" or trim(c) = "" then
msgbox "請填寫資訊！", vbokonly, "提示"
else
'查詢三行語句
txtsql = txtsql & field(combo3(1)) & " " & field(combo1(2).text) & combo2(2).text & "'" & trim(c) & "'"
end if
end if
'執行查詢語句
set mrc = executesql(txtsql, msgtext)
'判斷是否有查詢資訊
if mrc.bof then
msgbox "查詢不到此資訊，請重新輸入！", vbokonly + vbexclamation, "資訊提示"
exit sub
end if

因為要查詢的內容包括了時間和日期，所以在這裡就不能只是乙個文字框，還要加上時間和日期的dtpicker控制項，在vb -工程-引用-microsoftwindows common controls-2.6.0

但是在加了控制項之後就要分清什麼時候用dtpicker的值，什麼時候用textbox的值

判斷如果選擇的是時間或日期，那麼選擇的值是dtpicker的值，如果不是，則使用textbox的值

private sub cmdinquire_click()
if combo1(0) = "上機時間" or combo1(0) = "上機日期" or combo1(0) = "下機時間" or combo1(0) = "下機日期" then
a = dtp1.value
else
a = text1.text
end if
if combo1(1) = "上機時間" or combo1(1) = "上機日期" or combo1(1) = "下機時間" or combo1(1) = "下機日期" then
b = dtp2.value
else
b = text2.text
end if
if combo1(2) = "上機時間" or combo1(2) = "上機日期" or combo1(2) = "下機時間" or combo1(2) = "下機日期" then
c = dtp3.value
else
c = text3.text
end if
end sub

因為在最開始不知道選用的是不是時間，所以需要隱藏dtpicker控制項

因為時間和日期的長度比較長，經常會有顯示不全的情況，所以要設定一下某一列的寬度

myflexgrid.colwidth(2) = 1600

設定某一列居中對齊

myflexgrid.colalignment(1) = flexaligncentercenter

組合查詢的核心內容就這麼多吧，我用了兩天的時間去弄這個，感覺收穫還是很多的，雖然有的內容是看了濤哥的部落格，但是還是要去自己思考的，因為只有自己思考之後，再去實踐，收穫到的內容才真正是自己的，我會繼續努力的，不斷前進。

機房收費系統 組合查詢

機房收費系統 組合查詢

機房收費系統 組合查詢

機房收費系統 組合查詢

相關推薦

機房收費系統組合查詢

機房收費系統組合查詢

機房收費系統組合查詢

機房收費系統組合查詢