【正文】 end。 begin i:=(key8)or(key8)and(key48)or(key57)。 var Key: Char)。 end。 end。39。,64)。,39。 (39。 execsql。e39。).Value:=trim()。 (39。c39。).Value:=。 (39。a39。)。 (39。 with do begin close。 end。).Assign(picture1)。 fieldbyname(39。bmbh39。).AsString:=sex。 50 fieldbyname(39。ygxm39。).AsString:=。 fieldbyname(39。 open。select * from ygjbxxb39。 。 (extractfilename())。 end。).Value:=trim()。 (39。delete ygjbxxb where ygbh=:a39。 。39。 //照片修改時(shí)，先刪除再插入。39。,64)。,39。 (39。 execsql。h39。).Value:=trim()。 (39。f39。,)。).Value:=formatdatetime(39。 (39。d39。).Value:=sex。 (39。b39。).Value:=trim()。 (39。update ygjbxxb set ygxm=:b,xb=:c,bmbh=:d,csrq=:e,tel=:f,zz=:g,bz=:h where ygbh=:a39。 。39。 //照片為修改時(shí)直接用 update進(jìn)行修改。女 39。 end。 if then begin sex:=39。 end。bmbh39。 //讀取部門(mén)編號(hào)。 open。a39。)。 (39。 end else begin with do begin close。提示 39。所在部門(mén)不允許為空！ 39。39。,64)。,39。 then begin (39。 begin if trim()=39。 var picture1:tpicture。 end。 end。 end。 48 end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。提示 39。添加成功！ 39。 end。).Value:=trim()。 (39。g39。).Value:=trim()。 (39。e39。).Value:=bmbh。 (39。c39。).Value:=trim()。 (39。a39。)。 (39。 begin with do begin close。 end。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。 :=39。提示 39。添加成功！ 39。 end。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。yyyymmdd39。b39。).Value:=trim()。 (39。update ygjbxxb set csrq=:b,tel=:c,zz=:d,bz=:e where ygbh=:a39。 。 //以下就是用 update的方法插入其他項(xiàng)。//提交。).Assign(picture1)。 fieldbyname(39。bmbh39。).AsString:=sex。 fieldbyname(39。ygxm39。).AsString:=。 fieldbyname(39。 open。select * from ygjbxxb39。 。 with do//通過(guò)查詢的方法打開(kāi)數(shù)據(jù)集，便于插入操作。 (extractfilename())。 //若照片未選擇，保存方法為 insert。照片保存方法不同。39。 end。 if then begin sex:=39。男 39。 if then //讀取性別信息。).AsString。 if 0 then begin bmbh:=(39。 open。a39。)。 (39。 end else begin with do begin close。提示 39。請(qǐng)選擇所在部門(mén)！ 39。若已選擇提取出部門(mén)編號(hào)。39。,64)。,39。 begin (39。39。,64)。,39。 if 0 then begin (39。 open。a39。)。 (39。 end else begin with do begin close。提示 39。請(qǐng)輸入員工編號(hào)！ 39。未輸入則進(jìn)行提示，若已經(jīng)輸入則驗(yàn)證是否重復(fù)。39。 bmbh,sex:string。 3．員工信息添加界面的保存按鈕代碼 procedure (Sender: TObject)。 :=[3].AsString。 begin 45 :=[0].AsString。 end。 。提示 39。對(duì)不起，您無(wú)權(quán)使用本系統(tǒng)！ 39。 inc(i)。 。,0+64)。,39。 end else begin if i3 then begin (39。 。 。).AsString。 :=(39。).AsString。 if 0 then begin czymc:=(39。 open。b39。).Value:=trim()。 (39。select * from Yhzhb where(yhm=:a)and(mm=:b)39。 。 在整個(gè) 畢業(yè)設(shè)計(jì) 期間，得到了劉老師以及同學(xué)的大力支持和幫助，在此表示衷心的感謝！ 43 參考文獻(xiàn) [1] 啟明工作室 .Delphi+SQL Server 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)與實(shí)例 [M].北京： 人民郵電出版社 ，2020 [2] 明日科技、宋 坤、鄒天思 .Delphi數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)完全手冊(cè) [M].北京： 人民郵電出版社 ， 2020； [3] 求是科技 .Delphi信息管理系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 [M].北京： 人民郵電出版社 ， 2020 [4] 求是科技、周新會(huì)、周金根 .Delphi 數(shù)據(jù)庫(kù)通用模塊及典型系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 [M].北京： 人民郵電出版社 ， 2020 [5] 王珊、薩師煊 .數(shù)據(jù)庫(kù)系統(tǒng)概論（第四版） [M].北京： 高等教育出版社 ， 2020 [6] 鄭阿奇 .SQL Server實(shí)用教程（第二版） [M].北京： 電子工業(yè)出版社 ， 2020 [7] 沈才梁 . Delphi （修訂本） [M].北京：清華大學(xué)出版社， 2020 44 附錄 1． 登陸界面確定按鈕的代碼 with do//以用戶名和密碼為條件從用戶帳號(hào)表中查詢數(shù)據(jù)， //有返回值則輸入正確，否則輸入錯(cuò)誤。 這次設(shè)計(jì)過(guò)程，無(wú)論是從技術(shù)上還是對(duì)環(huán)境的適應(yīng)能力上講，對(duì)我今后步入社會(huì)都打下了一個(gè)良好的基礎(chǔ)。在設(shè)計(jì)中，我始終堅(jiān)持理論指導(dǎo)實(shí)踐原則，并通過(guò)實(shí)踐來(lái)加強(qiáng)理論的學(xué)習(xí)，通過(guò)實(shí)習(xí)鍛煉，我熟悉了軟件的一般過(guò)程，加強(qiáng)了對(duì)實(shí)際問(wèn)題的處理能力。 軟件設(shè)計(jì)是一個(gè)精細(xì)漫長(zhǎng)的過(guò)程。希望在以后能夠?qū)Χ鄠€(gè)服裝廠做更深一步的 調(diào)研，在原由系統(tǒng)的基礎(chǔ)上不斷添加新功能。 本系統(tǒng)在現(xiàn)有基礎(chǔ)上，對(duì)于后端數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)有待在又節(jié)約數(shù)據(jù)庫(kù)資源和又便于客戶端查詢更方便的基礎(chǔ)上進(jìn)一步完善和協(xié)調(diào)。 但由于系統(tǒng)完成的比較倉(cāng)促，系統(tǒng)中也存在著一些不足和缺憾，比如界面的設(shè)計(jì)，并沒(méi)有達(dá)到統(tǒng)一且美觀的效果，窗口較多；系統(tǒng)的功能也較少，并不能滿足一個(gè)服裝廠的全部使用要求。系統(tǒng)的查詢功能完備，可以滿足用戶的各種查詢要求。在系統(tǒng)中對(duì)信息進(jìn)行添加、刪除、修改操作時(shí)，都可以通過(guò) 41 頁(yè)面切換完成，不需要每次都點(diǎn)擊主頁(yè)面，這樣就提高了工作效率?，F(xiàn)測(cè)試如下： 圖 616 用戶密碼修改測(cè)試結(jié)果 40 圖 617 用戶信息及權(quán)限 圖 618 系統(tǒng)備份窗口 系統(tǒng)的 優(yōu) 缺點(diǎn)分析及改進(jìn)方案 在有限的時(shí)間里