【正文】 Unload Me Else MsgBox 當(dāng)前數(shù)據(jù)庫中沒有可刪除的用戶信息, , 信息提示 End If End If End IfEnd Sub 密碼修改 為了安全起見，用戶可以對自己密碼進(jìn)行修改。 + + 39。運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能 If = Name1 Then 39。)) MsgBox 注冊成功!!, 48, 用戶注冊信息提示 = = = = Unload Me Else MsgBox 兩次輸入的密碼不一致,請您確認(rèn)后重新輸入, 48, 用戶注冊信息提示 = = End If End If End IfEnd Sub刪除現(xiàn)有的用戶（），在用戶管理中選擇刪除現(xiàn)有用戶，然后選擇要?jiǎng)h除的用戶名，點(diǎn)擊確定按鈕，Msgbox提醒“您確認(rèn)刪除該用戶嗎？”，點(diǎn)擊確認(rèn)則刪除，點(diǎn)擊取消，則取消刪除。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。 Text3 amp。,39。 Text2 amp。,39。 Text1 amp。 ,39。保存注冊信息 Set adoRs = (insert into tb_enter values( amp。如果該用戶名存在則重新輸入 = = = Else If = Then 39。 39。運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能 If = Or = Or = Then MsgBox 輸入的用戶注冊信息不完全!!, , 提示信息 Else = select * from tb_enter where M_Name=39。（1）注冊新用戶（），在用戶管理對話框中選擇注冊新用戶，填寫完用戶名稱，職務(wù)，用戶密碼，確認(rèn)密碼，點(diǎn)擊確定，出現(xiàn),Msgbox提醒“注冊成功”。打印報(bào)表的功能必須在安裝打印機(jī)的情況下才能實(shí)現(xiàn)；點(diǎn)擊導(dǎo)出，出現(xiàn)對話框（）選擇保存到的文件夾，對文件命名，然后點(diǎn)擊保存按鈕。以庫存報(bào)表為例，實(shí)現(xiàn)代碼: Private Sub DataReport_Initialize() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。為倉庫管理提供報(bào)表的打印和導(dǎo)出。使窗體居中 = ( ) / 2End Sub 在貨品查詢下點(diǎn)擊出庫查詢進(jìn)入出庫查詢（），在最下方“請輸入要查詢的貨品名稱”的Text中輸入要查詢的貨品的名稱，自動(dòng)顯示出要查詢貨品的出庫記錄（）。Persist Security Info=False = select * from tb_out 39。 amp。利用代碼連接數(shù)據(jù)庫 = Provider=。這三個(gè)模塊也是相似的，以出庫查詢作為說明，實(shí)現(xiàn)代碼： Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。Join的縮寫 加入的意思，給入庫編號賦一個(gè)初值 StrNum = 1 End If = True = FalseEnd Sub進(jìn)入貨品入庫（），然后點(diǎn)擊添加按鈕，自動(dòng)生成入庫編號，輸入貨品名稱、貨品規(guī)格、數(shù)量單價(jià)及備注，選擇計(jì)量單位，入庫日期，點(diǎn)擊保存，出現(xiàn)Msgbox 提醒“您確認(rèn)要保存該信息嗎？”（），點(diǎn)擊確定，出現(xiàn)Msgbox 提醒“信息保存成功”，點(diǎn)擊取消，則放棄入庫。 Trim(StrTemp) amp。將入庫編號加1 Select Case Len(Trim(StrNum)) 39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。 \) For Output As 1 Print 1, TStr Close 1 Unload Me Else MsgBox 密碼不正確,請您確認(rèn)后重新輸入, , 庫存管理系統(tǒng) = End If Else MsgBox 對不起 沒有此用戶的信息, , 倉儲(chǔ)信息管理系統(tǒng) = = End If End IfEnd Sub 貨品管理模塊 在貨品管理模塊中，貨品入庫，貨品出庫和貨品盤點(diǎn)三個(gè)模塊是相似的模塊，有著相似的操作過程。添加登錄日志 Open ( amp。 If 0 Then MPassword = (M_Password) If = MPassword Then 39。 amp。判斷是否使用的是超級口令登錄 (2).Text = 當(dāng)前操作員： mr Name1 = Unload Me Else = select * from tb_enter where M_Name =39。 （5）退出系統(tǒng) ：表 tb_enter(用戶信息表)字段名數(shù)據(jù)類型字段大小操作員姓名文本20職務(wù)文本20密碼文本20表 tb_KCXX(庫存信息表)字段名數(shù)據(jù)類型字段大小庫存編號數(shù)字長整型貨品編號文本30貨品名稱文本50貨品規(guī)格文本30記量單位文本20數(shù)量數(shù)字長整型單價(jià)貨幣入庫日期日期∕時(shí)間備注備注表 tb_OUT(貨品出庫數(shù)據(jù)表)字段名數(shù)據(jù)類型字段大小出庫編號文本30貨品編號文本50貨品名稱文本30計(jì)量單位文本20數(shù)量數(shù)字長整型單價(jià)貨幣金額貨幣出庫日期日期∕時(shí)間提貨單位文本50提貨人文本20經(jīng)手人 文本20備注備注表 tb_IN(貨品入庫數(shù)據(jù)表)字段名數(shù)據(jù)類型字段大小貨品編號文本30貨品名稱文本50貨品規(guī)格文本30計(jì)量單位文本20數(shù)量數(shù)字長整型單價(jià)貨幣金額貨幣入庫日期日期∕時(shí)間經(jīng)手人 文本20備注備注表 tb_kcpd(貨品盤點(diǎn)表)字段名數(shù)據(jù)類型字段大小盤點(diǎn)編號數(shù)字長整型盤點(diǎn)貨品文本50貨品規(guī)格文本30計(jì)量單位文本20數(shù)量數(shù)字長整型盤點(diǎn)日期日期∕時(shí)間盤點(diǎn)員文本20貨品有無異常文本205 系統(tǒng)設(shè)計(jì) 系統(tǒng)登錄界面（1） 功能分析這是用戶登錄系統(tǒng)的入口，用戶輸入用戶名及密碼，如果密碼正確，點(diǎn)擊登錄按鈕，則成功登錄，進(jìn)入倉庫管理系統(tǒng)主界面（）；如果用戶名輸入錯(cuò)誤，Msgbox則會(huì)提醒“對不起，沒有此用戶的信息”；如果密碼錯(cuò)誤，Msgbox則會(huì)提醒“密碼不正確，請您確認(rèn)后重新輸入”（）；圖 倉庫管理系統(tǒng)主界面 （1）實(shí)現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。 （3）數(shù)據(jù)報(bào)表（出庫報(bào)表，庫存報(bào)表）；該模塊提供貨品出庫及庫存報(bào)表，并且可以實(shí)現(xiàn)報(bào)表的打印及導(dǎo)出。（）系統(tǒng)登錄貨品管理貨品查詢數(shù)據(jù)報(bào)表系統(tǒng)維護(hù)倉庫管理系統(tǒng)退出系統(tǒng) 圖 總體模塊 （1）貨品管理（貨品入庫，貨品出庫，貨品盤點(diǎn)）；該模塊用于實(shí)現(xiàn)貨品的入庫，出庫，盤點(diǎn)功能。因此管理上是可行的。因此對開發(fā)庫存系統(tǒng)大力支持，開發(fā)經(jīng)費(fèi)沒有問題。因此，在技術(shù)上可較容易實(shí)現(xiàn)的。 該系統(tǒng)所需的硬件設(shè)備，市場上就有銷售，并且價(jià)格較低。報(bào)表是一個(gè)數(shù)據(jù)庫中最重要的功能之一，有了報(bào)表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報(bào)表功能中包括出庫報(bào)表，倉庫報(bào)表及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡潔。本系統(tǒng)實(shí)現(xiàn)對貨品信息的管理和總體的統(tǒng)計(jì)等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。倉庫中貨品的出庫，這部分功能與入庫操作流程差不多，區(qū)別在于只是對出庫貨品進(jìn)行管理，貨品信息數(shù)據(jù)的輸入。對于一個(gè)倉庫來說，最大的功能就是存儲(chǔ)貨品，所以倉庫管理就是對貨品信息，倉庫信息的管理，用戶可以根據(jù)實(shí)際情況對各種貨品信息進(jìn)行分類管理，包括添加、刪除更新數(shù)據(jù)庫等。4 系統(tǒng)分析 本套應(yīng)用程序名稱為“新生活集團(tuán)（中國）有限公司徐州分公司倉庫管理系統(tǒng)”，主要用于公司倉庫貨品信息的管理，系統(tǒng)包括貨品在庫管理、入庫、出庫、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。充分的利用倉庫管理系統(tǒng)的功能。（4） 對于暢銷品和銷量小的產(chǎn)品的庫存數(shù)量做出優(yōu)化，盡量避免暢銷品庫存不夠，銷量小的產(chǎn)品又積壓在倉庫，導(dǎo)致庫存量的不合理，影響了銷售部門的銷售工作。（3） 倉庫管理人員在產(chǎn)品入庫時(shí)就應(yīng)該做好產(chǎn)品的檢查工作，不可將破損產(chǎn)品入庫。（1） 針對產(chǎn)品存放位置安排不規(guī)范、產(chǎn)品擺放混亂和庫存數(shù)量不清晰，采用ABC分類法，對所有的產(chǎn)品進(jìn)行合理的擺放，暢銷品擺放在離出口較進(jìn)的地方，便于出庫，做到擺放有序，有多少庫存可以較為很方便的看到。建立和倉庫相符的倉庫管理系統(tǒng)，采用先進(jìn)的倉庫管理方法，規(guī)范作業(yè)流程。這樣不僅易造成產(chǎn)品變質(zhì)，還容易造成部門與倉庫之間產(chǎn)生矛盾，各自都不愿承擔(dān)造成產(chǎn)品破損的責(zé)任。有的部門派人去倉庫領(lǐng)產(chǎn)品，很多時(shí)候都會(huì)是部門缺什么，自己到倉庫拿什么，甚至連領(lǐng)料單都沒拿去，這樣造成倉庫物品混亂，并且還及有可能造成倉庫的物品丟失。我認(rèn)為這樣每次盤點(diǎn)時(shí)間相隔太長，可以每周做一次粗略盤點(diǎn)，每個(gè)月月末的盤點(diǎn)可以再細(xì)致一些。（3） 庫存數(shù)量不明確,倉庫缺少一個(gè)有效的倉庫管理系統(tǒng)，倉庫產(chǎn)品的數(shù)量統(tǒng)計(jì)難度大，所以導(dǎo)致有些時(shí)候，暢銷的產(chǎn)品貨物短缺，而有些銷量小的產(chǎn)品貨物卻積壓在倉庫，不僅浪費(fèi)時(shí)間和金錢，還占用了倉庫空間。（2） 倉庫產(chǎn)品擺放混亂，不同性質(zhì)的產(chǎn)品混亂的擺放在一個(gè)貨架上，有些不同種類的單件的貨品也被放在一個(gè)大的箱子里。（2） 盤點(diǎn) 公司貨物出入庫頻繁，為了保證倉庫保管質(zhì)量，倉庫工作人員每個(gè)月都會(huì)對倉庫貨物進(jìn)行盤點(diǎn)，包括對貨物品種、數(shù)量、等進(jìn)行盤點(diǎn)，并做好記錄，存檔等。⑤依據(jù)先進(jìn)先出的原則。④貨物分類保管，不同性質(zhì)的產(chǎn)品有不同的存儲(chǔ)區(qū)域。③根據(jù)公司的銷售情況選定位置。②貨物有序擺放，同種產(chǎn)品擺放在同一貨位上，或者相鄰貨位。（1）倉庫保管原則：①面向通道進(jìn)行保管。提貨人出示出庫單據(jù)，在庫房人員協(xié)調(diào)下，按指定的貨位、品種、數(shù)量搬運(yùn)貨物裝到車上。公司銷售部門需要填寫出庫單，出庫單，主要有發(fā)貨單位、發(fā)貨時(shí)間、出庫品種、出庫數(shù)量、金額、出庫方式選擇、運(yùn)算結(jié)算方式、提貨人簽字、倉庫主管簽字。入庫時(shí)要嚴(yán)把質(zhì)量關(guān)，做好各項(xiàng)記錄，以備今后查詢。申請人持填寫好的入庫申請單，填寫好由檢驗(yàn)員檢驗(yàn)后鑒字，并由庫房人員核實(shí)入庫數(shù)量登記，庫房主管鑒字。新生活集團(tuán)（中國）有限公司徐州分公司倉儲(chǔ)