1、查看自己的信息,了解自己近期的销售情况。3登记销售产品。4添加新产品,并填写产品相关信息。3.售后服务人员对功能的需求添加售后服务信息。三. 分析模型时序图销售管理系统顶层图1.客户管理第三层DFD图 客户管理子系统2.销售管理第三层DFD图 销售管理子系统3.售后服务管理第三层DFD图 售后服务管理子系统4.客户登录动态时序图为四. 模块活动图,登录流程图1.注册、登陆模块模块功能描述该模块主要实现对用户能否进入系统的确认以及对进入系统的用户权限的设定;因为本系统涉及到三类使用者,不可能每一类用户都具有相同的操作权限,如前所说,必然会早成系统的混乱和崩溃,严重影响其安全性和有效性。所以采取在
2、通常的注册,登录模式下加上用户类型的选择,非常简洁地就完成了对用户类型的区别及权限的划分。在模块的详细设计后,便能得出实现该部分的具体流程,如图用户注册模块程序流程图登录模块程序流程图活动图为:2.客户管理模块显示客户的基本信息。 库户可以查看自己的等级和交易次数。在模块的详细设计后,便能得出实现该部分的具体流程,如图3-8。客户管理模块流程图3.销售管理模块1在这个模块可以登记销售记录。并且在提交记录时,更新数据库:(1)更新客户信息。如果是“老客户”系统会按照客户等级给出对应的优惠价。(2)更新产品信息。主要是更新该产品数量。销售管理模块流程图活动图为五.数据库设计1.客户信息表 2.商品
3、进货表 3.商品销售表六.运行界面与代码1.登陆窗口Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub CmdOk_Click() If UserName.Text And PassWord.Text Then Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path &人事.mdb;Persist Security In
4、fo=False rs.Open select * from usermanage where username= UserName.Text &, conn, 1, 1 If Not rs.EOF Then If rs(password) = PassWord.Text Then Main.Show Unload Me Else MsgBox 非法登录,密码错误!, vbOKOnly, 警告 End If非法登录,找不到该用户!用户名或密码不能为空!提示End SubPrivate Sub PassWord_KeyPress(KeyAscii As Integer) If KeyAscii
5、= 13 Then Call CmdOk_ClickPrivate Sub UserName_KeyPress(KeyAscii As Integer)End Sub 2.主界面Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 GoodsIn.Show Me.Enabled = False Case 1 Saler.Show Case 2 SaleData.Show Case 3 SaleTotal.Show Case 4 UserM.Show End Select进货管理 Case 0 第一条 Adodc1.Re
6、cordset.MoveFirst Case 1 上一条 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious Case 2 下一条 If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext Case 3 最尾条 Adodc1.Recordset.MoveLast Case 4 添加 Adodc1.Recordset.AddNew For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = Tru
7、e Case 5 修改 Case 6 保存 Adodc1.Recordset.Update GoodText(i).Enabled = False更新记录成功! Cmd(6).Enabled = False删除 If MsgBox(确定删除当前记录,数据将不可恢复?, vbOKCancel, ) = vbOK Then Adodc1.Recordset.DeletePrivate Sub Form_Load() Adodc1.ConnectionString = Adodc1.RecordSource = select * from save For i = 0 To 6 Set GoodTe
8、xt(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i).Name Adodc1.Refresh Set DataGrid1.DataSource = Adodc1Private Sub Form_Unload(Cancel As Integer) Main.Enabled = True销售管理Public id As StringPublic action As String action = add ManageSale.Showmodify id = Adodc1.Recordset.Fields(id) Case 7 select goodcount from save where goodnum= GoodText(0).Text &, conn, 1, 3 rs(goodcount) = rs() + GoodText(5).Text rs.Update rs.Close
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1