【正文】 .Value:=strtoint()*strtoint() 。 end。 。select * from 入庫記錄表 39。 。 。 [1].Value :=。 [3].Value :=strtoint()*strtoint()。 [5].Value := 。 。 。 。 。 。 該程序為判斷該產(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會使原有的庫存產(chǎn)生改變。用戶修改之后，點擊保存即可。 具體該程序的代碼如下所示： procedure (Sender: TObject)。 :=[1].AsString 。 := [3].AsString 。 end。//當修改過價格或數(shù)量之后，總 金額會智能改變。 end。 begin :=inttostr(strtoint( )*strtoint( ))。 procedure (Sender: TObject)。 end。 with sql do begin clear。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。 end。 parameters[1].value:=。 parameters[3].value:=。 execsql。 with adoquery1 do begin close。 add(39。)。 execsql。 end。 procedure (Sender: TObject)。 確 定 要 刪 除 這 條 記 錄 嗎 39。 提示39。 end。 begin if =39。 then begin with adoquery1 do begin close。 (39。)。id39。 open。 沒 有 檢 索 到 該 設(shè) 備 信 息 39。 提示39。 end。 end。設(shè)備名稱 39。 。select * from 設(shè)備表 where 編號 =:d39。 (39。).Value :=。 if recordcount=0 then begin (39。,39。,mb_ok+mb_iconinformation)。 end。 end。//打印窗口的代碼如下 。 procedure (Sender: TObject)。 。select * from 設(shè)備表 39。 。 procedure (Sender: TObject)。 end。界面如下所示： 可按照入庫時間來查詢。 begin inherited。 。select * from 入庫記錄表 where 入庫日期 =:id 39。 .parambyname(39。).value:=datetostr( )。 。 end。 界面如下所示： 該模塊具有智能化，會根據(jù)你輸入的設(shè)備編號，自動得出設(shè)備名稱。 begin if =39。 then begin showmessage(39。)。 。 end。請輸入 6 位設(shè)備編號 39。 。 exit。 with adoquery1 do begin close。 (39。)。id39。 。 (39。).Value :=strtoint((39。).asstring)strtoint()。 總金額 39。 單價39。數(shù)量 39。 (39。).Value:= 。設(shè)備名稱 39。 (39。).Value:=。 end。 。select * from 出庫記錄表 39。 。 。 [1].Value :=。 [3].Value :=strtoint()*strtoint()。 [5].Value := 。 。 。 。 。 。 procedure (Sender: TObject)。 end。 begin with adoquery1 do begin 。 (39。)。id39。 。設(shè)備名稱 39。 :=(39。).AsString 。無此設(shè)備編號 ,請查實再來 !退出請按右上角的 X 按鈕 !39。 。 end。 end。具體界面及設(shè)計如下所示： 對確定按鈕的編程如下： procedure (Sender: TObject)。 with adoquery1 do begin close。 (39。)。id39。 。 end。 （ 6）設(shè)備情況瀏覽 該模塊為顯示當前庫中所有設(shè)備資料，以及所有入庫記錄及出庫記錄。 （ 2 ） 操 作 系 統(tǒng) ： Microsoft Windows98/me/xp/2020 或 Microsoft Windows NT Service/Workstation 或更高版本。 （ 4）內(nèi)存： 64MB 以上。 所使用的數(shù)據(jù)庫是 Access 2020。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請、購買確認、新設(shè)備信息錄入、舊設(shè)備維修和報廢 及用戶管理等。 經(jīng)過分析綜合 ,使用 Sybase 公司的 作為前端開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能夠方便而簡潔操縱數(shù)據(jù)庫的智能化對象（后端采用 Sybase ASA 數(shù)據(jù)庫） ,本系統(tǒng)采用結(jié)構(gòu)化程序設(shè)計方法，嚴格按照結(jié)構(gòu)化方法開發(fā)過程，從計劃階段到開發(fā)階段再到維護階段一步一步實現(xiàn)本系統(tǒng)的功能。 實驗室設(shè)備管理系統(tǒng)是一個眾多企業(yè)、事業(yè)單位不可缺少的部分。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備， 這種管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間稍長 ,將產(chǎn)生大量的冗余 ,文件越來越多，使人工管理沒有頭緒，這對于查找、更新和維護都帶來了很大的困難。這些優(yōu)點能夠極大地提設(shè)備管理的效率 ,也是正規(guī)化管理 ,與世界接軌的重要條件。 背景 儀征 XX 學校是一所職業(yè)中學，擁有多個實驗室，實驗室的儀器設(shè)備比較齊全，也比較多，每種設(shè)備情況都不一樣。如果管理跟不上，一旦造成錯誤，很可能給學校造成巨大的損失。今年，該校決定采用計算機技術(shù)進行設(shè)備上面的管理。 本項目的任務(wù)提 出者 : 學校實驗室設(shè)備管理人員 . 開發(fā) :是本人的實驗設(shè)計 . 用戶 :為學校實驗室設(shè)備管理人員 . 使用該軟件系統(tǒng)同時與其他 Windos 系統(tǒng)兼容 ,能方便實驗室設(shè)備管理人員管理 . 1． 3 功能介紹 系統(tǒng)主要功能有： （ 1）設(shè)備管理：添加設(shè)備、添加設(shè)備、修改設(shè)備、設(shè)備情況查詢。 （ 3）系統(tǒng)幫助：關(guān)于。數(shù)據(jù)庫共有 4 個數(shù)據(jù)庫表：用戶表、設(shè)備表、入庫記錄表、出庫記錄表。 用戶表 該表主要用來存放系統(tǒng)用戶資料。 表結(jié)構(gòu)如下所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的 編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 單價 貨幣 設(shè)備的單價 總金額 貨幣 設(shè)備的總金額 入庫記錄表 入庫記錄表主要用于存放設(shè)備入庫時的相關(guān)信息。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 出庫日期 日期 /時間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 中數(shù)據(jù)庫的連接方式。我們這里使用 ADO 開發(fā)數(shù)據(jù)庫技術(shù)。 Adoconion。 adodataset。 adoquery。 使用 ADO 開發(fā)數(shù)據(jù)庫程序的步驟如下： （ 1）在窗體添加 TADOConnection 組件（名稱為 ADOConnection1），可以雙擊該組件設(shè)計其數(shù)據(jù)庫連接屬性。 使用 OLE DB 連接能夠發(fā)揮更大的效率。選擇好后，單擊“下一步”按鈕，進入下圖所示界面。選擇好數(shù)據(jù)庫，點擊測試連接按鈕。系統(tǒng)登錄窗口主要實現(xiàn)如下功能： 以圖標列表形式顯示操作員，并憑口令進入系統(tǒng)。 系統(tǒng)登錄界面如下圖所示： 具體實現(xiàn)如下： 添加新窗體，設(shè)置窗體 caption 屬性為登陸窗口，向窗體中添加相 關(guān)控件。//讓窗體在顯示之后，框中有用戶選擇。 begin 。 (39。)。 。 :=(39。).AsString 。 。 。 procedure (Sender: TObject)。 end。//選擇操作員 begin if Nil then//如果選擇不為空 (39。,[loPartialkey])。 procedure (Sender: TObject)。口令 39。密碼不正確請重新輸入 !39。 。 end else begin 。 。 end。 var Key: Char)。 end。主程序界面主要實現(xiàn)如下功能： 使用菜單操作、顯示系統(tǒng)日期、單位信息。 系統(tǒng)管理功能模塊的設(shè)計 （ 1）用戶管理 添加按鈕的代碼如下： procedure (Sender: TObject)。 。 刪除按鈕的程序如下： procedure (Sender: TObject)。 確 定 要 刪 除 本 條 記 錄 嗎 ？ 39。 請 確 認39。 end。 添加用戶窗口如下所示： （ 2）修改口令窗口如下所示： 設(shè)備管理模塊的設(shè)計 （ 1）設(shè)備資料入庫 輸入用戶名和密碼，點擊確定。 begin 。39。 :=39。 。 該界面之確定按鈕代碼如下： procedure (Sender: TObject)。 請重新確認新密碼！ 39。提示 39。 :=39。 。 [1].Value:=。 messagebox(,39。,39。,mb_iconasterisk)。 end。 “確定”按鈕的程序如下： procedure (Sender: TObject)。39。該記錄不能為空 39。 exit。 。 if length(trim())6 then begin showmessage(39。)。 。 end。 。select * from 設(shè)備表 where 編號 =:id39。 (39。).Value:=。 if recordcount0 then begin 。 數(shù)量39。數(shù)量 39。 (39。).Value:=strtoint((39。).asstring)*strtoint((39。).asstring)。編號 39。 (39。).Value:= 。單價 39。 post。 (39。).Value:= 。設(shè)備名稱 39。 (39。).Value:= 。單價 39。 (39。).Value:=strtoint()*strtoint() 。 end。 。select * from 入庫記錄表 39。 。 。 [1].Value :=。 [3].Value :=strtoint()*strtoint()。 [5].Value := 。 。 。 。 。 。 該程序為判斷該產(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會使原有的庫存產(chǎn)生改變。用戶修改之后，點擊保存即可。 具體該程序的代碼如下所示： procedure (Sender: TObject)。 :=[1].AsString 。 := [3].AsString 。 end。//當修改過價格或數(shù)量之后，總 金額會智能改變。 end。 begin :=inttostr(strtoint( )*strtoint( ))。 procedure (Sender: TObject)。 end。 with sql do begin clear。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。 end。 parameters[1].value:=。 parameters[3].value:=。 execsql。 with adoquery1 do begin close。 add(39。)。