【導(dǎo)讀】荿袁膁芇薄螇膀荿莇螞腿聿薂蚈螆芁蒞薄螅莄蟻袃螄肅蒄蝿螃膅蠆蚅螃羋蒂薁袂莀芅袀袁肀蒀螆袀膂芃螂衿莄薈蚈袈肄莁薄袇膆薇袂袇艿莀螈袆莁薅蚄羅肁莈薀羄膃薃蒆羃芅莆裊肅螞螁羈膇蒄蚇羈艿蝕薃羀莂蒃袁罿肁芆螇肈膄蒁蚃肇芆芄蕿肆羆葿薅肅膈節(jié)襖肅芀薈螀肄莃莀蚆肅肂薆薂肂膅荿袁膁芇薄螇膀荿莇螞腿聿薂蚈螆芁蒞薄螅莄蟻袃螄肅蒄蝿螃膅蠆蚅螃羋蒂薁袂莀芅袀袁肀蒀螆袀膂芃螂衿莄薈蚈袈肄莁薄袇膆薇袂袇艿莀螈袆莁薅蚄羅肁莈薀羄膃薃蒆羃芅莆裊肅螞螁羈膇蒄蚇羈艿蝕薃羀莂蒃袁罿肁芆螇肈膄蒁蚃肇芆芄蕿肆羆葿薅肅膈節(jié)襖肅芀薈螀肄莃莀蚆肅肂薆薂肂膅荿袁膁芇薄螇膀荿莇螞腿聿薂蚈螆芁蒞薄螅

　　

