【正文】 此外，對(duì)于本系統(tǒng)的設(shè)計(jì)，不得不感謝劉老師與同學(xué)的耐心的授解，讓我在 設(shè)計(jì)其間撥云見(jiàn)日，減去了很多麻煩。另外，在功能模塊設(shè)計(jì)其間，需要對(duì)編程環(huán)境有一定的認(rèn)識(shí)，不一定說(shuō)要非常熟練，對(duì)于基本的窗體設(shè)計(jì)還是要運(yùn)籌帷幄的。 總起來(lái)說(shuō)，這次課程設(shè)計(jì)還是很成功的，自己在這個(gè)過(guò)程 中學(xué)到了很多知識(shí)，更重要的是獲取了更多的經(jīng)驗(yàn)，了解了數(shù)據(jù)庫(kù)設(shè)計(jì)和軟件開(kāi)發(fā)的一般流程，為以后實(shí)際工作奠定了良好的基礎(chǔ)！ 回顧此次課程設(shè)計(jì)，其中波折與辛苦著實(shí)不少。 用戶(hù)名為 yy，密碼為 yy。 ==================================================== 需要注意的是， FileName1 = N39。, FileName1 = N39。打開(kāi)窗體 = True = True = True = True = True = True = True Unload Me End If End Sub Private Sub Form_Load() Call MakeCenter(Me) End Sub 五、系統(tǒng)使用說(shuō)明 本系統(tǒng)是 使用 Microsoft SQL Server 2021 作為后臺(tái)數(shù)據(jù)庫(kù)，編程工具是 Microsoft Visual 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 25 Basic 中文版，完成銷(xiāo)售管理等功能。 amp。 amp。strgname 和 strtype 變量是前面定義的公共變量，用來(lái)傳 遞查詢(xún)窗體中的商品名和型號(hào) = strsql strsql, conn, adOpenKeyset, adLockPessimistic = strsql If = True Then MsgBox 此型號(hào)商品沒(méi)有進(jìn)貨！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。 amp。 _ amp。 _ amp。 _ amp。不可刪除 = False End Sub 查詢(xún)現(xiàn)存貨物窗體 圖 9 查詢(xún)現(xiàn)存貨表子菜單 現(xiàn)存貨物窗體實(shí)現(xiàn)代碼： Private Sub cmdallgoods_Click() all = True 39。 group by 業(yè)務(wù)員編號(hào) ,員工姓名 strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql If = True Then MsgBox 此員工號(hào)不存在！ , vbOKOnly + vbInformation, 注意 Unload Me Exit Sub End If Else strsql = select 業(yè)務(wù)員編號(hào) ,員工姓名 ,sum(總金額 ) _ amp。讓窗體居中 Call MakeCenter(Me) = connStr allem = True Call ShowGrade End Sub Private Sub ShowGrade() If allem = False Then Dim strsql As String strsql = select 業(yè)務(wù)員編號(hào) ,員工姓名 ,sum(總金額 ) as 銷(xiāo)售總金額 _ amp。 Set = 39。 Set = 39。 inty sqltotal, conn, adOpenKeyset, adLockPessimistic = (0) End Select End Sub Private Sub Form_Load() 39。 from goods where 進(jìn)貨年 = amp。 and amp。 group by 生產(chǎn)廠商 sqlfctotal, conn, adOpenKeyset, adLockPessimistic = sqlfctotal sqltotal = select sum(總金額 ) as 進(jìn)貨總金額 from goods where 進(jìn)貨年 = _ amp。 and 進(jìn)貨月 between _ amp。 (intm + 1) _ amp。 inty _ amp。 and 進(jìn)貨月 = amp。 intm _ amp。 order by 生產(chǎn)廠商 ,總金額 desc sqlbuy, conn, adOpenKeyset, adLockPessimistic = sqlbuy If = True Then = sqlbuy = 0 MsgBox 您本月沒(méi)有進(jìn)貨！ , vbOKOnly + vbInformation, 注意 Exit Sub End If sqlfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 _ amp。 intd sqltotal, conn, adOpenKeyset, adLockPessimistic 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 18 = (0) Case 1 (0) = False (1) = True (2) = False (3) = False sqlbuy = select * from goods where 進(jìn)貨年 = amp。 inty amp。 and 進(jìn)貨日 = amp。 from goods where 進(jìn)貨年 = amp。修改 Adodc1 的 RecordSource 屬性 39。 intd amp。 inty _ amp。設(shè)為可用 (1) = False 39。各廠商進(jìn)貨總金額 Dim sqltotal As String 39。讓窗體居中 Call MakeCenter(Me) Dim inty As Integer 39。讓窗體居中 Call MakeCenter(Me) End Sub Private Sub OptionSqlServer_Click() If = True Then = True = True = True = True End If End Sub Private Sub OptionWindows_Click() If = True Then = False = False = False = False 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 13 End If End Sub 、系統(tǒng)運(yùn)行后 的各個(gè)功能模塊 此部分主要包含系統(tǒng)運(yùn)行后，部分主要功能模塊的界面 （功能模塊相似的不列在內(nèi)）， 以及部分實(shí)現(xiàn)代碼。Password= + Trim() _ + 。Data Source= + Trim() Else 39。windows 身份驗(yàn)證方式 connStr = Provider=。沒(méi)有登錄前設(shè)置各菜單不可用 = False = False = False = False = False = False = False End Sub Private Sub MDIForm_Unload(Cancel As Integer) If = adStateOpen Then End If End Sub Private Sub mnadduser_Click() End Sub Private Sub mnbuylog_Click() End Sub 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 10 Private Sub mnchpwd_Click() End Sub Private Sub mnem_Click() End Sub Private Sub mnemlogin_Click() End Sub Private Sub mnexit_Click() Unload Me End Sub Private Sub mnfc_Click() End Sub Private Sub mngoodstable_Click() End Sub Private Sub mngrade_Click() End Sub Private Sub mnretable_Click() End Sub Private Sub mnretreat_Click() End Sub Private Sub mnselllog_Click() End Sub Private Sub mnselltable_Click() End Sub Private Sub mntbuy_Click() 39。User ID=sa。Data Source=SellSystem 39。 在主窗體中打開(kāi)對(duì)數(shù)據(jù)庫(kù)的連接 Dim strCnn As String 39。 2．系統(tǒng)功能設(shè)計(jì)模塊 對(duì)上述的功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，盡心分析，得到如下如所示的系統(tǒng)功能模塊圖。 5） 業(yè)績(jī)查看：實(shí)現(xiàn)各員工銷(xiāo)售情況的統(tǒng)計(jì)，可以一次性顯示所有員工的銷(xiāo)售情況，也可以根據(jù)員工編號(hào)查看各個(gè)員工的銷(xiāo)售情況。使用一個(gè)表格現(xiàn)實(shí)所選時(shí)間段的全部進(jìn)貨數(shù)據(jù)，包括進(jìn)貨編號(hào)、商品名、生產(chǎn)廠商、產(chǎn)品型號(hào)、單價(jià)、數(shù)量、總金額、進(jìn)貨日期、業(yè)務(wù)員編號(hào)等；再使用另一表格顯示分別從各個(gè)廠商進(jìn)貨的金額，還有一個(gè)文本框用于顯示此時(shí)間段的總進(jìn)貨金額。進(jìn)貨和銷(xiāo)售的主要交易都是在此河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 2 進(jìn)行。主要功能有交易管理，包括進(jìn)貨登記管理、銷(xiāo)售登記管理、退貨登記管理；進(jìn)貨統(tǒng)計(jì)管理，其中包括有關(guān)進(jìn)貨的各種統(tǒng)計(jì)數(shù)據(jù)表，如今日進(jìn)貨統(tǒng)計(jì)、本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、本年度進(jìn)貨統(tǒng)計(jì)等；銷(xiāo)售統(tǒng)計(jì)管理，其中包括有關(guān)銷(xiāo)售的各種統(tǒng)計(jì)數(shù)據(jù)表，如今日銷(xiāo)售統(tǒng)計(jì)、本月銷(xiāo)售統(tǒng)計(jì)、本季度銷(xiāo)售統(tǒng)計(jì)、本年度銷(xiāo)售統(tǒng)計(jì)等；員工銷(xiāo)售業(yè)績(jī)的 考核，可以很方便地查看個(gè)員工的銷(xiāo)售情況，以便對(duì)個(gè)員工的業(yè)績(jī)進(jìn)行考核比較。因此還需要有一些相應(yīng)的關(guān)于以上數(shù)據(jù)的統(tǒng)計(jì)信息。手工管理這些紛繁復(fù)雜數(shù)據(jù)的方式已經(jīng)不適應(yīng)時(shí)代的潮流，實(shí)現(xiàn)數(shù)據(jù)規(guī)范化、自動(dòng)化的電腦管理，是一個(gè)管理規(guī)范、運(yùn)作高效的企事業(yè)單位的必然要求。 本系統(tǒng) —— 銷(xiāo)售管理信息系統(tǒng)，就是為了實(shí)現(xiàn)各銷(xiāo)售單位高效管理而設(shè)計(jì)的。如希望查看各個(gè)時(shí)間段（如今日、本月、本年度等）的進(jìn)貨和銷(xiāo)售情況，以便對(duì)以后的運(yùn)作進(jìn)行一個(gè)準(zhǔn)確的預(yù)測(cè)和正確的決斷； 為了調(diào)動(dòng)員工的積極性，員工薪水應(yīng)該和他的銷(xiāo)售情況掛鉤的，因此還需