该模块想实现以下功能:在进行系统登录过程中,登录模块将调用数据库里的用户清单,并对账号和密码进行验证,只有输入了正确的账号和密码后,系统登录才会成功。输入项、输出项:输入项为账号和密码。账号和密码均为字符串,密码回显字符是“*”。在系统实行多用户管理时,本模块将为系统开辟多个系统用户,并能对其进行简单的信息维护,用户名变更和密码修改。
退出:选择退出系统,将关闭整个系统,结束本次使用。
3.2 销售管理
“销售管理”模块的主要功能是把销售信息写入销售清单,同时对库存 清单进行更新,以备用户将来对库存信息进行查询和打印,此外还可以对销售信息进行查询和盘点功能。
3.3 供应商管理
在超市引进商品时,首先查询已有的供货商信息,然后按照供货商信息采购商品;或者从新的供货商那里引进新的商品,此时,要把新供货商信息添加到供货商清单中。有时,不再从某一供货商那里采购商品时,此时要把供货商信息删掉。当供货商信息有变化时,就需要对供货商信息进行维护等。
3.4 商品管理
该模块要实现:商品的记录及相应的说明,包括:商品的单价、净含量、生产日期以及保质期,还有就是商品的生产厂家及商家所在地。模块的另一功能是商品信息的查询和更新,库存信息的查询和更新。
查询商品信息:主要功能查询商品的明细信息,和它的库存信息。
添加商品信息:主要功能添加新进的商品。
修改商品信息:主要功能是修改商品的信息,包括他的库存数量。
删除商品信息:主要功能是删除不再销售的商品信息。
输入项、输出项:本模块的数据输入项主要是商品编号。
本系统是系统的应用界面,在本界面上集成了本系统的所有功能当用户进入程序后,单击菜单项中的按钮会出现下拉菜单项就可以选择自己所需要的界面,同时也可以重新登陆和退出,程序执行的主界面如下图:
4.3 商品信息界面
该界面主要是实现商品的录入和修改: 如果在没有录入信息时进行查询,系统会提示。实现该功能的相关代码如下:
If Trim(Me.txtno.Text) <> "" And Trim(Me.txtname.Text) <> "" Then
Sql = "select * from 商品表 where 商品编号=" & Trim(Me.txtno.Text)
Set RS = dbSelect(Sql)
If Not RS.EOF Then......
Else
MsgBox "库中无此数据!", , "提示"
End If
Set RS = Nothing