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