📄 edit_testuc.asp
字号:
cTreeNodeName = Trim(Rs("fchrTreeNodeName"))
else
End If
Set Rs = Nothing
'查询结果集
MySql = "Select PC.*,SU.fchrRealName as CreateUserName,SU1.fchrRealName as AuditUserName,SU1.fchrRealName as LastModifyUserName,PC1.fchrCaseName as VersionSourceName From Project1_CaseMain PC Left Outer Join Sys_User SU ON PC.fchrCreateUserID=SU.fchrUserID Left Outer Join Project1_CaseMain PC1 ON PC.fchrVersionSourceID=PC1.fchrCaseMainID Left Outer Join Sys_User SU1 ON PC.fchrAuditUserID=SU1.fchrUserID Left Outer Join Sys_User SU2 ON PC.fchrLastModifyUserID=SU2.fchrUserID Where REPLACE(REPLACE(REPLACE(PC.fchrCaseMainID, '}', ''), '{', ''), '-', '_')= '"+cCaseMainID+"'"
Set Rs = Conn.Execute(MySql)
If NOT Rs.EOF Then '读取用例详细信息
'cCaseMainID= Trim(Rs("fchrCaseMainID"))
cCaseMainCode= Trim(Rs("fchrCaseMainCode"))
cCaseName= Trim(Rs("fchrCaseName"))
cAuditState= Trim(Rs("ftinAuditState"))
cTestProgressID= Trim(Rs("fchrTestProgressID"))
cDealPriorityID= Trim(Rs("fchrDealPriorityID"))
cTestDesc= Trim(Rs("fchrTestDesc"))
cEntironment= Trim(Rs("fchrEntironment"))
cFileURL= Trim(Rs("fchrFileURL"))
cScriptURL= Trim(Rs("fchrScriptURL"))
cCreateUserID= Trim(Rs("fchrCreateUserID"))
cCreateUserName= Trim(Rs("CreateUserName"))
cCreatedate= Trim(Rs("fdtmCreatedate"))
cAuditUserID=Trim(Rs("fchrAuditUserID"))
cAuditUserName=Trim(Rs("AuditUserName"))
cAuditDate= Trim(Rs("fdtmAuditDate"))
cLastModifyUserID= Trim(Rs("fchrLastModifyUserID"))
cLastModifyUserName= Trim(Rs("LastModifyUserName"))
cLastModifyDate= Trim(Rs("fchrLastModifyDate"))
cTestDate= Trim(Rs("fdtmTestDate"))
cTestCount= Trim(Rs("fintTestCount"))
cTestState= Trim(Rs("ftinTestState"))
cPathNO= Trim(Rs("fchrPathNO"))
cVersion= Trim(Rs("fchrVersion"))
cVersionState= Trim(Rs("ftinVersionState"))
cVersionSourceID= Trim(Rs("fchrVersionSourceID"))
cVersionSourceName = Trim(Rs("VersionSourceName"))
cNoUsed= Trim(Rs("fbitNoUsed"))
cDetailDesc= Trim(Rs("fchrDetailDesc"))
cSearchKey= Trim(Rs("fchrSearchKey"))
cTreeNodeID= Trim(Rs("fchrTreeNodeID"))
cResult=Trim(Rs("fchrResult"))
cDealPriorityID=Replace(cDealPriorityID,"-","_")
cDealPriorityID=Mid(cDealPriorityID,2,Len(cDealPriorityID)-2)
cTestProgressID=Replace(cTestProgressID,"-","_")
cTestProgressID=Mid(cTestProgressID,2,Len(cTestProgressID)-2)
End If
Set Rs = Nothing
if len(cTreeNodeID)>0 then
cTreeNodeID=Replace(cTreeNodeID,"-","_")
cTreeNodeID=Mid(cTreeNodeID,2,Len(cTreeNodeID) - 2)
else
cTreeNodeID="ROOT"
cTreeNodeName ="测试用例分类"
end if
%>
<body topmargin=12 onunload="Check_Close()" onunload="Check_Close()" onload="SetCreateDate()">
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr>
<td width="50%" nowrap>用例编号 <input type=text size=20 maxlength=50 class=InputText id=TUCCode onchange="Javascript:BSubmit.disabled = false" value="<%=cCaseMainCode%>" disabled></td>
<td width="50%" nowrap> 所属分类 <input type=text id=TreeNodeName size=20 maxlength=50 class=InputText disabled value="<%=cTreeNodeName%>"></td>
</tr>
<tr>
<td width="50%" nowrap>用例名称 <input type=text size=20 maxlength=15 class=InputText id=TUCName onkeyup="TUCCode_OnFocus()" onchange="Javascript:BSubmit.disabled = false" value="<%=cCaseName%>"></td>
<td width="50%" nowrap> 检索键值 <input type=text size=20 maxlength=15 class=InputText id=SearchKey onchange="Javascript:BSubmit.disabled = false" value="<%=cSearchKey%>"></td>
</tr></table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr>
<td width="50%" nowrap>测试阶段 <select id=TestProgressID size=1><%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrTestProgressID , '}', ''), '{', ''), '-', '_') As TestProgressID ,fchrTestProgressName as TestProgressName From Sys_testProgress Order By TestProgressName "
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("TestProgressID"))+"'"
If Rs("TestProgressID") = cTestProgressID Then
Response.Write " selected "
End If
Response.Write ">"+Trim(Rs("TestProgressName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
<td width="50%" nowrap> 优先级别 <select id=DealPriorityID size=1><%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrDealPriority , '}', ''), '{', ''), '-', '_') As DealPriorityID,fchrDealPriorityName as DealPriorityName From Sys_DealPriority Order By fchrDealPriorityName"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("DealPriorityID"))+"'"
If Rs("DealPriorityID") = cDealPriorityID Then
Response.Write " selected "
End If
Response.Write ">"+Trim(Rs("DealPriorityName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
</tr>
<tr>
<td width="50%" nowrap>测试类别 <select id=TestTypeID size=1><%
MySql = "Select REPLACE(REPLACE(REPLACE(fchrTestTypeID , '}', ''), '{', ''), '-', '_') As TestTypeID,fchrTestTypeName as TestTypeName From Sys_TestType Order by TestTypeName "
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Response.Write "<option value='"+Trim(Rs("TestTypeID"))+"'"
If Rs("TestTypeID") = cTestTypeID Then
Response.Write " selected "
End If
Response.Write ">"+Trim(Rs("TestTypeName"))+"</option>"
Rs.MoveNext
Wend
Set Rs = Nothing
%></Select></td>
<td width="50%" nowrap> 审核状态 <Select type=InputText id=AuditSate onchange="Javascript:BSubmit.disabled = false">
<option value="0" <% If cAuditState=0 then Response.Write "Selected" End If %>>未审核</option>
<option value="1" <% If cAuditState=1 then Response.Write "Selected" End If %>>审核通过</option>
<option value="2" <% If cAuditState=2 then Response.Write "Selected" End If %>>审核拒绝</option>
</Select></td>
</tr>
<tr>
<td width="50%" nowrap>用例版本 <input type=text size=20 class=InputText id=Version onchange="Javascript:BSubmit.disabled = false" value="<%=cVersion %>"></td>
<td width="50%" nowrap> 版本状态 <Select type=InputText id=VersionState onchange="Javascript:BSubmit.disabled = false">
<option value="0" <% If cVersionState=0 then Response.Write "Selected" End If %>>原始用例</option>
<option value="1" <% If cVersionState=1 then Response.Write "Selected" End If %>>临时用例</option>
<option value="2" <% If cVersionState=2 then Response.Write "Selected" End If %>>版本用例</option>
</Select></td>
</tr>
<tr>
<td width="50%" nowrap>补丁编号 <input type=text size=20 maxlength=10 class=InputText id=PathNo onchange="Javascript:BSubmit.disabled = false" value="<%=cPathNo%>"></td>
<td width="50%" nowrap> 所属项目 <input type=text id=ItsProject size=20 maxlength=50 class=InputText disabled value="<%=cItsProject%>"></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr>
<td width="100%" nowrap>产品路径 <input type=text size=58 maxlength=100 class=InputText id=ItsProductPath disabled onchange="Javascript:BSubmit.disabled = false" value="<%=cItsProductPath%>"></td>
</tr>
<tr>
<td width="100%" nowrap>用例摘要 <input type=text size=58 maxlength=100 class=InputText id=TUCDesc onchange="Javascript:BSubmit.disabled = false" value="<%=cTestDesc%>"></td>
</tr>
<tr>
<td width="100%" nowrap>关联文件 <input type=text size=58 maxlength=100 class=InputText id=FileURL onchange="Javascript:BSubmit.disabled = false" value="<%=cFileURL%>"></td>
</tr>
<tr>
<td width="100%" nowrap>关联脚本 <input type=text size=58 maxlength=100 class=InputText id=ScriptURL onchange="Javascript:BSubmit.disabled = false" value="<%=cScriptURL%>"></td>
</tr>
<tr>
<td width="100%" nowrap>原始用例 <input type=text size=43 maxlength=100 class=InputText id=VersionSourceName onchange="Javascript:BSubmit.disabled = false" value="<%=cVersionSourceName%>" disabled>
<input type="button" value="浏览..." name="select" style="background-color: #e6e6e6; color: #000000"
language="vbscript" onmousedown="
cTemp = showModalDialog("STestUC.asp","选择用例名称","dialogHeight:12;dialogWidth:14;help:no;resizable:no;status:no")
if cTemp<>'Exit' then
cTmp=Split(cTemp,"/")
VersionSourceID.value=cTmp(0)
PYCode.value=cTmp(1)
cTm=Split(cTmp(2),"")
VersionSourceName.value=cTm(0)
else
VersionSourceID.value=""
VersionSourceName.value=""
end if
"
>
</td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr>
<td>测试描述<br> <textarea id=DetailDesc cols=56 rows=5 onchange="Javascript:BSubmit.disabled = false"><%=cDetailDesc %></textarea>
</td>
</tr>
<tr>
<td>预期结果<br> <textarea id=Result cols=56 rows=5 onchange="Javascript:BSubmit.disabled = false"><%=cResult%></textarea>
</td>
</tr>
<tr>
<td width="100%"nowrap >补充说明<br> <textarea id=Entironment cols=56 rows=3 onchange="Javascript:BSubmit.disabled = false" ><%=cEntironment%></textarea></td>
</tr>
</table>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="90%">
<tr>
<td width="50%" nowrap>创建人员 <input type=text size=20 maxlength=50 class=InputText id=CreateUserName onchange="Javascript:BSubmit.disabled = false" disabled value="<%=cCreateUserName%>"></td>
<td width="50%" nowrap> 创建日期 <input type=text size=20 maxlength=15 class=InputText id=CreateDate onchange="Javascript:BSubmit.disabled = false" disabled value="<%=cCreatedate%>"></td>
</tr>
<tr>
<td width="50%" nowrap>审核人员 <input type=text size=20 maxlength=15 class=InputText id=AuditUserName onchange="Javascript:BSubmit.disabled = false" disabled value="<%=cAuditUserName%>"></td>
<td width="50%" nowrap> 审核日期 <input type=text size=20 maxlength=15 class=InputText id=AuditDate onchange="Javascript:BSubmit.disabled = false" disabled value="<%=cAuditDate%>"></td>
</tr></table>
<div align=right> <input type=button value=确定 disabled id=BSubmit class=Button Onclick="Submit()"> <input type=button id=BCancel value=取消 class=Button Onclick="Cancel()"> <input type=button value=删除 <%If Application("SysReady") Then Response.Write "disabled" End If%> class=Button Onclick="Delete()"> </div>
<Input Type=Hidden id=CreateUserID Value="<%=cCreateUserID%>">
<Input Type=Hidden id=VersionSourceID Value="<%=cVersionSourceID%>">
<Input Type=Hidden id=AuditUserID Value="<%=cAuditUserID%>">
<Input Type=Hidden id=LastModifyUserID Value="<%=cLastModifyUserID%>">
<Input Type=Hidden id=CaseMainID Value="<%=cCaseMainID%>">
<Input Type=Hidden id=TreeNodeID Value="<%=cTreeNodeID%>">
<Input Type=Hidden id=CaseMainID_A Value="<%=cCaseMainID_A%>">
<Input Type=Hidden id=CodePref Value="">
<Input Type=Hidden id=PYCode Value="">
</body>
</html>
<%
If Err.description = "缺少对象" Or Err.description = "" Then
%>
<%
Else
cTemp = Replace(Err.description,chr(13),"\n")
%>
<Script Lang=javascript>
<!--
alert("操作失败,原因为:"+"<%=cTemp%>"+" 请联系系统管理员");
window.close();
-->
</Script>
<%
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -