【正文】 程序：close allclear all close all SET DOHISTORY OFFSET ESCAPE ONSET OPTIMIZE ONSET REFRESH TO 0,0SET STATUS BAR OFFSET STATUS OFFSET TALK OFFSET VIEW OFF //設置系統(tǒng)運行環(huán)境use EXCLUSIVEpackuse use EXCLUSIVEpackuseuse EXCLUSIVEpackuseset sysmenu toset safe offset date to ymdset DEFA TO d:\bysjhg set path to d:\bysjhg do form do form read events //建立事件循環(huán)go topcs=cs+1mmm=nnn=if len(alltrim(mmm))=0 messagebox(請輸入用戶名，重新進入系統(tǒng)！,0,用戶名不能為空) else if len(alltrim(nnn))=0 messagebox(密碼不能為空，請重新進入系統(tǒng)！,0,密碼錯誤) else locate for =alltrim(mmm) if alltrim()=alltrim(nnn) release cs do form read events else if cs3 messagebox(密碼錯誤，請重新輸入！,0,密碼錯誤) =39。39。 =39。39。 else messagebox(密碼三次錯誤，請重新進入系統(tǒng)！,0,密碼錯誤) release cs clear events endif endif endif endif use coun all to ncoun all for 性別=39。男39。 to m1coun all for 性別=39。女39。 to n1=m1=n1=nif nm1+n1messagebox(請核對今年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifusen3=0m2=0n2=0use coun all for year(出生日期)year(date())to n3coun all for year(出生日期)year(date()).=39。男39。 to m2coun all for year(出生日期)year(date()).=39。女39。 to n2=m2=n2=n3if n3m2+n2messagebox(請核對上年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifuse=m1m2=n1n2=nn3if nn3(m1m2)+(n1n2)messagebox(請核對增加人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifusez1=0x1=0z=0use coun all to zcoun all for 性別=39。男39。 to z1coun all for 性別=39。女39。 to x1=z1=x1=zif zz1+x1messagebox(請核對今年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifusez3=0z2=0x2=0use coun all for year(出生日期)year(date())to z3coun all for year(出生日期)year(date()).=39。男39。 to z2coun all for year(出生日期)year(date()).=39。女39。 to x2=z2=x2=z3if z3z2+x2messagebox(請核對上年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifuse=z1z2=x1x2=zz3if zz3(z1z2)+(x1x2)messagebox(請核對增加人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifusea=0a1=0s1=0use coun all to acoun all for 性別=39。男39。 to a1coun all for 性別=39。女39。 to s1=a1=s1=aif aa1+s1messagebox(請核對今年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifuses=0a2=0s2=0use coun all for year(出生日期)year(date())to scoun all for year(出生日期)year(date()).=39。男39。 to a2coun all for year(出生日期)year(date()).=39。女39。 to s2=a2=s2=sif sa2+s2messagebox(請核對上年人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifuse=a1a2=s1s2=asif as(a1a2)+(s1s2)messagebox(請核對增加人口數(shù)！,0,男人口數(shù)與女人口數(shù)有誤)elsemessagebox(核對通過！,0,正確)endifuse4 、戶口輸入表單“保存”按鈕“click”事件：if =添加 thentj=.t.n=reo()append blankbegin transaction=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f.=.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f.=保存=還原=.f.=.f.=.f.=.f.=.f.()elseif tj=.f.gather memo from xsszelsedele*packgo nendifend transaction=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t.=修改=添加=.t.=.t.=.t.=.t.endif附錄C: 軟件（光盤）軟件（光盤）說明所附光盤中的目錄結(jié)構(gòu)如下所示。（注：光盤存放的軟件和各種文檔的目結(jié)構(gòu)圖。） 某某目錄中文件列表目錄名文件名主要功能IMAGEACPOWER. BMP系統(tǒng)使用圖標、圖像。APILIBRA .BMPIMGA背景圖像、數(shù)據(jù)庫插圖。肖像1. BMP肖像2 . BMP肖像4 . BMPBACK1 .JPGBACKIMG1. JPGBACKIMG3. JPG1戶籍數(shù)據(jù)表2主數(shù)據(jù)庫3查詢個性戶口信息4戶口輸入表單5項目6遷出數(shù)據(jù)表7注銷查詢修改8戶口遷出窗口9LOG窗口10打印設置11用戶登錄驗證數(shù)據(jù)表12分年齡人口統(tǒng)計匯總13幫助14遷出記錄查詢修改15戶口注銷窗口16用戶登錄驗證17主程序18頂層表單19數(shù)據(jù)表20年報報表21數(shù)據(jù)導出窗口22 打印窗口23臨時數(shù)據(jù)表24 快速查找25 瀏覽所有數(shù)據(jù)表記錄2