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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：20 大?。?22.96KB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩19頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　課程設(shè)計報告　　管理信息系統(tǒng)　　項目名稱：龍信二手車管理系統(tǒng)　　專業(yè)：信息管理與信息系統(tǒng)　　2012年 1月 6日　　龍信

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

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

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

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

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

7、錄時，彈出窗口提示：“輸入的賬號不存在，是否要新增該賬號記錄？”點擊確定即可新建記錄。　　B.在新建窗體中，可以通過兩種方式新建二手車記錄：　　1.查詢時沒有記錄，可以新建記錄　　2.直接在查詢窗體中輸入二手車編號、VIN碼等信息，點擊“新建”新建記錄。　　C.

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

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

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

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

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

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

14、gt;　　btnSave.Transparent = False　　btnCancel.Transparent = False　　btnOperation = "new"　　End If　　Els

15、e　　cmbAcctBank.Value = rst.Fields("AcctBank")　　txtAcctName.Value = rst.Fields("AcctName")　　txtAcctType.Value = rst.Fields("

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

17、parent = False　　End If　　rst.Close　　Exit_Command8_Click:　　Exit Sub&l

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

19、k()　　On Error GoTo Err_Command10_Click　　DoCmd.Close　　Exit_Command10_Click:　　Exit Sub　　Err_Comman

20、d10_Click:　　MsgBox Err.Description　　Resume Exit_Command10_Click　　End Sub　　Private Sub Command11_Click()&l

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

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

23、 = "new" Then　　Set rst1 = dbs.OpenRecordset("定價處理")　　rst1.AddNew　　rst1.Fields("二手車編號") = Text16.Value　　rst

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

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

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

27、>　　Text16.Value = ""　　Text14.Value = ""　　Text4.Value = ""　　Text6.Value = ""　　Exit Su

28、b　　End If　　rst.Close　　Else　　strAcctID = cmbAcctID.Value&l

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

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

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

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

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

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

35、im dbs As Database　　Dim strAcctID As String　　Dim stDocName As String　　Dim stLinkCriteria As String　　strAcctID = Text16.Value

36、　　Set dbs = CurrentDb　　strSQL = "SELECT * FROM 定價處理 WHERE 二手車編號='" & strAcctID & "'"　　Set rst = dbs.OpenRecordset(strSQL)

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

38、Text4.Value = ""　　Text6.Value = ""　　txtMemo.Value = ""　　btnDel.Transparent = True　　btnSave.Transparent = F

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

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

41、Fields("Memo")　　btnDel.Transparent = False　　'btnSave.Transparent = False　　btnCancel.Transparent = False　　End If&l

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

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

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

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

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

47、) Then　　rc = MsgBox("車輛編號不能相同，請重新輸入！", vbOKOnly)　　Text16.Value = ""　　'Text14.Value = ""　　Text4.Value =

48、 ""　　Text6.Value = ""　　Exit Sub　　End If　　rst.Close

49、;　　'End Sub　　Private Sub Text16_BeforeUpdate(Cancel As Integer)　　End Sub　　Private Sub Command18_Click()&

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

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

52、Command18_Click:　　MsgBox Err.Description　　Resume Exit_Command18_Click　　End Sub　　功能實現(xiàn)截圖:

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

54、;　　匹配界面　　簽約界面　?。?）.報表系統(tǒng)（完成者：）　　報表系統(tǒng)部分主要完成統(tǒng)計報表（收購明細(xì)報表、銷售明細(xì)報表、庫存統(tǒng)計報表）　　收購明細(xì)報表主要

55、關(guān)注序號、車型、VIN號、車牌號、車主姓名、行駛里程、收購時間、收購價格　　數(shù)據(jù)存儲名稱：收購臺帳　　簡述：記錄二手車收購數(shù)據(jù)的明細(xì)帳　　數(shù)據(jù)存儲組成：序號+車型+VIN號+車牌號+車主姓名+行駛里程+收購時間+收購價格　　數(shù)據(jù)存儲名稱：銷售臺帳&

56、lt;p>　　簡述：記錄二手車銷售數(shù)據(jù)的明細(xì)帳　　數(shù)據(jù)存儲組成：序號+車型+VIN號+買主姓名+銷售時間+庫存天數(shù)+收購價格+銷售價格　　數(shù)據(jù)存儲名稱：庫存臺帳　　簡述：記錄二手車出入庫數(shù)據(jù)的明細(xì)帳　　數(shù)據(jù)存儲組成：日期+車牌號+車型+入庫序號+庫存數(shù)量+車顯里程+

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

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

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

本站為文檔C2C交易模式，即用戶上傳的文檔直接被用戶下載，本站只是中間服務(wù)平臺，本站所有文檔下載所得的收益歸上傳人(含作者)所有。眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私，請立即通知眾賞文庫，我們立即給予刪除！

備案號: 經(jīng)營許可證編號:浙ICP備20018660號

/ 20

  0
 分享

復(fù)制分享文檔地址

http://r1worldwide.com/shtml/view-3386194.html

復(fù)制

下載本文檔

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載