vb.net版机房收费系统重构
机房收费重构版终于正式开工了！
前几天，刚刚看完三层的视频，在视频中详细的讲解了一个登录功能。天真的我，当时以为三层结构是那么的简单，所以我草草地做完总结之后，就很快就开始机房收费系统的重构了。可是谁想到，当我一打开软件，就让我“碰了一鼻子的灰”！首先是不知道vs 怎么用，其次就是看三层的时候，登录的实例使用c#写的，而这次我们需要用vb.net写，所以对于其中的语法是知之甚少。虽然，前段时间我看了一遍*讲师——曹祖胜的《vb.net 视频》，但是他讲的几乎都是一些底层的应用，关于怎样编程，编程的语法，以及控件等的使用几乎很少讲。所以，备受摧残的我，无奈之下还是选择了，从头来过。
下面就以我自己的亲身实践，说说刚开始机房重构时的历程吧。
一、参考资料
对于当前我需要用一种从没接触过的编程语言去实现一个机房收费系统，如果没有参考，根本不知从何做起。所以，网上的参考资料自然少不了。下面罗列的都是提高班的前辈们的佳作以供参考：
贾琳——重构机房收费系统
三层架构
二、包图设计
在看完一些资料之后，最需要做的就是，要清楚我将要做的机房收费系统是什么样子的了，或者说他的结构是什么样子的。下面是我画的包图：
很明显，这个系统包图是由三层结构演化而来，其中加进了两个设计模式和一个实体。正所谓“万变不离其宗”，这个系统的实现，其实和正常的三层结构没有很大的差别。但是，我个人还是认为，刚学习完三层，对其理解还是一知半解，所以我们有必要先用三层的结构去实现系统的一部分功能。这样，有助于我们对三层的理解，以及便于我们在后面轻松的加入设计模式。喎? f/ware/vc/"="" target="_blank" class="keylink">vcd4kpha+phn0cm9uzz7i/agiyv2+3b/iyei8xjwvc3ryb25npjwvcd4kpha+1nrd98i3wcu7+re/ytw30c+1zbo1xl3hubm6zbmmxnzwrrrzo6wmizmwnti0o7+018xo0sphvs3sqr+qyrzktc/wwcujrmv50tto0sphvs3q6nkqvajbosr9vt2/4shloao52npayv2+3b/itcs9qmgio6zo0rjqvvxo0sjuylvt0lrctudwqsq2tctcqba0o6zl+dlusrvu2txiwo/c9mwqwcuho7j4tpo80s3gvpbsu8/cztlkpri4tcsyqb/no6zpo837xny4+ltzvnk0+mc0wem40kgjpc9wpgo8cd6htsr9vt2/4snovma12sj9t7bkvag3pgjypgo8l3a+cjxwpjxzdhjvbmc+y8short6wuvktc/wpc9zdhjvbmc+pc9wpgo8cd7u2r340ndv4rj2sr3w6naux7cjrmbkyrw7udpq0ru49rfhs6pw2nkqtcsyvdbooaqhqrutyrhq8s28oapw2mv51tzwqqos1f2zo7xeyo28/r+qt6k5pnf3trzkx9tazeqzychlupfw1s7etbxs1lywupfw1lvntm281q6687lfv6rkvlxeoao1q8rho6ztydpaz9a917botcto0sjuylu0ptpa0afpsl3xts6jrmv50tsyv7fwuatx97a8t8xu2shlzeqzybt6wuvwrrrz1nnipda00ncho7k7uf2jrm7sym/oqqossfc1xlmk1/e/ydlut8xsu7ffo6y1q8rhyrhq8s28utzt0lhy0qq7rdk7u62ho9lyzqqjrntau63ksddyzby1xmqxuvkjrm7sw8e+zdfqz7i1xnhqvr/by8+1zbo1xlav1/fls9dyo6zv4rj2ttto0sphx8o0+slrt8ezo9pqso/w+qgjympo0rk71sht2rk71qq1wnfuvlq4w9t1w7tx9qgj0vloqsqx0plnvnbq09c63lbgss7k/aosztldu9pqwls1w7ywvnojrmv50ttu2txiwo++zbk7zpmz9th5sb7atmhloam8l3a+cjxwps/cw+ajrldrztk1xlv6t7/k1bfrz7xns7xetcfcvbmmxny0+slrzpmz9sc0upq087zszl3m1tk7z8kjrmjnufvt0lj8uso1xmq1z9a3vbeoo6zpo837srvb37tnvcyjotwvcd4kpha+phn0cm9uzz5vsbljpc9zdhjvbmc+pc9wpgo8cd48l3a+cjxwcmugy2xhc3m9"brush:java;">public class frmlogin
'''
username = txtusername.text.trim()
me.hide()
frmmain.show()
else
msgbox("用户名或密码错误，请重新输入！", vbokcancel + vbexclamation, "提示")
txtusername.text = ""
txtpassword.text = ""
txtusername.focus()
end if
end sub
facade层
public class loginfacade
' '''
' ''' 登录功能的外观方法
' '''
' ''' 用户名
' ''' 密码
' '''
' ''' 返回登录是否成功的结果
' '''
' '''
' '''
public function facuserlogin(byval user as entity.userinfoentity) as boolean
'实例化一个b层变量
dim userlog as new bll.loginmanagerbll
'定义一个返回值变量
dim bool as boolean
bool = userlog.userlogin(user)
return bool
end function
end class
bll层
imports idal
imports factory
imports entity
public class loginmanagerbll 'b层
public function userlogin(byval user as entity.userinfoentity) as boolean
'定义一个接口变量
dim iuser as idal.iuser
'定义并实例化一个工厂变量
dim factory as new factory.userfactory
'定义一个实体型变量
dim userinfo as entity.userinfoentity
'实例化
userinfo = new userinfoentity
iuser = factory.creatuser() '用工厂实现一个接口
dim bool as boolean
userinfo = iuser.queryuserinfo(user) '调用d层方法
if userinfo.getusername = "" then
bool = true
end if
return bool
end function
end class
factory层
imports system.reflection
imports system.configuration
imports idal
public class userfactory '抽象工厂
'''
''' 抽象工厂+反射+配置文件
'''
'''
private shared readonly assemblyname as string = "dal" '定义程序集名称变量，d层的命名空间的名字
private shared readonly db as string = configurationmanager.appsettings("db") '将数据库类型通过文件形式读取到变量db中
'用于实例化sqluserdal 类
public function creatuser() as iuser
dim iuser as iuser
dim classname as string
'拼接字符串，得到d层类名
classname = assemblyname + "." + db + "userdal"
iuser = ctype(assembly.load(assemblyname).createinstance(classname), iuser)
return iuser
end function
end class
idal层
public interface iuser
function queryuserinfo(byval user as entity.userinfoentity) as entity.userinfoentity
function modifypwd(byval user as entity.userinfoentity) as integer
end interface
dal层
imports idal
imports system.data.sqlclient
imports system.data
'''
''' 查询用户是否存在
'''
'''
public class sqluserdal : implements iuser
private sqlhelper as dbhelper = new dbhelper '实例化一个sqlhelper类
public function queryuserinfo(byval user as entity.userinfoentity) as entity.userinfoentity implements iuser.queryuserinfo
dim sqlparas as sqlparameter() = {new sqlparameter("@username", trim(user.getusername)),
new sqlparameter("@password", user.getpassword)}
dim strsql as string = "select * from t_user where userid =@username and password = @password "
dim datatable as datatable = sqlhelper.getdatatable(strsql, commandtype.text, sqlparas)
dim textuser as new entity.userinfoentity
if (datatable.rows.count 0) then
textuser.getusername = datatable.rows(0).item("userid")
textuser.getpassword = datatable.rows(0).item("password")
return textuser
else
return textuser
end if
end function