【正文】 a,:ab,:ac,:ad,:ae,:af)39。 這里需要注意的是在“ insert 人事表 values”后面的括號(hào)中的項(xiàng)目數(shù)要與數(shù)據(jù)表中的字段數(shù)目相同，因?yàn)檫@是向數(shù)據(jù)表中依次插入數(shù)據(jù)，如果不相同就會(huì)出錯(cuò)。 這部分判斷輸入是否為空的實(shí)現(xiàn)如下： procedure (Sender: TObject)。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 end。 with do begin close。 (39。)。 end。 民族39。 。 此模塊中的，婚姻狀況、文化程度等所有下拉列表框的實(shí)現(xiàn)都是這樣，這里不再重復(fù)。人為的編號(hào)也難免會(huì)出錯(cuò)，所以在這里我們?cè)O(shè)置單擊“添加”按鈕自動(dòng)生成員工編號(hào)。 。select max(bh) as ss From 人事表 39。 Open。 當(dāng)然，如果是第一次添加新員工，返回值為空時(shí)，編號(hào)就由 001開始編排。ss39。00139。ss39。 n:= StrToInt(copy(m,4,2)) 。0039。039。 這樣就有效的避免了人為操作的輸入失誤。工資設(shè)置模塊運(yùn)行結(jié)果如圖 9 所示。 工資設(shè)置模塊連接數(shù)據(jù)庫也和其他模塊一樣用的是數(shù)據(jù)模塊中的 ADOquery組件。查詢代碼如下： begin close。 (39。)。a39。 open。 然后再將查詢到的行中的“姓名”字段中的值賦給模塊中的姓名后的bobox 組件的 text 屬性，由下面一條代碼完成。xm39。 本系統(tǒng)能夠通過輸入工資來對(duì)所要交納的個(gè)人所得稅的級(jí)別來進(jìn)行判斷，這需要在基本工資后的 OnChange 事件中添加代碼。應(yīng)納所得稅金額下限 39。應(yīng)納所得稅金額上限 39。級(jí)別號(hào) 39。 。 這段代碼中運(yùn)用了 ADOquery 組件的 Eof 屬性返回?cái)?shù)據(jù)集的最后一條記錄、ADOquery 組件的 Next 屬性返回?cái)?shù)據(jù)集中當(dāng)前記錄的下一條記錄，這兩個(gè)屬性主要是實(shí)現(xiàn)對(duì)數(shù)據(jù)表的逐一查詢。 人事管理系統(tǒng) 主窗體運(yùn)行結(jié)果如圖 10所示。 為了防止數(shù)據(jù)庫被破壞，或者用戶的修改不合理需要還原，所以這里設(shè)置了數(shù)據(jù)庫備份和數(shù)據(jù)庫恢復(fù)，主要原理是將數(shù)據(jù)庫文件拷貝另外的磁盤，這里運(yùn)用了 sql的 BACKUP DATABASE語句和 restore database語句，數(shù)據(jù)庫備份由以下的代碼完成： begin close。 (39。+39。+ 39。39。 +save+39。39。)。 (39。,39。,0+64)。數(shù)據(jù)庫備份失敗，請(qǐng)檢查備份的路徑或網(wǎng)絡(luò)狀態(tài)！ 39。數(shù)據(jù)庫備份 39。 end。 。use master restore database db_manpowerinfo from disk=39。39。39。39。39。 ExecSQL。 。use db_manpowerinfo 39。 ExecSQL 。 員工信息瀏覽 模塊設(shè)計(jì) 可以通過瀏覽模塊查看員工的詳細(xì)信息，還可以修改和刪除信息，并通過條件查詢來查看某人的信息。 圖 11 員工信息瀏覽模塊 此模塊主要運(yùn)用了以下組件： “ TPanel”組件 、 “ TLabel”組件 、 “ TCombobox”組件 、 “ TEdit”組件 、 “ TBitbtn”組件 、 “ Treeview”組件 、 “ Datasource”組件 、 “ TDBGrid”組件 ，其中 “ Datasource”組件 和 “ TDBGrid”組件 是顯示數(shù) 據(jù)庫中內(nèi)容的組件，在運(yùn)行時(shí)頁面上看不到的。在窗體的 OnShow事件中添加如下代碼： procedure (Sender: TObject)。 subt:TTreenode。 。select * from 人事表 39。 open。 :=true。 。select distinct 單位名稱 from 單位信息表 39。 open。 a:=(39。).Value。 with do begin close。 (39。)。 end。部門名稱 39。 。 end。 end。 以上六個(gè)模塊是了整個(gè)系統(tǒng)的主要模塊，包含了員工信息添加，修改，刪除，以及工資管理模塊和系統(tǒng)最重要的連接數(shù)據(jù)庫模塊，其他模塊的代碼與組件設(shè)置和以上代碼都有相同之處，在這里就不全部列出。 ： IBM 兼容 PC。 圖 12 登錄 界面測(cè)試 如果輸入的用戶名和密碼匹配，點(diǎn)登錄后則顯示主頁面，如下圖： 圖 13 主界面 系統(tǒng)最上面列出來了本系統(tǒng)的四個(gè)大的模塊，在第二行將整個(gè)系統(tǒng)的主要功能全部列出，方便用戶查找。 所得稅 模塊測(cè)試 在菜單中，選擇“信息設(shè)置” “所得稅設(shè)置”，進(jìn)入所得稅設(shè)置界面，如圖 14 所示： 圖 14 所得稅設(shè)置測(cè)試 這里可以設(shè)置工資在那個(gè)段屬于什么級(jí)別，應(yīng)該交納的所得稅率，當(dāng)設(shè)置完成之后就能操作保存和取消按扭了，沒有完成設(shè)置是不 能對(duì)他們進(jìn)行操作的。 以上就是系統(tǒng)的部分功能，經(jīng)測(cè)試無大的問題 。然后收集數(shù)據(jù) ,分析數(shù)據(jù) ,創(chuàng)建數(shù)據(jù)表。通過這次畢業(yè)設(shè)計(jì) ,讓我對(duì)系 統(tǒng)的開發(fā)有了初步的了解。 參考文獻(xiàn) [1] 李林 . 實(shí)例解析 [M].北京 :高等教育出版社 ,1997。 [3] 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 [M].陜西 :高等教育出版社 ,1997。 [5] 岳慶生 . 版主答疑 Delphi 高級(jí)編程技巧 [M].北京 :清華大學(xué)出版社 ,2020。 [7] 飛思科研產(chǎn)品研發(fā)中心 .Delphi 網(wǎng)絡(luò)應(yīng)用開發(fā) [M].北京： 電子工業(yè)出版社 ,2020。 致 謝 本文是在 葉立軒 老師和曾令明老師 的熱情關(guān)心和指導(dǎo)下完成的。 作者簡(jiǎn)介 姓 名：何林 性別：男 出生年月： 1984 年 4月 7日 民族：漢 Email: 聲 明 本論文的工作是 2020年 2月至 2020年 6月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成 的。除非另有說明，本文的工作是原始性工作。 （ 2）學(xué)校可以采用影印、縮印或其他復(fù)制方式保存學(xué)位論文。 （ 4）學(xué)校可允許學(xué)位論文被查閱或借閱。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院。t wait. And the air currents were fabulous. I had a little red sail plane I used to go sky surfing in, every couple of days. It was the good life. I played drums till all hours in a basement spot up the river where the walls sweated almost as much as the customers and the smoke used to wash around the lights like streams of milk. When I was done playing I39。s about the only thing I wouldn39。m good and I39。t admit e ven to himself that there were some things other people could do better. If you kept beating him at anything you had to be cheating. He started a nasty argument over it one nightcould have gotten seriousbut Gerard and Caine broke it up. G ive Caine that. He took my part that time. Poor guy . . . Hell of a way to go, you know? His throat . . . Well, anyhow, there I was in Texorami, ma king music and women, winning at cards and jockeying around the sky. Palm trees and nightblooming wallflowers. Lots of good port smellsspices, coffee, tar, saltyou know. Gentlefolk, merchants, and peons the same straights as in most other places. Sailors and assorted travelers passing in and out. Guys like me living around the edges of things. I spent a little over two years in Texorami, happy. Really. Not much contact with the others. Sort of postcard like hellos via the Trumps every now and then, and that was about it. Amber was pretty much off my mind. All this changed one night when I was sitting there with a full house and the guy across from me was trying to make up his mind whether or not I was bluffing. The Jack of Diamonds began talking to me. Yes, that is how it started. I was in a weird frame of mind anyway. I had just finished a couple very hot sets and was still kind of high. A lso, I was physically strung out from a long day39。t know. The Jac k said, Random. Then its face blurred and it said, Help me. I began getting a feel of the personality by then, but it was weak. The whole thing was very weak. T hen the face re arranged itself and I saw that I was right. It was Brand. He looked like hell, and he seemed to be chained or tied to something. Help me, he said again. I39。s the matter? . . . prisoner, he said, and something else that I couldn39。t bring you through, he said. No Trumps, and I am too weak. You will have to e the long way around.... I did not ask him how he was managing it without my Trump. Finding out where he was seemed of first importance. I asked him how I could locate him. Look very closely, he said. Remember every feature. I may only be able to show you once. Come armed, too. . . . Then I saw the landscapeover his shoulder, out a window, over a battlement, I can39。t answering, he wasn39。d say, that made me decide to go it alone and try to rescue him. I dusted off my own Trumps and tried reaching him again. A s you might expect, there was no response. I got a good nigh