联合分析开发计划联合分析开发计划定义 多维数组 统计属性数目 以此 定义 0 维长度由每个属性的水平数 计算 该组数组的长度二因法 跳过 读取 对象对称设计表 读取 喜好顺序 表顺位各个对象该对象的喜好度各属性的所在的水平与多维数组该属性的该水平上加上这个喜好度各属性各水平的总喜好度/被加和的次数 = 该水平的平均喜好度总喜好度/（喜好顺序数*该顺序中对象的个数）= 期望喜好度喜好偏差 = 该水平的平均喜好度 - 期望喜好度计算喜好偏差平方计算各水平各偏差的平方和成分效用值 L = 开平方 （ 偏差平方 * 总水平 / 各水平各偏差的平方和 ）属性重要度 = 同属性最大效用 - 最小效用检验（当喜好表只有 1 行时）把各个效用值代回 对象对称表 对 各对象合计其 总效用值排序和原序列对比 算吻合度Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.ClickIf Me.TextEdit4.Text.Trim = “ ThenMsgBox(“请输入新调查的名称“)Exit SubEnd IfIf MsgBox(“是否录入新的调查档案? 如果已同名档案则会被覆盖!“, MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit SubDim Comm As SqlCommandDim Mysql As StringDim Stran As SqlTransactionDim PorjectId As IntegerdbCon = New SqlConnection(cnnLr)Dim ProjcetName As String = Me.TextEdit4.Text.TrimDim i%, j%TryDim SX()() As String = getSX()If SX(0)(0) = “False“ Then Exit SubDim ProjcetStr As New ArrayListDim spCount As Integeri = SX.GetLength(0)For j = 0 To i - 1ProjcetStr.Add(SX(j).GetLength(0) - 1)NextDim YPz(,) As Integer = getYPz(ProjcetStr.Count)If YPz.GetLength(1) = 1 Then Exit SubspCount = YPz.GetLength(0)Dim JG(,) As Double = getJG(spCount)If JG.GetLength(1) = 1 Then Exit SubdbCon.Open()Stran = dbCon.BeginTransactionTry 计划 登记Mysql = “ delete from 调查记录表 where 调查工程名称 = “ & ProjcetName & “ “Comm = New SqlCommand(Mysql, dbCon, Stran)Comm.ExecuteNonQuery()Mysql = “ insert into 调查记录表 (调查工程名称) values (“ & ProjcetName & “) “Comm = New SqlCommand(Mysql, dbCon, Stran)Comm.ExecuteNonQuery()Mysql = “select 调查记录编号 from 调查记录表 where 调查工程名称 = “ & ProjcetName & “Comm = New SqlCommand(Mysql, dbCon, Stran)PorjectId = Comm.ExecuteScalar属性登记For Count As Integer = 0 To ProjcetStr.Count - 1For iCount As Integer = 1 To ProjcetStr(Count) - 1Mysql = “ insert into 商品属性成分表 (调查编号,成分编号,属性名,成分名) values (“ & PorjectId & “,“ & PorjectId.ToString.PadLeft(4, “0“) & (Count + 1).ToString.PadLeft(2, “0“) & iCount.ToString.PadLeft(2, “0“) & “,“ & SX(Count)(0) & “,“ & SX(Count)(iCount) & “) “Comm = New SqlCommand(Mysql, dbCon, Stran)Comm.ExecuteNonQuery()NextNext样品登记For Count As Integer = 0 To JG.GetLength(0) - 1For iCOunt As Integer = 0 To JG.GetLength(1) - 1Mysql = “insert into 商品分类 (调查号,样品号,属性名,成分号) values (“ & PorjectId & “,“ & Count + 1 & “,“ & iCOunt + 1 & “ ,“ & YPz(Count, iCOunt) & “)“Comm = New SqlCommand(Mysql, dbCon, Stran)Comm.ExecuteNonQuery()NextNext结果登记For Count As Integer = 0 To YPz.GetLength(0) - 1For iCOunt As Integer = 0 To YPz.GetLength(1) - 1Mysql = “INSERT INTO SCYJ.dbo.调查结果记录表 (调查号,调查记录编号,样品号,得分) VALUES (“ & PorjectId & “,“ & Count + 1 & “,“ & iCOunt + 1 & “,“ & JG(Count, iCOunt) & “)“Comm = New SqlCommand(Mysql, dbCon, Stran)Comm.ExecuteNonQuery()NextNextStran.Commit()Catch ex As ExceptionStran.Rollback()MsgBox(ex.Message, MsgBoxStyle.Information)End TryCatch ex As ExceptionMsgBox(ex.Message, MsgBoxStyle.Information)FinallyTrydbCon.Close()CatchEnd TryEnd TryEnd Sub