访问|数据
数据库表
Tbl_Teacher
数据字段名称
类型
说明
teaID
Int
自动编号
teaCode
Char(20)
教师员工号
teaName
Nchar(10)
?
teaGender
Bit
?
teaNation
Nchar(6)
?
teaAge
TinyInt
?
Tbl_Student
数据字段名称
类型
说明
stuID
Int
自动编号
stuCode
Char(20)
学生证号
stuTeacherCode
Char(20)
班主任的员工号
stuName
Nchar(10)
姓名
stuGender
Bit
性别
stuNation
Nchar(6)
民族
stuAge
TinyInt
年龄
stuClassID
Int
班级的ＩＤ
用以描述这两张表的XML文件，该XML文件存放的是这两种表的结构信息
假设该文件的名称位? DB.XML
Tbl_Teacher
Name
DBName
Type
Seed
Key
ID
teaID
Integer
1
1
Code
teaCode
String
0
0
Name
teaName
String
0
0
Gender
teaGender
Boolean
0
0
Nation
teaNation
String
0
0
Age
teaAge
Integer
0
0
Tbl_Student
Name
DBName
Type
Seed
Key
ID
stuID
Integer
1
1
Code
stuCode
String
0
0
TeacherCode
stuTeacherCode
String
0
0
Name
stuName
String
0
0
Gender
stuGender
Boolean
0
0
Nation
stuNation
String
0
0
Age
stuAge
Integer
0
0
ClassID
stuClassID
Integer
0
0
必须的类
clsSQLHelper:微软的数据访问辅助类
clsSQLBuilder:根据配置文件生成相应SQL语句的类 见轻松搞定数据访问层[续1]
clsDataAccessOper:所以操作类的父类，提供通用的数据操作方法 见轻松搞定数据访问层[续2]
clsDataAccess:暂时没有什么用
数据类和访问类
实体类clsTeacher 的属性(Property),与数据库字段一一对应
Property ID as Integer
Property Code as String
Property Name as String
Property Gender as Boolean
Property Nation as string
Property Age as integer
实体类clsStudent
Property ID as Integer
Property Code as String
Property TeacherCode as String
Property Name as string
Property Gender as Boolean
Property Nation as string
Property Age as Integer
Property ClassID as Integer
注意:上面两个类的具体代码就不用写了吧
访问类clsTeacherOper 从 clsDataAccessOper 继承
Public class clsTeacherOper
Public Function getAll() as ArrayList
Return clsDataAccessOper.Select((New clsTeacher).GetType)
End Function
Public Function getTeacherByCode(Code as string) as clsTeacher
sDataAccessOper.SelectKeys("Code") = Code
Return clsDataAccessOper.Select((New clsTeacher).GetType).Item(0)
End Function
'以下方法类似，实现的是一些如 getXXX by YYY 的查询
'据操作如添加/删除/修改全部从 clsDataAccessOper 中继承
'这里的查询方法都可以用 clsDataAccessOper.SelectKeys(“”)=… 实现
'只是为了提供更友好的接口,如果你时间紧迫可以把
' clsDataAccessOper.SelectKeys/Select 方法提交给逻辑层或表示层的程序员
End Class
访问类 clsStudentOper从 clsDataAccessOper 继承
(同 clsTeacherOper 类)
上篇<<轻松搞定数据访问层>>文章有人说我代码太少，看不懂。其实我只想说明一下道理。
现在，我贴出 clsSQLBuilder clsDataAccessOper 这两个核心类的全部代码。这也只是想更明白的说清楚道理。这两个类还是第一版本，代码质量不是很高，一些异常没有抛出.只是实现了一些功能。
顺便提到的是，实体类可以通过数据库脚本生成，这个工具当然是要自己写的了。工具很简单，两三百行就可以搞定。还有那个数据库结构信息的XML文件自己写也很麻烦，所以也可以写一个自动生成它的工具。
这都不是这个文章讨论的重点，这里就不介绍怎样才能生成那些模样几乎相同的代码了。
这种数据访问方法的优点在于：
如果你的数据库有变动，比如说tbl_Teahcer 表加了一个字段职称(teaTitle)，那么你只需要在 clsTeacher 表里加一个属性 Property Title，然后在 DB.XML 文件中的 tblTeacher 里加一条记录 Title|teaTitle|String|0|0就可以了。
编码速度快，除了这两个核心类，数据实体类可以自动生成，访问类也只是简单的写一些查询方法.
不用写SQL语句。
使用方法举例：
添加一个教师
Dim newTeacher as New clsTeacher
With newTeahcer
‘ 此处如果有ID的赋值，将被忽略，因为是自动增加值。见 clsSQLBuilder
.Name=”Haha”
.Code=”2001”
.Gender=True
…
End With
clsTeacherOper.Add(newTeacher)
添加一个学生
Dim newStudent as new clsStudent
With newStudent
.Name=”Tom”
.Gender=True
.TeacherCode=”2001”
…
End with
clsStudentOper.Add(newStudent)
更新删除类似(这里就不举例了)。
现在再就添加一个教师的程序流程大概介绍一下。
当执行 clsTeacherOper.Add(newTeancher) 后，clsDataAccessOper.Add 会把 newTeacher继续传递给 clsSQLBuilder.Add() 方法,在这个方法里,clsSQLBuilder首先取得该对象的类型
在这里是 “clsTeacher” 这个类型字符串和 DB.XML 文件中 tblTeacher 有一一对应的关系，这里是去掉前缀 cls,加上前缀 tbl.你也可以用其它更灵活的方法,如:把映射关系记录到文件中.
然后遍历DB.xml文件中的tblTeacher 表的所有行,其中用到反射方法,以 在知道对象属性名称的情况下取得该属性的值(这其中我也波折了一下,开始用 InvokeMember调用,好麻烦.最后发现竟然有一个 CallByName的方法,用起来特简单.其实它也是封装了InvokeMember,).最终生成这样的SQL语句返回.
Insert Into tblTeacher(Name,Code,Gender…) values (‘Haha’,’2001’,1…)
(有几点要注意,在Add/Delete/Update不同的操作方法里面,对数据表字段有不同的要求.比如在添加时,不能对自动编号ID赋值,所以上面的SQL语句就没有ID字段.这里我只用了Seek和Key的字段属性,其实还可以添加其它属性,如数字型的最大值,字符型验证的正则表达式.以在clsSQLBuilder中完成数据验证操作)
最后clsDataAccessOper.Add 方法用这个SQL语句连接数据库,进行操作.
clsDataAccessOper和clsSQLBuilder我就不详细解说了.代码都贴出来了,自己看吧