【正文】 退出 CmdQuery Caption 查詢 采購(gòu)管理 1. 采購(gòu)單 采購(gòu)單模塊主要負(fù)責(zé)錄入采購(gòu)單和采購(gòu)單明細(xì)。用戶登錄系統(tǒng)后，單擊 [采購(gòu)管理 ]|[采購(gòu)單 ]命令，彈出 [采購(gòu)單 ]界面。 ? 用戶可以添加、修改、刪除采購(gòu)單信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會(huì)以表格顯示。 ? 單擊 [采購(gòu)單明細(xì) ]，將會(huì)彈出采購(gòu)單明細(xì)的界面，用戶可以通過(guò)移動(dòng)按鈕 來(lái)查找所需要的信息，如圖 所示： 圖 3. 6 采購(gòu)單界面 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 21 采購(gòu)單界面的主要控件如表 所示 ： 表 采購(gòu)單界面的主要控件 控件 屬性 屬性值 B 采購(gòu)單 (From) Name frmpurchaseList Caption 采購(gòu)單 DataGrid1(DataGrid) Caption 采購(gòu)單信息列表 txt(0)(TextBox 采購(gòu)單號(hào) ) MaxLength 6 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancel Caption 取消 CmdLook Caption 采購(gòu)單明細(xì) CmdExit Caption 退出 Txt(2),Txt(3),Txt(4),Txt(5),Txt(6) BackColor amp。H800000000amp。 CmdQuery Caption 查詢 顯示數(shù)據(jù)時(shí)將觸發(fā) ShowData 事件，其代碼如下： Private Sub ShowData() If 0 Then txt(0).Text = (purchaseID) For Index = 0 To 1 If Left(Trim((Index)), 4) = (supplierID) Then = Index Exit For End If Next Index = (purchaseDate) txt(1).Text = (purchaser) For Index = 2 To 6 txt(Index).Text = (Index + 2) Next Index End If End Sub 2. 采購(gòu)入庫(kù) 吳思思：超市進(jìn)銷存管理系統(tǒng) 22 采購(gòu)入庫(kù)模塊主要負(fù)責(zé)管理商品的采購(gòu)入庫(kù)，核銷采購(gòu)單。用戶需要將采購(gòu)單明細(xì)中的采購(gòu)數(shù)量添加到商品庫(kù)存數(shù)量中去，同時(shí)庫(kù)存中的商品成本價(jià)將進(jìn)行移動(dòng)平均處理，即成本價(jià)＝ (原庫(kù)存總金額＋采購(gòu)總金額 )/(原庫(kù)存＋采購(gòu)數(shù)量 )。 用戶登錄系統(tǒng)后，單擊 [采購(gòu)管理 ]|[采購(gòu)入庫(kù) ]命令，彈出 [采購(gòu)入庫(kù) ]界面。 ? 用戶可以選擇某一采購(gòu)單，單擊 [入庫(kù) ]按鈕進(jìn)行入庫(kù)處理。處理完畢后采 購(gòu)單的是否核銷變?yōu)橐押虽N。用戶可以通過(guò)移動(dòng)按鈕來(lái)查找所需要的信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的 結(jié)果將會(huì)以表格顯示，如圖 所示： 圖 3. 7 采購(gòu)入庫(kù)界面 采購(gòu)入庫(kù)的主要控件如表 所示： 表 采購(gòu)入庫(kù)的主要控件 控件 屬性 屬性值 B 采購(gòu)入庫(kù) (From) Name frmpurchaseIn Caption 采購(gòu)入庫(kù) DataGrid1(DataGrid) Caption 采購(gòu)單信息列表 CmdSave Caption 入庫(kù) CmdExit Caption 退出 CmdQuery Caption 查詢 3. 采購(gòu)查詢 采購(gòu)查詢模塊主要負(fù)責(zé)查詢采購(gòu)單信息，以及采購(gòu)單核銷情 況。用戶登錄系四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 23 統(tǒng)后，單擊 [采購(gòu)管理 ]|[采購(gòu)查詢 ]，彈出 [采購(gòu)查詢 ]界面。 ? 用戶選擇查詢條件，輸入查詢值，再選擇起始日期和結(jié)束日期，單擊 [查 詢 ]按鈕，所查詢的結(jié)果將會(huì)以表格顯示，如圖 所示： 圖 3. 8 采購(gòu)單查詢界面 采購(gòu) 單 查詢的主要控件如表 所示： 表 采購(gòu)單查詢的主要控件 控件 屬性 屬性值 B 采購(gòu)查詢 (From) Name frmpurchaseSearch Caption 采購(gòu)查詢 DataGrid1(DataGrid) Caption 采購(gòu)信息列表 CmdExit Caption 退出 CmdQuery Caption 查詢 銷售管理 1. 銷售單 銷售單主要負(fù)責(zé)錄入銷售和銷售單明細(xì)，單擊 [銷售管理 ]|[銷售單 ]命令，彈出 [銷售單 ]界面。 ? 用戶可以添加、修改、刪除采購(gòu)單信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會(huì)以表格顯示。 ? 單擊 [采購(gòu)單明細(xì) ]，將會(huì)彈出采購(gòu)單明細(xì)的界面，用戶可以通過(guò)移動(dòng)按鈕， 來(lái)查找所需要的信息，如圖 所示： 吳思思：超市進(jìn)銷存管理系統(tǒng) 24 圖 3. 9 銷售單界面 銷售單界面的主要控件如表 所示： 表 銷 售單界面的主要控件 控件 屬性 屬性值 C 銷售單 (From) Name frmsaleList Caption 銷售單 DataGrid1(DataGrid) Caption 銷售單信息列表 2 Txt(0)(TextBox 銷售單號(hào) ) MaxLength 6 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancle Caption 取消 CmdLook Caption 銷售單明細(xì) CmdExit Caption 退出 CmdQuery Caption 查詢 2. 銷售出庫(kù) 銷售出庫(kù)模塊主要負(fù)責(zé)管理商品的銷售出庫(kù)，核銷銷售單。用戶登錄系統(tǒng)后，單擊 [銷售管理 ]|[銷售出庫(kù) ]命令，彈出 [銷售出庫(kù) ]界面。 ? 用戶可以選擇某一采購(gòu)單，單擊 [出庫(kù) ]按鈕進(jìn)行出庫(kù)處理。處理完畢后采 購(gòu)單的是否核銷變?yōu)橐押虽N。用戶可以通過(guò)移動(dòng)按鈕來(lái)查找所需要的信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會(huì)以表格顯示，如圖 所示： 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 25 圖 銷 售出庫(kù)界面 銷售出庫(kù)的主要控件如表 所示： 表 銷售出庫(kù)的主要控件 控件 屬性 屬性值 C 銷售出庫(kù) (From) Name frmsaleOut Caption 銷售出庫(kù) DataGrid1 (DataGrid) Caption 銷售單信息列表 CmdSave Caption 出庫(kù) CmdExit Caption 退出 CmdQuery Caption 查詢 Txt(0),Txt(1),Txt(2),Txt(3),Txt(4),Txt(5),Txt(6) BackColor amp。H80000000amp。 3. 銷售查詢 銷售查詢模塊負(fù)責(zé)銷售單信息，以及銷售單核銷情況。用戶登錄系統(tǒng)后，單擊 [銷售管理 ]|[銷售查詢 ]命令，彈出 [銷售查詢 ]界面。 ? 用戶可以根據(jù)需要選擇查詢條件，輸入查詢值，選擇起始日期和結(jié)束日期， 單擊 [查詢 ]按鈕，所查詢的結(jié)果將會(huì)以表格顯示，如圖 所示： 吳思思：超市進(jìn)銷存管理系統(tǒng) 26 圖 銷售查詢界面 銷售單查詢界面的主要控件如表 所示： 表 銷售單查詢界面的主要控件 控件 屬性 屬性值 C 銷售查詢 (From) Name frmsaleSearch Caption 銷售查詢 DataGrid1(DataGrid) Caption 銷售單信息列表 CmdExit Caption 退出 CmdSearch Caption 查詢 銷售查詢時(shí)將觸發(fā) CmdSearch_Click 事件，其代碼如下： Private Sub CmdSearch_Click() Dim colName As String Dim colValue As String Dim strWhere As String colName = colValue = strWhere = where amp。 colName amp。 like 39。% amp。 colValue amp。 %39。 SQL = select * from 銷售單表 amp。 strWhere SQL = SQL amp。 and saleDate between 39。 amp。 amp。 39。 SQL = SQL amp。 and 39。 amp。 amp。 39。 Set rs = SelectSQL(SQL, msg) If 0 Then Set = rs 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 27 Else Set rs = Nothing End If End Sub 4. 銷售利潤(rùn) 銷售利潤(rùn)模塊負(fù)責(zé)提供某一時(shí)期超市內(nèi)各商品的銷售利潤(rùn)的統(tǒng)計(jì)功能。銷售利潤(rùn)主要根據(jù)已核銷的銷售單中的成本價(jià)、銷售 價(jià)、銷售數(shù)量，以及稅額。銷售利潤(rùn)＝ (銷售價(jià)－成本價(jià) )*銷售數(shù)量－稅額。