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

原我能

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

忘记说了:  登陆密码 123456

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



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

2010-2-3 20:20 上传

点击文件名下载附件

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



.版本 2
.支持库 iext

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

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

天津饭

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

ツ遺夨◆ミ

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

波波天下

支持精易论坛

lvbibo

感谢楼主的无私分享！

感谢楼主的无私分享！

程序开发推广

顶一个!看看怎么样!

yageeart

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

yf80421

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

静哥

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