简化LISP操作数据库应用范例

ScmTools

       有关Lisp操作数据库对于初学者来说有点繁琐, 便于用Lisp操作数据库简单一些, 我在这里写了个简单的DLL动态类测试, 希望可以起到抛砖引玉... (附件中是测试类和数据库)

1. 
   
2.    ;;简化LISP操作数据库应用范例
   
3. ;;  
   
4. (defun c:Test()
   
5.    (setq Row1(Scm-GetRow1)
   
6.            Row2(Scm-GetRow2)
   
7.            Row3(Scm-GetRow3)
   
8.            Row4(Scm-GetRow4))
   
9.    (Alert (strcat "                              简化LISP操作数据库应用范例"  "\n" "\n" "姓名: " Row1 "\n" "\n" "性别: " Row2 "\n" "\n" "电话: " Row3  "\n" "\n" "地址: " Row4"\n" "\n" "                        
   
10.                                                                                        -By ScmTools"))
    
11.   (princ)
    
12. )
    

<br />    ;;简化LISP操作数据库应用范例<br /> ;;  <br /> (defun c:Test()<br />    (setq Row1(Scm-GetRow1)<br />            Row2(Scm-GetRow2)<br />            Row3(Scm-GetRow3)<br />            Row4(Scm-GetRow4))<br />    (Alert (strcat "                              简化LISP操作数据库应用范例"  "\n" "\n" "姓名: " Row1 "\n" "\n" "性别: " Row2 "\n" "\n" "电话: " Row3  "\n" "\n" "地址: " Row4"\n" "\n" "                         <br />                                                                                        -By ScmTools"))<br />   (princ)<br /> )<br />

ScmTools

刚才忘记了附件，现在补上了{:soso_e140:}

st788796

太简化了吧，后面5678…用什么？

ScmTools

st788796 发表于 2013-12-22 21:13
太简化了吧，后面5678…用什么？

这仅是一个固定格式的简单测试，如果有5678...之后的, 可以将类写成可以自定义的, 这样灵活性就有了, 剩下的就留给LISP中去递增去判断...{:soso_e140:}

newer

SCM版，可否把DLL的代码（C++? C#? ),贴上来让大家学学呢?

aeo

没装 access的机器可以运行吗？

maiqi816

没有源码没有源码

zhangjianjie630

厉害厉害厉害