機房收費系統中列舉使用

在機房收費系統中，b層中做了好多的判斷，每個判斷都會返回乙個結果作為訊號給u層，如果用已有的boolean值得話，就只有true 或 false 兩種結果，然後我就用了返回字串的方法，如下**：

public function register(newcard as managere.cardentity, newstu as managere.studententity) as string
dim mycifd as new managerd.cardinfodal
dim mysifd as new managerd.stuinfodal
if iscardexist(newcard.cardno) = true then '判斷射頻卡是否已經註冊
register = "cardexsit"
else
if isstuexist(newstu.studentno) then '判斷持卡學生是否已經註冊
mycifd.addcardinfo(newcard)
register = "stuexist"
else
mycifd.addcardinfo(newcard) '講符合條件的註冊新增到資料庫
mysifd.addstuinfo(newstu)
register = "succeed"
end if
end if
end function

但是在判斷得到返回結果時，必須準確寫出字串的每乙個字元才可以，用起來操作性比較差。看到其他人的部落格知道，好多人都是用的拋異常的方法反饋給u層資訊的。這種思路，雖然能實現預定的效果，但是跟我的源**相差甚遠，如果用列舉型別的話，因為跟boolean的效果差不多，應該符合我的思路，接下來去實踐一下，**還差點，馬上呈現...

首先在構建乙個類盛放這種列舉型別

public class dataentity
enum status
cardexist
studentexist
succeed
end enum
end class

之後b 層的登入方法修改為

public function register(newcard as managere.cardentity, newstu as managere.studententity) as managere.dataentity.status
dim mycifd as new managerd.cardinfodal
dim mysifd as new managerd.stuinfodal
if iscardexist(newcard.cardno) = true then '判斷射頻卡是否已經註冊
register = managere.dataentity.status.cardexist
else
if isstuexist(newstu.studentno) then '判斷持卡學生是否已經註冊
mycifd.addcardinfo(newcard)
register = managere.dataentity.status.studentexist
else
mysifd.addstuinfo(newstu)
mycifd.addcardinfo(newcard) '講符合條件的註冊新增到資料庫
register = managere.dataentity.status.succeed
end if
end if
end function

返回到u層的效果為

select case myregisger.register(newcard, newstu) '判斷卡的註冊狀態 case managere.dataentity.status.cardexist messagebox.show("該卡已經被註冊，不能再次註冊！") case managere.dataentity.status.studentexist messagebox.show("該卡註冊成功，但發現持卡人註冊已註冊過其他卡！") case managere.dataentity.status.succeed messagebox.show("該卡註冊成功，可上機消費！")

end select

這樣就不怕敲**時出錯了，在輸入返回值時從智慧型提醒的下拉列表中直接選取就可以了！

機房收費系統中 列舉使用

機房收費系統

機房收費系統

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

相關推薦

機房收費系統中列舉使用