模块化开发-日常工作管理(模块开源)

原我能 · 发表于 2010-2-3 20:20:40

大量复制世恒等易友的代码,  恕不一一感谢了.
便于以后维护扩展:  由于平时工作的复杂性, 可用堆积木的方式完成工作综合管理 , 有兴趣的可自己看.........

忘记说了:  登陆密码 123456

模块部分已经开源,有需要的继续完善....

日常工作管理.rar (1.53 MB, 下载次数: 615)

其实主程序就是100%复制世恒的代码, 需要就开源,别的就是界面了,没什么及技术含量

.版本 2
.支持库 iext

.子程序 _树型框_菜单_双击项目
.局部变量局部_编号, 文本型
.局部变量局部_对应文件, 文本型
.局部变量局部_调用来源, 逻辑型
.局部变量局部_调用接口, 文本型
.局部变量局部_函数, 整数型
.局部变量局部_动态文件, 整数型
.局部变量局部_句柄, 整数型

局部_句柄＝外部数据库1.查询 (“select * from 菜单管理 where id=” ＋到文本 (树型框_菜单.取项目数值 (树型框_菜单.现行选中项)))
.如果真 (局部_句柄＝ 0)
信息框 (“载入运行窗口失败，请查看菜单设置！”, #错误图标, “提示信息：”)
返回 ()
.如果真结束
局部_编号＝外部数据库1.读 (局部_句柄, “编号”)
局部_对应文件＝外部数据库1.读 (局部_句柄, “调用文件”)
局部_调用来源＝外部数据库1.读 (局部_句柄, “调用来源”)
局部_调用接口＝外部数据库1.读 (局部_句柄, “调用接口”)
外部数据库1.关闭记录集 (局部_句柄)
.如果真 (是否有子项_ (局部_编号) ＝真)
返回 ()
.如果真结束
.如果 (局部_调用来源＝真)
运行 (局部_对应文件, 假, )
.否则
局部_对应文件＝取运行目录 () ＋ “\Programs\” ＋局部_对应文件
局部_动态文件＝载入动态链接库_ (局部_对应文件)  ' 动态加载dll
.如果真 (局部_动态文件＝ 0)
      返回 ()
.如果真结束
局部_函数＝取进程地址_ (局部_动态文件, “外部接口_统一调用接口”)  ' 获取我们规定的接口函数
.如果真 (局部_函数＝ 0)  ' 为0表示不存在我们规定的接口，返回
      释放动态链接库_ (局部_动态文件)  ' 释放加载的文件
      返回 ()
.如果真结束
释放动态链接库_ (局部_动态文件)  ' 释放加载的文件
DLL命令调用转向 (局部_对应文件, “外部接口_统一调用接口”)
外部接口_统一调用接口 (背景图片框.取窗口句柄 (), 全当前管理员, #数据库密码, 局部_编号, 局部_调用接口, 0, 0)
DLL命令调用转向 (, )

天津饭 · 发表于 2010-2-3 21:47:01

恩非常不错!!!!!!!!!!!!!!!!!

ツ遺夨◆ミ · 发表于 2010-2-3 23:34:46

不错ing顶了。(*^__^*) 嘻嘻

波波天下 · 发表于 2010-2-4 08:14:03

支持精易论坛

lvbibo · 发表于 2010-2-4 22:49:40

感谢楼主的无私分享！

只看该作者 · 发表于 2010-3-8 16:43:00

感谢楼主的无私分享！

程序开发推广 · 发表于 2010-3-8 17:34:43

顶一个!看看怎么样!

yageeart · 发表于 2010-3-23 19:06:01

正在找模块的东西，呵呵，希望能够有所启发

yf80421 · 发表于 2010-3-23 23:01:18

正在找模块的东西，呵呵，希望能够有所启发

静哥 · 发表于 2010-3-23 23:57:07

? 餖槳囄⒏閞怞條﹏!` ﹡.鐒粢s`m嘟㈧浠癷. |▍.'↘.〢湈個籹孓,峩嗳祢';. . ? ╯

		自动登录	找回密码
密码			注册

[易语言模块源码] 模块化开发-日常工作管理(模块开源)

评分

评分