【正文】 close。)。39。 and pname=39。39。 open。+[0].AsString+39。139。)nil then :=true else begin :=false end。 if strpos(pchar(auth_desc),39。639。 if strpos(pchar(auth_desc),39。 :=false。 if strpos(pchar(auth_desc),39。139。)nil then :=true else :=false。 if strpos(pchar(auth_desc),39。a39。)nil then :=true else :=false。 if strpos(pchar(auth_desc),39。e39。)nil then :=true else :=false。該員工編號不存在!請輸入正確的員工代碼!39。begin if (=true) then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 with adoquery1 do begin close。39。39。++39。)。39。39。首先需求分析很重要，要創(chuàng)建一個好的系統(tǒng)，所以要做足前面的需求分析。在第二周的時候主要就是進行界面的設計以及功能的實現。以前一直認為倉庫庫存管理只要將物品進出倉記錄這一關鍵一步做好了就差不多了，其他的并沒有太多的想法。屬性的設置以及數據流圖的繪制。接下來就是大工程界面的設計和代碼的編寫了，在代碼編寫上是弱項，所以在跟同學討論后做了界面的設計，包括登錄界面，出入庫，對于delphi的界面設計，大部分是簡單的，由于每個表基本都會查詢，所以建立了DM，用于整個數據庫的連接查詢。因為有些操作只能是管理員才能進行，所以我們就在登錄的界面上設置了一個職位的選擇，分為管理員和一般員工。分別為按時間查詢，按入庫單查詢，按出庫單查詢。29 / 29?？偟膩碚f，這次的專周收獲蠻大的，雖然還是存在很多的不足。這樣就方便信息的管理。遇到的問題：最大的問題是在設計通過前臺DELPHI連接到數據庫后臺，并進行相應的操作時候。建表是件容易的事情，只是要將屬性搞清楚，比如主鍵的設置，唯不唯一，參照的是哪個表，等等。在與同學討論之后，我覺得倉庫存在著這么幾個問題： 一 物品的分類，如果物品沒有進行很好的分類，整個倉庫的物品存放將會很凌亂，給生產運作或物品清點造成很多不必要的麻煩，降低生產績效，浪費人力物力、二 物品記錄，需要建立明確的進出庫記錄，而不是隨筆記著、倉庫管理系統(tǒng)有入庫出庫盤點三個基本職能，還有能夠查詢。也不懂怎么開始，后來在老師指導下，做最開始的分析。只有先做好了需求分析，了解了該系統(tǒng)主要要實現哪些功能，這樣才能為后面的設計提供一個良好的思路。)。++39。showmessage(39。39。39。+auth+39。 (39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。 if =true then auth:=auth+39。end。 。 if strpos(pchar(auth_desc),39。)nil then :=true else :=false。c39。 if strpos(pchar(auth_desc),39。)nil then :=true else :=false。339。 if strpos(pchar(auth_desc),39。)nil then :=true else :=false。 :=false。)nil then :=true else begin :=false。 :=false。)nil then :=true else begin :=false end。339。 if strpos(pchar(auth_desc),39。 auth_desc:=[10].AsString。 if =0 then begin :=39。39。39。39。where pno=39。 (39。 open。39。%39。select * from xg0301chuku where ckrq like 39。 open。39。%39。select * from xg0301ruku where rkrq like 39。open。)。,)+39。39。,)+39。39。where =39。(39。group by wname,wno39。39。+formatdatetime(39。39。+formatdatetime(39。(39。)。select wname,wno,sum(shuliang) count139。 open。39。39。39。39。 。 and =39。39。 。39。39。 。)。 end else begin close。39。+formatdatetime(39。39。+formatdatetime(39。 (39。)。++39。 (39。)。++39。 (39。).asinteger。 open。 。end。出庫成功39。) 39。39。39。,39。39。39。,39。39。39。,39。39。 。 if(ji) then showmessage(39。 i:=(39。sel