【正文】 將項(xiàng)目管理器中包含的文件作檢查，如果在連編后刪掉某些文件，就需要使用這個(gè)按鈕重新編譯。編譯結(jié)束后，如沒有錯(cuò)誤，就可以生成可執(zhí)行文件了。如有錯(cuò)誤系統(tǒng)會(huì)自動(dòng)彈出提示。讀者應(yīng)根據(jù)提示修改錯(cuò)誤。，即可執(zhí)行文件，請(qǐng)選擇“連編可執(zhí)行文件”命令系統(tǒng)會(huì)彈出對(duì)話框選擇保存路徑，請(qǐng)選擇系統(tǒng)的文件目錄。如本例中選擇“D:\salary”。這樣系統(tǒng)的連編就完成了。再將“”和“”兩個(gè)文件拷貝到連編后的文件目錄中就可以單擊生成的可執(zhí)行程序來運(yùn)行系統(tǒng)了。2系統(tǒng)的發(fā)行系統(tǒng)的發(fā)行可使“向?qū)А敝械摹鞍惭b向?qū)А眮硗瓿?。它的主要步驟是：（1） 了解應(yīng)用程序的基本結(jié)構(gòu)。（2） 制作發(fā)布樹。將系統(tǒng)文件的目錄設(shè)為發(fā)布樹目錄。（3） 指定應(yīng)用程序需要的組件。（4） 指定磁盤映象，即何種安裝磁盤。（5） 設(shè)置安裝設(shè)置，如“安裝對(duì)話框”、“版權(quán)信息”等。設(shè)定系統(tǒng)的版權(quán)。（6） 指定默認(rèn)安裝路徑。指定在安裝時(shí)提供用戶的默認(rèn)路徑。（7） 改變文件的位置。（8） 完成安裝過程。圖13圖13圖140圖141為本章示例中的主要表單的運(yùn)行結(jié)果。 圖138 系統(tǒng)主界面的運(yùn)行結(jié)果圖139個(gè)人查詢密碼驗(yàn)證界面運(yùn)行結(jié)果 圖140個(gè)人查詢顯示運(yùn)行結(jié)果圖141報(bào)表打印預(yù)覽運(yùn)行結(jié)果 結(jié)論設(shè)計(jì)的指導(dǎo)思想是一切為用戶著想，界面美觀大方、操作簡單明了，而且作為一個(gè)實(shí)用的操作系統(tǒng)具有良好的容錯(cuò)性，在用戶出現(xiàn)誤操作時(shí)能及時(shí)給出警告，以便用戶及時(shí)更正。系統(tǒng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術(shù)維護(hù)人員進(jìn)行補(bǔ)充、維護(hù)。系統(tǒng)具備數(shù)據(jù)庫維護(hù)功能，及時(shí)根據(jù)用戶需求進(jìn)行數(shù)據(jù)的添加、刪除、修改、備份等操作。通過做課程設(shè)計(jì)，我掌握了信息管理系統(tǒng)的開發(fā)方法和步驟。附錄：源代碼清單Do from salary\form\personneldo form salary\form\dataformatdo form salary\form\resultdo form salary\form\grcxclear eventsif i=0 =.F.i=1else =.T. i=0endifPublic ii=0Skip 1Messagebox（＂已是第一個(gè)記錄＂，＂48＂，＂信息窗口＂）=.f.=.f.skipelse =.t.=.t.endif =.t.=.t.goto top=.f.=.t.=.t.SkipIf eof()Messagebox（＂已是最后一條記錄＂,＂48＂,＂信息窗口＂）skip 1=.f.=.f.else=.t. =.t.endif=.t.=.t.goto bottom=.f.=.t.=.t.=.F.=.F.=.F.=.T.if =39。增加新記錄39。=.T. =.T.=.T.=.T.=.T.=.T.append blank=39。增加確認(rèn)39。getid=alltrim()getname=alltrim()getsex=alltrim()getjob=alltrim()getindate=alltrim()getrank=alltrim()if empty(getid) or empty(getname) or empty(getsex) or empty(getjob) or empty(getindate) or empty(getrank)messagebox(資料不足,48,錯(cuò)誤)else=39。增加新記錄39。tableupdate(.t.)tableupdate(.t.)=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.T.=.F.endifendif=.F.=.F.=.T.=.F.if =39。修改這條記錄39。=.T.=.T.=.T.=.T.=.T.=.T.=39。修改確認(rèn)39。 else =39。修改這條記錄39。tableupdate(.t.)=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.T.=.F.=.T.getid=alltrim()=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。use personnel exclusiveset order to pidseek getiddeletepack=39。39。=39。39。=39。39。=39。39。=39。39。=39。39。=.F.=.F.=.F.=.F.=.F.=.F.if =39。增加確認(rèn)39。=39。增加新記錄39。=.T.=.T.=.T.tablerevert(.f.)endifif =39。修改確認(rèn)39。=39。修改這條記錄39。=.T.=.T.tablerevert(.f.)endif=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.flag=do case case flag=0=.F.=39。39。case flag=1 =.T.endcaseflag=do casecase flag=0=.F.=39。39。case flag=1=.T.endcasegetpid=alltrim()getpname=alltrim()flag1=flag2=*判斷復(fù)選框選中情況if flag1=0 and flag2=0 messagebox(請(qǐng)輸入查詢條件,48,錯(cuò)誤)Endifif flag1=1 and flag2=0set order to pidseek getpid if found() messagebox(查到記錄,48,注意) select * from personnel where pid=getpid into cursor ling=.T. elsemessagebox(沒有這條記錄,48,注意) endifendifif flag1=0 and flag2=1set order to pnameseek getpname if found() messagebox(查到記錄,48,注意) select * from personnel where pname=getpname into cursor ling =.T. else messagebox(沒有這條記錄,48,注意) endifendifif flag1=1 and flag2=1set order to pidseek getpid if =getpname messagebox(查到記錄,48,注意) select * from personnel where pid=getpid and pname=getpname into cursor ling =.T. else messagebox(沒有這條記錄,48,注意) endifendif=39。39。=39。39。Public getid LPARAMETERS nButton, nShift, nXCoord, nYCoordgetid=alltrim()=.T.=.T.=.F.=.F.append blankgo bottom=.T.=.T.=39。39。use rank exclusivedelete from rank where rname=getidpack=39。rank39。 do form salary\form\dataformatclear screen clear eventsopen database database\salarydo form form\ksjmdo setting read eventsdo resetset sysmenu offset sysmenu toset status bar offset talk offset clock statusset palette offset bell on set safety offset escape onset confirm onset exact onset confirm onset exact onset near onset ansi offset lock onset exclusive offset multilocks onset delete on* set optimize onset collate to ‘stroke’set default to sys(5)+curdirset path to sys(5)+curdirset sysformats offset seconds onset century offset currency leftset currency to ‘nt$’set hours to 12set date to usaset decimals to 2set fdow to 1set fweek to 1set mark to ‘.’set separator to ‘,’set point to ‘.’set sysmenu onsysmsnu onset talk onset notify onset exclusive onset safety onmodify window screen指導(dǎo)教師評(píng)語及成績指導(dǎo)教師評(píng)語成績簽字： 年 月 日48 / 48