data.vbs

lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件lgxgrid控件

dim Axgrid '活动的lgxGrid表格ID

sub Print() '打印活动的表格
  on error resume next
  select case AxGrid
     case 1
          if DataRame.setc.checked<>true then
             set Pfont=DataRame.lgxgrid1.GetFont
             Pfont.Name="黑体"
             Pfont.size=18
             Pfont.Bold=true
             DataRame.lgxgrid1.SetPrintInfo "Rtext","填表日期：" & year(Now()) & "年" & Month(Now()) & "月" & day(Now()) & "日"
             DataRame.lgxgrid1.SetPrintInfo "TitleText","班组工种价目表"
             DataRame.lgxgrid1.SetPrintInfo "TitleFont",Pfont
             DataRame.lgxgrid1.SetPrintInfo "ListScale",1.9
           else
             set Pfont=DataRame.lgxgrid1.GetFont
             Pfont.Name="黑体"
             Pfont.size=18
             Pfont.Bold=true
             DataRame.lgxgrid1.SetPrintInfo "Rtext","填表日期：" & year(Now()) & "年" & Month(Now()) & "月" & day(Now()) & "日"
             DataRame.lgxgrid1.SetPrintInfo "TitleText","班组产值结算表"
             DataRame.lgxgrid1.SetPrintInfo "TitleFont",Pfont
             DataRame.lgxgrid1.SetPrintInfo "ListScale",1.9
           end if  
           DataRame.lgxgrid1.SetPrintShow
     case 2
             set Pfont=DataRame.lgxgrid2.GetFont
             Pfont.Name="黑体"
             Pfont.size=18
             Pfont.Bold=true
             DataRame.lgxgrid2.SetPrintInfo "SheetAspect",2
             DataRame.lgxgrid2.SetPrintInfo "Rtext","填表日期：" & year(Now()) & "年" & Month(Now()) & "月" & day(Now()) & "日"
             DataRame.lgxgrid2.SetPrintInfo "TitleText","工资结算表（按员工）"
             DataRame.lgxgrid2.SetPrintInfo "TitleFont",Pfont
             DataRame.lgxgrid2.SetPrintInfo "ListScale",1.2            
             DataRame.lgxgrid2.SetPrintShow
     case 3
             set Pfont=DataRame.lgxgrid3.GetFont
             Pfont.Name="黑体"
             Pfont.size=18
             Pfont.Bold=true
             DataRame.lgxgrid3.SetPrintInfo "SheetAspect",2
             DataRame.lgxgrid3.SetPrintInfo "Rtext","填表日期：" & year(Now()) & "年" & Month(Now()) & "月" & day(Now()) & "日"
             DataRame.lgxgrid3.SetPrintInfo "TitleText","工资结算表（按班组）"
             DataRame.lgxgrid3.SetPrintInfo "TitleFont",Pfont
             DataRame.lgxgrid3.SetPrintInfo "ListScale",1.2            
             DataRame.lgxgrid3.SetPrintShow
     end select 
           
end sub

sub DelData()
   if AxGrid=1 then
     DelCz '删除产值或单价数据
   end if
   if AxGrid=2 then
      DeljsEp '删除自定义单价数据
   end if
   if AxGrid=3 then
      DeljsB '删除自定义应付工资数据
   end if
end sub

sub DelCz()'删除产值或单价数据
 if Axgrid=1 then
   Dok=msgbox("你确实要删除当前行的数据吗？删除后将不可再恢复。",1)
   if Dok=1 then
     UrlT=Split(window.document.url,"/")
     for i=0 to UBound(UrlT)-1
        UrlD=UrlD & UrlT(i) & "/"
     next
     Nrow=DataRame.lgxgrid1.nrow
     Nlist=1
     ID=DataRame.lgxgrid1.getdata(Nrow,Nlist)
     SetMode="Del"
     if DataRame.setc.checked=true then
        webFileUrl=UrlD+"DataService.asmx/DataSetup?OldKey=" & ID & "&Mode="+SetMode+"&TableName=Cz&AutoKey=True&TextKey=False&UpList=0"
     else
        webFileUrl=UrlD+"DataService.asmx/DataSetup?OldKey=" & ID & "&Mode="+SetMode+"&TableName=Dj&AutoKey=True&TextKey=False&UpList=0"
     end if   
      set reXml=DataRame.lgxgrid1.ToGetWeb(webFileUrl,"Xml","Xml","<Root><Record></Record></Root>")
      reTxt=reXml.SelectSingleNode("string").text
      '执行成功时返回-1 
      if Set0(reTxt)=-1 then
        if DataRame.setc.checked=true then
          rx=DataRame.lgxgrid1.GetURow(Nrow,7)
          DataRame.lgxgrid1.setdata rx,7,set0(DataRame.lgxgrid1.getdata(rx,7))-set0(DataRame.lgxgrid1.getdata(Nrow,6))
          DataRame.lgxgrid1.SetData Nrow,1,""
          for i=5 to 6
            DataRame.lgxgrid1.SetData Nrow,i,""
          next
        else
          DataRame.lgxgrid1.delrow Nrow
        end if
      else
        msgbox(reTxt)
      end if
   end if
 end if
