銷貨管理系統模擬一、資料表

銷貨管理系統模擬 一、 資料表

銷貨單號表

欄位名稱 型態 寬度 索引檔 出貨單號 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

主索引：[客戶編號]+[產品編號]

二、查詢表－選取查詢

應收帳款表

欄位名稱 型態 寬度 索引檔 客戶編號 T 4 1(主)

前期結欠 N 8

本期出貨 N 8

本期收款 N 8

累計應收 N 8

收款表

欄位名稱 型態 寬度 索引檔

客戶編號 T 4 1

收款日期 D 2

金額 N 7

支票號碼 T 14

轉檔註記 T 1

註:

T: varchar(寬度+1) N: integer

D: date

(一) 銷貨單號表 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 依日期別

(六) 應收帳款資料表

客戶編號 前期結欠 本期出貨 本期收款 累計結欠

三、更新查詢－以表單處理

(一) 每日出貨完畢後，將銷貨金額結轉至應收帳款檔，作業方式：

1. 開啟銷貨單號表（出貨日期）、銷貨表（出貨單號）、報價表（主索 引）及應收帳款表（主索引）。

2. 以銷貨單號表為主檔，搜尋需轉檔之[出貨日期]；取出[出貨單號]及[客 戶編號]。

3. 搜尋銷貨表之對應資料，若[轉擋註記]為空，則取出[產品編號]及[數量]，

繼續步驟 4；否則跳次筆，重複 3 直到 EOF。

4. 搜尋報價表，取出[單價]。

5. 計算銷貨金額 = [數量]*[單價]。

6. 搜尋應收帳款表之對應客戶資料，進行資料結轉：

[本期出貨]＝[本期出貨] + 銷貨金額，

[累計應收]＝[累計應收] + 銷貨金額，

[銷貨表].[ 轉擋註記]＝已轉檔。

7. 回步驟 3。

(二) 每日收款完畢後，將收款金額結轉至應收帳款檔，作業方式：

1. 開啟收款表（收款日期）及應收帳款表（主索引）。

2. 以收款表為主檔，搜尋需轉檔之[收款日期]，若[轉擋註記]為空，則取 出[客戶編號]及[金額]；否則跳次筆，重複 2 直到 EOF。

3. 搜尋應收帳款表之對應客戶資料，進行資料結轉：

[本期收款]＝[本期收款] +[金額]，

[累計應收]＝[累計應收] - [本期收款]，

[收款表].[ 轉擋註記]＝已轉檔。

4. 回步驟 2。

(三) 月底將應收帳款檔結轉：

1. [累計應收]＝[前期結欠] + [本期出貨] - [本期收款]，

2. [前期結欠]＝[累計應收]，

3. [本期出貨]＝0，

4. [本期收款]＝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 = "出貨單號"

.Seek "=", no If .NoMatch Then Else

po = ![訂單編號]

End If End With With rsc

.Index = "訂單編號"

.Seek "=", po If .NoMatch Then Else

cu = ![客戶編號]

End If End With

With rsc

.Index = "產品報價"

.Seek "=", cu, pd If .NoMatch Then Else

pc = ![單價]

End If End With

With rsd

.Index = "客戶編號"

.Seek "=", cu If .NoMatch Then Else

.Edit

![本期出貨] = ![本期出貨] + qty * pc ![累計應收] = ![累計應收] + qty * pc .Update

End If End With .Edit

![轉應收] = "T"

.Update End If .MoveNext

Loop

End With

End Sub