【導(dǎo)讀】庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。經(jīng)過調(diào)試、編譯與實(shí)現(xiàn)，該程序界面友好、程序。設(shè)計(jì)風(fēng)格樸素，使用起來美觀大方、方便易用?？焖佟?zhǔn)確等優(yōu)點(diǎn)取代人工操作，提高了光盤管理工作效率。工作學(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識(shí)和經(jīng)過特殊的培訓(xùn)才能勝任。夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。有效的試驗(yàn)儀器管理工作。實(shí)驗(yàn)室儀器管理系統(tǒng)是典型的信息管理系。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)。據(jù)安全性好的庫(kù)。都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。它易學(xué)易用，如同VB，因而被稱為“第四代編程語(yǔ)。從1995年推出至今已經(jīng)經(jīng)歷了7個(gè)版本，運(yùn)行在win9x或winme，win2020，winxp，這里把“VB”比作是傻瓜相機(jī)，Delphi是帶有自動(dòng)功能。用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB

　　

【正文】 wTileVertical1: TWindowTileVertical。 WindowTileItem2: TMenuItem。 ToolBar2: TToolBar。 ToolButton4: TToolButton。 ToolButton5: TToolButton。 ToolButton6: TToolButton。 ToolButton7: TToolButton。 ToolButton8: TToolButton。 ToolButton10: TToolButton。 ToolButton11: TToolButton。 ImageList1: TImageList。 ToolButton1: TToolButton。 ToolButton2: TToolButton。 ToolButton3: TToolButton。 ToolButton9: TToolButton。 EditUndo1: TEditUndo。 N2: TMenuItem。 N3: TMenuItem。 ToolButton12: TToolButton。 YQ_Code: TAction。 ToolButton13: TToolButton。 N4: TMenuItem。 ToolButton14: TToolButton。 ToolButton15: TToolButton。 ToolButton16: TToolButton。 ToolButton17: TToolButton。 HelpAbout: TAction。 N5: TMenuItem。 Tools_Sort: TAction。 Tools: TMenuItem。 N7: TMenuItem。 Tools_Chart: TAction。 N8: TMenuItem。 N9: TMenuItem。 N10: TMenuItem。 N11: TMenuItem。 V1: TMenuItem。 N12: TMenuItem。 N13: TMenuItem。 Tools_Chart1: TAction。 Tools_Chart2: TAction。 N14: TMenuItem。 N15: TMenuItem。 N16: TMenuItem。 procedure YQ_LabExecute(Sender: TObject)。 procedure YQ_BorrowExecute(Sender: TObject)。 procedure HelpAbout1Execute(Sender: TObject)。 procedure FileExit1Execute(Sender: TObject)。 procedure AddressListExecute(Sender: TObject)。 procedure YQ_CodeExecute(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure HelpAboutExecute(Sender: TObject)。 procedure Tools_SortExecute(Sender: TObject)。 procedure Tools_ChartExecute(Sender: TObject)。 procedure N0Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure Tools_Chart1Execute(Sender: TObject)。 procedure Tools_Chart2Execute(Sender: TObject)。 procedure FormShow(Sender: TObject)。 private { Private declarations } public function GetExePath: String。 { Public declarations } end。 var MainForm: TMainForm。 implementation {$R *.DFM} uses Child_lab, Chind_Address, Child_Code, Child_Borrow, About, Child_Sort, Child_Chart, Child_Chart1, Child_Chart2。 procedure OpenForm(FormClass: TFormClass。 var fm。 AOwner:TComponent)。 var i: integer。 Child:TForm。 begin for i := 0 to 1 do if [i].ClassType=FormClass then begin Child:=[i]。 if =wsMinimized then ShowWindow(,SW_SHOWNORMAL) else ShowWindow(,SW_SHOWNA)。 if (not ) then :=True。 。 。 TForm(fm):=Child。 exit。 end。 Child:=TForm()。 TForm(fm):=Child。 (AOwner)。 end。 function :String。 begin Result:=ExtractFilePath(ParamStr(0))。 if Result[Length(Result)]39。\39。 then Result:=Result+39。\39。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_YQ_Lab,frm_YQ_Lab, self)。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Borrow,frm_Borrow, self)。 end。 procedure (Sender: TObject)。 begin // 。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Address,frm_Address, self)。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Code,frm_Code, self)。 end。 procedure (Sender: TObject)。 begin // :=clWhite。 :=100。 // :=GetExePath+39。39。 end。 procedure (Sender: TObject)。 begin (Tfrm_About, frm_About)。 。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Sort,frm_Sort, self)。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Chart,frm_Chart, self)。 end。 procedure (Sender: TObject)。 begin //打開記事本 if sender=N11 then begin Winexec(39。39。,sw_Normal)。 end。 //打開計(jì)算器 if sender=N10 then begin Winexec(39。39。,sw_Normal)。 end。 end。 procedure (Sender: TObject)。 begin :=not 。 if then :=True else :=False。 end。 procedure (Sender: TObject)。 begin :=not 。 if then :=True else :=False。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Chart1,frm_Chart1, self)。 end。 procedure (Sender: TObject)。 begin OpenForm(Tfrm_Chart2,frm_Chart2, self)。 end。 procedure (Sender: TObject)。 begin YQ_LabExecute(Sender)。 end。 end. 總 結(jié) 實(shí)驗(yàn)室儀器 管理系統(tǒng)是一個(gè)典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計(jì)、選用工具、程序模塊、系統(tǒng)測(cè)試等幾個(gè)步驟 來實(shí)現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先 要 對(duì) 實(shí)驗(yàn)室儀器 管理進(jìn)行系統(tǒng)調(diào)研， 熟悉 其中的新光盤登記 、光盤出借 的 流程 、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到 儀器 管理中存在的各種問題，并在總體設(shè)計(jì)把握好對(duì)問題的分析、理解，進(jìn)而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用 DELPHI ，其具有語(yǔ)言簡(jiǎn)單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。程序模塊的編制中，重點(diǎn)把握系統(tǒng)內(nèi)部完整性、功能性、實(shí)用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運(yùn)行無誤。 致 謝 我首先感謝我的指導(dǎo)老師呂老師，在他 嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會(huì)有好的創(chuàng)意，才能更有作為。 在這里我還要感謝我們宿舍的其它 5 個(gè)同學(xué)。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 參 考 文 獻(xiàn) 1 張春林 .Delphi 6 程序設(shè)計(jì)導(dǎo)學(xué) .北京：清華大學(xué)出版社， 2 飛思科技 . Delphi6 開發(fā)者手冊(cè) . 北京：電子工業(yè)出版社 , 3 飛思科技 . Delphi6 數(shù)據(jù)庫(kù)開發(fā) . 北京：電子工業(yè)出版社 , 4 丁寶康 .數(shù)據(jù)庫(kù)原理 . 北京 ：經(jīng)濟(jì)科學(xué)出版社， 5 何旭洪 .Delphi 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .北京：人民郵電出版社 , 6周璋鵬 . 基于 B/S結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)垢研究與開發(fā) .西北電力技術(shù) .2020， 31(4):15~17,26 7 李全彬 , 顧明亮 . 基于 ASP 技術(shù)的 學(xué)生信息管理系統(tǒng)的研究與 開發(fā) . 徐 州 師 范 大 學(xué) 學(xué) 報(bào) ( 自 然 科 學(xué)版 ).2020,19(2):25~28 8 谷軍 .用 Authorware 開發(fā)學(xué)生信息管理系統(tǒng) .計(jì)算機(jī)與與現(xiàn)代化 .2020(7):40~41,44 9 李丹榮 ,杜維 .基于 Delphi6． 0 的實(shí)時(shí)數(shù)據(jù)采集與分析系統(tǒng) 機(jī)電工程 .2020,20(5): 64~67 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強(qiáng)巴。 卓姆 強(qiáng)巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。強(qiáng)巴生長(zhǎng)在一個(gè)叫達(dá)瓦奴措的小村，那是深入藏原腹地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。他沒有讓他的父母失望，如今已是擁有千萬資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 美國(guó)，賓夕法尼亞州。 “幾千年來，全世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝國(guó)，又由東歐的斯拉夫族人傳到 歐洲各國(guó)，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。 或許聽錯(cuò)了。你說，你不去德國(guó)了 ?” 方新教授肯定地點(diǎn)頭，瑪瑞重復(fù)道：“教授，方教授 !你真的不去參加那個(gè)論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 方新長(zhǎng)長(zhǎng)吐了口氣，和藹地對(duì)瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號(hào)