lgxx.aspx

来自「ASP.NET开发实战详解」· ASPX 代码 · 共 352 行 · 第 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)
                  If Not IsPostBack Then
         If Session("curruser") = "" Then
            Response.Redirect("../index.aspx")
         End If
	            Sellp.DataSource = CreateDataSource("lp")
        	    Sellp.DataTextField = "name"
	            Sellp.DataValueField = "code"
        	    Sellp.DataBind()
	            Selgn.DataSource = CreateDataSource("gn")
        	    Selgn.DataTextField = "name"
	            Selgn.DataValueField = "code"
        	    Selgn.DataBind()
	            Selzx.DataSource = CreateDataSource("zx")
        	    Selzx.DataTextField = "name"
	            Selzx.DataValueField = "code"
        	    Selzx.DataBind()
	            Seljg.DataSource = CreateDataSource("jg")
        	    Seljg.DataTextField = "name"
	            Seljg.DataValueField = "code"
        	    Seljg.DataBind()
	            Selws.DataSource = CreateDataSource("ws")
        	    Selws.DataTextField = "name"
	            Selws.DataValueField = "code"
        	    Selws.DataBind()
                    BindGrid()
                  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 Save_Click(Sender As Object, E As EventArgs)
                  dim lpcodeStr as string=sellp.selecteditem.value
                  dim nameStr as string=name.text
                  dim gnStr as string=selgn.selecteditem.value
                  dim floorsstr as string=floors.text
                  dim symjstr as string=symj.text
                  dim jzmjstr as string=jzmj.text
                  dim xkzhstr as string=xkzh.text
                  dim ysxkzstr as string=ysxkz.text
                  dim finishstr as string=finish.text
		  dim fddatestr as string=fddate.text
                  dim zxstr as string=selzx.selecteditem.value
                  dim typestr as string=seljg.selecteditem.value
                  dim wsdjstr as string=selws.selecteditem.value
                  dim addrstr as string=addr.text
                  dim memostr as string=memo.text
		  dim thecode as string
                  dim sql as string
                  dim dataR as sqldatareader
                  cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                  cnn.open()
                  sql="select * from fc_lg where lpcode='" & lpcodestr & "' order by code desc"
                  cmd=new sqlcommand(sql,cnn)
                  datar=cmd.executereader()
                  if datar.read() then
                    thecode=trim(lpcodestr) & trim(format(cint(right(datar("code").tostring,2))+1,"00"))
                  else
		    thecode=trim(lpcodestr) & "01"
 		  end if
                  datar.close()
                  sql="insert into fc_lg(lpcode,code,name,gn,floors,symj,jzmj,xkzh,ysxkz,finish,fddate,zx,type,wsdj,addr,memo) values('" & lpcodestr & "','" & thecode & "','" & namestr & "','" & gnstr & "','" & floorsstr & "'," & symjstr & "," & jzmjstr & ",'" & xkzhstr & "','" & ysxkzstr & "','" & finishstr & "','" & fddatestr & "','" & zxstr & "','" & typestr & "','" & wsdjstr & "','" & addrstr & "','" & memostr & "')"
                  cmd=new sqlcommand(sql,cnn)
                  cmd.executeNonQuery
                  cnn.close()
                  bindgrid()
		  call cleardata()	
                  page.registerstartupscript("",getalertinfo("数据保存成功！"))
              End Sub

	      Function CreateDataSource(byval para as string) As ICollection
		dim dtcmd as sqldataadapter
	        dim dset as dataset
        	cnn=new sqlconnection(configurationsettings.appsettings("connection"))
		select case trim(para)
		case "lp"
			dtcmd=new sqldataadapter("select code,name from fc_lp order by code",cnn)
		case "gn"
			dtcmd=new sqldataadapter("select code,name,type from fw_para where type='GN' order by code",cnn)
		case "ws"
			dtcmd=new sqldataadapter("select code,name,type from fw_para where type='WS' order by code",cnn)
		case "jg"
			dtcmd=new sqldataadapter("select code,name,type from fw_para where type='JG' order by code",cnn)
		case "zx"
			dtcmd=new sqldataadapter("select code,name,type from fw_para where type='ZX' order by code",cnn)
		end select
        	dset=new dataset
	        dtcmd.fill(dset)
        	Dim dv As New DataView(dset.tables(0))
	        Return dv
        	cnn.close()
	    End Function

              Sub Clear_Click(Sender As Object, E As EventArgs)
		call cleardata()
              End Sub
    
	      sub cleardata()
		  name.text=""
                  floors.text=""
                  symj.text=""
                  jzmj.text=""
                  xkzh.text=""
                  ysxkz.text=""
                  finish.text=""
		  fddate.text=""
                  addr.text=""
                  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 fc_lg"
                      cmd=new sqlcommand(str2,cnn)
                      cnn.open()
                      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 view_fwlg order by code"
                      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(10).Controls(0)
                   LinkButton.Attributes.Add("onclick","javascript:openwin('lgxx_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