[已解决]求助：上传相片（用VBA代码完成）

zjdh · 发表于 2012-6-20 20:33

本帖最后由 zjdh 于 2012-6-20 21:53 编辑

白天工作忙，现已搞好，你试试：
功能：
1. 只要输入“编号”“姓名”,自动在"个人相片"目录中搜寻照片，没有则显示“没有照片”。
2. 点击“上传照片”，可以在任意目录中选择照片，并更名存入"个人相片"目录中，每次都覆盖。
3. 点击照片，可以放大2倍照片，再点击则复原。
4. 只有上传了照片，才可以录入信息。
5. 录入相同信息，将被阻止。
6. 输入“编号”“姓名”后，点击“删除”即删除该项所有信息。

修改按钮完全没有必要，删除后再录入即可，而第2条已经可以修改照片啦。
其实照片有无的记录也是多余！只要输入“编号”“姓名”即可判别。

上传相片.rar (208.86 KB, 下载次数: 182)

long826121 · 发表于 2012-6-20 20:44

zjdh 发表于 2012-6-20 19:44
1. 你的“删除照片”按钮在那里，何时使用？
2. “相片上传成功，而没有点击“录入”按钮直接退出，此时必 ...

对于你说的问题，我做下改变：
一.“录入”按钮效果：
  只要输入“编号”“姓名”，并且点击“上传相片”上传个人相片，点击按钮“录入”后，将自动存入表1，相片自动存入文件夹“照片”中。
  效果：1.点击“上传相片”，此时上传的照片复制到了图像控件中，只不过相片的名称不是本人"姓名编号"，则将相片名称自动修改为本人“姓名编号”，等图片显示在图像控件中后，提示“上传成功”。多次上传个人相片，后一次覆盖前一次的相片。（注意一点：只有先输入编号和姓名后，才能“上传照片”，所以，当编号姓名任何一个没有填写，此时“上传照片”按钮都屏蔽）
   2.点击“录入”按钮后，相关内容填写到“个人信息表”表中，且相片保存到“照片”文件夹中。（照片的名称自然是编号姓名.jpg）注意：只要“照片”文件夹中有该人的照片，在表1中自动显示“是”；没有相片自动显示“无”。
      2.每个人的信息只能录入一次，如果第二次录入，将提示“该人的个人信息已录入”；
      3.相片上传成功，而没有点击“录入”按钮直接退出，此时必须删除指定文件夹中相应上传的相片。
二.对于修改按钮，只要能修改所有的就可以了，包括：编号、姓名、相片。
三.删除关于此人的所有信息，包括相片。
四：退出系统

long826121 · 发表于 2012-6-20 20:59

zjdh 发表于 2012-6-20 20:33
白天工作忙，现已搞好，你试试：
功能：
1. 只要输入“编号”“姓名”,自动在"个人相片"目录中搜寻照片， ...

有一个小问题：当我输入编号，姓名后，点击“上传照片”按钮，在弹出的对话框中，我并没有点击任何相片，直接点击“取消”，此时提示“编号姓名已更新”。
我觉得：我输入编号，姓名后，点击“上传照片”按钮，在弹出的对话框中，我并没有点击任何相片，直接点击“取消”，此时应提示“编号姓名没有更新”，只有选中照片点击“确定”按钮后才能提示“编号姓名已更新”。

zjdh · 发表于 2012-6-20 21:12

本帖最后由 zjdh 于 2012-6-20 21:25 编辑

语句放错了地方：11楼附件已更新

zjdh · 发表于 2012-6-20 21:14

没有选择图片没必要提示了，显示的图片没有更新啊！

zjdh · 发表于 2012-6-20 21:52

另一种形式处理照片的主文件：

上传相片2.rar (19.6 KB, 下载次数: 42)

liyu1979 · 发表于 2012-8-12 11:53

这个做的很巧，很实用

long826121 · 发表于 2012-8-12 12:11

liyu1979 发表于 2012-8-12 11:53
这个做的很巧，很实用

{:101:}现在我要求的都是很切合实际的。

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

[已解决]求助：上传相片（用VBA代码完成）

点评