倉庫管理系統(tǒng)數(shù)據(jù)庫系統(tǒng)-文庫吧資料
2025-01-30 05:01本頁面
【正文】 擇進(jìn)貨表中添加了主要信息，其余信息根據(jù)情況自行添加，或者查詢可得 replace 進(jìn)貨表 .貨號(hào) with alltrim() replace 進(jìn)貨表 .數(shù)量 with a replace 進(jìn)貨表 .進(jìn)價(jià) with alltrim() replace 進(jìn)貨表 .客戶代碼 with alltrim() *提示完成 =messagebox(‘ 入庫成功 !’ ,0+64+0,‘ 提示 ’ ) Endif (4)Command1中的 Click事件 功能： 退出當(dāng)前窗體。 處理： ①選擇庫存表； ②判斷庫存表是否存在指定貨號(hào)的貨物，如果沒則提示，有則繼續(xù)操作； ③檢查庫存表，更新庫存表中貨物數(shù)量； ④將入庫信息同時(shí)寫入入庫表； ⑤ 完成入庫，并提示。 程序清單： *選擇客戶信息 表 select 3 locate for 客戶代碼 =upper（ allt()） if not found() =messagebox(‘ 沒有該客戶的客戶代碼！ ’ ,0+64+0,‘ 提示 ’ ) go top else =.T. endif (3)Command9中的 Click事件 功能： 完成貨物的采購(gòu)入庫操作 。 2．窗體和源文件定義 窗體名稱：表單 frmIn 文件名： 數(shù)據(jù)環(huán)境：客戶信息表 .dbf、庫存表 .dbf、入庫表 .dbf 20 （見表 8） 表 8 采購(gòu)入庫管理表單中的對(duì)象設(shè)置 對(duì)象 屬性 值 說明 Form1 Caption 采購(gòu)入庫 管理 Label1 Caption 貨物 信 息 ： Label2 Caption 貨號(hào) 貨號(hào)輸入?yún)^(qū)： TextGoodsnumber Textgoodsname ControlSource 庫存表 .品名 Textgoodstype ControlSource 庫存表 .規(guī)格 Text2 ControlSource 庫存表 .產(chǎn)地 Label15 Caption 客戶信息 Lable3 Caption 客戶代碼 客戶代碼輸入?yún)^(qū)： Text11 Text112 ControlSource 客戶信息表 .客戶名稱 Text1 ControlSource 客戶信息表 .公司地址 Command2 Caption 貨號(hào)確定 Command3 Caption 客戶 代碼確定 Command9 Caption 入庫 Command1 Caption 退出 Textgoodsname Enabled .F. Textgoodstype Enabled .F. Text2 Enabled .F. Text112 Enabled .F. Text1 Enabled .F. （ 1） Command2中的 Click事件 功能：選擇貨物信息表，查找當(dāng)前表中是否有指定貨號(hào)的貨物信息，如果有則顯示結(jié)果。 程序清單： *選擇 客戶信息 表 select 3 x=messagebox(“ 真的刪除貨號(hào)為 ” +allt()+” 的貨物嗎 ” ，4+32+256，“重要提示” ) if x=6 delete else return .F. endif (7)Command9中的 Click事件 功能：退出當(dāng)前窗體。 程序清單： *選擇庫存表 select 3 go bottom () (5)Command6中的 Click事件 功能：選擇 客戶信息 表，添加新記錄，指針指向表尾，同時(shí)刷新窗體。 程序清單： *選擇庫存表 select 3 if !bof() skip 1 else go top endif () (3)Command3中的 Click事件 功能：選擇 客戶信息 表，同時(shí)將記錄指針向后移動(dòng)一個(gè)位置，瀏覽后一條記錄。 17 窗體名稱：表單 frmKhmanage 文件名： 數(shù)據(jù)環(huán)境：客戶信息表 .dbf （見表 7） 表 7 客戶信息管理表單中的對(duì)象設(shè)置 對(duì)象 屬性 值 說明 Form1 Caption 客戶信息 管理 Label15 Caption 客戶 信息 表 . Text11 ControlSource 客戶信息表 .客戶代碼 Text12 ControlSource 客戶信息表 .客戶名稱 Text1 ControlSource 客戶信息表 .公司地址 Text2 ControlSource 客戶信息表 .開戶銀行 Text3 ControlSource 客戶信息表 .收款單位 Text4 ControlSource 客戶信息表 .賬號(hào) Text5 ControlSource 客戶信息表 .聯(lián)系人 Text6 ControlSource 客戶信息表 .職務(wù) Text7 ControlSource 客戶信息表 .公司電話 Text8 ControlSource 客戶信息表 .手機(jī)號(hào)碼 Text9 ControlSource 客戶信息表 .住宅電話 Text10 ControlSource 客戶信息表 .傳真號(hào)碼 Text13 ControlSource 客戶信息表 .通信地址 Text14 ControlSource 客戶信息表 .業(yè)務(wù)范圍 Caption 第一個(gè) Caption 上一個(gè) Caption 下一個(gè) Caption 最后一個(gè) Caption 添加 Caption 刪除 Caption 退出 4．函數(shù)與方法聲明 （ 1） Command1中的 Click事件 功能：選擇 客戶信息 表，同時(shí)將記錄指針指向第一 個(gè)位置，瀏覽第一條記錄。 程序清單： clear events 客戶 信息管理模塊 客戶信息管理模塊負(fù)債對(duì)客戶信息的數(shù)據(jù)操作。 程序清單： *選擇庫存表 select 4 append blank go bottom () (6)Command7中的 Click事件 功能：選擇庫存表，同時(shí)對(duì)當(dāng)前指定貨號(hào)的記錄進(jìn)行刪除操作，刪除以前先確認(rèn)是否進(jìn)行該項(xiàng)操作。 程序清單： *選擇庫存表 select 4 if !eof() skip else go bottom endif () (4)Command4中的 Click事件 功能：選擇庫存表，同時(shí)將記錄指針指向最后一個(gè)位置，瀏覽最后一條記錄。 程序清單： *選擇庫存表 select 4 go top () (2)Command2中的 Click事件 功能：選擇庫存表，同時(shí)將記錄指針 向前移動(dòng) 一個(gè)位置，瀏覽 前 一條記錄。在該模塊中，用戶可以通過瀏覽區(qū)域?yàn)g覽貨物信息的相關(guān)信息，也可以通過下面按鈕區(qū)域?qū)崿F(xiàn)貨物信息的查詢功能、貨物信息添加功能和貨物信息刪除功能。 （見表 1） 名 稱：管理員信息表 表名稱標(biāo)示：管理員 數(shù)據(jù)來源：數(shù)據(jù)庫設(shè)計(jì)時(shí)錄入 表 1 管理員信息表 名稱 字段名稱 類型 寬度 非空 管理員 ID 管理員 ID 字符型 10 No 管理員密碼 密碼 字符型 10 No 管理員名稱 管理員名稱 字符型 10 No 12 2． 客戶信息表（見表 2） 名稱：客戶信息表 表名稱標(biāo)示：客戶信息 數(shù)據(jù)來源：在客戶信息管理模塊進(jìn)行錄入 表 2 客戶 信息表 名稱 字段名稱 類型 寬度 非空 客戶代碼 客戶代碼 字符型 10 No 客戶名稱 客戶名稱 字符型 30 No 客戶公司地址 公司地址 字符型 50 No 客戶公司開戶銀行 開戶銀行 字符型 30 No 客戶公司收款單位 收款單位 字符型 30 No 客戶公司賬號(hào) 賬號(hào) 字符型 20 No 客戶公司聯(lián)系人 聯(lián)系人 字符型 8 No 聯(lián)系人職務(wù) 職務(wù) 字符型 10 No 公司電話 公司電話 字符型 24 No 聯(lián)系人手機(jī)號(hào)碼 手機(jī)號(hào)碼 字符型 15 No 聯(lián)系人住宅電話 住宅電話 字符型 24 No 客戶公司 傳真號(hào)碼 傳真號(hào)碼 字符型 24 No 客戶公司 通信地址 通信地址 字符型 40 No 客戶公司 業(yè)務(wù)范 圍 業(yè)務(wù)范圍 字符型 60 No （見表 3） 名稱：庫存信息表 表名稱標(biāo)示：庫存 數(shù)據(jù)來源：在庫存信息管理模塊進(jìn)行錄入 表 3 庫存 信息表 名稱 字段名稱 類型 寬度 非空 貨物貨號(hào) 貨號(hào) 字符型 20 No 貨物品名 品名 字符型 10 No 貨物規(guī)格 規(guī)格 字符型 10 No 貨物產(chǎn)地 產(chǎn)地 字符型 80 No 產(chǎn)品說明 產(chǎn)品說明 備注 型 4 No 產(chǎn)品外形 產(chǎn)品外形 字符型 40 No 貨物現(xiàn)有數(shù)量 現(xiàn)有數(shù)量 字符型 10 No 備注 備注 字符型 40 No 13 4. 采購(gòu)入庫信息表（見表 4） 名稱：采購(gòu)入庫信息表 表名稱標(biāo)示：采購(gòu)入庫 數(shù)據(jù)來源：在采購(gòu)入庫管理模塊進(jìn)行錄入 表 4 采購(gòu)入庫 信息表 名稱 字段名稱 類型 寬度 非空 貨號(hào) 貨號(hào) 字符型 10 No 貨物品名 品名 字符型 10 No 貨物進(jìn)價(jià) 進(jìn)價(jià) 數(shù)值 型 10 No 貨物規(guī)格 規(guī)格 字符型 20 No 貨物數(shù)量 數(shù)量 數(shù)值 型 10 No 進(jìn)貨客戶代碼 客戶代碼 字符型 1
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1