📄 edit_testuc.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%Response.Expires=0
Response.Buffer = False
%>
<html>

<head>
<link rel="STYLESHEET" type="text/css" href="../../Css_Template/CssTable.css">
<script src="../oper.js" type="text/javascript"></script>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>用例属性修改</title>
<base target="contents">
<script src="../oper.vbs" Language="VBScript"></script>
<Script Language=VBScript>
<!--
window.returnValue = "Cancel"


Sub TUCCode_OnFocus()
	If TUCCode.value = "" Then
		TUCCode.value = GetChinesePYCode(TUCName.value) & CodePref.value
	else
		TUCCode.value = GetChinesePYCode(TUCName.value) & CodePref.value
	End If
End Sub




Sub Submit()

    '用例名称
	If Trim(TUCName.value) = "" Then
		Msgbox "用例名称不能为空！",48,"输入错误"
		TUCName.focus()
		Exit Sub
	End If
	
    '用例摘要
	If Trim(TUCDesc.value) = "" Then
		Msgbox "用例摘要不能为空！",48,"输入错误"
		TUCDesc.focus()
		Exit Sub
	End If

    '用例描述
	If Trim(DetailDesc.value) = "" Then
		Msgbox "用例描述不能为空！",48,"输入错误"
		DetailDesc.focus()
		Exit Sub
	End If

    '预期结果
	If Trim(Result.value) = "" Then
		Msgbox "预期结果不能为空！",48,"输入错误"
		Result.focus()
		Exit Sub
	End If

    '创建人
	If Trim(CreateUserName.value) = "" Then
		Msgbox "创建人不能为空！",48,"输入错误"
		CreateUserName.focus()
		Exit Sub
	End If


'一切就绪，准备提交数据

    cTreeNodeID=TreeNodeID.value
    cTUCName= TUCName.value
    cTUCCode=TUCCode.value
    cSearchKey= SearchKey.value
    cTestProgressID=TestProgressID.value
    cDealPriorityID=DealPriorityID.value
    cTestTypeID=TestTypeID.value
    cAuditSate=AuditSate.value
    cVersion=Version.value
    cItsProductPath=ItsProductPath.value
    cTUCDesc=TUCDesc.value
    cFileURL=FileURL.value
    cScriptURL=ScriptURL.value
    cVersionSourceName=Trim(VersionSourceName.value)
    cVersionSourceID=VersionSourceID.value
    if cVersionSourceName="" then
    	cVersionSourceID=""
    end if
    cEntironment=Entironment.value
    cCreateUserID=CreateUserID.value
    cCreateUserName=CreateUserName.value
    cCreateDate=CreateDate.value
    cAuditUserID=AuditUserID.value
    cAuditDate=AuditDate.value
    cDetailDesc=DetailDesc.value
    cPathNo=PathNo.value
    cResult=Result.value
	cTemp = showModalDialog("Proc_Update_TestUC.asp?CaseMainID="+CaseMainID.value+"&TUCCode="+cTUCCode+"&TreeNodeID="+cTreeNodeID+"&TUCName="+cTUCName+"&SearchKey="+cSearchKey+"&TestProgressID="+cTestProgressID +"&DealPriorityID="+cDealPriorityID +"&TestTypeID="+cTestTypeID +"&AuditSate="+cAuditSate +"&Version="+cVersion+"&ItsProductPath="+cItsProductPath+"&TUCDesc="+cTUCDesc +"&FileURL="+cFileURL +"&ScriptURL="+cScriptURL +"&VersionSourceID="+cVersionSourceID +"&Entironment="+cEntironment +"&CreateUserID="+cCreateUserID+"&CreateUserName="+cCreateUserName +"&CreateDate="+cCreateDate +"&AuditUserID="+cAuditUserID +"&AuditDate="+cAuditDate +"&DetailDesc="+cDetailDesc+"&PathNo="+cPathNo+"&Result="+cResult ,"","dialogHeight:1;dialogWidth:1;help:no;resizable:no;status:no")

	window.returnValue = "Update End"
	window.close()

End Sub



Function Check_Close()
	If BCancel.disabled Then '表示不允许关闭窗口
		If returnValue = "Cancel" Then
			'window.event.returnValue  = "警告,用例类型已经被修改,必须存盘,否则将导致数据不完整,请按 取消 返回"
			MsgBox "用例 '" +DrugName.value+ "' 的用例类型已经被修改,因此必须存盘退出,系统将试图将当前数据存盘,但是如果你随后看见 '输入错误' 类信息,系统数据库将会不完整,请立即重新修改,并按 '确定' 退出 !!!!!!",48,"非法操作"
			Submit()
		End If
	End If
End Function



Sub Cancel()
	returnValue = "Cancel"
	parent.close()
End Sub
-->
</Script>


<Script Lang=Javascript>
<!--

function Delete()
{
	if (confirm("确定删除用例 "+TUCName.value+" ?"))
	{
		returnValue = "Delete "+CaseMainID_A.value;
		window.close();
	}
}


-->
</Script>

<Script Language=VBScript>
<!--
Sub SetCreateDate()
   cYear=Year(Now)
   cMonth=Month(Now)
   cDay=Day(Now)
   cHour=Hour(Now)
   cMinute=Minute(Now)
   cSecond=Second(Now)
   cYear=Right(cYear,2)
   
   iLen=Len(cMonth)
   if iLen=0 then
      cMonth="00"
   else
      if iLen=1 then
      	cMonth="0" & cMonth
      end if
   end if
   
   iLen=Len(cDay)
   if iLen=0 then
      cDay="00"
   else
      if iLen=1 then
      	cDay="0" & cDay
      end if
   end if
 
   iLen=Len(cHour)
   if iLen=0 then
      cHour="00"
   else
      if iLen=1 then
      	cHour="0" & cHour
      end if
   end if

   iLen=Len(cMinute)
   if iLen=0 then
      cMinute="00"
   else
      if iLen=1 then
      	cMinute="0" & cMinute
      end if
   end if

   iLen=Len(cSecond)
   if iLen=0 then
      cSecond="00"
   else
      if iLen=1 then
      	cSecond="0" & cSecond
      end if
   end if
  
   CodePref.Value=cYear & cMonth & cDay & cHour & cMinute & cSecond
End Sub
-->
</Script>





</head>
<%
On Error Resume Next

cCaseMainID_A = Request.QueryString("CaseMainID") '合法的DrugID前方加一个"A"
cCaseMainID= Mid(cCaseMainID_A,2,Len(cCaseMainID_A) - 1)

Set Conn = session("AdoConnectObj")
MySql = "Select fchrTreeNodeName,fchrTreeNodeID From Project1_CaseTree Where fchrTreeNodeID = (Select fchrTreeNodeID From Project1_CaseMain Where REPLACE(REPLACE(REPLACE(fchrCaseMainID, '}', ''), '{', ''), '-', '_')= '"+cCaseMainID+"')"
Set Rs = Conn.Execute(MySql)
If NOT Rs.EOF Then
	cTreeNodeID= Trim(Rs("fchrTreeNodeID"))
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -