|
使用schedule 函数看看。 我随手写了个自动读取的access database 并显示在新窗口的例子,你参考一下。
文件:demo-automation.rar 下载 http://www.kuaipan.cn/file/id_186398518334717991.htm
- <P> </P>
- <DIV class=blockcode>
- <BLOCKQUOTE>/*=========================================
- Draft demo for automation load the database and echo on new window.
- Skyfree
- 2013.09.17
- ===========================================*/
- data_path = substr(Get Default Directory(), 2, 999);
- // Database --------------------------------------
- dsn_string = "DSN=MS Access Database;DBQ=" || data_path || "data.accdb;" ||
- "DefaultDir=" || data_path || ";DriverId=25;FIL=MS Access;" ||
- "MaxBufferSize=2048;PageTimeout=5;UID=admin;";
- // -----------------------------------------------------------------------------
- // Re-load the data from database
- quickieScript = expr( sql_statement =
- "SELECT DISTINCT d.DRUG_NAME " ||
- " FROM Drugs d " ||
- " ORDER BY 1";
- drug_dat = Open Database(dsn_string, sql_statement);
- drug_dat << minimize window;
- drug_lst = column(drug_dat, "drug_name") << get values;
- close(drug_dat, no save);
- ; schedule(5, quickieScript); );
- quickieScript;
- // -----------------------------------------------------------------------------
- // Show the data in new window.
- choice_dlg = New Window("Automation Data Echo",
- vlistbox(
- panelbox("Database List:",
- drug_disp_box = listbox(drug_lst,
- width(480), max selected(1), nlines(15),
- )
- ),
- ),
- );
复制代码 |
|