【正文】 理器中包含的文件作檢查，如果在連編后刪掉某些文件，就需要使用這個按鈕重新編譯。編譯結束后，如沒有錯誤，就可以生成可執(zhí)行文件了。如有錯誤系統(tǒng)會自動彈出提示。讀者應根據(jù)提示修改錯誤。，即可執(zhí)行文件，請選擇“連編可執(zhí)行文件”命令系統(tǒng)會彈出對話框選擇保存路徑，請選擇系統(tǒng)的文件目錄。如本例中選擇“D:\salary”。這樣系統(tǒng)的連編就完成了。再將“”和“”兩個文件拷貝到連編后的文件目錄中就可以單擊生成的可執(zhí)行程序來運行系統(tǒng)了。2系統(tǒng)的發(fā)行系統(tǒng)的發(fā)行可使“向導”中的“安裝向導”來完成。它的主要步驟是：（1） 了解應用程序的基本結構。（2） 制作發(fā)布樹。將系統(tǒng)文件的目錄設為發(fā)布樹目錄。（3） 指定應用程序需要的組件。（4） 指定磁盤映象，即何種安裝磁盤。（5） 設置安裝設置，如“安裝對話框”、“版權信息”等。設定系統(tǒng)的版權。（6） 指定默認安裝路徑。指定在安裝時提供用戶的默認路徑。（7） 改變文件的位置。（8） 完成安裝過程。圖13圖13圖140圖141為本章示例中的主要表單的運行結果。 圖138 系統(tǒng)主界面的運行結果圖139個人查詢密碼驗證界面運行結果 圖140個人查詢顯示運行結果圖141報表打印預覽運行結果 結論設計的指導思想是一切為用戶著想，界面美觀大方、操作簡單明了，而且作為一個實用的操作系統(tǒng)具有良好的容錯性，在用戶出現(xiàn)誤操作時能及時給出警告，以便用戶及時更正。系統(tǒng)采用模塊化程序設計方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術維護人員進行補充、維護。系統(tǒng)具備數(shù)據(jù)庫維護功能，及時根據(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（＂已是第一個記錄＂，＂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。增加確認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,錯誤)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。修改確認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。增加確認39。=39。增加新記錄39。=.T.=.T.=.T.tablerevert(.f.)endifif =39。修改確認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=*判斷復選框選中情況if flag1=0 and flag2=0 messagebox(請輸入查詢條件,48,錯誤)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指導教師評語及成績指導教師評語成績簽字： 年 月 日48 / 48