flow

摘要： CL-USER> (defun pseudo-cat (file) (with-open-file (str file :direction :input) (do ((line (read-line str nil 'eof) (read-line str nil 'eof))) ((eql line... 阅读全文

摘要： CL-USER> (setf path (make-pathname :name "BECKY")) #P"BECKY" CL-USER> (with-open-file (bstr path :direction :output :if-exists :supersede) (format bstr "hello worl... 阅读全文

摘要： 马修·梅（Matthew E. May） 由精神系统科学我们得知，要想更高效、更富创造力，我们需要令大脑适时休息。冷静思绪可激发绝佳的灵感，但在繁忙的工作中挤出时间沉思绝非易事。以下是三种在工作中沉淀思绪的方法，快速简单，步骤详尽。 快速冥想 洛杉矶加州大学精神成像实验室的最新研究结果表明，经常冥想可令大脑特定的区域显示更多灰质，在大脑区域之间建立更强的联系，减少随年龄增长患有脑萎缩的风险。... 阅读全文

摘要： 功 能：得到字符串左部指定个数的字符。语 法：Left ( string, n )参 数：string：string类型，指定要提取子串的字符串；n：long类型，指定子串长度。如果是中文，则n = 中文个数 * 2返回值：String。函数执行成功时返回string字符串左边n个字符，发生错误时返回空字符串（""）。如果任何参数的值为NULL，Left()函数返回NULL。如果n的值大于string字符串的长度，那么Left()函数返回整个string字符串，但并不增加其它字符。示 例：1、下面的代码返回”ABCD”。 Left(“ABCDEFGH” , 4)2、下面的代 阅读全文

摘要： 递归写法: (defun fib (n) (if (<= n 1) 1 (+ (fib (- n 1)) (fib (- n 2))))) 迭代写法： (defun fib (n) (do ((i n (- i 1)) ... 阅读全文

摘要： 功能：删除数据窗口控件中的指定行。 语法：dwcontrol.DeleteRow(row) 参数：row,long类型，指定要删除数据hang的行号。当row参数为0时，删除当前行。 返回值:Integer。函数执行成功时返回1，发生错误时函数返回-1。 用法：该函数从数据窗口主缓冲区中删除指定行。如果数据窗口不可更新，则被删除行从系统中清除；如果可以更新，则被删除行从主缓冲区移动到删除缓... 阅读全文

摘要： 引用 DataWindow does not have UPDATE capability是什么原因？ - 泪雨直流的日志 - 网易博客 提示框出现：DataWindow does not have UPDATE capability.是什么原因？已经连接了到了数据窗口，但一运行UPDATE就弹了如上的对话框. 改变数据窗口更新特性的方法 打开一数据窗口，从Rows... 阅读全文

摘要： 时光飞逝，乱梦纷纭，心情也是阴晴不定，决定好做一件事情，就好好干，半途而废则得不偿失，打破一切，重新开始。 2012年最后的任务： A.完成PoweBuilder创建管理程序； B.看完《ansi Common Lisp》中文翻译版； 工作日时间规划： 6：30 起床 12：35-12：55 午休 20：00-22：00 学习时间（6个工作日抽出5个，... 阅读全文

摘要： 菜单项->Tab Order,需要编辑的列的值需大于0 阅读全文

摘要： 窗口的open():dw_1.setTransobject(sqlca)dw_1.retrieve()添加按钮clicked():long ll_insertrowll.insertrow = dw_1.insertrow(0)dw_1.scrolltorow(ll_insertrow)删除按钮clicked():dw_1.deleterow(0)保存按钮clicked():if dw_1.update() > 0 then messagebox(“提示”,“保存成功！”) commit;else messagebox(“提示”,”保存失败！”) rollback;end if刷新按钮c 阅读全文