VFP 愛用者社區

[Ruey]

來源:狐皮超市

對Visual FoxPro表單生成器嚮導的改進
作為一種視覺化的面向物件的編程語言，Visual FoxPro提供了很多非常好的生成器嚮導，如表單嚮導、查詢嚮導、視圖嚮導，甚至還有製作安裝盤的嚮導。使用這些嚮導，編程人員可以不用書寫任何一句程式而製作出非常漂亮的、功能強大的程式介面、報表、安裝盤等最終成品。使用Visual FoxPro 5.0提供的應用程式嚮導，你甚至可以直接製作出一個完整的　Windows 95中的應用程式。在眾多的生成器嚮導中，表單嚮導可能是最常用的嚮導之一，但是在使用中筆者發現表單嚮導也並非盡善盡美。以下是筆者使用中發現的兩個問題及筆者的改進方法，有興趣的讀者不妨一試。
為方便演示，需先建立兩個表：DEPT和EMP，表結構如下：
DEPT表：
欄位名 欄位類型 欄位長度 標題 索引
DEPTNO Char 6 單位編號 主索引
DNAME Char 20 單位名稱
LOA Char 20 單位位址
EMP 表：
欄位名 欄位類型 欄位長度 標題 索引
DEPTNO Char 6 單位編號
EMPNO Char 20 職員編號 主索引
ENAME Char 8 職員姓名
DEPT表為父表，EMP表為子表，兩表之間通過DEPTNO欄位相關聯。
表單嚮導分為‘表單嚮導’和‘一對多表單嚮導’，前者用於為單個表建立資料操作的表單，後者用於為兩個相關表建立資料操作的表單，在表單的表格中顯示子表的欄位。首先談談‘表單嚮導’，‘表單嚮導’可以創建一個顯示表中欄位並帶有十個按鈕的資料操作表單。在此表單中，Visual FoxPro 提供了一個很有用的按鈕：‘查詢’按鈕，按下‘查詢’按鈕後可在‘查詢’視窗中選擇表中不同的欄位輸入條件進行查詢。進入‘查詢’視窗就可發現‘表單嚮導’的一處明顯的‘缺陷’：欄位列表框中直接顯示的是表中的欄位名，即DEPTNO、DNAME等，用欄位名面向普通操作人員顯然是不合適的。筆者對‘表單嚮導’進行剖析，發現可通過修改‘表單嚮導生成器’調用的可視類庫WizStyle.VCX中的‘SerchClass’類對其進行改進。WizStyle.VCX可在Visual FoxPro系統目錄下的WizStyle目錄中找到。選擇‘檔’功能表中的‘打開’，打開WizStyle.VCX，在‘類名’框中雙擊‘SerchClass’即可對‘SerchClase’類進行修改。雙擊Form進入過程編寫視窗，在‘物件’下拉清單中選擇cboFields1，‘過程’下拉清單中選擇‘Init’。改進時用到Visual FoxPro 提供的一個函數DBGETPROP（），此函數用於從資料庫的表中根據欄位名提取相應字段落資訊，當然這些資訊中也包括‘欄位標題’（Caption）資訊，利用此資訊即可對‘表單嚮導’的查詢視窗中的列表框進行漢化處理。處理方法如下：
將‘cboFields1’的‘Init’過程改為如下的程式：