二手車管理系統(tǒng)課程設(shè)計(jì)

1、<p><b>　　課程設(shè)計(jì)報(bào)告</b></p><p><b>　　管理信息系統(tǒng)</b></p><p>　　項(xiàng)目名稱：龍信二手車管理系統(tǒng)</p><p>　　專 業(yè)：信息管理與信息系統(tǒng)</p><p>　　2012年 1月 6日</p><p>　　龍信

2、二手車管理系統(tǒng)需求分析</p><p><b>　　1.系統(tǒng)目標(biāo)</b></p><p>　?。?）.為神龍公司標(biāo)致品牌經(jīng)銷商提供管理二手車相關(guān)業(yè)務(wù)的信息系統(tǒng)</p><p>　?。?）.該系統(tǒng)能夠規(guī)范、管理經(jīng)銷商針對(duì)二手車進(jìn)行收購(gòu)、置換、銷售以及后續(xù)保修業(yè)務(wù)</p><p>　?。?）.該系統(tǒng)能夠?qū)崿F(xiàn)經(jīng)銷商之間、經(jīng)銷商

3、和品牌部之間信息共享</p><p>　　（4）.該系統(tǒng)能夠規(guī)范、管理品牌部進(jìn)行二手車置換審核、認(rèn)證業(yè)務(wù)</p><p>　　（5）.該系統(tǒng)能夠令公網(wǎng)普通用戶通過(guò)新浪、搜狐等門戶網(wǎng)站訪問(wèn)，查詢部分信息以及申報(bào)選購(gòu)信息。</p><p><b>　　2.系統(tǒng)拓?fù)?lt;/b></p><p><b>　　3.工作流程圖

4、</b></p><p>　　系統(tǒng)結(jié)構(gòu)及子系統(tǒng)處理流程</p><p><b>　　系統(tǒng)結(jié)構(gòu)圖</b></p><p>　　子系統(tǒng)結(jié)構(gòu)設(shè)計(jì)、功能要求及代碼實(shí)現(xiàn)</p><p>　?。?）.主界面+收購(gòu)處理（完成者：）</p><p><b>　　結(jié)構(gòu)設(shè)計(jì)</b>&

5、lt;/p><p>　　功能要求：作為登陸界面，要求登錄時(shí)簡(jiǎn)潔，明了，美觀，用戶清楚各個(gè)窗體作用</p><p>　　系統(tǒng)功能：用于對(duì)車輛新增的信息進(jìn)行增添，修改以及刪除已經(jīng)出售的車輛信息</p><p>　　能向“定價(jià)處理”，“銷售簽約”，“報(bào)表制作”環(huán)節(jié)提供庫(kù)存車輛信息，以供定價(jià)、銷售、制作報(bào)表使用。使得整個(gè)流程清晰，信息無(wú)冗余，且更新方便</p>&

6、lt;p>　?。?）.定價(jià)處理（完成者：）</p><p><b>　　結(jié)構(gòu)設(shè)計(jì)</b></p><p><b>　　功能要求：</b></p><p>　　在查詢窗體中，要求輸入二手車編號(hào)或VIN碼時(shí)可以查詢到車輛收購(gòu)價(jià)格及其定價(jià)。</p><p>　　若輸入的編號(hào)或VIN碼在數(shù)據(jù)庫(kù)中沒(méi)有記

7、錄時(shí)，彈出窗口提示：“輸入的賬號(hào)不存在， 是否要新增該賬號(hào)記錄？”點(diǎn)擊確定即可新建記錄。</p><p>　　B.在新建窗體中，可以通過(guò)兩種方式新建二手車記錄：</p><p>　　1.查詢時(shí)沒(méi)有記錄，可以新建記錄</p><p>　　2.直接在查詢窗體中輸入二手車編號(hào)、VIN碼等信息，點(diǎn)擊“新建”新建記錄。</p><p>　　C.

8、在定價(jià)修改窗體中，輸入二手車編號(hào)或VIN碼可以獲得原二手車信息，編輯修改后可以保存。</p><p><b>　　實(shí)現(xiàn)代碼：</b></p><p>　　Option Compare Database</p><p>　　Private Sub Command8_Click()</p><p>　　On Error Go

