機房收費系統中dtpicker控制項的使用

在做機房收費系統的時候會有查詢記錄的，還會有好幾個窗體用到了組合查詢，在這些查詢中有的需要填寫日期和時間，當你選擇完欄位名後如果只是乙個text，那就需要乙個個的去輸入，不僅浪費時間而且沒有成就感，更談不上效率下面我們就來認識認識乙個控制項---dtpicker。

首先，我們需要知道什麼是dtpicker控制項?

dtpicker是vb中用於直接顯示日期的控制項，當你需要用到時間或日期去做一件事情的時候，既可以用dtpicker控制項

vb預設的控制項欄中是沒有dtpicker日期控制項的，新增過程：工具——部件——控制項——「microsoft windows common controls-2.6.0」——應用——確定，新增之後就可以使用了。

然後知道用這個控制項的好處，如下圖

這樣就可以很容易很輕鬆的查詢到你想要的結果了。

還有在組合查詢中，在操作員窗體中也用到了，當時是想在選擇日期欄位名之後直接出現這個控制項進行選擇，然後選擇別的欄位名的時候出現的是text文字框，可是查詢的時候就不知道該怎麼去辦了，因為當時沒有想太多，後來有同學說可以把dtpicker的值value直接傳遞給text，這樣在查詢的時候**那塊就可以直接去查text的值了。具體的**如下（僅供參考）：

select case index
case 0
'如果是姓名性別等不需要大於號的欄位名都避免其出現
if combo1(index).text = "教師" or combo1(index).text = "機器名" or combo1(index).text = "狀態" or combo1(index).text = "級別" then
text1(index).visible = true '顯示文字
text1(index).enabled = true '文字可以使用
text1(index).text = "" '清空文字
dtpicker1.visible = false 'dtp控制項不可見
dtpicker1.enabled = false 'dtpicker控制項不可使用
with combo2(index)
.clear '避免多次出現
.additem "=" '載入，使操作符出現
.additem "<>"
end with
else
'當欄位選擇的是日期的時候，可選控制項出現，text文字隱藏，並且把日期的數值給text
if combo1(index).text = "註冊日期" or combo1(index).text = "登出日期" then
dtpicker1.visible = true
dtpicker1.enabled = true
' text1(0).enabled = false
text1(index).visible = false
text1(index).text = trim(dtpicker1.value)
else
text1(index).visible = true
text1(index).enabled = true
text1(index).text = ""
dtpicker1.visible = false
dtpicker1.enabled = false
with combo2(index)
.clear
.additem ">"
.additem "
.additem "="
.additem "<>"
end with
end if
end if
case 1
if combo1(index).text = "教師" or combo1(index).text = "機器名" or combo1(index).text = "狀態" or combo1(index).text = "級別" then
text1(index).visible = true
text1(index).enabled = true
text1(index).text = ""
dtpicker2.visible = false
with combo2(index)
.clear
.additem "="
.additem "<>"
end with
else
if combo1(index).text = "註冊日期" or combo1(index).text = "登出日期" then
dtpicker2.visible = true
dtpicker2.enabled = true
' text1(0).enabled = false
text1(index).visible = false
text1(index).text = trim(dtpicker2.value)
else
text1(index).visible = true
text1(index).enabled = true
text1(index).text = ""
dtpicker2.visible = false
dtpicker2.enabled = false
with combo2(index)
.clear
.additem ">"
.additem "
.additem "="
.additem "<>"
end with
end if
end if
case 2
if combo1(index).text = "教師" or combo1(index).text = "機器名" or combo1(index).text = "狀態" or combo1(index).text = "級別" then
text1(index).visible = true
text1(index).enabled = true
text1(index).text = ""
dtpicker3.visible = false
with combo2(index)
.clear
.additem "="
.additem "<>"
end with
else
if combo1(index).text = "註冊日期" or combo1(index).text = "登出日期" then
dtpicker3.visible = true
dtpicker3.enabled = true
' text1(0).enabled = false
text1(index).visible = false
text1(index).text = dtpicker3.value
else
text1(index).visible = true
text1(index).enabled = true
text1(index).text = ""
dtpicker3.visible = fals
dtpicker3.enabled = false
with combo2(index)
.clear
.additem ">"
.additem "
.additem "="
.additem "<>"
end with
end if
end if
end select

這個很重要，是數值進行傳遞的乙個基礎，

text1(0).text = dtpicker1.value

結果查詢出來是這樣的

機房收費系統中dtpicker控制項的使用

機房收費系統

機房收費系統

機房收費系統中 列舉使用

相關推薦

機房收費系統中列舉使用