392 lines
17 KiB
VB.net
392 lines
17 KiB
VB.net
|
Imports UTS_Core.Database
|
|||
|
|
Imports UTS_Core.UTSModule.DbTableModel.Customer
|
|||
|
|
Imports UTS_Core.UTSModule.Test
|
|||
|
|
Imports UTS_Core.UTSModule.Test.TestResult
|
|||
|
|
|
|||
|
|
Public Class AttributeTest
|
|||
|
|
|
|||
|
|
Enum ColNames
|
|||
|
|
No
|
|||
|
|
Content
|
|||
|
|
DataSource
|
|||
|
|
SendData
|
|||
|
|
PassResult
|
|||
|
|
RetryCount
|
|||
|
|
RetryInterval
|
|||
|
|
ReadInterval
|
|||
|
|
OperatingMode
|
|||
|
|
Lower
|
|||
|
|
Upper
|
|||
|
|
TestVal
|
|||
|
|
TestResult
|
|||
|
|
IsRecord
|
|||
|
|
RecordName
|
|||
|
|
Max
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Val_mac As String
|
|||
|
|
Public Val_version As String
|
|||
|
|
Public Val_voltage As String
|
|||
|
|
Public Val_tempre As String
|
|||
|
|
Public Val_humiture As String
|
|||
|
|
Public Val_keyleft As String
|
|||
|
|
Public Val_keyright As String
|
|||
|
|
Public Val_pir As String
|
|||
|
|
|
|||
|
|
Public Userkeyval_Key As IO.Ports.SerialPort
|
|||
|
|
Public Userkeyval_Rictext As RichTextBox
|
|||
|
|
Public cmdcolor As Color
|
|||
|
|
Public txtcolor As Color
|
|||
|
|
|
|||
|
|
Public Userkeyval_ComboBox As ComboBox
|
|||
|
|
Public Userkeyval_ProgressBar As ProgressBar
|
|||
|
|
Public Userkeyval_Station As Label
|
|||
|
|
Public Userkeyval_PASS As Label
|
|||
|
|
Public Userkeyval_StepTip As Label
|
|||
|
|
Public Userkeyval_Tip As Label
|
|||
|
|
Public Userkeyval_check As CheckBox
|
|||
|
|
Public Userkeyval_grid As FlexCell.Grid
|
|||
|
|
|
|||
|
|
Public Userkeyval_TestTable As TestResult
|
|||
|
|
|
|||
|
|
Sub New（ByRef grid As FlexCell.Grid）
|
|||
|
|
Userkeyval_grid = grid
|
|||
|
|
UpdateStepTestRecord1()
|
|||
|
|
DefaultData()
|
|||
|
|
Userkeyval_TestTable = New TestResult
|
|||
|
|
End Sub
|
|||
|
|
#Region "初始化表格"
|
|||
|
|
Public Sub UpdateStepTestRecord1()
|
|||
|
|
With Userkeyval_grid
|
|||
|
|
.AutoRedraw = False
|
|||
|
|
'.AutoSize = True
|
|||
|
|
.Cols = ColNames.Max
|
|||
|
|
.Rows = 1
|
|||
|
|
.ExtendLastCol = True '最后一列自动扩充
|
|||
|
|
.DisplayRowNumber = True '首列显示数字
|
|||
|
|
|
|||
|
|
For col As Integer = 0 To ColNames.Max - 1
|
|||
|
|
.Cell(0, col).Text = [Enum].GetName(GetType(ColNames), col) '设置列名
|
|||
|
|
.Column(col).CellType = FlexCell.CellTypeEnum.TextBox '设置列型
|
|||
|
|
If col = ColNames.Content OrElse col = ColNames.SendData Then
|
|||
|
|
.Column(col).Width = 140 '设置列宽
|
|||
|
|
Else
|
|||
|
|
.Column(col).Width = 70 '设置列宽
|
|||
|
|
End If
|
|||
|
|
.Column(col).Alignment = FlexCell.AlignmentEnum.RightCenter '设置对齐位置
|
|||
|
|
Next
|
|||
|
|
.ForeColorComment = Color.Blue
|
|||
|
|
|
|||
|
|
' .FrozenCols = ColNames.Description '冻结列
|
|||
|
|
|
|||
|
|
.AutoRedraw = True
|
|||
|
|
.Refresh()
|
|||
|
|
End With
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "加載表格數據"
|
|||
|
|
Public Sub DefaultData()
|
|||
|
|
|
|||
|
|
Dim SendDatalist As New List(Of List(Of String））
|
|||
|
|
UartSendDataList(SendDatalist， "确认设备MAC地址", "设备", "mac", "", "5", "100", "", "len", "", "", "", "", "Y", "DUT_SN")
|
|||
|
|
UartSendDataList(SendDatalist， "确认设备固件版本", "设备", "version", "", "5", "100", "", "comparison", "0.1.1.1", "0.1.1.1", "", "", "Y", "FW_Ver")
|
|||
|
|
UartSendDataList(SendDatalist， "确认设备电压", "设备", "voltage", "", "5", "100", "", "scope", "1.8", "2.3", "", "", "Y", "Volt")
|
|||
|
|
UartSendDataList(SendDatalist， "确认设备温度", "设备", "tempre", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Temp")
|
|||
|
|
UartSendDataList(SendDatalist， "确认设备湿度", "设备", "humiture", "", "5", "100", "", "null", "", "", "", "", "Y", "DUT_Humid")
|
|||
|
|
UartSendDataList(SendDatalist， "确认环境温度", "uts", "tempre", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Temp")
|
|||
|
|
UartSendDataList(SendDatalist， "确认环境湿度", "uts", "humiture", "", "", "", "", "null", "", "", "", "", "Y", "Enov_Humdi")
|
|||
|
|
UartSendDataList(SendDatalist， "确认温度误差", "设备-uts", "4", "6", "", "", "", "null", "", "", "", "", "Y", "Diff_Temp")
|
|||
|
|
UartSendDataList(SendDatalist， "确认湿度误差", "设备-uts", "5", "7", "", "", "", "null", "", "", "", "", "Y", "Diff_Humidi")
|
|||
|
|
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "提示：请打开PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "提示：请关闭PIR窗口", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认PIR数值", "设备", "pir", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "提示：请按下左键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "提示：请按下右键", "设备", "tip", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
|
|||
|
|
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "提示：请松开按键", "设备", "tip", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认左键键值", "设备", "keyleft", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "确认右键键值", "设备", "keyright", "", "5", "100", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "读取平均电流", "uts", "run", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
UartSendDataList(SendDatalist， "读取峰值电流", "uts", "current", "", "", "", "", "null", "", "", "", "", "", "")
|
|||
|
|
Grid5AddRow(SendDatalist)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Function GetDeviceData(rowid As Integer, attri As String) As Boolean
|
|||
|
|
If attri.ToLower.Equals("mac") Then
|
|||
|
|
Return checkoutRusli(Val_mac, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("version") Then
|
|||
|
|
'SetAttriGridt(Userkeyval_grid, rowid, ColNames.TestVal, )
|
|||
|
|
Return checkoutRusli(Val_version, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("voltage") Then
|
|||
|
|
Return checkoutRusli(Val_voltage, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("tempre") Then
|
|||
|
|
Return checkoutRusli(Val_tempre, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("humiture") Then
|
|||
|
|
Return checkoutRusli(Val_humiture, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("pir") Then
|
|||
|
|
Return checkoutRusli(Val_pir, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("keyleft") Then
|
|||
|
|
Return checkoutRusli(Val_keyleft, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("keyright") Then
|
|||
|
|
Return checkoutRusli(Val_keyright, rowid)
|
|||
|
|
ElseIf attri.ToLower.Equals("tip") Then
|
|||
|
|
Settiptext(Userkeyval_Tip, Userkeyval_grid.Cell(rowid, ColNames.Content).Text.Trim)
|
|||
|
|
Return True
|
|||
|
|
End If
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Function checkoutRusli(Attri As String, rowid As Integer) As Boolean
|
|||
|
|
Dim celltxt As String = Userkeyval_grid.Cell(rowid, ColNames.OperatingMode).Text.Trim
|
|||
|
|
SetAttriGridt(Userkeyval_grid, rowid, ColNames.TestVal, Attri)
|
|||
|
|
If celltxt.Equals("len") Then
|
|||
|
|
If Attri.Length = 6 Then
|
|||
|
|
Return True
|
|||
|
|
Else
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
ElseIf celltxt.Equals("comparison") Then
|
|||
|
|
Dim Lower As String = Userkeyval_grid.Cell(rowid, ColNames.Lower).Text.Trim
|
|||
|
|
Dim Upper As String = Userkeyval_grid.Cell(rowid, ColNames.Upper).Text.Trim
|
|||
|
|
If Attri.Contains(Lower) OrElse Attri.Contains(Upper) Then
|
|||
|
|
Return True
|
|||
|
|
Else
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
ElseIf celltxt.Equals("scope") Then
|
|||
|
|
Dim Attriint As Double = 0
|
|||
|
|
Dim Lowerint As Double = 0
|
|||
|
|
Dim Upperint As Double = 0
|
|||
|
|
|
|||
|
|
If Not Double.TryParse(Attri, Attriint) OrElse Not Double.TryParse(Attri, Lowerint) OrElse Not Double.TryParse(Attri, Lowerint) Then
|
|||
|
|
Return False
|
|||
|
|
End If
|
|||
|
|
If Attriint > Lowerint OrElse Attriint < Upperint Then
|
|||
|
|
Return False
|
|||
|
|
Else
|
|||
|
|
Return True
|
|||
|
|
End If
|
|||
|
|
ElseIf celltxt.Equals("Null") Then
|
|||
|
|
Return True
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Function UartSendDataList(ByRef SendDatalist As List(Of List(Of String））， ParamArray ptr（） As String) As List(Of String）
|
|||
|
|
|
|||
|
|
Dim Datalist As New List(Of String）
|
|||
|
|
Datalist.AddRange(ptr)
|
|||
|
|
SendDatalist.Add(Datalist)
|
|||
|
|
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Sub Grid5AddRow(SendDatalist As List(Of List(Of String））)
|
|||
|
|
If SendDatalist.Count < 1 Then Return
|
|||
|
|
|
|||
|
|
For rowindex As Integer = 0 To SendDatalist.Count - 1
|
|||
|
|
|
|||
|
|
Dim Datalist As List(Of String） = SendDatalist.Item(rowindex)
|
|||
|
|
|
|||
|
|
|
|||
|
|
AddRowToTable(Userkeyval_grid, Datalist)
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
Public Sub AddRowToTable（tablegrid As FlexCell.Grid, Datalist As List(Of String））
|
|||
|
|
tablegrid.AddItem("")
|
|||
|
|
For colid As Integer = 1 To ColNames.Max - 1
|
|||
|
|
tablegrid.Cell(tablegrid.Rows - 1, colid).Text = Datalist.Item(colid - 1)
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
#Region "流程动作"
|
|||
|
|
|
|||
|
|
Delegate Sub IPSettiptext(tablegrid As Label, txt As String)
|
|||
|
|
Public Sub Settiptext(tablegrid As Label, txt As String)
|
|||
|
|
If tablegrid.InvokeRequired Then
|
|||
|
|
tablegrid.Invoke(New IPSettiptext(AddressOf Settiptext), New Object() {tablegrid, txt})
|
|||
|
|
Else
|
|||
|
|
tablegrid.Text = txt
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Delegate Sub IPSetAttriGridt(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
|||
|
|
Public Sub SetAttriGridt(tablegrid As FlexCell.Grid, trowel As Integer, tcol As Integer, txt As String)
|
|||
|
|
If tablegrid.InvokeRequired Then
|
|||
|
|
tablegrid.Invoke(New IPSetAttriGridt(AddressOf SetAttriGridt), New Object() {tablegrid, trowel, tcol, txt})
|
|||
|
|
Else
|
|||
|
|
tablegrid.Cell(trowel, tcol).Text = txt
|
|||
|
|
If trowel = ColNames.TestResult Then
|
|||
|
|
Userkeyval_PASS.Text = txt
|
|||
|
|
If txt.ToLower.Equals（"pass"） Then
|
|||
|
|
Userkeyval_PASS.BackColor = Color.Green
|
|||
|
|
ElseIf txt.ToLower.Equals（"false"） Then
|
|||
|
|
Userkeyval_PASS.BackColor = Color.Red
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Userkeyval_ProgressBar.Value =trowel
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub clearGridResult(tablegrid As FlexCell.Grid)
|
|||
|
|
For rowid As Integer = 1 To tablegrid.Rows - 1
|
|||
|
|
SetAttriGridt(tablegrid, rowid, ColNames.TestResult, "")
|
|||
|
|
SetAttriGridt(tablegrid, rowid, ColNames.TestVal, "")
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Function ADDTestRecordVal(testattribute As TestTableAttribute) As Dictionary(Of String, String)
|
|||
|
|
Dim dic As New Dictionary(Of String, String) From {
|
|||
|
|
{$"{TestLogTable.ColNames.UserID}", testattribute.UserID.ToString()},
|
|||
|
|
{$"{TestLogTable.ColNames.ServiceID}", testattribute.ServiceID.ToString()},
|
|||
|
|
{$"{TestLogTable.ColNames.DUT_SN}", testattribute._dutSn},
|
|||
|
|
{$"{TestLogTable.ColNames.AppName}", testattribute.AppName},
|
|||
|
|
{$"{TestLogTable.ColNames.TestPlan}", testattribute.TestPlan},
|
|||
|
|
{$"{TestLogTable.ColNames.StartTime}", testattribute.StartTime.ToString("yyyy-MM-dd HH:mm:ss")},
|
|||
|
|
{$"{TestLogTable.ColNames.UsedTime}", testattribute.TotalSeconds.ToString("F2")},
|
|||
|
|
{$"{TestLogTable.ColNames.TestResult}", IIf(testattribute.TestResult = TestResultEnum.Fail, 0, 1).ToString()},
|
|||
|
|
{$"{TestLogTable.ColNames.ErrCode}", testattribute.ErrCode},
|
|||
|
|
{$"{TestLogTable.ColNames.ProductionLineID}", testattribute.ProductionLineID.ToString()},
|
|||
|
|
{$"{TestLogTable.ColNames.OrderID}", testattribute.OrderID.ToString()}
|
|||
|
|
}
|
|||
|
|
dic.Add($"{TestLogTable.ColNames.FailSteps}", testattribute.rownum.ToString())
|
|||
|
|
dic.Add($"{TestLogTable.ColNames.FailMsg}", testattribute.TertResult & testattribute.UpVal & testattribute.loadVal)
|
|||
|
|
|
|||
|
|
For Each keyValue As KeyValuePair(Of String, String) In testattribute.AddSelf
|
|||
|
|
If dic.ContainsKey(keyValue.Key) Then
|
|||
|
|
dic(keyValue.Key) = keyValue.Value
|
|||
|
|
Else
|
|||
|
|
dic.Add(keyValue.Key, keyValue.Value)
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
Return dic
|
|||
|
|
End Function
|
|||
|
|
Public Sub UpdateTestLogToRemote(db As DbExecutor, dbName As String, tbName As String, result As TestTableAttribute)
|
|||
|
|
Dim field As Dictionary(Of String, String) = ADDTestRecordVal(result)
|
|||
|
|
|
|||
|
|
'新增不存在的字段
|
|||
|
|
CheckTestLogFiledToRemote(db, dbName, tbName, field)
|
|||
|
|
|
|||
|
|
'添加测试记录
|
|||
|
|
Dim cmdText As String = db.CmdHelper.DbInsert(dbName, tbName, field)
|
|||
|
|
db.ExecuteNonQuery(cmdText)
|
|||
|
|
End Sub
|
|||
|
|
#End Region
|
|||
|
|
''' <summary>
|
|||
|
|
''' 检测测试记录字段名是否存在远端数据库，如果不存在则新增，存在则检测字段长度是否需要加长
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="db">数据库执行器</param>
|
|||
|
|
''' <param name="dbName">数据库名</param>
|
|||
|
|
''' <param name="tbName">数据表名</param>
|
|||
|
|
''' <param name="field">测试记录字段集合</param>
|
|||
|
|
Public Shared Sub CheckTestLogFiledToRemote(db As DbExecutor, dbName As String, tbName As String, field As Dictionary(Of String, String))
|
|||
|
|
Dim dtCol As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearchAll(dbName, tbName, "1 = 0"))
|
|||
|
|
|
|||
|
|
Dim fieldName As List(Of String) = field.Keys.ToList
|
|||
|
|
Dim typeString As String
|
|||
|
|
Dim length As Integer
|
|||
|
|
For Each colName As String In fieldName
|
|||
|
|
If String.IsNullOrWhiteSpace(colName) Then Continue For '剔除无效数据库字段名
|
|||
|
|
|
|||
|
|
If dtCol.Columns.Contains(colName) Then '当前数据表是否已经存在对应列信息
|
|||
|
|
Select Case dtCol.Columns(colName).DataType.Name
|
|||
|
|
Case "String" '仅处理VarChar类型
|
|||
|
|
If field(colName).Length > dtCol.Columns(colName).MaxLength Then
|
|||
|
|
length = GetFiledLength(field(colName).Length)
|
|||
|
|
If length = -1 Then
|
|||
|
|
Throw New Exception($"字段[{colName}] 超过最大长度2048的限制,无法入库!")
|
|||
|
|
Else
|
|||
|
|
typeString = $"varchar({length})"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'修改列字段长度
|
|||
|
|
db.ExecuteNonQuery($"Call `{dbName}`.`AlterTestLogFiled`('{dbName}','{tbName}','{colName}','{length}')")
|
|||
|
|
End If
|
|||
|
|
Case Else
|
|||
|
|
Console.WriteLine(colName & ":" & dtCol.Columns(colName).DataType.Name)
|
|||
|
|
End Select
|
|||
|
|
Else
|
|||
|
|
length = GetFiledLength(field(colName).Length)
|
|||
|
|
If length = -1 Then
|
|||
|
|
Throw New Exception($"字段[{colName}] 超过最大长度4096的限制,无法入库!")
|
|||
|
|
Else
|
|||
|
|
typeString = $"varchar({length})"
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
'插入字段语句
|
|||
|
|
db.ExecuteNonQuery($"Call `{dbName}`.`AlterTestLogFiled`('{dbName}','{tbName}','{colName}','{length}')")
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End Sub
|
|||
|
|
Private Shared Function GetFiledLength(len As Integer) As Integer
|
|||
|
|
Dim result As Integer
|
|||
|
|
If len = 0 Then
|
|||
|
|
result = 8
|
|||
|
|
ElseIf len <= 2048 Then
|
|||
|
|
If len Mod 8 = 0 Then
|
|||
|
|
result = len
|
|||
|
|
Else
|
|||
|
|
result = ((len \ 8) + 1) * 8
|
|||
|
|
End If
|
|||
|
|
Else
|
|||
|
|
result = -1
|
|||
|
|
End If
|
|||
|
|
Return result
|
|||
|
|
End Function
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Class TestTableAttribute
|
|||
|
|
Public UserID As String
|
|||
|
|
Public ServiceID As String
|
|||
|
|
Public _dutSn As String
|
|||
|
|
Public AppName As String
|
|||
|
|
Public TestPlan As String
|
|||
|
|
Public StartTime As Date
|
|||
|
|
Public TotalSeconds As Double
|
|||
|
|
Public TestResult As TestResultEnum
|
|||
|
|
Public ErrCode As String
|
|||
|
|
Public ProductionLineID As Integer
|
|||
|
|
Public OrderID As Integer
|
|||
|
|
|
|||
|
|
Public rownum As Integer
|
|||
|
|
Public TertResult As String
|
|||
|
|
Public UpVal As String
|
|||
|
|
Public loadVal As String
|
|||
|
|
|
|||
|
|
Public AddSelf As Dictionary(Of String, String)
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
AddSelf = New Dictionary(Of String, String)
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Sub AddSelfAttribute（clunm As String, val As String）
|
|||
|
|
AddSelf.Add(clunm, val)
|
|||
|
|
End Sub
|
|||
|
|
Public Sub AddSelfClear（）
|
|||
|
|
AddSelf.Clear()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|