sfsz.aspx

来自「ASP.NET开发实战详解」· ASPX 代码 · 共 335 行 · 第 1/2 页

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.sqlclient" %>
<script runat="server">

    dim Cnn as sqlconnection
              dim cmd as sqlcommand
              Sub Page_Load(Sender As Object, E As EventArgs)
                  dim datar as sqldatareader
                  dim sql as string
                  If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
                    cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                    cnn.open()
                    sql="select * from cw_para"
                    cmd=new sqlcommand(sql,cnn)
                    datar=cmd.executereader()
                    if datar.read() then
                       znj.text=datar("znmoney")
                    end if
                    BindGrid()
                  End If
              End Sub
    
              Sub Save_Click(Sender As Object, E As EventArgs)
                  dim sfitemstr as string=sfitem.text
                  dim sfpricestr as string=sfprice.text
                  dim sfunitstr as string=sfunit.selecteditem.value
                  dim sfdescriptstr as string=sfunit.selecteditem.text
                  dim sftermstr as string=sfterm.text
                  dim sfstartstr as string=sfstart.selecteditem.value
                  dim sfstartdesstr as string=sfstart.selecteditem.text
                  dim sfstartdatestr as string=sfstartdate.text
		  dim yesornostr as string
                  dim memostr as string=memo.text
                  dim sql as string
                  if checkbox1.checked then
                     yesornostr="1"
                  else
                     yesornostr="0"
                  end if
                  if sfstartdesstr<>"指定日期" then
                     sfstartdatestr="null"
                  else
                     sfstartdatestr="'" & sfstartdatestr & "'"   
                  end if 
                  cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                  cnn.open()
                  sql="insert into cw_sf_other_set(sfitem,sfprice,sfunit,sfdescript,sfterm,sfstart,sfstartdes,sfstartdate,ysorno,ttype,memo) values('" & sfitemstr & "'," & sfpricestr & "," & sfunitstr & ",'" & sfdescriptstr & "'," & sftermstr & "," & sfstartstr & ",'" & sfstartdesstr & "'," & sfstartdatestr & ",'" & yesornostr & "','1','" & memostr & "')"
                  cmd=new sqlcommand(sql,cnn)
                  cmd.executeNonQuery
                  cnn.close()
                  bindgrid()
		  call cleardata()	
                  page.registerstartupscript("",getalertinfo("数据保存成功！"))
              End Sub

              Sub SaveZN_Click(Sender As Object, E As EventArgs)
                  dim znjstr as string=znj.text
                  dim sql as string
                  dim datar as sqldatareader
                  cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                  cnn.open()
                  sql="select * from cw_para"
                  cmd=new sqlcommand(sql,cnn)
                  datar=cmd.executereader()
                  if datar.read() then
                     sql="update cw_para set znmoney=" & znjstr
                  else
                     sql="insert cw_para(znmoney) values(" & znjstr & ")"
                  end if
                  datar.close()
                  cmd=new sqlcommand(sql,cnn) 
                  cmd.executeNonQuery
                  cnn.close()
                  page.registerstartupscript("",getalertinfo("数据保存成功！"))
              End Sub

	    Sub ChangeSF(sender As Object, e As EventArgs)        
	        if sfstart.selecteditem.text="指定日期" then
                   sfstartdate.enabled="true"
                else
                   sfstartdate.enabled="false"
                end if
	    End Sub

   Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 0
   End Sub
   
   Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 1
   End Sub
   
   Sub LinkButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      MultiView1.ActiveViewIndex = 2
   End Sub
   
	      sub cleardata()
		  sfitem.text=""
                  sfprice.text=""
                  sfterm.text=""
                  sfstartdate.text=""
                  sfstartdate.enabled="false" 
                  memo.text=""
              end sub
	    
		    
                   Sub BindGrid()
                      dim dataR as sqldatareader
                      dim dtcmd as sqldataadapter
                      dim dt as new datatable
                      dim MaxPage as integer  '计算最大页数
                      dim str2 as string
                      dim Str1 as string
                      dim i as integer
                      dim sumrecord as integer
                      cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                      str2="select count(*) as nums from cw_sf_other_set where ttype='1'"
                      cnn.open()
                      cmd=new sqlcommand(str2,cnn)
                      datar=cmd.executereader()
                      if datar.read() then
                         if datar("nums").tostring()="0" then
                            msg.text=""
                         else
                            msg.text="合计：记录数 " & datar("nums").tostring()
                         end if
                      end if
                      datar.close()
                      str1="select * from cw_sf_other_set where ttype='1' order by id"
                      dtcmd=new sqldataadapter(str1,cnn)
                      dtcmd.fill(dt)
                      if (dt.defaultview.count mod datagrid1.pagesize)>0 then
                         maxpage=dt.defaultview.count \datagrid1.pagesize+1
                      else
                         maxpage=dt.defaultview.count \datagrid1.pagesize
                      end if
                      do while datagrid1.currentpageindex>0
                         if maxpage<datagrid1.currentpageindex+1 then
                           datagrid1.currentpageindex=datagrid1.currentpageindex-1
                         else
                           exit do
                        end if
                      loop
                      datagrid1.datasource=dt
                      datagrid1.databind()
                 sumrecord=datagrid1.Items.count
                 for i=0 to sumrecord-1
                   dim LinkButton=Datagrid1.Items(i).Cells(7).Controls(0)
                   LinkButton.Attributes.Add("onclick","javascript:openwin('set_user.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "&type=sfsz&name=" & datagrid1.items(i).cells(1).text & "')")
                   dim LinkButton1=Datagrid1.Items(i).Cells(8).Controls(0)
                   LinkButton1.Attributes.Add("onclick","javascript:openwin('view_user.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "&type=sfsz&name=" & datagrid1.items(i).cells(1).text & "')")
                   dim LinkButton2=Datagrid1.Items(i).Cells(9).Controls(0)
                   LinkButton2.Attributes.Add("onclick","javascript:openwin('sfsz_mod.aspx?id=" & Datagrid1.Items(i).Cells(0).text & "')")
                 next
                 cnn.close()
              End Sub
    
    
    
                   Sub Grid1_Mod(Sender as object,E as DataGridCommandEventArgs)
                       dim codestr as string=E.Item.Cells(0).Text
                       dim sql as string
                       dim url as string
                       if CType(e.CommandSource,LinkButton).CommandName="Delete" then