【正文】 Set = Adodc1 = connStr Set = Adodc2 = connStr Set = Adodc3 = connStr Set = Adodc4 = connStr 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 17 Set = Adodc5 = connStr Set = Adodc6 = connStr Set = Adodc7 = connStr Set = Adodc8 Select Case Case 0 39。設(shè)為可用 (1) = False 39。下面的 sql語(yǔ)句從 goods 表中選擇進(jìn)貨日期為當(dāng)前系統(tǒng)時(shí)間的記錄的所有項(xiàng)， 39。 inty _ amp。 intm amp。 intd amp。 生產(chǎn)廠商 ,總金額 desc 39。修改 Adodc1 的 RecordSource 屬性 39。重新綁定 DataGrid1 39。 from goods where 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。 and 進(jìn)貨日 = amp。 group by 生產(chǎn)廠商 sqlfctotal, conn, adOpenKeyset, adLockPessimistic = sqlfctotal sqltotal = select sum(總金額 ) as 進(jìn)貨總金額 from goods where _ amp。 inty amp。 intm 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。 and 進(jìn)貨月 = 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。 inty amp。 intm _ amp。 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。用于判斷當(dāng)前月為本季度的第幾個(gè)月 s = intm Mod 3 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 19 If s = 0 Then s = 3 39。 inty _ amp。 (intm s) amp。 (intm + 1) _ amp。 from goods where 進(jìn)貨年 = amp。 and 進(jìn)貨月 between _ 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。 and amp。 inty _ amp。 from goods where 進(jìn)貨年 = amp。 group by 生產(chǎn)廠商 sqlfctotal, conn, adOpenKeyset, adLockPessimistic = sqlfctotal sqltotal = select sum(總金額 ) as 進(jìn)貨總金額 from goods where _ amp。 inty sqltotal, conn, adOpenKeyset, adLockPessimistic = (0) End Select End Sub Private Sub Form_Load() 39。 Set = 39。 Set = 39。 Set = 39。 Set = 39。 Call ShowGrade End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdquery_Click() allem = False 39。讓窗體居中 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 銷售總金額 _ amp。 and = amp。 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。 = group by 業(yè)務(wù)員編號(hào) ,員工姓名 河南理工大學(xué)數(shù)據(jù)庫(kù)課程設(shè)計(jì) 22 = adUseClient strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql End If = False 39。不可刪除 = False End Sub 查詢現(xiàn)存貨物窗體 圖 9 查詢現(xiàn)存貨表子菜單 現(xiàn)存貨物窗體實(shí)現(xiàn)代碼： Private Sub cmdallgoods_Click() all = True 39。 Call QueryGoods End Sub Private Sub Form_Load() = connStr Dim X0 As Long Dim Y0 As Long 39。 _ amp。 %39。 _ amp。 %39。 _ amp。 39。 amp。 39。strgname 和 strtype 變量是前面定義的公共變量，用來(lái)傳 遞查詢窗體中的商品名和型號(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。首先檢查用戶是否輸入了用戶名和密碼 If = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim rstUser As New Dim sql As String sql = select * from userdb where 用戶名 = 39。 amp。 and _ amp。 amp。 39。打開(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 中文版，完成銷售管理等功能。 ==================================================== sp_Attach_db dbName = N39。, FileName1 = N39。, FileName2 = N39。 ==================================================== 需要注意的是， FileName1 = N39。用于指定數(shù)據(jù)庫(kù)文件夾路徑，當(dāng) 路徑發(fā)生變化時(shí)，也要相應(yīng)調(diào)整上述代碼。 用戶名為 yy，密碼為 yy。 通過(guò)以上的分析 可知此系統(tǒng)能夠 實(shí)現(xiàn)系統(tǒng)登錄、交易管理、進(jìn)貨統(tǒng)計(jì)、銷售統(tǒng)計(jì)、業(yè)績(jī)查看、查看數(shù)據(jù)表等功能。 總起來(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í)不少。 原以為課程設(shè)計(jì)不會(huì)花費(fèi)很多的時(shí)間，可是真正下手做，才感覺(jué)難題接二 連三。另外，在功能模塊設(shè)計(jì)其間，需要對(duì)編程環(huán)境有一定的認(rèn)識(shí)，不一定說(shuō)要非常熟練，對(duì)于基本的窗體設(shè)計(jì)還是要運(yùn)籌帷幄的。對(duì)于這些問(wèn)題，確確實(shí)實(shí)讓我收獲了不少，讓我對(duì)數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)有了更深層次的認(rèn)識(shí)。 此外，對(duì)于本系統(tǒng)的設(shè)計(jì)，不得不感謝劉老師與同學(xué)的耐心的授解，讓我在 設(shè)計(jì)其間撥云見(jiàn)日，減去了