源码.docx
- 文档编号:5189094
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:17
- 大小:17.56KB
源码.docx
《源码.docx》由会员分享,可在线阅读,更多相关《源码.docx(17页珍藏版)》请在冰豆网上搜索。
源码
DimcnAsNewADODB.Connection,rs1AsNewADODB.Recordset,rsAsNewADODB.Recordset,sqlAsString,rs2AsNewADODB.Recordset
PrivateSubCombo1_Click()
Combo3.Clear
DimmAsString
m=Combo1.Text
MsgBoxm&"成功载入"
sql="select*fromattribwhereclass='"&m&"'"
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
Combo3.AddItemrs("attrib")
rs.MoveNext
Loop
rs.Close
EndSub
PrivateSubCombo4_click()
Combo5.Clear
DimmAsString
m=Combo4.Text
MsgBoxm&"成功载入"
sql="select*fromattribwhereclass='"&m&"'"
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
Combo5.AddItemrs("attrib")
rs.MoveNext
Loop
rs.Close
EndSub
PrivateSubCombo5_click()
List1.Clear
m=Mid(Combo4.Text,1,2)&"com"
sql="select*from"&m
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
IfCombo5.Text=rs("attrib")Then
List1.AddItemrs("com")
EndIf
rs.MoveNext
Loop
rs.Close
EndSub
PrivateSubCombo6_click()
Combo7.Clear
DimmAsString
m=Combo6.Text
MsgBoxm&"成功载入"
sql="select*fromattribwhereclass='"&m&"'"
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
Combo7.AddItemrs("attrib")
rs.MoveNext
Loop
rs.Close
EndSub
PrivateSubCommand1_Click()
sql="select*fromwuserwhereusername='lmsak'"
rs1.Opensql,cn
Ifrs1.EOF<>TrueThen
Ifrs1("upass")=Text1.TextThen
MsgBox"登陆成功",64
Frame1.Visible=False
Frame2.Visible=True
Frame3.Visible=True
Else
MsgBox"密码错误",16
EndIf
Else
MsgBox"未找到该用户的资料!
",16
EndIf
rs1.Close
EndSub
PrivateSubCommand11_Click()
Dimat()AsDouble,a()AsDouble,b()AsDouble,c()AsDouble,d()AsDouble,e()AsDouble,f()AsDouble,g()AsDouble,hAsDouble
t=Combo7.Text
s=Combo6.Text
l="re"&Mid(Combo7.Text,3,1)
sql="select*from"&t
rs.Opensql,cn
x=rs.Fields.Count-3
n=x+1
sql="select*fromriwhereriid="&n
rs1.Opensql,cn
ri=rs1("ri")
rs1.Close
ReDima(x)
ReDimat(x,x)
ReDimb(x)
ReDimc(x,x)
ReDime(x)
ReDimf(x)
ReDimg(x)
rs.MoveFirst
DoWhilers.EOF<>True
Ifs=rs("class")Then
Fori=0Tox
w=i+2
a(i)=rs(w)'取出数据
Nexti
Fori=0Tox
Forj=0Tox
at(i,j)=a(i)/a(j)'生成判断矩阵
Nextj
Nexti
Fori=0Tox
Forj=0Tox
b(i)=at(i,j)+b(i)'归一化分母计算
Nextj
Fork=0Tox
c(i,k)=at(i,k)/b(i)'归一化计算赋值
Nextk
Nexti
Fori=0Tox
Forj=0Tox
f(i)=c(j,i)*at(i,j)+f(i)
Nextj
Nexti
Fori=0Tox
Forj=0Tox
e(i)=c(i,j)+e(i)
Nextj
Nexti
Fori=0Tox
g(i)=f(i)/e(i)'计算lanbuda
h=h+g(i)
Nexti
ci=(h-x-1)/x
cr=ci/ri
sql="select*from"&l
rs1.CursorType=adOpenDynamic
rs1.LockType=adLockOptimistic
rs1.Opensql,cn
rs1.AddNew
rs1("h")=h
rs1("cr")=cr
rs1("ci")=ci
rs1("class")=rs("class")
Fori=0Tox
w=i+2
rs1(w)=g(i)
Nexti
rs1.Update
rs1.Close
EndIf
rs.MoveNext
Loop
MsgBox"生成权重录入数据库成功"&h&"/"&cr,64
rs.Close
EndSub
PrivateSubCommand12_Click()
Dimat()AsDouble,a()AsDouble,b()AsDouble,c()AsDouble,d()AsDouble,e()AsDouble,f()AsDouble,g()AsDouble,hAsDouble
t="at"
s=Combo6.Text
l="re"
sql="select*from"&t
rs.Opensql,cn
x=rs.Fields.Count-3
n=x+1
sql="select*fromriwhereriid="&n
rs1.Opensql,cn
ri=rs1("ri")
rs1.Close
ReDima(x)
ReDimat(x,x)
ReDimb(x)
ReDimc(x,x)
ReDime(x)
ReDimf(x)
ReDimg(x)
rs.MoveFirst
DoWhilers.EOF<>True
Fori=0Tox
a(i)=rs(i+4)'取出数据
Nexti
Fori=0Tox
Forj=0Tox
at(i,j)=a(i)/a(j)'生成判断矩阵
Nextj
Nexti
Fori=0Tox
Forj=0Tox
b(i)=at(i,j)+b(i)'归一化分母计算
Nextj
Fork=0Tox
c(i,k)=at(i,k)/b(i)'归一化计算赋值
Nextk
Nexti
Fori=0Tox
Forj=0Tox
f(i)=c(j,i)*at(i,j)+f(i)
Nextj
Nexti
Fori=0Tox
Forj=0Tox
e(i)=c(i,j)+e(i)
Nextj
Nexti
Fori=0Tox
g(i)=f(i)/e(i)'计算lanbuda
h=h+g(i)
Nexti
ci=(h-x-1)/x
cr=ci/ri
sql="select*from"&l
rs1.CursorType=adOpenDynamic
rs1.LockType=adLockOptimistic
rs1.Opensql,cn
rs1.AddNew
rs1("h")=h
rs1("cr")=cr
rs1("ci")=ci
rs1("class")=rs("class")
Fori=0Tox
w=i+2
rs1(w)=g(i)
Nexti
rs1.Update
rs1.Close
EndIf
rs.MoveNext
Loop
MsgBox"生成权重录入数据库成功"&h&"/"&cr,64
rs.Close
EndSub
PrivateSubCommand3_Click()
List1.Clear
IfText4.Text<>""Then
m=Mid(Combo4.Text,1,2)&com
sql="select*from"&m
rs.CursorType=adOpenDynamic
rs.LockType=adLockOptimistic
rs.Opensql,cn
rs.AddNew
rs("com")=Text4.Text
rs("attrib")=Combo5.Text
rs.Update
rs.MoveFirst
DoWhileNotrs.EOF
IfCombo5.Text=rs("attrib")Then
List1.AddItemrs("com")
EndIf
rs.MoveNext
Loop
rs.Close
Else
MsgBox"请输入问题类型"
EndIf
EndSub
PrivateSubCommand4_Click()
Text4.Text="请输入问题"
EndSub
PrivateSubCommand5_Click()
DimxAsString
x=List1.Text
Ifx=""Then
MsgBox"请选中要删除的题目"
Else
m=Mid(Combo4.Text,1,2)&com
sql="select*from"&m&"wherecom='"&x&"'"
rs.CursorType=adOpenDynamic
rs.LockType=adLockOptimistic
rs.Opensql,cn
rs.MoveFirst
DoWhilers.EOF<>True
IfList1.Text=rs("com")Then
rs.Delete
EndIf
rs.MoveNext
Loop
rs.Close
EndIf
List1.Clear
List1.Clear
m=Mid(Combo4.Text,1,2)&com
sql="select*from"&m
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
IfCombo5.Text=rs("attrib")Then
List1.AddItemrs("com")
EndIf
rs.MoveNext
Loop
rs.Close
EndSub
PrivateSubCommand7_Click()
EndSub
PrivateSubForm_Load()
cn.Open"provider=microsoft.jet.oledb.4.0;datasource="+Text2.Text+""
Frame1.Visible=False
Frame2.Visible=False
Frame3.Visible=False
sql="select*fromclass"
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
Combo1.AddItemrs("class")
Combo4.AddItemrs("class")
Combo6.AddItemrs("class")
rs.MoveNext
Loop
rs.Close
sql="select*fromfdy"
rs.Opensql,cn
rs.MoveFirst
DoWhileNotrs.EOF
Combo2.AddItemrs("fdyname")
rs.MoveNext
Loop
rs.Close
EndSub
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
--#includefile="conn.asp"-->
<%
ifrequest("choice")="choice"then
i=0
setrs1=server.createobject("adodb.recordset")
selectcaserequest.form("class")
case"lead"
sql="select*from[lecom]"
case"student"
sql="select*from[stcom]"
case"accompany"
sql="select*from[accom]"
endselect
rs1.opensql,conn,1,1
at=request.form("at")
cl=request.form("class")
com=com&"
dowhilenotrs1.eof
ifrequest.form("at")=rs1("attrib")then
i=i+1
n=right(i,3)
com=com&"
com=com&"
com=com&"
endif
rs1.movenext
loop
rs1.close
endif
%><%
ifrequest("submit")="创建"then
setrs=server.createobject("adodb.recordset")
sql="select*from["&request.form("atx")&"]"
rs.opensql,conn,1,3
rs.movefirst
dowhilers.eof<>true
ifrequest.form("clx")=rs("class")then
rs.delete
rs.update
rs.movefirst
endif
rs.movenext
loop
rs.addnew
rs("class")=request.Form("clx")
i=1
dowhilei<=10
rs(""&i&"")=request.form(""&i&"")
i=i+1
loop
rs.update
rs.close
endif
%>
方案层权重分配选择:
<%=com%>
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>
--#includefile="conn.asp"-->bvc
DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:
//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
//www.w3.org/1999/xhtml">
<%
ifrequest("choice")="choice"then
i=0
setrs1=server.createobject("adodb.recordset")
sql="select*from[attrib]"
rs1.opensql,conn,3,2
cl=request.form("class")
com=com&"
dowhilenotrs1.eof
ifrequest.form("class")=rs1("class")then
i=i+1
n=right(i,3)
com=com&"
com=com&" 如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。 copyright@ 2008-2022 冰点文档网站版权所有 经营许可证编号:鄂ICP备2022015515号-1
冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。