沈阳理工大学课程设计专用纸目录汽车销售管理系统..................... 错误!未定义书签一、课程设计的目的和意义............ 错误!未定义书签二、需求分析 (1)三、模块设计 (1)四、创建数据库 (2)五、创建登录窗口 (4)六、主窗体的设计 (6)七、用户管理模块 (9)八、汽车信息管理模块 (15)九、进货信息模块...................错误!未定义书签十、销售信息管理模块............. 错误!未定义书签卜一、查找窗体模块 (36)十二、结果分析 (38)十三、参考文献 (38)汽车销售管理系统1. 课程设计的目的和意义高效的汽车销售管理系统是当前信息化汽车公司管理系统之需要。
面对庞大的汽车销售和库存信息，就需要有汽车管理系统来提高管理工作的效率。
通过建立这样的系统，可以做到汽车信息的规范管理、快速查询和科学统计，从而减少管理方面的工作量。
系统开发环境为一台安装windows xp的个人计算机作为客户机，其上安装了SQL Server 2000，本系统使用Visual Basic 6.0来开发，系统设计与运行均可在客户机上进行。
2. 需求分析本系统的设计模拟一般医院的汽车销售管理系统内容，经过充分的系统分析和调研，本系统主要包括的信息有3类：汽车商品信息、汽车进货信息以及汽车销售信息。
在传统的销售管理工作中，往往是用人工清点的方式来掌握仓库中的汽车商品、使用手工记账的方式来掌握商品的进货和销售情况。
这种方式在数量较少、库存变换少的情况下，不失为一种好的方法。
但是，随着每天所发生的进货和销售情况纷繁复杂，如果借助人工来记录和管理，将会耗费大量的时间，而且容易出现错误，造成管理上的混乱。
具体而言，汽车销售管理系统需要实现一下的需求：（1）能够对医院过拥有的各种汽车的基础信息进行维护和管理。
汽车的基础信息包括：汽车的顺序号、汽车名称、汽车规格、计量单位、备注信息、库存数量等。
系统需要能够对汽车信息进行添加、修改和删除，也可以以图形的方式显示出现汽车的库存数量的比较。
（2）跟踪各种汽车的的进货信息。
汽车的进货信息包括顺序号、汽车名称、进货数量、进货价格、进货日期、备注等。
系统还需要能够对进货信息进行添加、修改和删除，也可以按照一定的条件来进行查询。
（3）跟踪各种汽车的销售信息。
汽车的销售信息包括顺序号、汽车名称、顾客名称、购买数量、售出价格、销售日期、备注等。
系统需要能够对销售信息进行添加、修改和删除，也可以按照一定的条件来进行查询。
3. 模块设计根据需求分析的结果，本系统主要划分为4个子模块：用户管理、汽车信息管理、进货信息管理、销售信息管理。
汽车销售管理系统不同类型的用户在系统中有不同的权限，主要有以下3种用户：（1）管理人员本系统的管理人员可以使用本系统的所有功能，包括用户管理、汽车信息管理、进货信息管理和销售信息管理功能。
（2）仓管人员仓管人员负责管理仓库中的汽车数量，主要负责汽车的每次的进货情况。
其只能使用系统中的进货信息管理功能模块，对每次进货的信息进行记录，并且可以查询当前仓库中的汽车库存数量。
（3）销售人员销售人员负责汽车的日常销售工作，需要掌握各种汽车的各次的销售情况。
其只能使用本系统的汽车销售信息管理模块，贵每次汽车的销售情况进行记录。
整个系统的结构模块如图1所示。
一下分别介绍系统中的各个系统4个子模块A.用户管理模块用于管理汽车销售系统中的各种类型的用户。
只有具有管理人员身份的人才能使用本模块，管理人员可以添加或者删除相应的用户，可以改变用户的身份，也可以改变某个用户的秘密。
图1系统模块分析用来多医院所拥有的各种汽车的基础信息进行维护和管理。
在系统中，需要对 汽车信息进行添加、修改和删除，也可以按照一定的条件进行查询，并且不要 将汽车的库存数量以图形的方式显示出来。
C. 进货信息管理模块用来跟踪汽车每一次进货的信息。
该模块需要能够对进货信息进行添加、修改 和删除，也可以按照一定的条件来进行查询。
只有管理人员和仓管人员才能使 用本模块。
D. 销售信息管理模块用来跟踪汽车每一次售货的信息。
该模块需要能够对销售信息进行添加、修改 和删除，也可以按照一定的条件来进行查询。
只有管理人员和销售人员才能使 用本模块。
4•创建数据库在本系统中，需要掌握汽车的基本信息、每次汽车进货信息、每次汽车销售信息，此外，由于要进行用户管理，还需要掌握使用本系统的用户，各种数据表如图 2, 3, 4, 5所示数据类塑KE允也liEEl50用尸窖玛 clur50闿户类型4图2用户信息表-userlistB .汽车信息管理模块销售信息管理模块▲.数据类型允许仝tigiirt 3itvar char50nivar chai -5D计量单位 iivar uhar 50 /备注Isict 16 Z库存数量Tiigint8图3 汽车信息表-products數据类型| 畏度此许空|沖 1垃年耳——I "bigizil汽车名称nvar ctiar 30顾客8称 nvar char50购戛数量 i.nt. 4售出怖格 moni.ey&销售日朗datetime5tnt16图4销售信息表-sell數据类型摂度 允许空|pt 宇耳bi giM□汽车名称 nvaruhar 50nvar char50进货数最 irtt n进货怖格 moneys进货日期dateti me 0备连t«xt16*图5 进货信息表-stock为了数据库的规范化的设计理念， 3个表之间的关系如图 6所示的关系图。
• products 表中的"汽车名称”字段和 sell 表中的"商品名称”形成一对多的参照完整 性-products 表中的"商品名称”字段和 stock 表中的"商品名称”字段形成一对多的参照完整性图6表之间的关系] -— * （所有列）A顺序号 汽军名称 宫车规移 计量单位 V_ .-■ sell*【宙有刿）古车名称帧客名称 1—季买數昼理 ock5•创建登录窗体模块5.1窗体模块的功能该系统是一个基于不同用户的系统，在本系统中有3类不同的用户：管理人员、仓管人员、销售人员。
因此，在系统启动时，需要一个登录窗口，已选择不同的身份登录，然后根据不同的身份来显示不同的功能。
5.2主界面的设计图7主界面5.3工作流程或者方式系统运行时，首先出现主界面。
当点击“登录”按钮后，出现登录窗体。
由于登录窗体时一个面向多用户的系统，不同的用户在使用系统时，将会拥有不同的功能。
登录窗体的作用就是确定当前使用系统的用户类型。
当窗体运行时，用户首先要在用户名和密码这两个文本框中输入相应的用户名和密码，然后在身份组合框中选择不同的身份。
单击“确定”按钮即可进入主窗体。
登录界面如图8所示。
图8登录界面5.4部分代码如下：“确定”按钮的部分代码:Private Sub cmdOK_Click()On Error GoTo errHa ndlerSet gCo nn = New ADODB.Co nn ection gConn. Ope n "yyxs", "teamo"Dim user As String, pwd As String user = txtUserpwd = txtPwd gnU serType = cboUserType.Listl ndex gsUserName = userDim strSQL As Stri ngstrSQL = "select * from userlist where 用户名="'& user & "'a nd 用户密码="'& pwd & "'a nd 用户类型="& gnU serTypeDim r As New ADODB.Recordsetr.Ope n strSQL, gConn, adOpe nStaticStatic n TryCo unt As In tegerIf r.EOF The nMsgBox "对不起，无此用户或者密码不正确！请重新输入！!! ", vbCritical,"错误”txtUser.SetFocustxtUser.SelStart = 0txtUser.SelLe ngth = Len( txtUser)n TryCo unt = n TryCo unt + 1If nTryCou nt >= 3 The nMsgBox "您无权操作本系统！再见！", vbCritical,"无权限"Un load MegConn .CloseEnd IfElseUn load MefrmMa in .ShowEnd Ifr.CloseExit SuberrHa ndler:MsgBox Err.Description, vbCritical,"错误"End Sub身份选择组合框的代码如下：Private Sub Form_Load()cboUserType.ClearcboUserType.AddItem "管理人员",0cboUserType.AddItem "仓管人员",1cboUserType.AddItem "销售人员",2cboUserType.Listl ndex = 0End Sub6. 主窗体的设计6.1窗体模块的功能如果用户通过登录窗体登录了本系统，将会出现如图9，10，11所示的主窗体界面。
该窗体是为整个系统中的窗体提供一个统一管理的环境。
其中设计了菜单，不同的菜单对应不同的系统功能；根据不同的用户身份，将会显示不同的菜单，这样就实现了使功能随用户的不同而不同的设计思路。
6.2工作流程该窗体被作为系统中众多窗体的父窗体，其主要功能是提供用户所要使用的菜单项，不同身份的用户，其所能使用的菜单项也是不同的。
(1) 以管理人员登录的界面显示，如图9所示图9(2) 以仓管人员登录的界面显示，如图10所示图10(3) 以销售人员登录的界面显示，如图11所示图11(4)密码或用户名输入错误的界面如图12所示图126.3部分代码(1)主窗体Load事件的代码Private Sub Form_Load()On Err GoTo errHa ndlerMe丄eft = GetSett in g(App.Title, "Setti ngs", "Mai nLeft", 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)Select Case gnU serTypeCase 0:mn uSystem.Visible = Truemn uProduct.Visible = Truemn uStock.Visible = Truemn uSell.Visible = Truemnu Help.Visible = TrueCase 1:mn uSystem.Visible = Falsemn uProduct.Visible = Falsemn uStock.Visible = Truemn uSell.Visible = Falsemnu Help.Visible = TrueCase 2:mn uSystem.Visible = Falsemn uProduct.Visible = Falsemn uStock.Visible = Falsemn uSell.Visible = Truemnu Help.Visible = TrueEnd SelectExit SuberrHa ndler:MsgBox Err.Description, vbCritical,"错误"End Sub(2 )各菜单项的代码Private Sub mn uProductAdd_Click()frmProduct.mbAddMode = TruefrmProduct.Show vbModalEnd SubPrivate Sub mn uProductChart_Click()Dim rs As New ADODB.Recordsetrs.Ope n "select * from products", gConn, adOpe nStaticLoad frmChartfrmChart.Caption ="当前汽车的库存状态"Dim arr()ReDim arr(1 To rs.RecordCount, 1 To 2)Dim i As In tegeri = 1rs.MoveFirstDim str As Stri ngWhile Not rs.EOFstr = Trim(rs("汽车名称"))arr(i, 1) = "" & str & ""arr(i, 2) = rs("库存数量")i = i + 1rs.MoveNextWendWith frmChart.charReport.Title ="当前汽车的库存状态.ChartData = arrEnd Withrs.ClosefrmChart.Show vbModalEnd SubPrivate Sub mn uProductFi nd_Click() mn uProductList_Click frmProductList.cmdFi nd.Value = TrueEnd SubPrivate Sub mn uProductList_Click()Load frmProductListfrmProductList.SQL = "select * from products" frmProductList.ShowEnd SubPrivate Sub mnu SellAdd_Click() frmSell.mbAddMode = True frmSell.Show vbModalEnd SubPrivate Sub mn uSellFi nd_Click() mn uSellList_Click frmSellList.cmdFi nd.Value = TrueEnd SubPrivate Sub mnu SellList_Click()Load frmSellListfrmSellList.SQL = "select * from sell" frmSellList.ShowEnd SubPrivate Sub mn uStockAdd_Click() frmStock.mbAddMode = True frmStock.Show vbModal End SubPrivate Sub mn uStockFi nd_Click() mn uStockList_Click frmStockList.cmdFi nd.Value = True End SubPrivate Sub mn uStockList_Click()Load frmStockListfrmStockList.SQL = "select * from stock"frmStockList.ShowEnd SubPrivate Sub mn uSystemExit_Click()Un load MeEnd SubPrivate Sub mnu SystemLogin_Click()Un load MefrmLogi n.ShowEnd SubPrivate Sub mn uSystemUser_Click()frmUser.ShowEnd Sub7. 用户管理模块7.1窗体模块的功能用户管理模块有3个窗体组成：用户管理主窗体、密码窗体和用户身份选择窗体。