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

　　

【正文】 退出 CmdQuery Caption 查詢 采購管理 1. 采購單 采購單模塊主要負(fù)責(zé)錄入采購單和采購單明細(xì)。用戶登錄系統(tǒng)后，單擊 [采購管理 ]|[采購單 ]命令，彈出 [采購單 ]界面。 ? 用戶可以添加、修改、刪除采購單信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會以表格顯示。 ? 單擊 [采購單明細(xì) ]，將會彈出采購單明細(xì)的界面，用戶可以通過移動按鈕 來查找所需要的信息，如圖 所示： 圖 3. 6 采購單界面 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 21 采購單界面的主要控件如表 所示 ： 表 采購單界面的主要控件 控件 屬性 屬性值 B 采購單 (From) Name frmpurchaseList Caption 采購單 DataGrid1(DataGrid) Caption 采購單信息列表 txt(0)(TextBox 采購單號 ) MaxLength 6 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancel Caption 取消 CmdLook Caption 采購單明細(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. 采購入庫 吳思思：超市進(jìn)銷存管理系統(tǒng) 22 采購入庫模塊主要負(fù)責(zé)管理商品的采購入庫，核銷采購單。用戶需要將采購單明細(xì)中的采購數(shù)量添加到商品庫存數(shù)量中去，同時(shí)庫存中的商品成本價(jià)將進(jìn)行移動平均處理，即成本價(jià)＝ (原庫存總金額＋采購總金額 )/(原庫存＋采購數(shù)量 )。 用戶登錄系統(tǒng)后，單擊 [采購管理 ]|[采購入庫 ]命令，彈出 [采購入庫 ]界面。 ? 用戶可以選擇某一采購單，單擊 [入庫 ]按鈕進(jìn)行入庫處理。處理完畢后采 購單的是否核銷變?yōu)橐押虽N。用戶可以通過移動按鈕來查找所需要的信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的 結(jié)果將會以表格顯示，如圖 所示： 圖 3. 7 采購入庫界面 采購入庫的主要控件如表 所示： 表 采購入庫的主要控件 控件 屬性 屬性值 B 采購入庫 (From) Name frmpurchaseIn Caption 采購入庫 DataGrid1(DataGrid) Caption 采購單信息列表 CmdSave Caption 入庫 CmdExit Caption 退出 CmdQuery Caption 查詢 3. 采購查詢 采購查詢模塊主要負(fù)責(zé)查詢采購單信息，以及采購單核銷情 況。用戶登錄系四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 23 統(tǒng)后，單擊 [采購管理 ]|[采購查詢 ]，彈出 [采購查詢 ]界面。 ? 用戶選擇查詢條件，輸入查詢值，再選擇起始日期和結(jié)束日期，單擊 [查 詢 ]按鈕，所查詢的結(jié)果將會以表格顯示，如圖 所示： 圖 3. 8 采購單查詢界面 采購 單 查詢的主要控件如表 所示： 表 采購單查詢的主要控件 控件 屬性 屬性值 B 采購查詢 (From) Name frmpurchaseSearch Caption 采購查詢 DataGrid1(DataGrid) Caption 采購信息列表 CmdExit Caption 退出 CmdQuery Caption 查詢 銷售管理 1. 銷售單 銷售單主要負(fù)責(zé)錄入銷售和銷售單明細(xì)，單擊 [銷售管理 ]|[銷售單 ]命令，彈出 [銷售單 ]界面。 ? 用戶可以添加、修改、刪除采購單信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會以表格顯示。 ? 單擊 [采購單明細(xì) ]，將會彈出采購單明細(xì)的界面，用戶可以通過移動按鈕， 來查找所需要的信息，如圖 所示： 吳思思：超市進(jìn)銷存管理系統(tǒng) 24 圖 3. 9 銷售單界面 銷售單界面的主要控件如表 所示： 表 銷 售單界面的主要控件 控件 屬性 屬性值 C 銷售單 (From) Name frmsaleList Caption 銷售單 DataGrid1(DataGrid) Caption 銷售單信息列表 2 Txt(0)(TextBox 銷售單號 ) MaxLength 6 CmdAdd Caption 添加 CmdModify Caption 修改 CmdDelete Caption 刪除 CmdSave Caption 保存 CmdCancle Caption 取消 CmdLook Caption 銷售單明細(xì) CmdExit Caption 退出 CmdQuery Caption 查詢 2. 銷售出庫 銷售出庫模塊主要負(fù)責(zé)管理商品的銷售出庫，核銷銷售單。用戶登錄系統(tǒng)后，單擊 [銷售管理 ]|[銷售出庫 ]命令，彈出 [銷售出庫 ]界面。 ? 用戶可以選擇某一采購單，單擊 [出庫 ]按鈕進(jìn)行出庫處理。處理完畢后采 購單的是否核銷變?yōu)橐押虽N。用戶可以通過移動按鈕來查找所需要的信息。 ? 用戶也可以根據(jù)需要選擇查詢條件，然后輸入查詢值，單擊 [查詢 ]按鈕， 所查詢的結(jié)果將會以表格顯示，如圖 所示： 四川理工學(xué)院畢業(yè)設(shè)計(jì)（論文） 25 圖 銷 售出庫界面 銷售出庫的主要控件如表 所示： 表 銷售出庫的主要控件 控件 屬性 屬性值 C 銷售出庫 (From) Name frmsaleOut Caption 銷售出庫 DataGrid1 (DataGrid) Caption 銷售單信息列表 CmdSave Caption 出庫 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é)果將會以表格顯示，如圖 所示： 吳思思：超市進(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. 銷售利潤 銷售利潤模塊負(fù)責(zé)提供某一時(shí)期超市內(nèi)各商品的銷售利潤的統(tǒng)計(jì)功能。銷售利潤主要根據(jù)已核銷的銷售單中的成本價(jià)、銷售 價(jià)、銷售數(shù)量，以及稅額。銷售利潤＝ (銷售價(jià)－成本價(jià) )*銷售數(shù)量－稅額。