ChengDa_English/SGGL/FineUIPro.Web/ReportPrint/js/functions.vbs

Public Sub mnuFileNew_click()
	If ChinaExcel.IsModified() Then '<27>ĵ<EFBFBD><C4B5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		rtn = MsgBox( "<22>ĵ<EFBFBD><C4B5>ѱ<EFBFBD><D1B1><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>Ƿ񱣴棿", vbExclamation Or vbYesNoCancel)
		If rtn = vbYes Then
			mnuFileSave_click
		ElseIf rtn = vbCancel Then
			Exit Sub
		End If
	End If
	ChinaExcel.SetMaxRows(0)
	ChinaExcel.SetMaxRows(18)
	ChinaExcel.SetMaxCols(8)
	ChinaExcel.FormProtect = false
	'menu_init
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub mnuEditHyperlink_click()
	strUrl = InputBox( "<22><><EFBFBD><EFBFBD><EFBFBD>볬<EFBFBD><EBB3AC><EFBFBD><EFBFBD><EFBFBD>ӵ<EFBFBD>ַ<EFBFBD><D6B7>", "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", "HTTP://" )
	ChinaExcel.SetCellURLType ChinaExcel.Row,ChinaExcel.Col,strUrl
End Sub

'<27><><EFBFBD>ô<EFBFBD><C3B4><EFBFBD>
Public Sub cmdBold_click()
	ChinaExcel.Bold = not ChinaExcel.Bold
End Sub

'<27><><EFBFBD><EFBFBD>б<EFBFBD><D0B1>
Public Sub cmdItalic_click()
	ChinaExcel.Italic = not ChinaExcel.Italic
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD>»<EFBFBD><C2BB><EFBFBD>
Public Sub cmdUnderline_click()
	ChinaExcel.Underline = not ChinaExcel.Underline
End Sub

'<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD>ɫ
Public Sub cmdBackColor_click()
	ChinaExcel.OnSetCellBkColor
End Sub

'<27><><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>ɫ
Public Sub cmdForeColor_click()
	ChinaExcel.OnSetTextColor
End Sub

'<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdWordWrap_click()
	ChinaExcel.AutoWrap = not ChinaExcel.AutoWrap
	nMenuID = MenuOcx.GetMenuID("AutoWrap")
	MenuOcx.SetMenuChecked nMenuID,ChinaExcel.AutoWrap
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdAlignLeft_click()
	ChinaExcel.HorzTextAlign = 1
End Sub

'<27><><EFBFBD>ж<EFBFBD><D0B6><EFBFBD>
Public Sub cmdAlignCenter_click()
	ChinaExcel.HorzTextAlign = 2
End Sub

'<27><><EFBFBD>Ҷ<EFBFBD><D2B6><EFBFBD>
Public Sub cmdAlignRight_click()
	ChinaExcel.HorzTextAlign = 3
End Sub

'<27><><EFBFBD>϶<EFBFBD><CFB6><EFBFBD>
Public Sub cmdAlignTop_click()
	ChinaExcel.VertTextAlign = 1
End Sub

'<27><>ֱ<EFBFBD><D6B1><EFBFBD>ж<EFBFBD><D0B6><EFBFBD>
Public Sub cmdAlignMiddle_click()
	ChinaExcel.VertTextAlign = 2
End Sub

'<27><><EFBFBD>¶<EFBFBD><C2B6><EFBFBD>
Public Sub cmdAlignBottom_click()
	ChinaExcel.VertTextAlign = 3
End Sub

'<27><><EFBFBD>߿<EFBFBD><DFBF><EFBFBD>
Public Sub cmdDrawBorder_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		.DrawCellBorder  StartRow, StartCol, EndRow, EndCol, BorderTypeSelect.value, 0,0
        End With
End Sub

'Ĩ<><C4A8><EFBFBD><EFBFBD>
Public Sub cmdEraseBorder_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		.ClearCellBorder  StartRow, StartCol, EndRow, EndCol,0
        End With
End Sub

'<27><><EFBFBD>ҷ<EFBFBD><D2B7><EFBFBD>
Public Sub cmdCurrency_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		.SetCellDigitShowStyle StartRow, StartCol, EndRow, EndCol,2,2
    End With
End Sub

'<27>ٷֺ<D9B7>
Public Sub cmdPercent_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		.SetCellDigitShowStyle StartRow, StartCol, EndRow, EndCol,4,2
	End With
