(5)商品类型操作管理模块 。

47、商品类型管理模块实现以下功能:处理添加商品类型的操作,处理修改商品类型的操作,处理删除商品类型的操作,处理列举或查找商品类型的操作 。
(6)商品操作管理模块商品操作管理模块实现以下的功能：处理添加商品的操作 。
处理修改商品的操作 。
处理删除商品的操作 。
处理分析商品库存量的操作 。
处理列举或查找商品的操作 。
(7)供货商操作管理模块供货商操作管理模块实现以下的功能：处理添加供货商的操作,处理修改供货商的操作,处理删除供货商的操作,处理列举或查找供货商的操作 。
(8)进货操作管理模块进货操作管理模块实现以下的功能：处理添加进货的操作,处理修改进货的操作,处理删除进货的操作,处理分析进货总支出的操作,处理列举或 。

48、查找进货的操作 。
(9)销售操作管理模块销售操作管理模块实现以下的功能：处理添加销售的操作 。
处理修改销售的操作 。
处理删除销售的操作 。
处理分析销售总收入的操作 。
处理列举或查找销售的操作 。
(10)报损操作管理模块报损操作管理模块实现以下的功能：处理添加报损的操作 。
处理修改报损的操作 。
处理删除报损的操作 。
处理分析报损总数量的操作 。
处理列举或查找报损的操作 。
(11)管理员信息操作管理模块管理员信息操作管理模块实现以下的功能：处理添加管理员信息的操作 。
处理修改管理员信息的操作 。
处理删除管理员信息的操作 。
处理列举或查找管理员信息的操作 。
5.3界面端应用程序设计5.3.1 公共模块的设计在创建用户界面端应用程 。

49、序时 ， 向导已经为我们生成了一个名为mdlMain的模块 ， 我们对这个模块稍微修改即可使用 。
添加成员变量,修改Main过程.5.3.2用户登入模块的设计用户登入对话框设计：当用户输入正确的用户名和密码 ， 才可以登陆到系统密码错误就弹出提示 ， 不能进入系统 。
图5.1 用户登入界面设计图修改确定按钮的处理代码Private Sub cmdOK_Click()ToDo: 创建测试密码是否正确检查正确密码Dim Account As StringDim Pwd As StringAccount = RealString(txtUserName.Text)Pwd = RealString(txtPassword 。

50、.Text)判断密码是否正确If Not m_Admin.CheckPwd(Account, Pwd) Thenm_nErrCount = m_nErrCount + 1If m_nErrCount = 3 ThenMsgBox 输入密码错误次数太多 ， 请稍后重试, vbExclamationEndEnd IfMsgBox 密码错误 ， 再试一次！还有 & 3 - m_nErrCount & 次机会 ， 注意密码区分大小写, vbCritical, 登录txtPassword.SetFocustxtPassword.SelStart = 0txtPassword.SelLength = Len(txtP 。

51、assword.Text)ElseOK = Trueg_Account = AccountMe.HideEnd IfEnd Sub5.3.3系统主界面的设计表5.9设计主窗体控件布局控件名称属性属性取消功能frmMainCaption进销存管理系统系统主窗体inlViewSIcon（ListView）ImageHeight16树形控件和列表框小图标所使用的图片ImageWidth16inlViewBIcon（ImageList）ImageHeigh32列表框大图标所使用的图片（未用：待扩展）ImageWidth32tvTreeView（TreeView）LineStyleTvwRootLine 。

52、s显示商品类型树ImageListinlViewSIcon sstabView（ListView）StyleO-ssStyleTabbedDialog右侧选项卡 ， 做容器用TabOrientationO-ssTabOricntationToplvMerch（ListView）lvBuy（ListView）lvSell（ListView）lvDispose（ListView）lvProvider（ListView）FullRowSelectTrue分别用来显示商品商品信息列表进货信息列表销售信息列表报损信息列表供货商信息列表GridLinesTrueViewlvwRiportIconimlView 。

53、BIconSmallIconimlViewSIionl 设计选项卡sstabView给sstabView控件添加5个选项卡 ， 选项卡标题分别设置为“商品库存”、“进货记录”、“销售记录”、“报损记录”和“供应商” ， 分别对应5个ListView 。
添加菜单5.3.4 添加主界面模块主界面设计：包括系统 ， 视图 ， 商品类型管理 ， 进货管理 ， 销售管理 ， 报损管理 ， 供货商管理 ， 销售分析 ， 帮助等等如图5.2图5.2 主界面效果图其他代码Private Sub Form_Load()LoadResStrings MeMe.Left = GetSetting(App.Title, Settings, MainLeft, 。

54、 1000)Me.Top = GetSetting(App.Title, Settings, MainTop, 1000)Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500)Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500)lvMerch.View = Val(GetSetting(App.Title, Settings, ViewMode, 0)初始化数据Call InitMainEnd SubPrivate Sub Form_Unload(Cancel。

55、As Integer)Dim i As Integerclose all sub formsFor i = Forms.Count - 1 To 1 Step -1Unload Forms(i)NextIf Me.WindowState vbMinimized ThenSaveSetting App.Title, Settings, MainLeft, Me.LeftSaveSetting App.Title, Settings, MainTop, Me.TopSaveSetting App.Title, Settings, MainWidth, Me.WidthSaveSetting App 。

稿源：(未知)

【傻大方】网址：/a/2021/0801/0023373838.html

标题：小型|小型超市进销存管理系统( 八 )