软件代码讲解

1．登录

（1）用户登录代码实现

sql="select * from login where (username='"&nowusername&"' and pwd='"&md5(nowpwd)&"') or (bianhao='"&nowusername&"' and pwd='"&md5(nowpwd)&"')"

set rs=conn.execute(sql)

if rs.eof Then

conn.execute("insert into rizi(username,class,address) values('"&nowusername&"','登陆失败','"&userip&"')")

%>

<%

response.end

end if

conn.execute("insert into rizi(username,class,address) values('"&nowusername&"','登陆成功','"&userip&"')")

set rs_zu=conn.execute("select * from zu_login where id="&rs("id_zu"))

if rs_zu.eof=false then

session("shiwei_zu")=rs_zu("zu")

else

session("shiwei_zu")=""

end if

（2）代码解释

nowusername 表示当前用户输入的用户名或编号

nowpwd 表示当前用户输入的密码

sql="select * from login where (username='"&nowusername&"' and pwd='"&md5(nowpwd)&"') or (bianhao='"&nowusername&"' and pwd='"&md5(nowpwd)&"')"

// sql 代表一个查询字符串变量，表示要从login表中查询与当前输入的用户名和密码相符//录，其中对“用户名”和“编号”行模糊查询

set rs=conn.execute(sql) //执行sql语句，并将查询结果保存到一个rs记录集中

if rs.eof Then //如果rs记录集中没有记录，即用户名或密码错误

conn.execute("insert into rizi(username,class,address) values('"&nowusername&"','登陆失败','"&userip&"')") //登录失败，将此次登录的用户名和ip地址，以及登录情况添加到rizi表里去%>

<%

response.end

end if

//如果上面的if条件不成立，则说明登录成功，执行下面语句,

conn.execute("insert into rizi(username,class,address) values('"&nowusername&"','登陆成功','"&userip&"')") //将登录信息添加到rizi表中

（3）流程图

查询字符串)=”

login表中查找与当

ip

rizi表里去

ip地址，以及登录情

rizi表里去

2．数字框

（1）文本框1：

-----A类型：定义一个方法chg1（a），如果a的值为0，则类型为“百分比”，反之则类型为“固定提成”，代码如图：

选择后在“员工提成文本框”输入任意的字符（数字或是文字…，其它已经输入正确），点击确认添加。如果输入的是数字类型，则确认后添加成功，反之弹出提示文本框“价格只能为数字！”代码如图：

点击确认键实质执行判断语句。

（2）文本框2

B类型：利用正则表达式来判断输入条件：正则表达式为“/[^\d.]/g,''”，意思是当文本框输入非法内容（即非数字），正则表达式作出判断，且利用clipboardData.getData('text').replace （）删除括号内的非法输入

<1>“onKeyUp="value=value.replace(/[^\d.]/g,'') ”表明是当按键弹起时，开始清除非数字或小数

点的内容

<2>”onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d.

]/g,''))"> ”表明是当粘贴前，开始清除所复制的非数字或小数点内容

这个正则表达式（/[^\d.]/g,''）是说明：只允许输入数字和小数点

（3）文本框3（同2）

.

（4）文本框4（同2）

文本框5

【onKeyUp="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')" value="0">】

这个正则表达式（/\D/g,''）解释：当在文本框输入或粘贴为非数字内容，则删除这些非数字内容。

<1>onKeyUp="this.value=this.value.replace(/\D/g,'')表明是当按键弹起时，开始清除非数字的内容。

<2>onafterpaste="this.value=this.value.replace(/\D/g,'')表明是当粘贴前，开始清除所复制的非数

字内容。

3．下拉列表

（1）下拉框静态代码

下拉选项显示值1

下拉选项显示值2

下拉选项显示值3

……

（2）库表下拉框的asp代码

<%

if session("shiwei_id")=1 then

sql="select * from ku order by id"

set rs_ku=conn.execute(sql)

sql="select * from ku where instr(login,'"&session("shiwei_id")&",')>0 order by id"

set rs_ku=conn.execute(sql)

end if

if rs_ku.eof then

%>

<%

response.end

end if

%>

仓库:

<%

do while rs_ku.eof=false

%>

"<%if rs_ku("moren") then%> selected="selected"<%end if%>><%=rs_ku("ku")%>

<%

rs_ku.movenext

loop

%>

（3）库表实现流程图及代码批注：

sql="select * from ku order by id"

alert("没有属于你管理的仓库,

4．查询组合

例：库存管理—>库存查询 页面的查询组合，如下图：

（1） 查询组合代码实现

sql="select * from produit where 1=1" if nowkeyword<>"" then

sql=sql&" and (title like '%"&nowkeyword&"%' or huohao like '%"&nowkeyword&"%')" end if

if nowku<>"" then

sql=sql&" and id_ku="&nowku

end if

if nowbigclass<>"" then

sql=sql&" and id_bigclass="&nowbigclass

end if

if nowsmallclass<>"" then

sql=sql&" and id_smallclass="&nowsmallclass

end if

（2）代码解释

以上三个下拉列表框，显示的分别为库名、大类名、小类名，但value值取的是它们所对应的id号，即在查询中使用的是它们所对应的id号，默认情况下不选择时，它们的value值为空，即所有仓库、所有大类、所有小类它们的value值都为空

nowkeyword表示当前输入的关键字

nowku表示所选仓库所对应用的id号

nowbigclass表示所选大类对应的id号

nowsmallclass表示所选小类对应的id号

sql="select * from produit作用：1.表示恒为真，当所有控件都不输入数

据时，即保持默状态（所有仓库、所在大类、

所有小类，关键字为空）查询全表的所有数

据

2.输入数据时，保证sql语法的准确性

//是否使用“关键字”条件查询

if keyword<>"" then //如果关键字不为空，即输入了关键字

sql=sql&" and (title like '%"&nowkeyword&"%' or huohao like

'%"&nowkeyword&"%')"

//sql=sql+and(title like ‘%nowkeyword%’ or huohao like ‘%nowkeyword%’)

//即对“产品名称”和“货号”进行模糊查询

end if

//是否使用“仓库”条件查询

if nowku<>"" then //如果所选仓库所对应id不为空

sql=sql&" and id_ku="&nowku //sql=sql+and( id_ku=nowku)

end if

//是否使用“大类”条件查询

if nowbigclass<>"" then //如果所选大类所对应id不为空

sql=sql&" and id_bigclass="&nowbigclass//sql=sql+and( id_bigclass=nowbigclass) end if

//是否使用“小类”条件查询

if nowsmallclass<>"" then //如果所选小类所对应id不为空

sql=sql&" and id_smallclass="&nowsmallclass

//sql=sql+and( id_smallclass=nowsmallclass)

end if

（3）流程图

对编号和产品名称进行模糊

查询，查询与当前关键字相

符的记录

的记录

例：当前所输入的关键字为“uuuu”，当前所选库Id为14，当前选选大类id为21，所选小类id为14，流程图如下：

5．删除按钮

（1）代码实现

<%if showpic="yes" then%>

<%if rs_produit.eof then%><%if rs_buy2("photo")<>"" then%>

" target="_blank">

" border="0" width="60"> <%else%>无图<%end if%><%else%><%if rs_produit("photo")<>"" then%> " target="_blank">

" border="0" width="60">

<%else%>无图<%end if%><%end if%><%end if%>

<%if rs_produit.eof

then%><%=rs_buy2("huohao")%><%else%><%=rs_produit("huohao")%><%e nd if%>

<%if rs_produit.eof then%>

<%=rs_buy2("title")%><%else%><%=rs_produit("title")%><%end if%>

<%=rs_buy2("ku")%>

<%=formatnumber(rs_buy2("shulian"),2)%>

<%=formatnumber(rs_buy2("price2"),2)%>

align="center"><%=formatnumber(rs_buy2("shulian")*rs_buy2("price2"),2)%>

把红色部分的代码拿出来简化是下面的部分，单独进行分析

if rs_produit.eof then //判断produit表中货号是否为空，如果produit表中没有数

rs_buy2("huohao") 据就从buy表中读取数据否则就走else

else

rs_produit("huohao")

end if

（2）流程图

为什么要用这种方法，就是为了让查询的时候不能空着

添加供应商IBM

添加新产品，选择供应商IBM

如果我把供应商IBM删除，在供应商那个位置还会出现IBM

<%if rs_gys.eof then%><%=rs_buy("gys")%><%else%><%=rs_gys("company")%><%end if%>

这种方法并不好，因为如果要查询的数据有很多一个字段判断2次，会从数据库中读取花费很长的时间，

怎么解决有两种方法：

一种是设外键，好多公司不设外键，因为如果这样做的话会弹出sql语句用户不想看见这种东西，公司宁愿有冗余的数据

另一种是在用户删除的时候判断下是否有其他地方用到这条数据，用语句控制