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

2021-07-15 04:29:46 字數 1959 閱讀 2320

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,基本的功能都已實現,這次做機房收費系統中,遇到了很多問題,包括技術上的,包括知識面上的。不怕不知道,就怕不知道。心態問題 在寫 的過程中或者是在畫圖的過程中,心態一定要放平,不要讓一些無所謂的爛七八糟的東西來打擾和影響你的學習。這次寫 中有的時候自己突然心血來...