End Sub

'ǧ<><C7A7>λ
Public Sub cmdThousand_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		.SetCellDigitShowStyle StartRow, StartCol, EndRow, EndCol,5,2
	End With
End Sub

'<27><><EFBFBD>ڳ<EFBFBD><DAB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdAbout_click()
	ChinaExcel.AboutBox
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdInsertCol_click()
	ChinaExcel.OnInsertBeforeCol
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdInsertRow_click()
	ChinaExcel.OnInsertBeforeRow
End Sub

'<27><><EFBFBD>뵥Ԫ
Public Sub cmdInsertCell_click()
	ChinaExcel.OnInsertCell
End Sub

'ɾ<><C9BE><EFBFBD><EFBFBD>Ԫ
Public Sub cmdDeleteCell_click()
	ChinaExcel.OnDeleteCell
End Sub

'ɾ<><C9BE><EFBFBD><EFBFBD>
Public Sub cmdDeleteCol_click()
	ChinaExcel.OnDeleteCol
End Sub

'ɾ<><C9BE><EFBFBD><EFBFBD>
Public Sub cmdDeleteRow_click()
	ChinaExcel.OnDeleteRow
End Sub


'ˮƽ<CBAE><C6BD><EFBFBD><EFBFBD>
Public Sub cmdFormulaSumH_click()
	With ChinaExcel
		StartCol = 0: StartRow = 0: EndCol = 0: EndRow = 0
		.GetSelectRegionWeb StartRow,StartCol,EndRow,EndCol
		.AutoSum StartRow,StartCol,EndRow,EndCol,2
	End With
End Sub

'<27><>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD>
Public Function InStrL(inString, srchString)
                                    '<27>˺<EFBFBD><CBBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD>ѯsrchString<6E><67><EFBFBD>ִ<EFBFBD><D6B4>ڸ<EFBFBD><DAB8>ִ<EFBFBD>inString<6E>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>λ<EFBFBD><CEBB>
    If srchString = "" Then
        InStrL = 0
        Exit Function
    End If
    If Len(srchString) Then
        Do
            iLastPos = iCurPos
            iCurPos = InStr(iCurPos + 1, inString, srchString, vbTextCompare)
        Loop Until iCurPos = 0
    End If
    InStrL = iLastPos
End Function

Public Function StrGetSinglePara(ByVal strCellPara, ByVal strCharacter)
                    '<27><><EFBFBD>뵥Ԫ<EBB5A5><D4AA><EFBFBD><EFBFBD>strCellPara<72><61><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD>strCharacter,<2C><><EFBFBD><EFBFBD><EFBFBD>ɷ<EFBFBD><C9B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4>е<EFBFBD><D0B5>ַ<EFBFBD><D6B7><EFBFBD>ֵ

    strChar1 = "<" & Trim(strCharacter) & ">"
    strChar2 = "</" & Trim(strCharacter) & ">"
    iStart = InStrL(strCellPara, strChar1)
    iEnd = InStrL(strCellPara, strChar2)
    If iStart > 0 And iEnd > iStart Then
        iCharacterLen = Len(Trim(strCharacter)) + 2
        iStart = iStart + iCharacterLen
        StrGetSinglePara = Trim(Mid(strCellPara, iStart, iEnd - iStart))
    Else
        StrGetSinglePara = ""
    End If
End Function

Public Function GetCellDefineValue(ByVal nRow,ByVal nCol)
    strCellPara = ChinaExcel.GetCellStatDefine(nRow, nCol)
    If Trim(strCellPara) <> "" Then
        strFldName = StrGetSinglePara(strCellPara, "fieldname")
    else
        strFldName=""
    end if
    GetCellDefineValue=strFldName
End Function

Public Function GetCellColName(nRow, nCol)
    strName = ChinaExcel.GetCellName(nRow,nCol)
    strNameA=""
    
    for iCount=1 to Len(strName)
        If Not IsNumeric(Mid(strName,iCount, 1)) Then
            strNameA = strNameA & Mid(strName,iCount, 1)
        else
            exit for
        End If
    next
    GetCellColName = strNameA
End Function


Public Sub cmdFormulaSumV_click()
	With ChinaExcel
