[原创]合同管理系统--无密码,无限制,欢迎批评指正(有更新)

xrczld · 发表于 2007-4-2 22:43

我的这个算是小工具而已.跟商业的进销存没有法比的.想不到我这个东东才发布没有几天.我是2007.3.26注册的.这上面看的人还真的多.也可能是好用易上手的缘故吧.

吕群英 · 发表于 2007-5-6 14:49

支持！！

会思想的鱼 · 发表于 2007-5-7 22:03

我也是下载后试了好多次也不能打开,能发一份我的邮箱吗,cuiqi126@126.com谢谢了

会思想的鱼 · 发表于 2007-5-8 12:39

谢谢楼主,邮件我收到了,但是解压完后再点原文件提示让我安装迷你XP,我按要求安装了,但点原文件还是让我安装迷你XP不知是什么回事,而且楼主一楼文件我下载后解压提示要下一个分卷,不知是什么东西

thomastang · 发表于 2007-5-15 10:51

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用会思想的鱼在2007-5-7 22:03:58的发言： 我也是下载后试了好多次也不能打开,能发一份我的邮箱吗,cuiqi126@126.com谢谢了</div>已经发给你了，希望批评指正。

thomastang · 发表于 2007-5-15 10:53

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用会思想的鱼在2007-5-8 12:39:24的发言： 谢谢楼主,邮件我收到了,但是解压完后再点原文件提示让我安装迷你XP,我按要求安装了,但点原文件还是让我安装迷你XP不知是什么回事,而且楼主一楼文件我下载后解压提示要下一个分卷,不知是什么东西</div>可能是你的操作系统的问题，至少现在已经在很多人的计算机上运行过该程序而没有出现过这个问题。关于分卷是这样的，下载的两个文件都要改文件名，比如将他们改成1.rar 2.rar就可以了

yclotus · 发表于 2007-5-17 17:43

先看看，楼主辛苦了。。。

LIANXU1202 · 发表于 2007-5-18 09:46

[em17][em17][em17]

yclotus · 发表于 2007-5-18 12:06

每次右键时，调出的菜单太多，我把它改了改，仅显示自定义菜单，这样即整洁又好看，操作方便。。。 <img src="attachments/dvbbs/2007-5/20075181243468386.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /> 在ThisWorkbook加入以下代码：Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) With Application.CommandBars("cell") '尽量用wiht减少代码，增强可读性，已改     .Reset     For i = 1 To .Controls.Count       If .Controls.Item(i).Visible = True Then .Controls.Item(i).Visible = False '隐藏可见菜单     Next i   With .Controls     Set MCR = .Add(Type:=msoControlButton, ID:=2949) ''尽量用wiht减少代码，增强可读性，太多没改     MCR.Caption = "合同管理系统 - 主界面"     MCR.OnAction = "MenuMain"     MCR.FaceId = 266     MCR.BeginGroup = True     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "快速定位这个合同"     MCR.OnAction = "MenuFindFast"     MCR.BeginGroup = True     MCR.FaceId = 371     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "详细显示这个合同的全部信息"     MCR.OnAction = "MenuFindFastAll"     MCR.FaceId = 274     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "在当前表格中查找合同号"     MCR.OnAction = "MenuFindNumber"     MCR.FaceId = 109     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "转换用印记录"     MCR.OnAction = "MenuMainChange"     MCR.FaceId = 640     MCR.BeginGroup = True     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "自动缩放单元格"     MCR.OnAction = "MenuCloseItem"     MCR.FaceId = 1650     MCR.BeginGroup = True     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "含税/不含税转换"     MCR.OnAction = "MenuShuiShou"     MCR.FaceId = 384     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "开启外部计算器"     MCR.OnAction = "MenuOutCalcu"     MCR.FaceId = 960     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "加/去表格边框"     MCR.OnAction = "MenuSetKuang"     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "加/去表格突出背景"     MCR.OnAction = "MenuSetBackColor"     Set MCR = .Add(Type:=msoControlButton, ID:=2949)     MCR.Caption = "显示图例"     MCR.OnAction = "MenuShowColorSample"     MCR.BeginGroup = True   End With End With End Sub不知道有没有人喜欢。。。

wangxf66 · 发表于 2007-5-19 15:18

谢谢提供这么好的东东,怎么我解压不了啊[em06]

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

[分享] [原创]合同管理系统--无密码,无限制,欢迎批评指正(有更新)

浏览过的版块