【正文】 0mm字符型20password:字段名字段類(lèi)型字段寬度小數(shù)點(diǎn)索引否yhm字符型10mm字符型20 zdm字段名字段類(lèi)型字段寬度小數(shù)點(diǎn)索引否zdm字符型10候選索引1． 3設(shè)置表之間的關(guān)系在信息中心基本情況一覽表和信息中心信息中心專(zhuān)門(mén)人才成就成果一覽表之間設(shè)立永久性一對(duì)多關(guān)系，在信息中心基本情況一覽表和信息中心專(zhuān)門(mén)人才專(zhuān)業(yè)特長(zhǎng)一覽表設(shè)立永久性一對(duì)一關(guān)系。二、功能設(shè)計(jì) 匿名入口（1）系統(tǒng)主頁(yè)（2）數(shù)據(jù)瀏覽（3）數(shù)據(jù)查詢(xún)①按編號(hào)查詢(xún)②按分組查詢(xún)③按輸入信息查詢(xún)④按字段查詢(xún)（4）數(shù)據(jù)統(tǒng)計(jì)（5）報(bào)表打印①瀏覽自然情況一覽表②瀏覽專(zhuān)業(yè)特長(zhǎng)一覽表③打印自然情況一覽表④打印專(zhuān)業(yè)特長(zhǎng)一覽表（6）退出系統(tǒng)管理員入口在匿名登錄基礎(chǔ)之上增加兩個(gè)功能（7）數(shù)據(jù)維護(hù)①基本情況一覽表維護(hù)②專(zhuān)業(yè)特長(zhǎng)一覽表維護(hù)③成就成果一覽表維護(hù)（8）管理員管理三、主程序clear allclose allset sysmenu offset sysmenu toset status bar offset notify offset palette offset escape onset keyp to windowsset carry onset confirm onset exact onset near onset ansi onset deleted onset optimize onset refresh to 0,5set odometer to 100set blocksize to 64set collate to 39。stroke39。set sysformats offset seconds onset exclu onset century onset currency rightset currency to 39。￥39。set hours to 12set date to YMDset decimals to 2set fdow to 2set fweek to 1set mark to 39。.39。set separator to 39。,39。set point to 39。.39。set talk offset safety offset bell onset bell to ,0? chr(7)set bell offset bell to IF WEXIST(39。常用39。) RELE WINDOW 39。常用39。ENDIF=2=set default to JustPath(Sys(16)) amp。amp。設(shè)置默認(rèn)路徑=專(zhuān)門(mén)人才信息管理系統(tǒng)on shutdown do quitdo form 系統(tǒng)主頁(yè)read eventsreturnproc quitclear events quit四、系統(tǒng)主頁(yè)附圖1 系統(tǒng)主頁(yè)系統(tǒng)主頁(yè)是在系統(tǒng)程序的文件執(zhí)行過(guò)程中使用的第一個(gè)表單（.scx）文件。一般表單中至少含有一個(gè)標(biāo)簽控件，用于說(shuō)明該系統(tǒng)的功能，一般格式為“信息中心專(zhuān)門(mén)人才信息管理系統(tǒng)”；至少含有一個(gè)命令按鈕用于實(shí)現(xiàn)表單之間的鏈接，一般格式為“進(jìn)入系統(tǒng)”。為了美觀和清晰，系統(tǒng)主頁(yè)中可以對(duì)表單進(jìn)行屬性設(shè)置， 設(shè)置背景、圖片等；可以對(duì)標(biāo)簽控件進(jìn)行顏色、字體、動(dòng)態(tài)效果、背景音樂(lè)等進(jìn)行修飾；還可以對(duì)命令按鈕進(jìn)行背景、字體等進(jìn)行設(shè)置。本系統(tǒng)分為管理員登錄和匿名登錄，選擇不同的方式進(jìn)入不同的菜單和界面，如附圖1所示。五、登錄界面我們以管理員登錄為例（匿名登錄要少兩個(gè)功能）介紹登錄界面的設(shè)計(jì)，如附圖2。附圖2 系統(tǒng)登錄表單對(duì)“確定”按鈕的編程代碼：select passwordif ((alltrim()==).or.(alltrim()==)) =messagebox(用戶(hù)名密碼不能為空！+Chr(13)+請(qǐng)輸入用戶(hù)名和密碼,48,警告) else locate for yhm=alltrim() if found() And mm=alltrim() do amp。amp。調(diào)用菜單 do 程序2 amp。amp。調(diào)用工具欄 release thisform else =messagebox(用戶(hù)名或密碼錯(cuò)誤！+Chr(13)+請(qǐng)重新輸入,48,警告) = = endifendif對(duì)“取消”按鈕的編程代碼：==對(duì)“退出”按鈕的編程代碼：release thisform對(duì)“Container”容器的設(shè)計(jì)：選中“Container”容器控件，點(diǎn)擊鼠標(biāo)右鍵，選擇編輯，在編輯狀態(tài)下才可以將其它控件加到容器里。對(duì)“Text1”的設(shè)計(jì)：選中“Text1”控件，點(diǎn)擊屬性框中的“PasswordChar”進(jìn)行密碼掩飾字符的設(shè)定，通常情況下，我們選擇“*”。六、工作界面(如附圖3所示）附圖3 工作界面（一）、菜單設(shè)計(jì)本系統(tǒng)有兩個(gè)菜單，管理員菜單比匿名登錄菜單多數(shù)據(jù)維護(hù)和管理員管理兩個(gè)功能, 設(shè)計(jì)時(shí)參照功能設(shè)計(jì)所列功能，設(shè)計(jì)過(guò)程略。（二）、工具欄設(shè)計(jì) 首先設(shè)計(jì)一個(gè)工具類(lèi)systoolbar。操作步驟如下：（1）打開(kāi)【文件】菜單，選擇【新建】，進(jìn)入【新建】窗口，選擇【類(lèi)】，再按【新建文件】按鈕。（2）進(jìn)入新類(lèi)窗口后（如附圖4），輸入如下信息：附圖4 新類(lèi)窗口①在“類(lèi)名“對(duì)話(huà)框中，輸入創(chuàng)建的新類(lèi)名“systoolbar”②在“派生于”下拉列表中，選擇基類(lèi)名或父類(lèi)名“container”③在“存儲(chǔ)于”對(duì)話(huà)框中，輸入類(lèi)庫(kù)名“my”④再按【確定】按鈕，進(jìn)入類(lèi)設(shè)計(jì)器窗口，向容器控件中添加6個(gè)命令按鈕，分別設(shè)置他們的屬性。⑤分別定義6個(gè)命令按鈕的“click”事件的代碼，調(diào)用不同的表單，執(zhí)行不同的功能。例如：命令按鈕mand1, “click”事件的代碼：Do Form 再將工具類(lèi)加載到應(yīng)用程序中，此例中代碼存儲(chǔ)在“”中，代碼如下：set classlib to my(systoolbar1,systoolbar)=0=0=.t.=.t.七、系統(tǒng)查詢(xún)（一）、按編號(hào)查詢(xún)：查詢(xún)表單1的設(shè)計(jì)，如附圖5。附圖5 按編號(hào)查詢(xún)表單對(duì)表單的初始化：對(duì)“Combo1”組合下拉框的設(shè)計(jì)：選中“Combo1”組合下拉框， 點(diǎn)擊鼠標(biāo)右鍵，選擇屬性子菜單，在“Combo1”的屬性框“RowSourceType”選擇“1—值”，“RowSource”中進(jìn)行數(shù)據(jù)的輸入。若選擇“表或視圖中的字段”，則在“Combo1”屬性框中“RowSourceType”選擇“6－字段”。對(duì)“查詢(xún)”按鈕的設(shè)計(jì)：locate all for ========allt()+.bmp（二）、按地區(qū)分組查詢(xún)：查詢(xún)表單2的設(shè)計(jì)，如附圖6附圖6 按地區(qū)分組查詢(xún)表單對(duì)表單的初始化：屬性中的Init events的代碼為：=對(duì)“查詢(xún)”按鈕的設(shè)計(jì)：Select , From 信息中心專(zhuān)門(mén)人才基本情況一覽表。where substr(信息中心專(zhuān)門(mén)人才基本情況一覽。,1,2)=allt() into cursor aaaa=aaaa=128=133=122=119=133=編號(hào)=姓名=性別=黨員否=工資現(xiàn)狀=2=2=2=2=2=2=2=2=2=2（三）、按輸入信息查詢(xún)：查詢(xún)表單3的設(shè)計(jì)，如附圖7對(duì)表單的初始化：屬性中的Init events的代碼為：public findrec對(duì)“查詢(xún)”按鈕的設(shè)計(jì)：select 信息中心專(zhuān)門(mén)人才基本情況一覽表do casecase =編號(hào) findstr==alltrim()case =姓名 findstr==alltrim()case =工資現(xiàn)狀 findstr==val()endcaselocate all for amp。findstrfindrec=reo()if found() do form else =messagebox(沒(méi)找到,16,提示)endif附圖7 按輸入信息查詢(xún)（四）、按字段名查詢(xún)：查詢(xún)表單4的設(shè)計(jì)，如附圖8。對(duì)表單的初始化：屬性中的Init events的代碼為：public findrec對(duì)“查詢(xún)”按鈕的設(shè)計(jì)：select 信息中心專(zhuān)門(mén)人才基本情況一覽表do casecase =編號(hào) Locate all For =case =姓名 Locate all For = case =出生日期 Locate all For dtoc()= case =工資現(xiàn)狀 Locate all For =val() endcasefindrec=reo()Do form 對(duì)“取消”按鈕的設(shè)計(jì)：release thisform附圖8 按字段名查詢(xún)八、系統(tǒng)維護(hù)（一）、專(zhuān)門(mén)人才基本情況數(shù)據(jù)維護(hù)：數(shù)據(jù)維護(hù)表單1的設(shè)計(jì)，如附圖9。對(duì)表單的初始化：屬性中的Init events的代碼為：=allt()+.bmp 表單屬性中的Refresh的代碼為：Do casecase bof()=.f.=.f.=.t.=.t.case eof()=.t.=.t.=.f.=.f.otherwise=.t.=.t.=.t.=.t.Endcase=allt()+.bmp附圖9 專(zhuān)門(mén)人才數(shù)據(jù)維護(hù) 對(duì)“首紀(jì)錄”：mand1的click事件編碼如下：go topskip1 對(duì)“上一條”：mand2的click事件編碼如下：skip1 對(duì)“下一條”：mand3的click事件編碼如下：skip+1 對(duì)“末記錄”：mand4的click事件編碼如下：go bottom 對(duì)“添加記錄”：mand5的click事件編碼如下：go bottomif len(alltrim())=0 =messagebox(編號(hào)不能為空+Chr(13)+請(qǐng)重新輸入,48,提示)else append blankendif 對(duì)“刪除記錄”：mand6的click事件編碼如下：if messagebox(確實(shí)要?jiǎng)h除本記錄嗎？,1+64+256,提示)=1 xhx=RECNO()1 delete pack goto xhx endif 對(duì)“退出”：mand7的click事件編碼如下：go bottomif len(alltrim())=0 =messagebox(編號(hào)不能為空+Chr(13)+請(qǐng)重新輸入,48,提示)else release thisformendif（二）、專(zhuān)門(mén)人才專(zhuān)業(yè)特長(zhǎng)數(shù)據(jù)維護(hù)：數(shù)據(jù)維護(hù)表單2的設(shè)計(jì)，如附圖10。附圖10 專(zhuān)業(yè)特長(zhǎng)數(shù)據(jù)維護(hù)表單屬性中的Refresh事件代碼為：Do casecase bof()=.f.=.f.=.t.=.t.case eof()=.t.=.t.=.f.=.f.otherwise=.t.=.t.=.t.=.t.Endcase對(duì)“首紀(jì)錄”：mand1的click事件編碼如下：go topskip1對(duì)“上一條”：mand2的click事件編碼如下：skip1對(duì)“下一條”：mand3的click事件編碼如下：skip+1對(duì)“末記錄”：mand4的click事件編碼如下：go bottom對(duì)“添加記錄”：mand5的click事件編碼如下：go bottomif len(alltrim())=0 =messagebox(編號(hào)不能為空+Chr(13)+請(qǐng)重新輸入,48,提示)else append blankendif “刪除記錄”：mand6的click事件編碼如下：if messagebox(確實(shí)要?jiǎng)h除本記錄嗎？,1+64+256,提示)=1 xhx=RECNO()1 delete pack goto xhx endif 對(duì)“退出”：mand7的click事件編碼如下：go bottomif len(alltrim())=0 =messagebox(編號(hào)不能為空+Chr(13)+請(qǐng)重新輸入,48,提示)else release thi