销货管理系统模拟.DOCVIP

銷貨管理系統模擬 資料表 銷貨單號表 欄位名稱 型態 寬度 索引檔 出貨單號 N 4 1(主) 客戶編號 T 4 2 出貨日期 D 3 銷貨表 欄位名稱 型態 寬度 索引檔 出貨單號 N 4 1 產品編號 T 10 2 數量 N 5 備註 T 20 結帳註記 T 1 主索引：[出貨單號]+[ 產品編號] 客戶資料表 欄位名稱 型態 寬度 索引檔 客戶編號 T 4 1(主) 公司名稱 T 12 電話 T 10 行動電話 T 10 E-Mail T 20 負責人 T 8 地址 T 40 統一編號 T 10 報價表 欄位名稱 型態 寬度 索引檔 客戶編號 T 4 1 產品編號 T 10 2 單價 N 5 報價日期 D 備註 T 20 主索引：[客戶編號]+[產品編號] 二、查詢表－選取查詢 銷貨單號表 1. 銷貨單號明細表 出貨單號 客戶編號 出貨日期 銷貨表 1. 銷貨資料查詢 出貨單號 產品編號 數量 備註 結帳註記 2. 銷貨資料查詢 ([銷貨單號表]+[銷貨表]) 客戶編號 出貨單號 產品編號 數量 出貨日期 1 查詢全部，2 依客戶別，3 依產品別，4 依出貨日期別 3. 銷貨金額查詢 ([銷貨單號表]+[銷貨表]+[報價表]) 出貨單號 客戶編號 產品編號 數量 單價 銷貨金額 註1：銷貨金額=[銷貨表]![數量]*[報價表]![單價] 2：可依[客戶編號]小計 3.：3-1查詢全部，3-2 依客戶別，3-3 依產品別 (三) 客戶資料表 1.客戶聯絡電話資料表 客戶編號 公司名稱 負責人 電話 行動電話 E-Mail 2. 客戶聯絡地址資料表 客戶編號 公司名稱 負責人 地址 統一編號 (四) 報價資料表 客戶編號 產品編號 單價 備註 1 查詢全部，2 依客戶別，3 依產品別 (五) 收款資料查詢 客戶編號 收款日期 金額 支票號碼 註1：可依[客戶編號]、[收款日期]小計 2：1 查詢全部，2 依客戶別，3 依日期別 (六) 應收帳款資料表 客戶編號 前期結欠 本期出貨 本期收款 累計結欠 三、更新查詢－以表單處理 每日出貨完畢後，將銷貨金額結轉至應收帳款檔，作業方式： 開啟銷貨單號表（出貨日期）、銷貨表（出貨單號）、報價表（主索引）及應收帳款表（主索引）。 以銷貨單號表為主檔，搜尋需轉檔之[出貨日期]；取出[出貨單號]及[客戶編號]。 搜尋銷貨表之對應資料，若[轉擋註記]為空，則取出[產品編號]及[數量]，繼續步驟4；否則跳次筆，重複3直到EOF。 搜尋報價表，取出[單價]。 計算銷貨金額 = [數量]*[單價]。 搜尋應收帳款表之對應客戶資料，進行資料結轉： [本期出貨]＝[本期出貨] + 銷貨金額， [累計應收]＝[累計應收] + 銷貨金額， [銷貨表].[ 轉擋註記]＝已轉檔。 回步驟3。 每日收款完畢後，將收款金額結轉至應收帳款檔，作業方式： 開啟收款表（收款日期）及應收帳款表（主索引）。 以收款表為主檔，搜尋需轉檔之[收款日期]，若[轉擋註記]為空，則取出[客戶編號]及[金額]；否則跳次筆，重複2直到EOF。 搜尋應收帳款表之對應客戶資料，進行資料結轉： [本期收款]＝[本期收款] +[金額]， [累計應收]＝[累計應收] - [本期收款]， [收款表].[ 轉擋註記]＝已轉檔。 回步驟2。 月底將應收帳款檔結轉： [累計應收]＝[前期結欠] + [本期出貨] - [本期收款]， [前期結欠]＝[累計應收]， [本期出貨]＝0， [本期收款]＝0。 月底將已結帳之銷貨表及銷貨單號表清檔 月底將已結帳之收款表清檔 四、關聯圖 Private Sub Command0_Click() Dim db As Database Dim rsa, rsb, rsc, rsd ,rseAs Recordset Dim cu, pd As String Dim pc, po, no, qty As Integer Set db = CurrentDb Set rsa = db.OpenRecordset(銷貨表) Set rsb = db.OpenRecordset(銷貨單號表) Set rsc = db.OpenRecordset(報價表) Set rsd = db.OpenRecordset(應收帳款表) Set rse = db.OpenRecordset(銷貨訂單表) With rsa Do While Not .EOF If isNull(![轉應收]) Then no = ![出貨單號] pd = ![產品編號] qty = ![數量] With rsb .Index = 出貨單號