📄 default.asp
字号:
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="STYLESHEET" type="text/css" href="../../Css_Template/CssTable.css">
</HEAD>
<BODY>
<Script Language=VBScript>
<!--
Sub CatiQuery()
cTemp = showModalDialog("CatiQuery.asp?DrugCatiID="+DrugCatiID.value+"&PlanProcreate="+PlanProcreate.value,"","dialogHeight:21;dialogWidth:20;help:no;resizable:no;status:no")
If Trim(cTemp) <> "" Then
nStart1 = InStr(1,cTemp," ")
cDrugCatiID = Mid(cTemp,1,nStart1)
nStart1 = nStart1 + 1
cPlanProcreate = Mid(cTemp,nStart1,Len(cTemp) - nStart1 + 1)
DrugCatiID.value = cDrugCatiID
PlanProcreate.value = cPlanProcreate
Else
DrugCatiID.value = ""
PlanProcreate.value = ""
End If
End Sub
Sub Submit()
If NOT isNumeric(TaxRatio.value) Then
MsgBox "税率必须输入小于等于1的正数",48,"输入错误"
TaxRatio.focus()
Exit Sub
Else
If CDbl(TaxRatio.value) > 1 Or CDbl(TaxRatio.value) < 0 Then
MsgBox "税率必须输入小于等于1的正数",48,"输入错误"
TaxRatio.focus()
Exit Sub
End If
End If
If NOT IsNumeric(DateStay.value) Then
MsgBox "积压呆滞期限只能输入大于等于1的整数",48,""
DateStay.focus()
Exit Sub
Else
If CDBl(DateStay.value) < 1 Or (CDbl(DateStay.value) <> Clng(DateStay.value)) Then
MsgBox "积压呆滞期限只能输入大于等于1的整数",48,""
DateStay.focus()
Exit Sub
End If
End If
If NOT isNumeric(MaxStockAmount.value) Then
MsgBox "最大库存量必须是大于等于1的整数",48,""
MaxStockAmount.focus()
Exit Sub
Else
If CDbl(MaxStockAmount.value) < 1 Or (CDbl(MaxStockAmount.value) <> CLng(MaxStockAmount.value)) Then
MsgBox "最大库存量必须是大于等于1的整数",48,""
MaxStockAmount.focus()
Exit Sub
End If
End If
If NOT isNumeric(MinStockAmount.value) Then
MsgBox "最小库存量必须是大于等于1的整数",48,""
MinStockAmount.focus()
Exit Sub
Else
If CDbl(MinStockAmount.value) < 1 Or (CDbl(MinStockAmount.value) <> CLng(MinStockAmount.value)) Then
MsgBox "最小库存量必须是大于等于1的整数",48,""
MinStockAmount.focus()
Exit Sub
End If
End If
If SysReady.value = "1" Then
MsgBox "您将把系统设置为就绪状态,将不允许对基础数据进行删除操作",64,"提示信息"
Else
If MsgBox ("您将把系统设置为未就绪状态,系统将允许对基础数据进行删除,这将可能导致系统不完整,除非你确认你对系统数据库非常了解,明白每一个操作的准确含义!!!!"+chr(13)+chr(13)+"确认继续吗 ?",VbQuestion+VbYesNo+256,"警告信息") = vbNo Then
Exit Sub
End If
End If
cTaxRatio = TaxRatio.value
cPosition = Position.value
cDateStay = DateStay.value
cMaxStockAmount = MaxStockAmount.value
cMinStockAmount = MinStockAmount.value
cSysReady = SysReady.value
cDrugCatiID = DrugCatiID.value
cTemp = showModalDialog("Proc_Update.asp?TaxRatio="+cTaxRatio+"&Position="+cPosition+"&DateStay="+cDateStay+"&MaxStockAmount="+cMaxStockAmount+"&MinStockAmount="+cMinStockAmount+"&SysReady="+cSysReady+"&PlanProcreate="+cDrugCatiID,"","dialogHeight:1;dialogWidth:1;help:no;resizable:no;status:no")
If cTemp = "Success" Then
MsgBox "系统参数已经正确修改",64,"提示信息"
End If
location.href = "default.asp"
End Sub
-->
</Script>
<%
Set Conn = session("AdoConnectObj")
MySql = "Select ParameterID,Value From zd_SysParameter"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
Select Case Trim(Rs("ParameterID"))
Case "TaxRatio"
cTaxRatio = CStr(Rs("Value"))
Case "Position"
cPosition = CStr(Rs("Value"))
Case "DateStay"
cDateStay = CStr(Rs("Value"))
Case "SysReady"
cSysReady = CStr(Rs("Value"))
Case "MaxStockAmount"
cMaxStockAmount = CStr(Rs("Value"))
Case "MinStockAmount"
cMinStockAmount = CStr(Rs("Value"))
Case "PlanProcreate"
If Rs("Value") <> "" Then
cPlanProcreate = CStr(Rs("Value"))
Else
cPlanProcreate = ""
End If
End Select
Rs.MoveNext
Wend
Set Rs = Nothing
MySql = "Select DrugCatiName From zd_DrugCati Where DrugCatiID = '"+cPlanProcreate+"'"
Set Rs = Conn.Execute(MySql)
If NOT Rs.EOF Then
cDrugCatiName = Trim(Rs("DrugCatiName"))
Else
cDrugCatiName = ""
End If
Set Rs = Nothing
%>
<table width=100%>
<tr>
<td align=center class=TitleTable>系统参数设置</td>
</tr>
</table>
<div align=center><center>
<table cellpadding="0" cellspacing="0" border="0" align="center" WIDTH="60%">
<tr><td>1. 用例销售增值税率 <input type=text class=InputText size=15 id=TaxRatio value="<%=cTaxRatio%>"></td></tr>
<tr><td> <font color=green>用例销售增值税率用于设定<b>用例入库、零售业务</b>中的税率
</font></td></tr>
<tr><td>2. 货位管理 是<input type=radio name=R1 onclick="Javascript:Position.value = '1'" <%If cPosition = "1" Then Response.Write " checked " End If%>> 否<input type=radio name=R1 onclick="Javascript:Position.value = '0'" <%If cPosition = "0" Then Response.Write " checked " End If%>><input type=hidden id=Position value="<%=cPosition%>"></td></tr>
<tr><td> <font color=green>货位管理设定药店的用例管理信息中是否包括用例存放位置(货位)的信<br> 息
</font></td></tr>
<tr><td>3. 用例积压呆滞期限 <input type=text class=InputText size=5 id=DateStay value="<%=cDateStay%>"> 日 </td></tr>
<tr><td> <font color=green>用例积压呆滞期限用于指定用例从入库到正常销售的最大期限,超过此期<br> 限的用例将被看作是积压呆滞用例
</font></td></tr>
<tr><td>4. 最大库存量 <input type=text class=InputText size=15 id=MaxStockAmount value="<%=cMaxStockAmount%>"></td></tr>
<tr><td> <font color=green>最大库存量用于指定缺省情况下用例的最大库存量
</font></td></tr>
<tr><td>5. 最小库存量 <input type=text class=InputText size=15 id=MinStockAmount value="<%=cMinStockAmount%>"></td></tr>
<tr><td> <font color=green>最小库存量用于指定缺省情况下用例的最小库存量
</font></td></tr>
<tr><td>8. 计划生育分类 <input type=text class=InputText size=15 id=PlanProcreate value="<%=cDrugCatiName%>" readonly onclick="CatiQuery()"> <input type=button value="..." class=button onclick="CatiQuery()" id=button1 name=button1></td></tr>
<tr><td> <font color=green>指定哪种用例分类属于计划生育类
</font></td></tr>
<tr><td>9. 系统是否准备就绪 <font color=blue><b>是</b></font><input type=radio name=R2 onclick="Javascript:SysReady.value = '1'" <%If cSysReady = "1" Then Response.Write " checked " End If%>> <font color=red><b>否</b></font><input type=radio name=R2 onclick="Javascript:SysReady.value = '0'" <%If cSysReady = "0" Then Response.Write " checked " End If%>><input type=hidden id=SysReady value="<%=cSysReady%>"></td></tr>
<tr><td> <font color=green><b>系统就绪用于指定系统是否已经完成初始设置并已经正常运行,当<br></b> <b>系统就绪后,为了维护系统的完整性,大部分的基础数据将不允许删<br></b> <b>除。系统正常运行期间,该参数应该置为<font color=blue>"是"</font></b>
<tr><td align=right><input type=button value="确定修改" class=button onclick="Submit()" id=button2 name=button2> </td></tr>
</font></td></tr>
</table>
</center></div>
<input type=hidden id=DrugCatiID value="<%=cPlanProcreate%>">
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -