基于ASP公司进销存管理系统的设计

1.1.1          普通员工及管理员登陆模块

登陆检查页面，员工只要输入正确的用户名和密码就能够顺利登陆到本系统的主页面，如果输入错误则提醒用户。不同权限的员工输入的用户名和密码都将提交到表单中查询。

在登录之前，首先要连接数据库。此<conn.asp>文件就实现了该功能。原程序如下：

<%

Dim conn

set conn=server.createobject("adodb.connection")

mypath=server.mappath("data/jxc.mdb")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&mypath

%>

利用server对象的CreateObject方法创建一个Connection对象。

对于数据库来说，Connection对象是唯一与外界沟通的管道，负责应用程序与数据库服务器实际的链接操作，所以所有对数据库做处理的操作，例如Command对象和Recordest对象和数据库之间的沟通都必须依赖与Connection对象。

Conn的含义是定义了一个变量用，来存放数据库连接所创建的对象

Conn.open "driver={microsoft access driver (*.mdb)};dbq="&mypath

则真正实现了数据库的连接。

在对数据库操作完后，一定要用Close方法关闭Connection对象与数据库的链接，使用该方法时会切断Connection对象与数据库之间的传送通道，并且所有依赖该Connection对象的Command、Recordest对象都会立即被切断关联，此时ActiveConnection属性设置为Nothing，在使用Close方法切断Connection对象与数据库之间的链接之后，可以调用Open方法再次打开该对象；如果Connection对象与数据库正在进行事物处理，那么调用Close方法会造成执行上的错误且所有未完全更新的数据将会丢失，同时Recordest、Command对象也会自动关闭且丢失相关未更新数据。

普通员工和管理员登录部分程序如下：

首先判断用户名称和操作口令是否为空：

<script language="javascript">

function check()

{

if (document.form1.username.value==""||document.form1.password.value=="")

{

alert("请输入用户名称和口令！");

return false;

}

}

</script>

然后取Login进去的用户名称，用MD5破解后的密码与数据库中的存在用户信息比较。若符合则成功登陆，调用main.asp；若不符合则显示“用户名称或口令错误”。

<%

nowusername=request.form("username")

nowpassword=request.form("password")

sql="select * from login where username=''"&nowusername&"'' and password=''"&md5(nowpassword)&"''"

set rs=conn.execute(sql)

if rs.eof then

%>

<script language=javascript>

alert(''用户名称或口令错误！'')

window.history.go(-1)

</script>

<%

response.end

end if

session("username")=nowusername

response.redirect "main.asp"

%>

1.1.2          产品入库模块

首先根据员工的权限判断其是否有可以操作产品入库，fla0=0表示不具备此权限，fal0=1表示可以操作产品入库功能（在其他的原代码中还会出现fla1表示库存管理、fla2表示出库管理、fla3表示统计报表、fla4表示会员管理、fla5表示系统设置），再根据是以有产品入库还是新产品入库选择入库方式，另外以有产品入库中产品的选择会与库存查询页面关联，从中选择产品入库。如图3。

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167