'---------------------------------------------------
'	功能：
'		控制字符输入的函数
'---------------------------------------------------
'输入任意文本（过滤非法字符）
Sub InputText
	Select Case window.event.keyCode
		Case asc("'"),asc("""") ,asc(":"),asc(";"),asc("<"),asc(">"),asc("|"),asc("`"),asc("&"),asc("#"),asc("!"),asc("$"),asc("["),asc("]"),asc("{"),asc("}"),asc("%")',asc("("),asc(")")
				window.event.keyCode = 0
		Case Else
	End Select
End Sub
'---------------------------------------------------
'	功能：
'		控制字符输入的函数(控制范围小一些)
'---------------------------------------------------
'输入任意文本（过滤非法字符）
Sub InputTextWider
	Select Case window.event.keyCode
		Case asc("<"),asc(">")
				window.event.keyCode = 0
		Case Else
	End Select
End Sub
'输入正整数
Sub InputInteger
	Select Case window.event.keyCode
		Case 48,49,50,51,52,53,54,55,56,57
		Case Else
			window.event.keyCode = 0
	End Select
End Sub

'输入负整数
Sub InputMinusInteger
	Dim strInteger

	strInteger = window.event.srcElement.value	
	Select Case window.event.keyCode
		Case 48,49,50,51,52,53,54,55,56,57
		Case 45	
			If Instr(strInteger,"-")>0 Then
				window.event.keyCode = 0
			End If
		Case Else
			window.event.keyCode = 0
	End Select
End Sub

'输入正小数
Sub InputDecimal
	Dim strDecimal 
	
	strDecimal = window.event.srcElement.value	
	Select Case window.event.keyCode	
		Case 48,49,50,51,52,53,54,55,56,57		
		Case 45	
			If Instr(strDecimal,"-")>0 Then
				window.event.keyCode = 0
			End If
		Case 46			
			If Instr(strDecimal,".")>0 Or strDecimal="" Then
				window.event.keyCode = 0
			End If
		Case Else
			window.event.keyCode = 0
	End Select
End Sub

'输入负小数
Sub InputMinusDecimal
	Dim strDecimal
	
	strDecimal = window.event.srcElement.value	
	Select Case window.event.keyCode	
		Case 48,49,50,51,52,53,54,55,56,57	
		Case 45	
			If Instr(strDecimal,"-")>0 Then
				window.event.keyCode = 0
			End If
		Case 46	
			If Instr(strDecimal,".")>0 Then
				window.event.keyCode = 0
			End If
		Case Else
			window.event.keyCode = 0
	End Select
End Sub

'格式化金额(2位小数)
Sub FormatNum(nNum)
	if nNum="" then nNum=0
	Dim src,strAmount	
	Set src = window.event.srcElement
	strAmount = src.value
	If strAmount<>"" Then
		src.value = FormatNumber(strAmount,nNum,-1)
	End If
End Sub
'-----------------------------End-----------------------------

Sub ChangeKey()
	If window.event.keyCode = 13 Then window.event.keyCode = 9
End Sub

Sub FormatDate()
	Dim src,sValue
	Set src = window.event.srcElement
	src.value = GetDateString(src.value)
End Sub