9、To Err_Command8_Click</p><p>　　DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70</p><p>　　Dim strSQL As String</p><p>　　Dim rst As Recordset</p><p>

10、;　　Dim dbs As Database</p><p>　　Dim strAcctID As String</p><p>　　Dim stDocName As String</p><p>　　Dim stLinkCriteria As String</p><p>　　strAcctID = cmbAcctID.Value</

11、p><p>　　Set dbs = CurrentDb</p><p>　　strSQL = "SELECT * FROM AcctInfo WHERE AcctID='" & strAcctID & "'"</p><p>　　Set rst = dbs.OpenRecordset(strSQL)

12、</p><p>　　If rst.EOF Then</p><p>　　rc = MsgBox("輸入的帳號(hào)不存在，是否需要新增該帳號(hào)的記錄？", vbYesNo)</p><p>　　If rc = vbYes Then</p><p>　　cmbAcctBank.Value = ""</p&

13、gt;<p>　　txtAcctName.Value = ""</p><p>　　txtAcctType.Value = ""</p><p>　　txtMemo.Value = ""</p><p>　　btnDel.Transparent = True</p><p&

14、gt;　　btnSave.Transparent = False</p><p>　　btnCancel.Transparent = False</p><p>　　btnOperation = "new"</p><p><b>　　End If</b></p><p><b>　　Els

