系统设计中的业务验证设计1
2005-06-29 23:45
344 查看
要求业务验证的情况大致可以分为3类
1、某一个值本身需要验证
2、仅当另外一个值出现时,某一个值需要验证
3、仅当另外一个数据集里面包含的某一个数据满足某个条件时,某一个值需要验证
业务逻辑的验证要求验证方法集中处理,尽量避免在整个系统中对同一个值存在多个业务验证。
验证:返回true或false的方法,该方法必须包含两个参数,1、验证数据本身;2、验证数据的处理方法
验证中必须理解的技术:
delegate:表示委托,委托是一种数据结构,它引用静态方法或引用类实例及该类的实例方法。要求被引用方法的参数和返回值和delegate声明的方法一致的类。该类的方法就可以被delegate类型调用。
一下为两个例子:
例子一:
Public Class SamplesDelegate
' 为一个方法申明委托
Delegate Function myMethodDelegate(myInt As Integer) As [String]
' 申明委托能够指向的方法
Public Class mySampleClass
' 定义需要实例化的方法.
Public Function myStringMethod(myInt As Integer) As [String]
If myInt > 0 Then
Return "positive"
End If
If myInt < 0 Then
Return "negative"
End If
Return "zero"
End Function 'myStringMethod
' 定义静态方法
Public Shared Function mySignMethod(myInt As Integer) As [String]
If myInt > 0 Then
Return "+"
End If
If myInt < 0 Then
Return "-"
End If
Return ""
End Function 'mySignMethod
End Class 'mySampleClass
Public Shared Sub Main()
' 为每个方法申明一个委托myD1,myD2.
Dim mySC As New mySampleClass()
Dim myD1 As New myMethodDelegate(AddressOf mySC.myStringMethod)'引用实例方法
Dim myD2 As New myMethodDelegate(AddressOf mySampleClass.mySignMethod)'引用静态方法
' 通过委托调用.
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", 5, myD1(5), myD2(5))
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", - 3, myD1(- 3), myD2(- 3))
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", 0, myD1(0), myD2(0))
End Sub 'Main
End Class 'SamplesDelegate
例子二:
ByVal y As Integer) As Boolean
'申明委托指向的实例方法
Function CompareValues(ByVal X As Integer, _
ByVal Y As Integer) As Boolean
If X > Y Then
CompareValues = True
Else
CompareValues = False
End If
End Function
'声明使用委托的方法
Sub SelectionSort(ByVal IsGreaterThan As Compare, _
ByVal IntArray() As Integer)
Dim MaxVal As Integer
Dim MaxIndex As Integer
Dim i, j As Integer
' Step through the elements in the array starting with the
' last element in the array.
For i = UBound(IntArray) To 1 Step -1
MaxVal = IntArray(i)
MaxIndex = i
For j = 1 To i
' 使用委托.
If IsGreaterThan.Invoke(IntArray(j), MaxVal) Then
MaxVal = IntArray(j)
MaxIndex = j
End If
Next j
' 使用委托.
If IsGreaterThan.Invoke(i, MaxIndex) Then
IntArray(MaxIndex) = IntArray(i)
IntArray(i) = MaxVal
End If
Next i
End Sub
End Class
Class Class1
Sub SortArray()
'声明被委托指向的实例化对象
Dim Sort As New SortClass()
Dim arr1() As Integer = {1, 5, 3, 2, 7, 22, 5, 54, 12}
Sort.SelectionSort(AddressOf Sort.CompareValues, arr1)
MsgBox("Array sorted.")
End Sub
End Class
'测试
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim c As New Class1()
c.SortArray()
End Sub[/code]
1、某一个值本身需要验证
2、仅当另外一个值出现时,某一个值需要验证
3、仅当另外一个数据集里面包含的某一个数据满足某个条件时,某一个值需要验证
业务逻辑的验证要求验证方法集中处理,尽量避免在整个系统中对同一个值存在多个业务验证。
验证:返回true或false的方法,该方法必须包含两个参数,1、验证数据本身;2、验证数据的处理方法
验证中必须理解的技术:
delegate:表示委托,委托是一种数据结构,它引用静态方法或引用类实例及该类的实例方法。要求被引用方法的参数和返回值和delegate声明的方法一致的类。该类的方法就可以被delegate类型调用。
一下为两个例子:
例子一:
Public Class SamplesDelegate
' 为一个方法申明委托
Delegate Function myMethodDelegate(myInt As Integer) As [String]
' 申明委托能够指向的方法
Public Class mySampleClass
' 定义需要实例化的方法.
Public Function myStringMethod(myInt As Integer) As [String]
If myInt > 0 Then
Return "positive"
End If
If myInt < 0 Then
Return "negative"
End If
Return "zero"
End Function 'myStringMethod
' 定义静态方法
Public Shared Function mySignMethod(myInt As Integer) As [String]
If myInt > 0 Then
Return "+"
End If
If myInt < 0 Then
Return "-"
End If
Return ""
End Function 'mySignMethod
End Class 'mySampleClass
Public Shared Sub Main()
' 为每个方法申明一个委托myD1,myD2.
Dim mySC As New mySampleClass()
Dim myD1 As New myMethodDelegate(AddressOf mySC.myStringMethod)'引用实例方法
Dim myD2 As New myMethodDelegate(AddressOf mySampleClass.mySignMethod)'引用静态方法
' 通过委托调用.
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", 5, myD1(5), myD2(5))
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", - 3, myD1(- 3), myD2(- 3))
Console.WriteLine("{0} is {1}; use the sign ""{2}"".", 0, myD1(0), myD2(0))
End Sub 'Main
End Class 'SamplesDelegate
例子二:
Public Class SortClass
'声明委托 [code]Delegate[/b]Function Compare(ByVal x As Integer, _
ByVal y As Integer) As Boolean
'申明委托指向的实例方法
Function CompareValues(ByVal X As Integer, _
ByVal Y As Integer) As Boolean
If X > Y Then
CompareValues = True
Else
CompareValues = False
End If
End Function
'声明使用委托的方法
Sub SelectionSort(ByVal IsGreaterThan As Compare, _
ByVal IntArray() As Integer)
Dim MaxVal As Integer
Dim MaxIndex As Integer
Dim i, j As Integer
' Step through the elements in the array starting with the
' last element in the array.
For i = UBound(IntArray) To 1 Step -1
MaxVal = IntArray(i)
MaxIndex = i
For j = 1 To i
' 使用委托.
If IsGreaterThan.Invoke(IntArray(j), MaxVal) Then
MaxVal = IntArray(j)
MaxIndex = j
End If
Next j
' 使用委托.
If IsGreaterThan.Invoke(i, MaxIndex) Then
IntArray(MaxIndex) = IntArray(i)
IntArray(i) = MaxVal
End If
Next i
End Sub
End Class
Class Class1
Sub SortArray()
'声明被委托指向的实例化对象
Dim Sort As New SortClass()
Dim arr1() As Integer = {1, 5, 3, 2, 7, 22, 5, 54, 12}
Sort.SelectionSort(AddressOf Sort.CompareValues, arr1)
MsgBox("Array sorted.")
End Sub
End Class
'测试
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim c As New Class1()
c.SortArray()
End Sub[/code]
相关文章推荐
- 系统设计中的业务验证设计3
- 系统设计中的业务验证设计2
- 系统设计中的业务验证设计4
- 小额担保业务管理系统详细设计介绍
- 统一平台:业务系统设计
- K8 系统中省市县数据表的设计可以反映出什么? 通过一个基础业务表的设计品味软件系统的整体架构
- 用三层架构与设计模式思想部署企业级数据库业务系统开发
- (转)用三层架构与设计模式思想部署企业级数据库业务系统开发
- 架构设计:系统存储(13)——MySQL横向拆分与业务透明化(1)
- Koala业务日志系统设计说明
- 实现业务系统中的用户权限管理--设计篇
- 应用系统业务撤销设计
- 应用系统业务撤销设计
- 互联网移动业务服务端系统架构设计演化
- 业务系统中用户权限数据库表格的设计
- 请设计各种管理系统、业务系统的大哥大姐们,设计新系统时,拜托您,请允许我修改用户名、密码
- 系统设计其实很有趣--从业务逻辑谈起
- 实现业务系统中的用户权限管理--设计篇
- 【转】业务系统中的用户权限管理之设计篇
- 架构设计:系统存储(12)——MySQL主从方案业务连接透明化(中)