如何實現數據的自動錄入

2024-07-21 02:09:19

字體：大中小

來源：轉載

供稿：網友

用戶錄入數據時經常會遇到大量重復數據，即錄入下一條記錄的某個字段時，其值與上一條記錄同字段的值相同。如果編些程序自動錄入相同值會大大提高錄入速度。具體實現方法如下：一、程序中主要用到的函數1、fileopen() 功能：以指定的讀寫模式打開指定的文件，同時返回文件的句柄。2、filewrite() 功能：從指定文件讀取數據。3、fileclose() 功能：關閉先前用fileopen()函數打開的文件。4、settext() 功能：得到當前行和列之上的編輯框中的值。5、gettext() 功能：替換在datawindow控件或datastore對象的當前行列的編輯框控件中的文本。6、send() 功能：向窗口發送指定的消息并立即執行相應的事件處理程序。7、describe() 功能：返回datawindow對象或datastore對象中的其它對象的屬性值。以上函數在有關pb的函數書中均可以找到，這里不再詳述，但要注意后面兩個函數的使用方法。二、具體實現方法1、建立window具體控件名稱如圖1所示。 2、定義實例變量數組 string is_value[] 和 integer if_file（存放打開文件的句柄）string is_columncount3、在window的open事件中編寫如下代碼int iif_file = fileopen("sys.ini",linemode!, read!, lockread!)is_columncount = dw_input.describe("datawindow.column.count") //取得datawindow對象的總列數for i = 1 to integer(is_columncount)fileread(if_file, is_value[i])nextfileclose(if_file)dw_input.scrolltorow(dw_input.rowcount()) //將光標設置到最后行列dw_input.setcolumn(integer(is_columncount)) 在window 的close事件中編寫如下代碼int iif_file = fileopen("sys.ini",linemode!, write!, lockwrite!, replace!)for i = 1 to integer(is_columncount)filewrite(if_file, is_value[i])nextfileclose(if_file)4、給datawindow control自定義一個回車鍵事件：event name: ue_keyenter event id: pbm_dwnprocessenter 5、在datawindow control的ue_keyenter事件中寫入以下代碼is_value[this.getcolumn()] = this.gettext()send(handle(this),256,9,long(0,0))this.settext(is_value[this.getcolumn()])return 1在datawindow control的constructor事件中寫入以下代碼this.settransobject(sqlca)this.retrieve()6、給cb_append自定義一個回車事件event name: ue_keydown event id: pbm_keydown在cb_append的clicked事件中寫入以下代碼dw_input.setfocus()dw_input.scrolltorow(dw_input.insertrow(0)) //追加一空記錄并指向新記錄dw_input.setcolumn(1) //指向公寓名列dw_input.settext(is_value[1])在cb_append的ue_pbm_keydown事件中寫入以下代碼if keydown(keyenter!) thenthis.triggerevent(clicked!)end if※ 注意各個控件的tab order的順序。以上步驟只是簡單的實現快速錄入，如果遇到具體情況還應該做更詳細的編碼。

最大的網站源碼資源下載站，

上一篇：預裝入對象

下一篇：FUNCky 的使用