【正文】 Object Oriented 。 database 。mypath *為數(shù)據(jù)庫分配工作區(qū)間 selec 1 use 進(jìn)貨表 selec 2 use 售貨表 selec 3 use 客戶信息表 selec 4 use 庫存表 selec 5 use 用戶表 *調(diào)用登錄窗體 do form frmLogin read events 結(jié)束語 參考文獻(xiàn) [1] 侯榮濤 .《 Visual Foxpro實用數(shù)據(jù)庫教程 》 .中國電力出版社， 2021. [2] 邵陽 .《 Visual Foxpro數(shù)據(jù)庫系統(tǒng)開發(fā)導(dǎo)航》 .人民郵電出版社， 2021. [3] 黃明梁 ,旭石虎 .《 Visual Foxpro課程設(shè)計指導(dǎo) 》 .電子工業(yè) 出版社， 2021. [4]求是科技 .《 Visual 數(shù)據(jù)開發(fā)技術(shù)與工程實踐》人民郵電出版社 ,2021. [5] 張洪舉，陳艷華，魏珉著 .《 Visual Foxpro程序設(shè)計參考手冊 》 .人民郵電 出版社 ,2021. 32 Storage Management System NanJing University of Information Science amp。 2．窗體和源文件定義 文件名： 功能：進(jìn)行部分環(huán)境的設(shè)置，設(shè)置在系統(tǒng)中需要用到的公共變量，打開具體的每一個表，并放到不同的工作區(qū)間，同時調(diào)用第一個運行的登錄窗體。 = locate for gly_name=adminname update admininfo set mm=adminPassword =messagebox(‘ ID 和密碼修改成功！ ’ ， 0+64+0，‘信息’ ) else =messagebox(‘ ID或密碼驗證不統(tǒng)一，請重輸入！ ’ ， 0+64+0，‘錯誤’ ) endif (4) frmPassword中 Command2的 Click事件 功能： 釋放當(dāng)前 窗體 。 *選擇客戶信息表 clear event (3) frmPassword中 Command1的 Click事件 功能： 完成對指定用戶名的賬號信息的密碼修改操作 。 2．窗體和源文件定義 窗體名稱：表單 frmLogin和表單 frmPassword 文件名： 、 數(shù)據(jù)環(huán)境： 無 （見表 11和 12） 表 11 用戶登錄 表單中的對象設(shè)置 對 象 屬性 值 說明 Form1 Caption 用戶登錄 Label1 Caption 歡迎使用倉庫管理系統(tǒng) Label4 Caption 請輸入用戶名稱和密碼 Label2 Caption 用戶名稱： Label3 Caption 密碼： Command1 Caption 確定 Command2 Caption 取消 29 表 11 用戶登錄 表單中的對象設(shè)置 對象 屬性 值 說明 Form1 Caption 修改登錄密碼 Label7 Caption 修改管理員密碼 Label1 Caption 輸入登錄 ID Label2 Caption 再次輸入確認(rèn)： Label3 Caption 輸入登錄密碼： Label4 Caption 再次輸入確認(rèn)： Command1 Caption 確定 Command2 Caption 取消 （ 1） frmLogin中 Command1的 Click事件 功能：驗證輸入的用戶名和密碼 是否正確，如果數(shù)據(jù)庫中存在輸入的用戶名和密碼信息，則調(diào)用主窗口，否則提示輸入錯誤信息 。 登錄管理 模塊 為了實現(xiàn)管理員功能，在本系統(tǒng)中設(shè)計了一個用戶登錄界面和管理員修改口令界面。 程序清單： *選擇售貨表 Select 2 brow 28 打印 模塊 1．模塊描述 在主窗體中，單擊打印選項，就會調(diào)用庫存信息報表。 輸出：無 程序清單： *選擇客戶信息表 select 3 private dm set exact off dm= () set filter to 客戶信息表 .客戶代碼 =alltrim(dm) go bottom go top browse (3)Command3中的 Click事件 功能：顯示所有采購入庫記錄。 輸入 : 無。 輸出：無。 輸入：無。用 戶在不同的區(qū)域中輸入查詢信息后，就可以完成指定信息的查詢工作。 程序清單： *選擇庫存表 sele 4 priv a ， b locate for 貨號 =upper(allt()) if not found() =messagebox(‘ 沒有該貨物的貨號，請先創(chuàng)建該貨物！ ’ ,0+64+0,‘提示 ’ ) go top else *1 更新貨物數(shù)量 a=庫存表 .現(xiàn)有數(shù)量 25 *如果庫存小于零，則讓現(xiàn)有庫存為 0 If a=0 =message(‘ 數(shù)量為零，無法售貨！ ’ ， 0+64+0，‘提示’ ) return endif If ab =message(‘ 數(shù)量為零，無法售貨！ ’ ， 0+64+0，‘提示’ ) return endif a=ab replace庫存表 .現(xiàn)有數(shù)量 with a *2將入庫信息同時寫入售貨表 *選擇售貨表 select 2 append blank go bottom *在售貨表中添加了主要信息，其余信息根據(jù)情況自行添加，或者查詢可得 replace 售貨表 .貨號 with alltrim() replace 售貨表 .數(shù)量 with a replace 售貨表 .進(jìn)價 with alltrim() replace 售貨表 .客戶代碼 with alltrim() *提示完成 =messagebox(‘ 出庫成功！ ’ ,0+64+0,‘ 提示 ’ ) endif (4)Command1中的 Click事件 功能：退出當(dāng)前窗體。 處理： ①選擇庫存表； ②判斷庫存表是否存在指定貨號的貨物，如果沒則提示，有則繼續(xù)操作； ③檢查庫存表，更新庫存表中貨物數(shù)量； ④將入庫信息同時寫入售貨表； ⑤完成出庫，并提示。 程序清單： *選擇客戶信息表 select 3 locate for 客戶代碼 =upper（ allt()） if not found() =messagebox(‘ 沒有該客戶的客戶代碼！ ’ ,0+64+0,‘提示 ’ ) go top else =.T. endif (3)Command9中的 Click事件 功能：完成貨物的銷售出庫操作。 2．窗體和源文件定義 窗體名稱：表單 frmOut 文件名： 數(shù)據(jù)環(huán)境：客戶信息表 .dbf、庫存表 .dbf、 出庫 表 .dbf 23 （見表 9） 表 9 銷售出庫 管理表單中的對象設(shè)置 對象 屬性 值 說明 Form1 Caption 銷售出庫 管理 Label1 Caption 貨物信息： Label2 Caption 貨號 貨號輸入?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 貨號確定 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)前表中是否有指定貨號的貨物信息，如果有則顯示結(jié)果。 程序清單： *選擇庫存表 sele 4 priv a locate for 貨號 =upper(allt()) if not found() =messagebox(‘ 沒有該貨物的貨號，請先創(chuàng)建該貨物！ ’ ,0+64+0,‘提示 ’ ) go top else 22 *1 更新貨物數(shù)量 a=庫存表 .現(xiàn)有數(shù)量 *如果庫存小于零，則讓現(xiàn)有庫存為 0 If a0 a=0 endif a=a+val() replace 庫存表 .現(xiàn)有數(shù)量 with a *2將入庫信息同時寫入入庫表 *選