基于vfp60平臺(tái)的海事局船舶檢驗(yàn)收費(fèi)管理信息系統(tǒng)船舶檢驗(yàn)收費(fèi)系統(tǒng)畢業(yè)論文(文件)
【正文】 endif endifif reo( )=reccount( ) =.f.else go bottom if =.f. =.t. endif if =.f. =.t. endif endif deletepackgo bottominsert blankgo bottominsert blankSET TALK OFF SET DELETED ON deletepackgo top=chzdo case case empty()=.t. and empty()=.t. messagebox(請(qǐng)輸入！) case empty()=.f. and empty()=.t. cbzh=trim() select * from where trim()=cbzh into array cbjbqk if type(cbjbqk)=U wcbjl=messagebox(沒(méi)有要查找的記錄或者輸入錯(cuò)誤，增加記錄或者重輸？,36,提示) if wcbjl=6 do form H:\龔海濤\forms else return endif else =cbjbqk(1) =cbjbqk(2) =cbjbqk(4) =cbjbqk(5) =cbjbqk(7) =cbjbqk(8) select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限船長(zhǎng) and 上限船長(zhǎng) into array njf =njf select 特檢費(fèi) from where =功率下限 and 功率上限 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf endif case empty()=.t. and empty()=.f. cbmc=trim() select * from where trim()=cbmc into array cbjbqk if type(cbjbqk)=U wcbjl=messagebox(沒(méi)有要查找的記錄或者輸入錯(cuò)誤，增加記錄或者重輸？,36,提示) if wcbjl=6 do form H:\龔海濤\forms else return endif else =cbjbqk(1) =cbjbqk(2) =cbjbqk(4) =cbjbqk(5) =cbjbqk(7) =cbjbqk(8) select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限船長(zhǎng) and 上限船長(zhǎng) into array njf =njf select 特檢費(fèi) from where =功率下限 and 功率上限 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf endif case empty()=.f. and empty()=.f. cbzh=trim() cbmc=trim() select * from where trim()=cbzh and trim()=cbmc into array cbjbqk if type(cbjbqk)=U wcbjl=messagebox(沒(méi)有要查找的記錄或者輸入錯(cuò)誤，增加記錄或者重輸？,36,提示) if wcbjl=6 do form H:\龔海濤\forms else return endif else =cbjbqk(1) =cbjbqk(2) =cbjbqk(4) =cbjbqk(5) =cbjbqk(7) =cbjbqk(8) select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限噸位 and 上限噸位 into array njf =njf select 特檢費(fèi) from where =下限船長(zhǎng) and 上限船長(zhǎng) into array njf =njf select 特檢費(fèi) from where =功率下限 and 功率上限 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf select 特檢費(fèi) from where =下限功率 and 上限功率 into array njf =njf endif endcase=++++++++if =0 messagebox(請(qǐng)輸入折率！)else =*endif=round(,0)insert into values (str(RECCOUNT( )+1,8),trim(),trim(),。：1． 由中國(guó)科學(xué)技術(shù)大學(xué)出版社出版，唐策善，黃劉生的《數(shù)據(jù)結(jié)構(gòu)》2． 由中國(guó)科學(xué)技術(shù)大學(xué)出版社出版，馮玉林，趙保華的《軟件工程》3． 由中國(guó)科學(xué)技術(shù)大學(xué)出版社出版，楊振生的《FOXPRO FOR WINDOWS 實(shí)用教程》4． 由海洋出版社出版，曾剛主編的A Programmer’s Guide on Visual Foxpro的數(shù)據(jù)庫(kù)編程實(shí)例手冊(cè)。還有本單位的領(lǐng)導(dǎo)和同事，是他們?cè)谧髡呔幊虨樽髡唠S時(shí)使用機(jī)器給了很大的方便，在此，作者向他們表示深深的謝意。受到用戶的廣泛好評(píng)。也感覺(jué)到MSVISIUALyFOXPRO 語(yǔ)言的確是一個(gè)功能非常強(qiáng)大的數(shù)據(jù)庫(kù)管理軟件。對(duì)于以上的這些不足和缺陷，表示歉意。從而不能讓用戶在使用本系統(tǒng)時(shí)得到更大的方便。第六章 結(jié)束語(yǔ)一．系統(tǒng)評(píng)價(jià)：本系統(tǒng)編制完成后，總體上未發(fā)生較大錯(cuò)誤，只是有時(shí)碰到連續(xù)的錯(cuò)誤輸入時(shí)會(huì)出現(xiàn)一些莫名其妙的問(wèn)題。測(cè)試方法一般來(lái)說(shuō)，對(duì)程序測(cè)試有兩種測(cè)試方法：如果已經(jīng)知道了軟件系統(tǒng)應(yīng)具有的功能，可通過(guò)測(cè)試來(lái)難每個(gè)功能是否都能正常使用；如果知道程序的內(nèi)部工作過(guò)程，可以通過(guò)測(cè)試來(lái)檢測(cè)程序內(nèi)部是否按照規(guī)格說(shuō)明書的規(guī)定正常進(jìn)行。系統(tǒng)測(cè)試與建構(gòu)同時(shí)進(jìn)行或略慢。確認(rèn)測(cè)試是按照這些要求定出的“確認(rèn)測(cè)試計(jì)劃”進(jìn)行的。單元測(cè)試一般是由程序員完成，也稱程序調(diào)試。從產(chǎn)品角度看，測(cè)試計(jì)劃中的測(cè)試項(xiàng)目包括軟件結(jié)構(gòu)中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊，從測(cè)試本身看，分為單元測(cè)試，組合測(cè)試，確認(rèn)測(cè)試等。由于程序中隱藏的缺陷只在特定的環(huán)境下才有可靠顯露，系統(tǒng)缺陷通常是由于對(duì)某些特定情況考慮不周造成的。這樣就可以增強(qiáng)系統(tǒng)的安全性。④.繳費(fèi)臺(tái)帳功能 系統(tǒng)首先設(shè)計(jì)了一船舶檢驗(yàn)繳費(fèi)臺(tái)帳表單（）,設(shè)定了已繳費(fèi)船舶的的各項(xiàng)數(shù)據(jù)及其位置，包括序號(hào)、船檢登記號(hào)、船舶名稱、檢驗(yàn)時(shí)間、檢驗(yàn)類型和檢驗(yàn)繳費(fèi)等項(xiàng)目。船舶基本情況包括船檢登記號(hào)、船舶名稱、船舶類型、總噸位、輪機(jī)類型、輪機(jī)功率、電機(jī)功率、船長(zhǎng)等等。 ②. 收費(fèi)標(biāo)準(zhǔn)功能與上面的模塊相同，首先設(shè)計(jì)了一個(gè)下拉式菜單,
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號(hào)-1