【文章內(nèi)容簡介】 人文本10經(jīng)手辦此事的人名備注備注備注出庫記錄表出庫記錄表主要用于存放設(shè)備出庫時的相關(guān)信息。表結(jié)構(gòu)如下圖所示：字段名稱數(shù)據(jù)類型字段大小說明編號文本6設(shè)備的編號設(shè)備名稱文本20設(shè)備的名稱數(shù)量文本4設(shè)備的數(shù)量總金額貨幣總金額出庫日期日期/時間入庫的日期經(jīng)辦人文本10經(jīng)手辦此事的人名備注備注備注 。 Delphi可以使用多種數(shù)據(jù)庫。我們這里使用ADO開發(fā)數(shù)據(jù)庫技術(shù)。使用ADO開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 Adoconnetion。 Adomand。 adodataset。 adotable。 adoquery。 adostoredproc。 使用ADO開發(fā)數(shù)據(jù)庫程序的步驟如下： （1）在窗體添加TADOConnection組件（名稱為ADOConnection1），可以雙擊該組件設(shè)計其數(shù)據(jù)庫連接屬性。如下圖所示： 選擇User Connection String，然后單擊Build…按鈕，進入下圖所示的界面。使用OLE DB連接能夠發(fā)揮更大的效率?，F(xiàn)在我們使用的是Access2000，則可以選擇Microsoft DB Provider。選擇好后，單擊“下一步”按鈕，進入下圖所示界面。點右邊的…按鈕，則進入選擇數(shù)據(jù)庫頁面。選擇好數(shù)據(jù)庫，點擊測試連接按鈕。四、詳細設(shè)計系統(tǒng)登錄界面設(shè)計程序啟動后，首先進入“系統(tǒng)登錄”界面驗證操作員密碼。系統(tǒng)登錄窗口主要實現(xiàn)如下功能：以圖標列表形式顯示操作員，并憑口令進入系統(tǒng)。操作員錯誤或密碼錯誤提醒并返回錯誤點。系統(tǒng)登錄界面如下圖所示：具體實現(xiàn)如下：添加新窗體，設(shè)置窗體caption屬性為登陸窗口，向窗體中添加相關(guān)控件。程序代碼如下：procedure (Sender: TObject)。//讓窗體在顯示之后，框中有用戶選擇。var list_a:TlistItem。begin 。 。 (39。select * from 用戶表39。)。//選擇所有操作員 。 。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 :=(39。用戶名39。).AsString 。 :=1。 。 end。 。end。procedure (Sender: TObject)。//退出beginclose。end。procedure (Sender: Tobject)。//選擇操作員beginif Nil then//如果選擇不為空 (39。用戶名39。,[loPartialkey])。end。procedure (Sender: TObject)。//如果密碼不正確beginif (39。口令39。).AsString then begin showmessage(39。密碼不正確請重新輸入!39。)。 。 。 end else begin 。 。 。 end。end。procedure (Sender: TObject。 var Key: Char)。//執(zhí)行登錄操作beginif key=13 then 。 end。主窗體界面設(shè)計程序啟動后，在登錄操作員密碼后，將進入主程序界面。主程序界面主要實現(xiàn)如下功能：使用菜單操作、顯示系統(tǒng)日期、單位信息。通過主界面，退出程序。系統(tǒng)管理功能模塊的設(shè)計（1）用戶管理添加按鈕的代碼如下：procedure (Sender: TObject)。begin。//添加用戶窗口顯示end。刪除按鈕的程序如下：procedure (Sender: TObject)。begin if messagebox(,39。確定要刪除本條記錄嗎？39。,39。請確認39。,mb_okcancel)=idok then begin 。 end。end。輸入用戶名和密碼，點擊確定。代碼如下：procedure (Sender: TObject)。begin。 :=39。39。 。 :=39。39。 。end。添加用戶窗口如下所示：該界面之確定按鈕代碼如下：procedure (Sender: TObject)。begin if then begin messagebox(,39。請重新確認新密碼！39。,39。提示39。,mb_iconerror)。 :=39。39。 。 end else begin 。 [1].Value:=。 。 messagebox(,39。您的密碼修改成功！39。,39。信息39。,mb_iconasterisk)。 close。 end。end。（2）修改口令窗口如下所示：設(shè)備管理模塊的設(shè)計（1）設(shè)備資料入庫“確定”按鈕的程序如下：procedure (Sender: TObject)。beginif =39。39。 then begin showmessage(39。該記錄不能為空39。)。 exit。 。 。 end。if length(trim())6 then begin showmessage(39。請輸入6位設(shè)備編號39。)。//判斷設(shè)備編號是否為6位 。 。 exit。 end。with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號=:id39。)。 (39。id39。).Value:=。 。 if recordcount0 then begin 。 (39。數(shù)量39。).Value :=strtoint()+strtoint((39。數(shù)量39。).asstring)。 (39?？偨痤~39。).Value:=strtoint((39。單價39。).asstring)*strtoint((39。數(shù)量39。).asstring)。 (39。編號39。).Value:= 。 (39。設(shè)備名稱39。).Value:= 。 (39。單價39。).Value:=。 post。 end else begin 。 (39。編號39。).Value:= 。 (39。設(shè)備名稱39。).value:= 。 (39。數(shù)量39。).Value:= 。 (39。單價39。).Value:= 。 (39?？偨痤~39。).Value:=strtoint()*strtoint() 。 post。 end。with adoquery2 do 。 。 (39。select * from 入庫記錄表39。)。 。 。 。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value := 。 [6].Value := 。 。end。 。 。 。 。 。 。 。end。該程序為判斷該產(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會使原有的庫存產(chǎn)生改變。（2）設(shè)備資料管理該程序模塊的用法如下：先在左邊選中某個數(shù)據(jù)，如果想修改，則點擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細信息。用戶修改之后，點擊保存即可。另外此界面中還實現(xiàn)了查詢、打印功能。具體該程序的代碼如下所示：procedure (Sender: TObject)。//修改按鈕的程序代碼begin :=[0].AsString 。 :=[1].AsString 。 := [2].AsString 。 := [3].AsString 。 := [4].AsString 。end。procedure (Sender: TObject)。//當(dāng)修改過價格或數(shù)量之后，總金額會智能改變。begin :=inttostr(strtoint( )*strtoint( ))。end。procedure (Sender: TObject)。begin :=inttostr(strtoint( )*strtoint( ))。end。procedure (Sender: TObject)。//保存按鈕的程序代碼如下beginwith adoquery1 do begin 。 end。with adoquery1 do begin close。 with sql do begin clear。 add(39。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。)。 end。 parameters[0].value:=。 parameters[1].value:=。 parameters[2].value:=。 parameters[3].value:=。 parameters[4].value:=。 execsql。 end。 with adoquery1 do begin close。 with SQL do begin clear。 add(39。select * from 設(shè)備表39。)。 end。 execsql。 open。 end。end。procedure (Sender: TObject)。//刪除記錄beginif (39。確定要刪除這條記錄嗎39。,39。提示39。,mb_okcancel+mb_iconinformation)=id_ok thenwith adoquery1 do if isempty=false then delete。 end。procedure (Sender: TObject)。beginif =39。編號39。 then begin with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號=:id39。)。 (39。id39。).Value :=。 open。 if recordcount=0 then begin (39。沒有檢索到該設(shè)備信息39。,39。提示39。,mb_ok+mb_iconinformation)。 end。 end。 end。 if =39。設(shè)備名稱39。 then begin with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號=:d39。)。 (39。d39。).Value :=。 open。 if recordcount=0 then begin (39。沒有檢索到該設(shè)備信息39。,39。提示39。,mb_ok+mb_iconinformation)。 end。 end。 end。 end。procedure (Sender: TObject)。//打印窗口的代碼如下 。end。procedure (Sender: TObject)。begin。 。(39。select * from 設(shè)備表39。)。end。procedure (Sender: TObject)。//刷新begin 。end。打印窗口如下所示：（3）入庫記錄查詢功能為可查詢歷來設(shè)備入庫的具體記錄。界面如下所示：可按照入庫時間來查詢。程序代碼如下所示：procedure (Sender: TObject)。begininherited。with adoquery1 dobegin close。 。 (39。select * from 入庫記錄表 where 入庫日期=:id 39。)。 .parambyname(39。id39。).value:=datetostr( )。 。 。 end。end。（4）設(shè)備資料出庫功能為對設(shè)備庫中的設(shè)備出庫操作。界面如下所示：該模塊具有智能化，會根據(jù)你輸入的設(shè)備編號，自動得出設(shè)備名稱。程序代碼具體如下：procedure (Sender: TObject)。beg