做兩個系統後的一點小創新

2021-05-27 02:14:50 字數 1137 閱讀 7271

前段時間我們使用vb做了學生管理系統和機房收費系統,都是連線資料庫的,大多數操作幾乎都是對資料庫中表的操作。其中存在乙個問題就是:有很多窗體都是類似的,窗體中的控制項都幾乎是一樣的,當對資料庫中的表新增記錄或者是修改的時候都需要對窗體中文字框中的字串是否為空進行判斷。如果在每個窗體中都這樣判斷,重複的東西非常的多,無疑會造成軟體的內聚性不夠強。

下面我是把這些判斷的**放到了乙個模組中的公有函式中進行判斷,再在窗體的**中進行函式的呼叫來判斷。具體**僅供參考:

模組中的**:

public sub isempty(pform as form)        '模組中定義公有過程判斷窗體中的文字框有否有為空的

dim a as control

for each a in pform.controls '對窗體中的控制項逐個遍歷

if a.name = "txtsno" then '判斷控制項的名稱,根據名稱進行操作

if a.text = "" then

msgbox "學號不能為空", vbokonly, "錯誤"

end if

elseif a.name = "txtname" then

if a.text = "" then

msgbox "姓名不能為空", vbokonly, "錯誤"

end if

elseif a.name = "txt***" then

if a.text = "" then

msgbox "性別不能為空", vbokonly, "錯誤"

end if

elseif a.name = "txtschool" then

if a.text = "" then

msgbox "學校不能為空", vbokonly, "錯誤"

end if

end if

next

end sub

窗體介面:

private sub cmdcheck_click()

call isempty(me) '呼叫模組中定義的公有過程

end sub

**雖少,但是對其他的窗體會有很大的作用,方便很多

工作兩個周的一點總結

元旦放假三天,終於有時間可以歇一歇了。到現在已經工作兩個周了,這期間如果用乙個字形容是 忙,用另外乙個字形容就是 累。入職第一天,專案經理給我簡單的介紹了一下公司使用的框架,然後給我分配了乙個任務練練手,完成目前正在做的專案的基礎資料部分最簡單的增刪查改,還好,照著現有的例子很快就完成了。就這樣,從...

AC後的一點小感想。。。。。

今天是2014.6.8,綜合接觸acm已經快乙個半月了,有很多很多收穫,acm就是演算法和資料結構的學習,學的是一種思維。其實呢 之前就想寫部落格,但是不知道寫啥,今天就先寫點東西放著吧 等再過些時日,開始學那些大神們 寫解題報告。目前基礎演算法都基本學會了,擴充套件歐幾里得,中國剩餘定理都已經接觸...

處理乙個棘手小bug後的一點體會

簡單描述下俺要廢話的背景吧 這幾天都在排查乙個bug silverlight客戶端應用中的某個控制項,會因為多次操作而導致瀏覽器記憶體飆公升,至於飆公升的速度嘛,差不多操作半個小時後,瀏覽器估計就累死了 接到這個棘手的活兒後,先大概捋了一下自己的思路 1.復現問題 並掌握問題復現的 規律 2.熟悉問...