end sub

sub DelJsEp()'删除自定义单价数据
 if Axgrid=2 then
   Dok=msgbox("你确实要删除当前结算记录的单价吗？删除后将使用默认单价，但需刷新数据后才能生效。在刷新之前，你的数据是无效的。",1)
   if Dok=1 then
     UrlT=Split(window.document.url,"/")
     for i=0 to UBound(UrlT)-1
        UrlD=UrlD & UrlT(i) & "/"
     next
     Nrow=DataRame.lgxgrid2.nrow
     Nlist=1
     ID=DataRame.lgxgrid2.getdata(Nrow,Nlist)
     SetMode="Del"
     webFileUrl=UrlD+"DataService.asmx/DataSetup?OldKey=" & ID & "&Mode="+SetMode+"&TableName=Udj&AutoKey=True&TextKey=False&UpList=0"
     set reXml=DataRame.lgxgrid2.ToGetWeb(webFileUrl,"Xml","Xml","<Root><Record></Record></Root>")
      reTxt=reXml.SelectSingleNode("string").text
      '执行成功时返回-1 
      if Set0(reTxt)=-1 then
        DataRame.lgxgrid2.SetData Nrow,8,""
      else
        msgbox(reTxt)
      end if
   end if
 end if
end sub

sub DelJsB()'删除自定义应付工资数据
 if Axgrid=3 then
   Dok=msgbox("你确实要删除当前结算记录的应付工资数据吗？删除后将使用默认值，但需刷新数据后才能生效。在刷新之前，你的数据是无效的。",1)
   if Dok=1 then
     UrlT=Split(window.document.url,"/")
     for i=0 to UBound(UrlT)-1
        UrlD=UrlD & UrlT(i) & "/"
     next
     Nrow=DataRame.lgxgrid3.nrow
     Nlist=1
     ID=DataRame.lgxgrid3.getdata(Nrow,Nlist)
     SetMode="Del"
     webFileUrl=UrlD+"DataService.asmx/DataSetup?OldKey=" & ID & "&Mode="+SetMode+"&TableName=CzGz&AutoKey=True&TextKey=False&UpList=0"
     set reXml=DataRame.lgxgrid3.ToGetWeb(webFileUrl,"Xml","Xml","<Root><Record></Record></Root>")
      reTxt=reXml.SelectSingleNode("string").text
      '执行成功时返回-1 
      if Set0(reTxt)=-1 then
        DataRame.lgxgrid3.SetData Nrow,7,""
      else
        msgbox(reTxt)
      end if
   end if
 end if
end sub


sub ToExcel()'把表格内容以EXCEL文档打开
  on error resume next
  select case AxGrid
     case 1
       DataRame.lgxgrid1.DataToExcel
     case 2
       DataRame.lgxgrid2.DataToExcel
     case 3
       DataRame.lgxgrid3.DataToExcel       
  end select
end sub


sub DataCopy()'复制表格内选定区域的内容
   select case AxGrid
     case 1
       DataRame.lgxgrid1.copy
     case 2
       DataRame.lgxgrid2.copy
     case 3
       DataRame.lgxgrid3.copy       
    end select
end sub

 
function Set0(Data)'把字符串转成数值
  on error resume next
  if Data="" then
    Set0=0
  else
    if mid(Data,len(Data),1)="%" then
      Set0=mid(Data,1,len(Data)-1)/100
    else
      Set0=CDbl(Data)
    end if
  end if
  if err.number<>0 then
    Set0=0
  end if      
end function