【正文】 (=39。 。 。39。,39。39。)and (=39。tele39。 :=fieldbyname(39。%39。select * from xg0301worker where pno=39。 (39。39。,39。39。 。) and (=39。)nil then :=true else :=false。a39。 if strpos(pchar(auth_desc),39。 open。)。五、詳細設計 主要的表。倉庫管理系統(tǒng)幫助企業(yè)的倉庫管理員對倉庫物品的入庫、出庫、盤點等操作進行全面的控制和管理，達到提高倉庫控制精度、降低倉庫量，提高客戶服務水平，保證生產經營活動順利進行的目的。以及授權功能。登錄代碼如下：var auth_desc:string。++39。239。)nil then :=true else :=false。 if strpos(pchar(auth_desc),39。 。請把信息添加完整！39。++ 39。39。39。showmessage(39。刪除成功！39。 (39。pno39。).AsString。39。 。39。39。 showmessage(39。 showmessage(39。39。39。39。++ 39。六：出庫界面添加新單號代碼：vari:integer。select kucun from xg0301wuliao39。 (39。+datetimetostr(date())+39。39。)。 :=inttostr(i+1)。select * from xg0301ruku,xg0301wuliao where =39。yyyymmdd39。 。)。 (39。39。where rkrq=39。39。)。39。++39。++39。39。員工39。 if strpos(pchar(auth_desc),39。 if strpos(pchar(auth_desc),39。b39。 end else begin showmessage(39。a39。update xg0301worker set quanxian=39。員工39。我選的是倉庫管理系統(tǒng)，所以先要弄清楚倉庫管理系統(tǒng)的作用和職能。接著便是出入庫的代碼編寫了，主要是添加和修改，出入庫還有盤點的代碼基本是相似的，在探討出入庫的代碼后便解決了出庫和盤點的代碼，最后是查詢，分為三種查詢。在這上面費了很大的功夫，因為代碼是弱項，連第一個登錄界面的代碼都寫了很久，因為登錄權限的問題，我們小組想做個完整的登錄界面，只有廠里的員工才能登錄該系統(tǒng)。在第一周的時候我和搭檔兩個人主要是做需求分析這塊，先確定了該系統(tǒng)要實現(xiàn)的功能等。39。e39。439。f39。 if strpos(pchar(auth_desc),39。 end。)nil then :=true else begin :=false end。)。select * from xg0301worker39。39。39。39。from xg0301chuku39。yyyymmdd39。//(39。+formatdatetime(39。)。++39。39。select * from xg0301ruku where rkrq=39。 open。 end。)。++ 39。39。出庫數(shù)量超過庫存數(shù)量，請重新確認！39。添加新記錄代碼：vari,j:integer。 showmessage(39。39。39。 。dh39。39。39。39。+ +39。請把信息添加完整！39。 。id39。)。)。39。39。39。+ +39。39。39。 。)nil then :=true else :=false。639。 end else begin if strpos(pchar(auth_desc),39。39。, filename=39。倉庫管理對查詢要求高，通過主菜單記錄當前操作用戶的用戶編號，保證了對進、出庫信息錄入負責人的確認。（2）用戶需求根據用戶需求，該系統(tǒng)應該實現(xiàn)以下功能：1）. 進、出庫管理。d:\db\39。39。 if =0 then begin showmessage(39。539。)nil then :=true else :=false。 end。)and (=39。39。,39。39。39。+ +39。39。39。birth39。 (39。)and(=39。,39。39。39。39。 open。)。39。39。) 39。dh39。).asinteger。39。,39。39。select max(ckdh) dh from xg0301chuku39。39。 end else if =2 then begin close。,)+39。select * from xg0301chuku where wno=39。39。 and ckrq=39。(39。39。select wname,wno,sum(shuliang) count139。39。 。 。begin with adoquery1 do begin close。39。)nil then :=true else begin :=false end。 :=false。 if strpos(pchar(auth_desc),39。e39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。++39。首先需求分析很重要，要創(chuàng)建一個好的系統(tǒng)，所以要做足前面的需求分析。接下來就是大工程界面的設計和代碼的編寫了，在代碼編寫上是弱項，所以在跟同學討論后做了界面的設計，包括登錄界面，出入庫，對于delphi的界面設計，大部分是簡單的，由于每個表基本都會查詢，所以建立了DM，用于整個數(shù)據庫的連接查詢。總的來說，這次的專周收獲蠻大的，雖然還是存在很多的不足。在與同學討論之后，我覺得倉庫存在著這么幾個問題： 一 物品的分類，如果物品沒有進行很好的分類，整個倉