'		StartCol = 0: StartRow = 0: EndCol = 0: EndRow = 0
'		.GetSelectRegionWeb StartRow,StartCol,EndRow,EndCol
'		.AutoSum StartRow,StartCol,EndRow,EndCol,1
        nRow=.Row
        nCol=.Col
'ʹ<><CAB9><EFBFBD>ֶν<D6B6><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'        strValue=GetCellDefineValue(nRow,nCol)
'        if strValue="" then
'            msgbox "û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>"
'            exit sub
'        end if
'        .SetCellShowVal nRow+1,nCol,"=sum(@"+strValue+")"
'ʹ<>ù<EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>
        strValue=GetCellDefineValue(nRow,nCol)
        if strValue="" then
            msgbox "û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD>"
            exit sub
        end if
        strValueA=GetCellColName(nRow,nCol)
        if strValueA="" then
            msgbox "<22><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
            exit sub
        end if
        qs=msgbox("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ[YES],<2C>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ[NO]",vbYesNo + vbQuestion,"ѯ<><D1AF>")
        if qs=vbyes then
            .SetCellShowVal nRow+1,nCol,"=sum(" & strValueA & nRow & ":" & strValueA & "0)"
        else
            .SetCellShowVal nRow+1,nCol,"=sum(@" & strValue & ")"
        end if
	End With
End Sub

'˫<><CBAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub cmdFormulaSumHV_click()
	With ChinaExcel
		StartCol = 0: StartRow = 0: EndCol = 0: EndRow = 0
		.GetSelectRegionWeb StartRow,StartCol,EndRow,EndCol
		.AutoSum StartRow,StartCol,EndRow,EndCol,3
	End With
End Sub


'ͼ<><CDBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub mnuDataWzdChart_click()
	ChinaExcel.OnChartWizard
End Sub

'<27><><EFBFBD><EFBFBD>ͼƬΪԭʼ<D4AD><CABC>С
Public Sub mnuSetCellImageOriginalSize_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		for row = StartRow to EndRow
			for col = StartCol to EndCol
				.SetCellImageSize row,col,1		
			next
		next
		.Refresh
	End With
End Sub

'<27><><EFBFBD><EFBFBD>ͼƬΪ<C6AC><CEAA>Ԫ<EFBFBD><D4AA>С
Public Sub mnuSetCellImageCellSize_click()
	With ChinaExcel
		.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
		for row = StartRow to EndRow
			for col = StartCol to EndCol
				.SetCellImageSize row,col,0		
			next
		next
		.Refresh
	End With
End Sub

'ɾ<><C9BE>ͼƬ
Public Sub mnuDeleteCellImage_click()
	ChinaExcel.GetSelectRegionWeb StartRow, StartCol, EndRow, EndCol
	ChinaExcel.DeleteCellImage StartRow, StartCol, EndRow, EndCol
End Sub

'<27><><EFBFBD><EFBFBD>ÿҳ<C3BF><D2B3>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub mnuSetOnePrintPageDetailZoneRows_click()
	nPageRows = ChinaExcel.GetOnePrintPageDetailZoneRows()
	nRow = InputBox( "˵<><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡʱÿҳ<C3BF><D2B3>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͷ<EFBFBD>ͱ<EFBFBD>βҳ<CEB2>š<EFBFBD>ҳǰ<D2B3>ŵ<EFBFBD><C5B5><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD>Ϊ0<CEAA><30>,<2C><><EFBFBD><EFBFBD>ʾû<CABE><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ÿҳ<C3BF><D2B3>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ϵͳ<CFB5><CDB3>ȱʡ<C8B1><CAA1><EFBFBD>з<EFBFBD>ҳ)<29><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ÿҳ<C3BF><D2B3>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", "<22><><EFBFBD><EFBFBD>ÿҳ<C3BF><D2B3>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>", nPageRows )
	If nRow <> "" Then ChinaExcel.SetOnePrintPageDetailZoneRows nRow
End Sub


'*****************************************************************
'**********      <20><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD>е<EFBFBD><D0B5>¼<EFBFBD>
'*****************************************************************
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Public Sub changeFontName( ByVal value )
    With ChinaExcel
        lFontName = value
        .CellFontName = lFontName
    End With
End Sub

'<27><><EFBFBD><EFBFBD><EFBFBD>ֺ<EFBFBD>
Public Sub changeFontSize( ByVal value )
    With ChinaExcel
        lFontSize = value
		.CellFontSize = lFontSize
    End With

End Sub