gysinfo.aspx

本系统主要内容是围绕图书销售管理系统而展开讨论的

<%@ 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
    shared theModiCode as String '表示当前正在修改的购书单位代码
    Sub Page_Load(Sender As Object, E As EventArgs)
        If Not IsPostBack Then
    	If session("CurrUser")="" then
                Dim url As String
                url = Request.RawUrl.ToString()
                Response.Redirect("../Index.aspx?handle=" & url)
        end if

            BindGrid()
        End If
    End Sub
    
    Sub Clear_Click(Sender As Object,E As EventArgs)
        select Case ClearBtn.Text
        Case "清  空"
            ClearData()
        case "取  消"
            ClearData()
            theModiCode=""
            SaveBtn.Text="保  存"
            ClearBtn.Text="清  空"
            CheckBox1.Enabled="True"
        End Select
    End Sub
    
    Sub ClearData()
        Name.Text=""
        FullName.Text=""
        Addr.Text=""
        Tel.Text=""
        lxr.text=""
        faxno.text=""
        zipcode.text=""
        bankname.text=""
        account.text=""
        email.text=""
        CheckBox1.Checked="False"
    End Sub
    
    Sub Save_Click(Sender As Object, E As EventArgs)
        dim NameStr as string=Name.Text
        dim FullNameStr as string=FullName.Text
        dim AddrStr as string=Addr.Text
        dim TelStr as string=Tel.Text
        dim LxrStr as string=lxr.text
        dim FaxNoStr as String=faxno.text
        dim ZipcodeStr as string=zipcode.text
        dim BankStr as String=bankname.text
        dim AccountStr as String=account.text
        dim EmailStr as String=email.text
        dim CbsIf as Boolean=CheckBox1.Checked
        dim DataR as SqlDatareader
        dim CbsCode As String
        dim GYSCode As String
        dim Sql as string
    
        select case SaveBtn.Text
        case "保  存"
                '表示该记录是新增信息                
                Cnn = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("connection"))
            cnn.open()
            '判断是否出版社
            if CbsIf then
               '是出版社，将信息添加至出版社信息表中
               sql="select * from pressinfosheet order by code desc"
               cmd=new sqlcommand(sql,cnn)
               datar=cmd.executereader()
               if datar.read() then
                  cbscode=format(cint(datar("code").tostring)+1,"000")
               else
                  cbscode="001"
               end if
                    DataR.Close()
                    Sql = "insert into pressinfosheet(code,abbrname,fullname) values('" & CbsCode & "','" & NameStr & "','" & FullNameStr & "')"
                    cmd = New SqlCommand(Sql, Cnn)
                    cmd.ExecuteNonQuery()
            else
               cbscode=""
            end if
            if cbsif then
              sql="select * from providerinfosheet where left(code,1)='0' order by right(code,3) desc "
               cmd=new sqlcommand(sql,cnn)
               datar=cmd.executereader()
               if datar.read() then
                  gyscode="0" & trim(format(cint(right(datar("code").tostring,3))+1,"000"))
               else
                  gyscode="0001"
               end if
            else
              sql="select * from providerinfosheet where left(code,1)='1' order by right(code,3) desc "
               cmd=new sqlcommand(sql,cnn)
               datar=cmd.executereader()
               if datar.read() then
                  gyscode="1" & trim(format(cint(right(datar("code").tostring,3))+1,"000"))
               else
                  gyscode="1001"
               end if
            end if
            datar.close()
                Sql = "insert into providerinfosheet(code,abbrname,fullname,address,zipcode,telno,faxno,emailbox,connector,bankname,account,cbscode) values('" & GYSCode & "','" & NameStr & "','" & FullNameStr & "','" & AddrStr & "','" & ZipcodeStr & "','" & TelStr & "','" & FaxNoStr & "','" & EmailStr & "','" & LxrStr & "','" & BankStr & "','" & AccountStr & "','" & CbsCode & "')"
                cmd = New SqlCommand(Sql, Cnn)
                cmd.ExecuteNonQuery()
                Cnn.Close()
        case "修  改"
        '表示该记录是修改信息
            cnn=new sqlconnection(configurationsettings.appsettings("connection"))
                Cnn.Open()
                Sql = "update providerinfosheet set abbrname='" & NameStr & "',fullname='" & FullNameStr & "',address='" & AddrStr & "',zipcode='" & ZipcodeStr & "',telno='" & TelStr & "',faxno='" & FaxNoStr & "',emailbox='" & EmailStr & "',connector='" & LxrStr & "',bankname='" & BankStr & "',account='" & AccountStr & "' where code='" & theModiCode & "'"
                cmd = New SqlCommand(Sql, Cnn)
                cmd.ExecuteNonQuery()
                Cnn.Close()
            SaveBtn.Text="保  存"
            ClearBtn.Text="清  空"
           themodicode=""
           CheckBox1.Enabled="true"
        end select
        ClearData()
        BindGrid()
        page.registerstartupscript("",getalertinfo("数据保存成功！"))
    End Sub
    
         Sub Query_Click(sender As Object, e As EventArgs)
             Bindgrid()
         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
            cnn=new sqlconnection(configurationsettings.appsettings("connection"))
            if query_content.text<>"" then
               str1=" where " & query_tj.SelectedItem.value & " like '%" & query_content.text & "%'"
            end if
            str2="select count(*) as nums from providerinfosheet " & str1
            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 providerinfosheet " & str1 & " order by code desc"
            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()
            cnn.close()
         End Sub
    
         Sub Grid1_Edit(Sender As Object, E As DataGridCommandEventArgs)
             dim codestr as string=E.Item.Cells(0).Text
             dim sql as string
             dim datar as sqldatareader
             if CType(e.CommandSource,LinkButton).CommandName="Edit" then
                name.text=e.Item.Cells(1).Text
                fullname.text=e.Item.Cells(2).Text
                addr.text=replace(e.Item.Cells(3).Text,"&nbsp;","")
                tel.text=replace(e.Item.Cells(5).Text,"&nbsp;","")
                lxr.text=replace(e.Item.Cells(4).Text,"&nbsp;","")
                faxno.text=replace(e.Item.Cells(9).Text,"&nbsp;","")
                zipcode.text=replace(e.Item.Cells(8).text,"&nbsp;","")
                bankname.text=replace(e.Item.Cells(6).text,"&nbsp;","")
                account.text=replace(e.Item.Cells(7).text,"&nbsp;","")
                Email.Text=replace(e.Item.Cells(10).text,"&nbsp;","")
                themodicode=trim(e.Item.Cells(0).Text)