课程设计（论文）-面向汽车销售管理系统的数据库系统设计与实现.doc

面向汽车销售管理系统的数据库系统设计与实现 39第一章 需求分析说明1.1开发环境与开发工具系统开发环境为一台安装windows xp的个人计算机作为客户机，其上安装了SQL Server 2000，本系统使用Visual Basic 6.0来开发，系统设计与运行均可在客户机上进行。1.2系统需求分析 本系统的设计模拟一般医院的汽车销售管理系统内容，经过充分的系统分析和调研，本系统主要包括的信息有3类：汽车商品信息、汽车进货信息以及汽车销售信息。 在传统的销售管理工作中，往往是用人工清点的方式来掌握仓库中的汽车商品、使用手工记账的方式来掌握商品的进货和销售情况。这种方式在数量较少、库存变换少的情况下，不失为一种好的方法。但是，随着每天所发生的进货和销售情况纷繁复杂，如果借助人工来记录和管理，将会耗费大量的时间，而且容易出现错误，造成管理上的混乱。 具体而言，汽车销售管理系统需要实现一下的需求：（1） 能够对医院过拥有的各种汽车的基础信息进行维护和管理。汽车的基础信息包括：汽车的顺序号、汽车名称、汽车规格、计量单位、备注信息、库存数量等。系统需要能够对汽车信息进行添加、修改和删除，也可以以图形的方式显示出现汽车的库存数量的比较。（2） 跟踪各种汽车的的进货信息。汽车的进货信息包括顺序号、汽车名称、进货数量、进货价格、进货日期、备注等。系统还需要能够对进货信息进行添加、修改和删除，也可以按照一定的条件来进行查询。（3） 跟踪各种汽车的销售信息。汽车的销售信息包括顺序号、汽车名称、顾客名称、购买数量、售出价格、销售日期、备注等。系统需要能够对销售信息进行添加、修改和删除，也可以按照一定的条件来进行查询。第二章 概要设计说明2.1模块设计 根据需求分析的结果，本系统主要划分为4个子模块：用户管理、汽车信息管理、进货信息管理、销售信息管理。 汽车销售管理系统不同类型的用户在系统中有不同的权限，主要有以下3种用户：（1） 管理人员 本系统的管理人员可以使用本系统的所有功能，包括用户管理、汽车信息管理、进货信息管理和销售信息管理功能。（2） 仓管人员 仓管人员负责管理仓库中的汽车数量，主要负责汽车的每次的进货情况。其只能使用系统中的进货信息管理功能模块，对每次进货的信息进行记录，并且可以查询当前仓库中的汽车库存数量。（3） 销售人员 销售人员负责汽车的日常销售工作，需要掌握各种汽车的各次的销售情况。其只能使用本系统的汽车销售信息管理模块，贵每次汽车的销售情况进行记录。整个系统的结构模块如图1所示。 一下分别介绍系统中的各个系统4个子模块A 用户管理模块用于管理汽车销售系统中的各种类型的用户。只有具有管理人员身份的人才能使用本模块，管理人员可以添加或者删除相应的用户，可以改变用户的身份，也可以改变某个用户的秘密。B 汽车信息管理模块汽车销售管理系统用户登录管理人员仓管人员销售人员用户管理模块销售信息管理模块汽车信息管理模块进货信息管理模块 图2-1 系统模块分析用来多医院所拥有的各种汽车的基础信息进行维护和管理。在系统中，需要对汽车信息进行添加、修改和删除，也可以按照一定的条件进行查询，并且不要将汽车的库存数量以图形的方式显示出来。C 进货信息管理模块用来跟踪汽车每一次进货的信息。该模块需要能够对进货信息进行添加、修改和删除，也可以按照一定的条件来进行查询。只有管理人员和仓管人员才能使用本模块。D 销售信息管理模块用来跟踪汽车每一次售货的信息。该模块需要能够对销售信息进行添加、修改和删除，也可以按照一定的条件来进行查询。只有管理人员和销售人员才能使用本模块。2.2分析与创建数据库 在本系统中，需要掌握汽车的基本信息、每次汽车进货信息、每次汽车销售信息，此外，由于要进行用户管理，还需要掌握使用本系统的用户，各种数据表如图2，3，4，5所示 图2-2 用户信息表-userlist 图2-3 汽车信息表-products 图2-4 销售信息表-sell 图2-5 进货信息表-stock 为了数据库的规范化的设计理念，3个表之间的关系如图6所示的关系图。 products表中的“汽车名称”字段和sell表中的“商品名称”形成一对多的参照完整性 products表中的“商品名称”字段和stock表中的“商品名称”字段形成一对多的参照完整性 图2-6 表之间的关系2.3创建登录窗体模块 2.3.1窗体模块的功能 该系统是一个基于不同用户的系统，在本系统中有3类不同的用户：管理人员、仓管人员、销售人员。因此，在系统启动时，需要一个登录窗口，已选择不同的身份登录，然后根据不同的身份来显示不同的功能。 2.3.2 主界面的设计 图2.7 主界面 2.3.3 工作流程或者方式 系统运行时，首先出现主界面。当点击“登录”按钮后，出现登录窗体。由于登录窗体时一个面向多用户的系统，不同的用户在使用系统时，将会拥有不同的功能。登录窗体的作用就是确定当前使用系统的用户类型。 当窗体运行时，用户首先要在用户名和密码这两个文本框中输入相应的用户名和密码，然后在身份组合框中选择不同的身份。 单击“确定”按钮即可进入主窗体。 登录界面如图2.8所示。 图2.8 登录界面 2.3.4 部分代码“确定”按钮的部分代码：Private Sub cmdOK_Click()On Error GoTo errHandlerSet gConn = New ADODB.ConnectiongConn.Open yyxs, teamoDim user As String, pwd As Stringuser = txtUserpwd = txtPwdgnUserType = cboUserType.ListIndexgsUserName = userDim strSQL As StringstrSQL = select * from userlist where 用户名= & user & and 用户密码= & pwd & and 用户类型= & gnUserTypeDim r As New ADODB.Recordsetr.Open strSQL, gConn, adOpenStaticStatic nTryCount As IntegerIf r.EOF Then MsgBox 对不起，无此用户或者密码不正确！请重新输入！, vbCritical, 错误 txtUser.SetFocus txtUser.SelStart = 0 txtUser.SelLength = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您无权操作本系统！再见！, vbCritical, 无权限 Unload Me gConn.Close End IfElse Unload Me frmMain.ShowEnd Ifr.CloseExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End Sub 身份选择组合框的代码如下：Private Sub Form_Load()cboUserType.ClearcboUserType.AddItem 管理人员, 0cboUserType.AddItem 仓管人员, 1cboUserType.AddItem 销售人员, 2cboUserType.ListIndex = 0End Sub2.4主窗体的设计 2.4.1 窗体模块的功能 如果用户通过登录窗体登录了本系统，将会出现如图9，10，11所示的主窗体界面。该窗体是为整个系统中的窗体提供一个统一管理的环境。其中设计了菜单，不同的菜单对应不同的系统功能；根据不同的用户身份，将会显示不同的菜单，这样就实现了使功能随用户的不同而不同的设计思路。 2.4.2 工作流程 该窗体被作为系统中众多窗体的父窗体，其主要功能是提供用户所要使用的菜单项，不同身份的用户，其所能使用的菜单项也是不同的。（1） 以管理人员登录的界面显示，如图2.9所示 图2.9（2） 以仓管人员登录的界面显示，如图2.10所示 图2.10（3） 以销售人员登录的界面显示，如图2.11所示 图2.11（4） 密码或用户名输入错误的界面如图2.12所示 图2.12第三章 程序源模块代码及总结3.1部分代码（1）主窗体Load事件的代码 Private Sub Form_Load()On Err GoTo errHandlerMe.Left = GetSetting(App.Title, Settings, MainLeft, 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 gnUserType Case 0: mnuSystem.Visible = True mnuProduct.Visible = True mnuStock.Visible = True mnuSell.Visible = True mnuHelp.Visible = True Case 1: mnuSystem.Visible = False mnuProduct.Visible = False mnuStock.Visible = True mnuSell.Visible = False mnuHelp.Visible = True Case 2: mnuSystem.Visible = False mnuProduct.Visible = False mnuStock.Visible = False mnuSell.Visible = True mnuHelp.Visible = TrueEnd SelectExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End Sub （2）各菜单项的代码 Private Sub mnuProductAdd_Click()frmProduct.mbAddMode = TruefrmProduct.Show vbModalEnd SubPrivate Sub mnuProductChart_Click()Dim rs As New ADODB.Recordsetrs.Open select * from products, gConn, adOpenStaticLoad frmChartfrmChart.Caption = 当前汽车的库存状态Dim arr()ReDim arr(1 To rs.RecordCount, 1 To 2)Dim i As Integeri = 1rs.MoveFirstDim str As StringWhile Not rs.EOF str = Trim(rs(汽车名称) arr(i, 1) = & str & arr(i, 2) = rs(库存数量) i = i + 1 rs.MoveNextWendWith frmChart.charReport .Title = 当前汽车的库存状态 .ChartData = arrEnd Withrs.ClosefrmChart.Show vbModalEnd SubPrivate Sub mnuProductFind_Click()mnuProductList_ClickfrmProductList.cmdFind.Value = TrueEnd SubPrivate Sub mnuProductList_Click()Load frmProductListfrmProductList.SQL = select * from productsfrmProductList.ShowEnd SubPrivate Sub mnuSellAdd_Click()frmSell.mbAddMode = TruefrmSell.Show vbModalEnd SubPrivate Sub mnuSellFind_Click()mnuSellList_ClickfrmSellList.cmdFind.Value = TrueEnd SubPrivate Sub mnuSellList_Click()Load frmSellListfrmSellList.SQL = select * from sellfrmSellList.ShowEnd SubPrivate Sub mnuStockAdd_Click()frmStock.mbAddMode = TruefrmStock.Show vbModalEnd SubPrivate Sub mnuStockFind_Click()mnuStockList_ClickfrmStockList.cmdFind.Value = TrueEnd SubPrivate Sub mnuStockList_Click()Load frmStockListfrmStockList.SQL = select * from stockfrmStockList.ShowEnd SubPrivate Sub mnuSystemExit_Click()Unload MeEnd SubPrivate Sub mnuSystemLogin_Click()Unload MefrmLogin.ShowEnd SubPrivate Sub mnuSystemUser_Click()frmUser.ShowEnd Sub3.2创建用户管理模块 3.2.1 窗体模块的功能 用户管理模块有3个窗体组成：用户管理主窗体、密码窗体和用户身份选择窗体。用户管理主窗体用于显示用户列表，供用户选择下一步操作；密码窗体用于添加用户时输入用户密码，或者用于变更当前用户的秘密；用户身份选择窗体用于添加用户时选择用户身份，或用于变更当前的用户身份。 3.2.2 窗体工作流程 用户管理模块有几个窗体所共同组成，其流程如图3-1所示显示用户列表输入用户名选择用户类型更改用户类型输入密码添加用户删除用户选择用户修改用户添加用户成功 图3-1 用户管理模块的流程 3.2.3 窗体显示界面 （1）用户管理界面如图3.2所示 图3.2 （2）密码窗体如图3.3 图3.3 图3.3（3）用户类型窗体如图3-3 3.2.4 部分代码 a 用户管理代码 Private Sub cboUserType_Click()On Error GoTo errHandlerlstUser.ClearDim str As StringSelect Case cboUserType.ListIndex Case 0, 1, 2: str = select * from userlist where 用户类型= & cboUserType.ListIndex Case Else: str = select * from userlistEnd SelectDim rs As New ADODB.Recordsetrs.Open str, gConn, adOpenStaticWhile Not rs.EOF lstUser.AddItem rs(用户名), 0 lstUser.ItemData(0) = rs(用户类型) rs.MoveNextWendrs.CloseExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdAddUser_Click()On Error GoTo errHandlerDim strUser As StringDim strPwd As StringDim nType As IntegergetUser: strUser = InputBox(请输入所要新建的用户的名称：, 用户名) If strUser = Then Exit Sub Dim rs As New ADODB.Recordset rs.Open select * from userlist where 用户名= & strUser & , gConn, adOpenStatic If Not rs.EOF Then MsgBox 该用户名已经存在！, vbCritical, 用户名重复 GoTo getUser End If rs.Close getPwd: frmPassword.Show vbModal strPwd = frmPassword.txtPwd(0).Text Unload frmPassword If strPwd = Then MsgBox 必须输入密码！, vbCritical, 需要密码 GoTo getPwd End If getType: frmUserType.Show vbModal nType = frmUserType.mmUserType Unload frmUserType If nType 0 Then MsgBox 必须选择用户类型！, vbCritical, 选择用户类型 GoTo getType End If gConn.Execute insert into userlist(用户名，用户密码，用户类型) values( & strUser & , & strPwd & , & nType & ) Exit Sub errHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdChangePwd_Click()On Error GoTo errHandlerIf lstUser.Text = Then Exit SubfrmPassword.Show vbModalIf frmPassword.txtPwd(0).Text Then gConn.Execute update userlist set 用户密码= & frmPassword.txtPwd(0).Text & where 用户名= & lstUser.Text & End IfUnload frmPasswordExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdChangeType_Click()On Error GoTo errHandlerIf lstUser.Text = Then Exit SubLoad frmUserTypefrmUserType.optUserType(lstUser.ItemData(lstUser.ListIndex).Value = TruefrmUserType.Show vbModalIf frmUserType.mnUserType = 0 Then gConn.Execute update userlist set 用户类型= & frmUserType.mnUserType & where 用户名= & lstUser.Text & End IfUnload frmUserTypeExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdClose_Click()Unload MeEnd SubPrivate Sub cmdDeleteUser_Click()On Error GoTo errHandlerIf lstUser.Text = Then Exit SubIf lstUser.Text = gsUserName Then MsgBox 不能删除当前记录！, vbCritical, 删除用户错误 Exit SubEnd IfgConn.Execute delete from userlist where 用户名= & lstUser.Text & lstUser.RemoveItem lstUser.ListIndexExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End Subb 密码窗体代码 c 用户身份选择窗体代码 Private Sub cmdCancel_Click()mnUserType = -1Me.HideEnd SubPrivate Sub cmdOK_Click()Me.HideEnd SubPrivate Sub Form_Load()optUserType(0).Value = TruemnUserType = -1End SubPrivate Sub optUserType_Click(Index As Integer)mnUserType = IndexEnd Sub3.3创建汽车信息管理模块 3.3.1 窗体模块的功能 在汽车信息管理模块中，包含3个窗体：汽车信息列表窗体、汽车信息编辑窗体和显示库存数量的窗体。汽车信息列表窗体以表格的形式列出当前系统中的汽车信息，并且为用户提供了进行各种操作的接口；汽车信息编辑窗体用于显示某一个汽车的基本信息，借助该窗体可以对某个汽车信息进行编辑，也可以向数据库增加一个汽车信息；显示库存数量的窗体主要是借助图形方式显示出汽车当前的数量。 3.3.2 窗体工作流程添加编辑删除查找 汽车信息列表图形显示库存状态 图3-4 汽车信息管理模块的子功能 3.3.3 窗体界面显示 （1）汽车信息列表窗体 图3.5 （2）汽车信息编辑窗体 图3.6（3）显示库存数量窗体 图3.7 3.3.4 部分代码 A 汽车信息列表窗体代码 Private Sub cmdDelete_Click()On Error GoTo errHandlerDim l As Longl = grdList.TextMatrix(grdList.Row, 1)gConn.Execute delete from products where 顺序号= & lUnload MeLoad MeMe.SQL = select * from productsMe.ShowExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdEdit_Click()On Error GoTo errHandlerfrmProduct.mnSerial = CLng(grdList.TextMatrix(grdList.Row, 1)frmProduct.mbAddMode = FalsefrmProduct.ShowExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdFind_Click()frmFind.SQL = mRs.SourcefrmFind.Show vbModalIf Trim(frmFind.msResultSQL) = Then Exit SubUnload MeLoad MeMe.SQL = select * from products where & frmFind.msResultSQLMe.ShowUnload frmFindEnd SubPrivate Sub cmdReport_Click()If mRs.EOF And mRs.EOF Then MsgBox 当前没有任何记录！, vbExclamation, 错误 Exit SubEnd IfLoad frmChartfrmChart.Caption = 当前汽车的库存状态Dim arr()ReDim arr(1 To mRs.RecordCount, 1 To 2)Dim i As Integeri = 1mRs.MoveFirstDim str As StringWhile Not mRs.EOF str = Trim(mRs(汽车名称) arr(i, 1) = & str & arr(i, 2) = mRs(库存数量) i = i + 1 mRs.MoveNextWendWith frmChart.charReport .Title = 当前的库存汽车的剩余价值 .ChartData = arrEnd WithfrmChart.Show vbModalEnd SubPrivate Sub cmdShowAll_Click()Unload MeLoad MeMe.SQL = select * from productsMe.ShowEnd SubPrivate Sub Form_Load()Set mRs = New ADODB.RecordsetDim i As IntegerWith grdList .Cols = 7 .TextMatrix(0, 1) = .TextMatrix(0, 2) = 汽车名称 .TextMatrix(0, 3) = 汽车规格 .TextMatrix(0, 4) = 汽车单位 .TextMatrix(0, 5) = 备注信息 .TextMatrix(0, 6) = 库存数量 .FixedRows = 1 For i = 0 To .Cols - 1 .ColAlignment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .ColWidth(0) = 100 .ColWidth(1) = 0 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .Row = 1End WithEnd Sub （2）汽车信息编辑窗体代码 Private Sub cmdCancel_Click()If mbChange And cmdOK.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then Call cmdOK_Click End IfEnd IfUnload MeUnload frmProductListLoad frmProductListfrmProductList.SQL = select * from productsfrmProductList.ShowEnd SubPrivate Sub cmdOK_Click()Dim strMsg As StringDim rs As ADODB.RecordsetDim strSQL As StringDim i As IntegerFor i = 0 To 2 If Trim(txtIntem(i) & ) = Then Select Case i Case 0 strMsg = 汽车名称 Case 1 strMsg = 汽车规格 Case 2 strMsg = 计量单位 End Select strMsg = strMsg & 不能为空！ MsgBox strMsg, vbOKOnly + vbExclamation, 警告 txtIntem(i).SetFocus Exit Sub End IfNext iSet rs = New ADODB.RecordsetIf mbAddMode Then strSQL = select * from products where 汽车名称= & Trim(txtIntem(0) & and 汽车规格= & Trim(txtIntem(i) & rs.Open strSQL, gConn, adOpenStatic If Not rs.EOF Then MsgBox 已经存在相同内容的记录！, vbOKOnly + vbExclamation, 警告 txtIntem(0).SetFocus rs.Close Exit Sub End If rs.CloseElse strSQL = delete from products where 顺序号= & Trim(mnSerial) gConn.Execute strSQLEnd IfstrSQL = select * from productsrs.Open strSQL, gConn, adOpenDynamic, adLockOptimisticrs.AddNewFor i = 0 To rs.Fields.Count - 2 rs.Fields(i + 1) = txtIntem(i)Next irs.Updaters.CloseIf mbAddMode Then mbChange = False MsgBox 添加汽车信息成功！继续添加下一条汽车信息, vbOKOnly + vbExclamation, 添加汽车信息 Unload Me Me.Show vbModalElse Unload Me frmProductList.SQL = select * from products frmProductList.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim strSQL As StringDim i As IntegerDim rs As New ADODB.RecordsetIf mbAddMode Then Me.Caption = Me.Caption & 添加Else strSQL = select * from products where 顺序号= & Trim(frmProductList.grdList.TextMatrix(frmProductList.grdList.Row, 1) & rs.Open strSQL, gConn, adOpenKeyset If rs.EOF = False Then With rs mnSerial = .Fields(0) For i = 0 To .Fields.Count - 2 If Not IsNull(.Fields(i + 1) Then txtIntem(i) = .Fields(i + 1) End If Next i End With End If rs.Close Me.Caption = Me.Caption & 修改End IfmbChange = FalseEnd SubPrivate Sub txtIntem_Change(Index As Integer)mbChange = TrueEnd SubPrivate Sub txtIntem_GotFocus(Index As Integer)txtIntem(Index).SelStart = 0txtIntem(Index).SelLength = Len(txtIntem(Index)End Sub（3）显示库存数量的窗体代码Private Sub Form_Resize()charReport.Left = 0charReport.Top = 0charReport.Height = Me.ScaleHeightcharReport.Width = Me.ScaleWidthEnd Sub3.4 创建进货信息管理模块 3.4.1 窗体模块的功能 在该模块中，包含两个窗体：进货信息列表窗体和进货信息编辑窗体。进货信息列表窗体以表格形式列出当前系统中的进货信息，并且提供了进行各种操作的接口；进货信息编辑窗体用于显示某一次进货的信息，借助该窗体可以对某次进货的信息进行编辑，也可以向数据库增加进货信息。 3.4.2 工作流程 该模块所包含的功能如图3-8所示。查找删除进货信息列表编辑添加进货信息编辑窗体 图3-8 进货信息管理模块的子功能 3.4.3 窗体界面设计 （1）进货信息列表窗体，如图3.9 图3.9 （2）进货信息编辑窗体，如图3.10 图3.10 3.4.4 部分代码 A 进货信息列表窗体代码 Private Sub cmdAdd_Click()frmStock.mbAddMode = TruefrmStock.Show vbModalEnd SubPrivate Sub cmdDelete_Click()On Error GoTo errHandlerDim l As Longl = grdList.TextMatrix(grdList.Row, 1)gConn.Execute delete from stock where 顺序号= & lUnload MeLoad MeMe.SQL = select * from stockMe.ShowExit SuberrHandler: MsgBox Err.Description, vbCritical, 错误End SubPrivate Sub cmdEdit_Click()frmStock.mnSerial = CLng(grdList.TextMatrix(grdList.Row, 1)frmStock.mbAddMode = TruefrmStock.Show vbModalEnd SubPrivate Sub cmdFind_Click()frmFind.SQL = mRs.SourcefrmFind.Show vbModalUnload MeLoad MeIf Trim(frmFind.msResultSQL) Then Me.SQL = select