freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

實(shí)驗(yàn)室設(shè)備管理系統(tǒng)—(參考版)

2024-08-22 12:21本頁(yè)面
  

【正文】 所使用的數(shù)據(jù)庫(kù)是Access 2000。(4)內(nèi)存:64MB以上。(2)操作系統(tǒng):Microsoft Windows98/me/xp/2000或Microsoft Windows NT Service/Workstation 或更高版本。(6)設(shè)備情況瀏覽該模塊為顯示當(dāng)前庫(kù)中所有設(shè)備資料,以及所有入庫(kù)記錄及出庫(kù)記錄。 end。 。id39。)。 (39。with adoquery1 dobegin close。具體界面及設(shè)計(jì)如下所示:對(duì)確定按鈕的編程如下:procedure (Sender: TObject)。end。 end。 。無(wú)此設(shè)備編號(hào),請(qǐng)查實(shí)再來(lái)!退出請(qǐng)按右上角的X按鈕!39。).AsString 。 :=(39。設(shè)備名稱39。 。id39。)。 (39。begin with adoquery1 do begin 。end。procedure (Sender: TObject)。 。 。 。 。 。 [5].Value := 。 [3].Value :=strtoint()*strtoint()。 [1].Value :=。 。 。select * from 出庫(kù)記錄表39。 。 end。).Value:=。 (39。設(shè)備名稱39。).Value:= 。 (39。數(shù)量39。單價(jià)39??偨痤~39。).asstring)strtoint()。).Value :=strtoint((39。 (39。 。id39。)。 (39。 with adoquery1 do begin close。 exit。 。請(qǐng)輸入6位設(shè)備編號(hào)39。 end。 。)。 then begin showmessage(39。beginif =39。界面如下所示:該模塊具有智能化,會(huì)根據(jù)你輸入的設(shè)備編號(hào),自動(dòng)得出設(shè)備名稱。end。 。).value:=datetostr( )。 .parambyname(39。select * from 入庫(kù)記錄表 where 入庫(kù)日期=:id 39。 。begininherited。界面如下所示:可按照入庫(kù)時(shí)間來(lái)查詢。end。procedure (Sender: TObject)。select * from 設(shè)備表39。 。procedure (Sender: TObject)。//打印窗口的代碼如下 。 end。 end。,mb_ok+mb_iconinformation)。,39。 if recordcount=0 then begin (39。).Value :=。 (39。select * from 設(shè)備表 where 編號(hào)=:d39。 。設(shè)備名稱39。 end。 end。提示39。沒(méi)有檢索到該設(shè)備信息39。 open。id39。)。 (39。 then begin with adoquery1 do begin close。beginif =39。 end。提示39。確定要?jiǎng)h除這條記錄嗎39。procedure (Sender: TObject)。 end。 execsql。)。 add(39。 with adoquery1 do begin close。 execsql。 parameters[3].value:=。 parameters[1].value:=。 end。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。 with sql do begin clear。 end。procedure (Sender: TObject)。begin :=inttostr(strtoint( )*strtoint( ))。end。//當(dāng)修改過(guò)價(jià)格或數(shù)量之后,總金額會(huì)智能改變。end。 := [3].AsString 。 :=[1].AsString 。具體該程序的代碼如下所示:procedure (Sender: TObject)。用戶修改之后,點(diǎn)擊保存即可。該程序?yàn)榕袛嘣摦a(chǎn)品是否在設(shè)備庫(kù)中有庫(kù)存,如果有庫(kù)存,則會(huì)使原有的庫(kù)存產(chǎn)生改變。 。 。 。 。 。 [5].Value := 。 [3].Value :=strtoint()*strtoint()。 [1].Value :=。 。 。select * from 入庫(kù)記錄表39。 。 end。).Value:=strtoint()*strtoint() 。 (39。單價(jià)39。).Value:= 。 (39。設(shè)備名稱39。).Value:= 。 (39。 post。單價(jià)39。).Value:= 。 (39。編號(hào)39。).asstring)。).asstring)*strtoint((39。).Value:=strtoint((39。 (39。數(shù)量39。數(shù)量39。 if recordcount0 then begin 。).Value:=。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。 。 end。 。)。if length(trim())6 then begin showmessage(39。 。 exit。該記錄不能為空39。39。(2)修改口令窗口如下所示:設(shè)備管理模塊的設(shè)計(jì)(1)設(shè)備資料入庫(kù)“確定”按鈕的程序如下:procedure (Sender: TObject)。 end。,mb_iconasterisk)。,39。 messagebox(,39。 [1].Value:=。 。 :=39。提示39。請(qǐng)重新確認(rèn)新密碼!39。添加用戶窗口如下所示:該界面之確定按鈕代碼如下:procedure (Sender: TObject)。 。 :=39。39。begin。輸入用戶名和密碼,點(diǎn)擊確定。 end。請(qǐng)確認(rèn)39。確定要?jiǎng)h除本條記錄嗎?39。刪除按鈕的程序如下:procedure (Sender: TObject)。系統(tǒng)管理功能模塊的設(shè)計(jì)(1)用戶管理添加按鈕的代碼如下:procedure (Sender: TObject)。主程序界面主要實(shí)現(xiàn)如下功能:使用菜單操作、顯示系統(tǒng)日期、單位信息。 end。 var Key: Char)。end。 。 end else begin 。 。密碼不正確請(qǐng)重新輸入!39??诹?9。procedure (Sender: TObject)。,[loPartialkey])。//選擇操作員beginif Nil then//如果選擇不為空 (39。end。procedure (Sender: TObject)。 。 。).AsString 。 :=(39。 。)。 (39。begin 。//讓窗體在顯示之后,框中有用戶選擇。系統(tǒng)登錄界面如下圖所示:具體實(shí)現(xiàn)如下:添加新窗體,設(shè)置窗體caption屬性為登陸窗口,向窗體中添加相關(guān)控件。系統(tǒng)登錄窗口主要實(shí)現(xiàn)如下功能:以圖標(biāo)列表形式顯示操作員,并憑口令進(jìn)入系統(tǒng)。選擇好數(shù)據(jù)庫(kù),點(diǎn)擊測(cè)試連接按鈕。選擇好后,單擊“下一步”按鈕,進(jìn)入下圖所示界面。使用OLE DB連接能夠發(fā)揮更大的效率。 使用ADO開(kāi)發(fā)數(shù)據(jù)庫(kù)程序的步驟如下: (1)在窗體添加TADOConnection組件(名稱為ADOConnection1),可以雙擊該組件設(shè)計(jì)其數(shù)據(jù)庫(kù)連接屬性。 adoquery。 adodataset。 Adoconnetion。我們這里使用ADO開(kāi)發(fā)數(shù)據(jù)庫(kù)技術(shù)。表結(jié)構(gòu)如下圖所示:字段名稱數(shù)據(jù)類型字段大小說(shuō)明編號(hào)文本6設(shè)備的編號(hào)設(shè)備名稱文本20設(shè)備的名稱數(shù)量文本4設(shè)備的數(shù)量總金額貨幣總金額出庫(kù)日期日期/時(shí)間入庫(kù)的日期經(jīng)辦人文本10經(jīng)手辦此事的人名備注備注備注 。表結(jié)構(gòu)如下所示:字段名稱數(shù)據(jù)類型字段大小說(shuō)明編號(hào)文本6設(shè)備的編號(hào)設(shè)備名稱文本20設(shè)備的名稱數(shù)量文本4設(shè)備的數(shù)量單價(jià)貨幣設(shè)備的單價(jià)總金額貨幣設(shè)備的總金額入庫(kù)記錄表入庫(kù)記錄表主要用于存放設(shè)備入庫(kù)時(shí)的相關(guān)信息。用戶表該表主要用來(lái)存放系統(tǒng)用戶資料。數(shù)據(jù)庫(kù)共有4個(gè)數(shù)據(jù)庫(kù)表:用戶表、設(shè)備表、入庫(kù)記錄表、出庫(kù)記錄表。(3)系統(tǒng)幫助:關(guān)于?! ”卷?xiàng)目的任務(wù)提出者: 學(xué)校實(shí)驗(yàn)室設(shè)備管理人員. 開(kāi)發(fā):是本人的實(shí)驗(yàn)設(shè)計(jì). 用戶:為學(xué)校實(shí)驗(yàn)室設(shè)備管理人員.  使用該軟件系統(tǒng)同時(shí)與其他Windos系統(tǒng)兼容,能方便實(shí)驗(yàn)室設(shè)備管理人員管理.1.3功能介紹 系統(tǒng)主要功能有:(1)設(shè)備管理:添加設(shè)備、添加設(shè)備、修改設(shè)備、設(shè)備情況查詢。今年,該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。如果管理跟不上,一旦造成錯(cuò)誤,很可能給學(xué)校造成巨大的損失。 背景儀征XX學(xué)校是一所職業(yè)中學(xué),擁有多個(gè)實(shí)驗(yàn)室,實(shí)驗(yàn)室的儀器設(shè)備比較齊全,也比較多,每種設(shè)備情況都不一樣。這些優(yōu)點(diǎn)能夠極大地提設(shè)備管理的效率,也是正規(guī)化管理,與世界接軌的重要條件。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理設(shè)備,這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間稍長(zhǎng),將產(chǎn)生大量的冗余,文件越來(lái)越多,使人工管理沒(méi)有頭緒,這對(duì)于查找、更新和維護(hù)都帶來(lái)了很大的困難。實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是一個(gè)眾多企業(yè)、事業(yè)單位不可缺少的部分。關(guān)鍵詞: 設(shè)備信息管理系統(tǒng)(EMIS) Sybase ASA數(shù)據(jù)庫(kù) 快速原型法 面向?qū)ο? 數(shù)據(jù)窗口 數(shù)據(jù)對(duì)象 設(shè)備購(gòu)買申請(qǐng) 購(gòu)買批準(zhǔn)確認(rèn) 新設(shè)備信息錄入 設(shè)備維修 設(shè)備報(bào)廢 用戶登錄 用戶管理能滿足日常工作的基本需要,并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等有關(guān)要求。六、致謝七、參考文獻(xiàn)Delphi數(shù)據(jù)庫(kù)高級(jí)實(shí)例導(dǎo)航Delphi數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析Delphi入門與提高實(shí)驗(yàn)室設(shè)備管理系統(tǒng)摘要學(xué)校實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是典型的設(shè)備信息管理系統(tǒng)(EMIS),要求能為學(xué)校實(shí)驗(yàn)室管理提供信息化動(dòng)態(tài)化的管理,方便學(xué)校實(shí)驗(yàn)室設(shè)備管理工作,提高學(xué)校設(shè)備管理質(zhì)量和使用效率。軟件環(huán)境要求本系統(tǒng)適用于Microsoft Windows 98/2000/XP下開(kāi)發(fā)的,所采用的開(kāi)發(fā)工具是Delphi 。(3)顯示器:Micorsoft Windows 支持的VGA或分辨率更高的顯示器。界面如下所示:(7)關(guān)于模塊關(guān)于窗口如下所示:五、系統(tǒng)要求硬件環(huán)境要求為運(yùn)行本例,計(jì)算機(jī)應(yīng)滿足如下條件:(1)CPU:Intel Pentium 166MHZ或更高主頻的處理器,或任何運(yùn)行于Microsoft Windows NT Workstation的Alpha處理器。end。 。).value:=datetostr( )。 .parambyname(39。select * from 出庫(kù)記錄表 where 入庫(kù)日期=:id 39。 。begininherited。(5)出庫(kù)記錄查詢?cè)擁?xiàng)功能可以查詢歷來(lái)出庫(kù)記錄。 end。 exit。)。 end else begin showmessage(39。單價(jià)39。).AsString 。 if recordcount0 then begin :=(39。).Value:=。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。 。procedure (Sender: TObject)。beginclose。end。 。 。 。end。 [6].Value := 。 [4].Value :=date。 [2].Value :=。 [0].Value :=。 。)。 (39。with adoquery2 do 。 post。單價(jià)39。).Value:= 。 (39。編號(hào)39。).asstring)。).asstring)*strtoint((39。).Value:=strtoint((39。 (39。數(shù)量39。數(shù)量39。 if recordcount0 then begin 。).Value:=。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。 。 end。 。)。if length(trim())6 then begin showmessage(39。 。 exit。該記錄不能為空39。39
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1