15、e</b></p><p>　　cmbAcctBank.Value = rst.Fields("AcctBank")</p><p>　　txtAcctName.Value = rst.Fields("AcctName")</p><p>　　txtAcctType.Value = rst.Fields("

16、;AcctType")</p><p>　　txtMemo.Value = rst.Fields("Memo")</p><p>　　btnDel.Transparent = False</p><p>　　btnSave.Transparent = False</p><p>　　btnCancel.Trans

17、parent = False</p><p><b>　　End If</b></p><p><b>　　rst.Close</b></p><p>　　Exit_Command8_Click:</p><p><b>　　Exit Sub</b></p>&l

18、t;p>　　Err_Command8_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command8_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Clic

19、k()</p><p>　　On Error GoTo Err_Command10_Click</p><p>　　DoCmd.Close</p><p>　　Exit_Command10_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Comman

20、d10_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command10_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub Command11_Click()</p>&l

21、t;p>　　On Error GoTo Err_btnSave_Click</p><p>　　Dim strSQL As String</p><p>　　Dim rst As Recordset</p><p>　　Dim rst1 As Recordset</p><p>　　Dim dbs As Database</p&g

22、t;<p>　　Dim strAcctID As String</p><p>　　Dim stDocName As String</p><p>　　Dim stLinkCriteria As String</p><p>　　Set dbs = CurrentDb</p><p>　　'If btnOperation

23、 = "new" Then</p><p>　　Set rst1 = dbs.OpenRecordset("定價(jià)處理")</p><p>　　rst1.AddNew</p><p>　　rst1.Fields("二手車編號(hào)") = Text16.Value</p><p>　　rst

24、1.Fields("VIN碼") = Text14.Value</p><p>　　rst1.Fields("定價(jià)") = Text4.Value</p><p>　　rst1.Fields("簽約金額") = Text6.Value</p><p>　　strAcctID = Text16.Value&l

25、t;/p><p>　　strSQL = "SELECT * FROM 定價(jià)處理 WHERE 二手車編號(hào)='" & strAcctID & "'"</p><p>　　Set rst = dbs.OpenRecordset(strSQL)</p><p>　　If(exist(SELECT * FR

26、OM 定價(jià)處理 WHERE 二手車編號(hào)='" & strAcctID & "'))</p><p>　　If (rst.Fields("二手車編號(hào)")) Then</p><p>　　rc = MsgBox("車輛編號(hào)不能相同，請(qǐng)重新輸入！", vbOKOnly)</p><p

27、>　　Text16.Value = ""</p><p>　　Text14.Value = ""</p><p>　　Text4.Value = ""</p><p>　　Text6.Value = ""</p><p><b>　　Exit Su

28、b</b></p><p><b>　　End If</b></p><p><b>　　rst.Close</b></p><p><b>　　Else</b></p><p>　　strAcctID = cmbAcctID.Value</p>&l

29、t;p>　　strSQL = "SELECT * FROM 定價(jià)處理 WHERE AcctID ='" & strAcctID & "'"</p><p>　　Set rst = dbs.OpenRecordset(strSQL)</p><p><b>　　rst.Edit</b><

30、/p><p>　　rst.Fields("AcctBank") = cmbAcctBank.Value</p><p>　　rst.Fields("AcctName") = txtAcctName.Value</p><p>　　rst.Fields("AcctType") = txtAcctType.Valu

31、e</p><p>　　rst.Fields("Memo") = txtMemo.Value</p><p><b>　　End If</b></p><p>　　rst1.Update</p><p>　　rc = MsgBox("新增定價(jià)成功！", vbOKOnly)</

32、p><p>　　rst1.Close</p><p>　　'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70</p><p>　　Exit_btnSave_Click:</p><p><b>　　Exit Sub</b>&l

33、t;/p><p>　　Err_btnSave_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_btnSave_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub Comm

34、and9_Click()</p><p>　　'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70</p><p>　　Dim strSQL As String</p><p>　　Dim rst As Recordset</p><p>　　D

35、im dbs As Database</p><p>　　Dim strAcctID As String</p><p>　　Dim stDocName As String</p><p>　　Dim stLinkCriteria As String</p><p>　　strAcctID = Text16.Value</p>

36、<p>　　Set dbs = CurrentDb</p><p>　　strSQL = "SELECT * FROM 定價(jià)處理 WHERE 二手車編號(hào)='" & strAcctID & "'"</p><p>　　Set rst = dbs.OpenRecordset(strSQL)</p>

37、<p>　　If rst.EOF Then</p><p>　　rc = MsgBox("輸入的帳號(hào)不存在，是否需要新增該帳號(hào)的記錄？", vbYesNo)</p><p>　　If rc = vbYes Then</p><p>　　Text14.Value = ""</p><p>　　

38、Text4.Value = ""</p><p>　　Text6.Value = ""</p><p>　　txtMemo.Value = ""</p><p>　　btnDel.Transparent = True</p><p>　　btnSave.Transparent = F

39、alse</p><p>　　btnCancel.Transparent = False</p><p>　　btnOperation = "new"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p

40、>　　Text14.Value = rst.Fields("VIN碼")</p><p>　　Text4.Value = rst.Fields("定價(jià)")</p><p>　　Text6.Value = rst.Fields("簽約金額")</p><p>　　txtMemo.Value = rst.

41、Fields("Memo")</p><p>　　btnDel.Transparent = False</p><p>　　'btnSave.Transparent = False</p><p>　　btnCancel.Transparent = False</p><p><b>　　End If&l

42、t;/b></p><p><b>　　rst.Close</b></p><p>　　Exit_Command8_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command8_Click:</p><p>　　Msg

43、Box Err.Description</p><p>　　Resume Exit_Command8_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub Text16_AfterUpdate()</p><p>　　Dim strSQL As String</

44、p><p>　　Dim rst As Recordset</p><p>　　Dim rst1 As Recordset</p><p>　　Dim dbs As Database</p><p>　　Dim strAcctID As String</p><p>　　Dim stDocName As String<

45、/p><p>　　Dim stLinkCriteria As String</p><p>　　strAcctID = Text16.Value</p><p>　　strSQL = "SELECT * FROM 定價(jià)處理 WHERE 二手車編號(hào)='" & strAcctID & "'"</

46、p><p>　　Set rst = dbs.OpenRecordset(strSQL)</p><p>　　If(exist(SELECT * FROM 定價(jià)處理 WHERE 二手車編號(hào)='" & strAcctID & "'))</p><p>　　If (rst.Fields("二手車編號(hào)")

47、) Then</p><p>　　rc = MsgBox("車輛編號(hào)不能相同，請(qǐng)重新輸入！", vbOKOnly)</p><p>　　Text16.Value = ""</p><p>　　'Text14.Value = ""</p><p>　　Text4.Value =

48、 ""</p><p>　　Text6.Value = ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　rst.Close</b></p>

49、;<p><b>　　'End Sub</b></p><p>　　Private Sub Text16_BeforeUpdate(Cancel As Integer)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command18_Click()&

50、lt;/p><p>　　On Error GoTo Err_Command18_Click</p><p>　　Dim stDocName As String</p><p>　　Dim stLinkCriteria As String</p><p>　　stDocName = ChrW(20462) & ChrW(25913) &am

51、p; ChrW(23450) & ChrW(20215)</p><p>　　DoCmd.OpenForm stDocName, , , stLinkCriteria</p><p>　　Exit_Command18_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_

52、Command18_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_Command18_Click</p><p><b>　　End Sub</b></p><p><b>　　功能實(shí)現(xiàn)截圖:</b></p>

53、<p>　　（3）銷售處理（完成者：胡鳳喜）</p><p><b>　　銷售系統(tǒng)邏輯結(jié)構(gòu)圖</b></p><p><b>　　功能實(shí)現(xiàn)截圖：</b></p><p><b>　　銷售總界面</b></p><p><b>　　購(gòu)買界面</b>

54、;</p><p><b>　　匹配界面</b></p><p><b>　　簽約界面</b></p><p>　?。?）.報(bào)表系統(tǒng)（完成者：）</p><p>　　報(bào)表系統(tǒng)部分主要完成統(tǒng)計(jì)報(bào)表（收購(gòu)明細(xì)報(bào)表、銷售明細(xì)報(bào)表、庫(kù)存統(tǒng)計(jì)報(bào)表）</p><p>　　收購(gòu)明細(xì)報(bào)表主要

55、關(guān)注序號(hào)、車型、VIN號(hào)、車牌號(hào)、車主姓名、行駛里程、收購(gòu)時(shí)間、收購(gòu)價(jià)格</p><p>　　數(shù)據(jù)存儲(chǔ)名稱：收購(gòu)臺(tái)帳</p><p>　　簡(jiǎn)述：記錄二手車收購(gòu)數(shù)據(jù)的明細(xì)帳</p><p>　　數(shù)據(jù)存儲(chǔ)組成：序號(hào)+車型+VIN號(hào)+車牌號(hào)+車主姓名+行駛里程+收購(gòu)時(shí)間+收購(gòu)價(jià)格</p><p>　　數(shù)據(jù)存儲(chǔ)名稱：銷售臺(tái)帳</p>&

56、lt;p>　　簡(jiǎn)述：記錄二手車銷售數(shù)據(jù)的明細(xì)帳</p><p>　　數(shù)據(jù)存儲(chǔ)組成：序號(hào)+車型+VIN號(hào)+買主姓名+銷售時(shí)間+庫(kù)存天數(shù)+收購(gòu)價(jià)格+銷售價(jià)格</p><p>　　數(shù)據(jù)存儲(chǔ)名稱：庫(kù)存臺(tái)帳</p><p>　　簡(jiǎn)述：記錄二手車出入庫(kù)數(shù)據(jù)的明細(xì)帳</p><p>　　數(shù)據(jù)存儲(chǔ)組成：日期+車牌號(hào)+車型+入庫(kù)序號(hào)+庫(kù)存數(shù)量+車顯里程+

57、車身顏色+銷售狀態(tài)+定價(jià)狀態(tài)</p><p><b>　　新系統(tǒng)功能設(shè)計(jì)</b></p><p><b>　　代碼設(shè)計(jì)</b></p><p>　　系統(tǒng)運(yùn)行環(huán)境與數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p><b>　　輸入/輸出設(shè)計(jì)</b></p><p>　　數(shù)據(jù)錄入

58、模塊：錄入二手車入庫(kù)單和出庫(kù)單，記錄各種產(chǎn)品的每筆出入庫(kù)數(shù)據(jù)。 </p><p>　　數(shù)據(jù)查詢模塊：提供多種查詢功能，如每筆入庫(kù)、每日、每月或累計(jì)出入庫(kù)數(shù)據(jù)的查詢等。</p><p>　　報(bào)表輸出模塊：可以完成系統(tǒng)所需的各種報(bào)表的計(jì)算和打印輸出。</p><p>　　代碼維護(hù)模塊：當(dāng)產(chǎn)品代碼或特性變動(dòng)時(shí)可以及時(shí)修改代碼表，可對(duì)代碼表進(jìn)行增加、刪除和修改等處理。 &l