data控制項
繫結時,msflexgrid控制項只顯示唯讀資料。我理解的是,顯示符合條件的資料的乙個展示欄。說的可能比較通俗,接下來,我就來詳細給大家說說msflexgrid控制項的使用!
首先開啟vb6.0-工程-部件-microsoft flexgrid control 6.0,選中即可。
首先畫出的msflexgrid控制項真的不是很美觀,如下圖:
當然我們可以調整它的屬性並且根據我們的需要去美化它!
1、cols:確定msflexgrid控制項中的行數
2、rows:確定msflexgrid控制項中的列數
3、backcolor以及各種color調整它的美觀度。
當然以上都是小把戲,接下來我來重點說一下msflexgrid控制項如何顯示資料。
1、首先,在form的load事件中,就顯示出msflexgrid控制項的表頭:
with msflexgrid1
.cellalignment = 4 '居中顯示
.rows = 1 '行數為1
.textmatrix(0, 0) = "卡號" '第1行第一列為「卡號」
.textmatrix(0, 1) = "充值金額" '接下來依次類推
.textmatrix(0, 2) = "充值日期"
.textmatrix(0, 3) = "充值時間"
.textmatrix(0, 4) = "充值教師"
end with
2、所有前提都滿足後就要顯示充值記錄了。首先要連線資料庫:
txtsql = "select * from recharge_info where cardno='" & trim(text1.text) & "'"
set mrc = executesql(txtsql, msgtext)
3、然後再顯示滿足條件的資料。這裡要注意,如果顯示的只是一行資料時就是mrc.fields(n),如果是整個資料的時候,就要是mrc.cardno(表頭)
with msflexgrid1
do while mrc.eof = false '有對應的卡號時
.cellalignment = 4 '對齊方式為居中
.rows = .rows + 1 '行數加一行
.textmatrix(.rows - 2, 0) = val(mrc!cardno) '顯示所有對應的資料
.textmatrix(.rows - 2, 1) = val(mrc!addmoney)
.textmatrix(.rows - 2, 2) = mrc!date
.textmatrix(.rows - 2, 3) = mrc!time
.textmatrix(.rows - 2, 4) = trim(mrc!userid)
mrc.movenext
if mrc.eof = true then
.rows = .rows - 1
end if
loop
end with
機房收費系統單一查詢的窗體都比較簡單,很多功能差不多,理清思路一條線敲下去很簡單。接下來該敲復合查詢了,還是有點小激動的。當然顆粒歸倉,總結小的知識點也非常重要。 機房收費系統
利用幾乎兩個多禮拜的時間,終於把機房收費系統基本完工了。這個過程中,因為有了學生系統做為鋪墊,所以做的時候還算得心應手吧。在其實也遇到了一引些問題,還是好解決的。這個系統到現在為止,也只能說是基本實現了功能,但是還很不健壯,而且漏洞我想還有很多,還有待進一步的除錯與完善。雖然在敲機房收費系統前,把命...
機房收費系統
利用幾乎兩個多禮拜的時間,終於把機房收費系統基本完工了。這個過程中,因為有了學生系統做為鋪墊,所以做的時候還算得心應手吧。在其實也遇到了一引些問題,還是好解決的。這個系統到現在為止,也只能說是基本實現了功能,但是還很不健壯,而且漏洞我想還有很多,還有待進一步的除錯與完善。雖然在敲機房收費系統前,把命...
機房收費系統(三)
收費系統到今天已經完工了,有些小bug,基本的功能都已實現,這次做機房收費系統中,遇到了很多問題,包括技術上的,包括知識面上的。不怕不知道,就怕不知道。心態問題 在寫 的過程中或者是在畫圖的過程中,心態一定要放平,不要讓一些無所謂的爛七八糟的東西來打擾和影響你的學習。這次寫 中有的時候自己突然心血來...