Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: mxg825

[待分类] [转帖]EXCEL+ACCESS做的商品进销存系统(公开代码),

  [复制链接]
发表于 2008-6-23 17:28 | 显示全部楼层

学习
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2008-6-23 17:33 | 显示全部楼层
回复

使用道具 举报

发表于 2008-6-23 17:33 | 显示全部楼层
回复

使用道具 举报

发表于 2008-6-23 17:49 | 显示全部楼层

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>mxg825</i>在2008-6-23 16:42:00的发言:</b><br/><p>进货表中的 新增,修改,删除 ,清空 等按钮是怎么做出来的?</p></div><p><font size="4">用Labe控件做的!</font></p>
回复

使用道具 举报

 楼主| 发表于 2008-6-23 17:53 | 显示全部楼层

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2008-6-23 17:49:00的发言:</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>mxg825</i>在2008-6-23 16:42:00的发言:</b><br/><p>进货表中的 新增,修改,删除 ,清空 等按钮是怎么做出来的?</p></div><p><font size="4">用Labe控件做的!</font></p></div><p></p>原来如此!谢谢[em17][em17]
回复

使用道具 举报

发表于 2008-6-23 17:54 | 显示全部楼层

<p>代码:</p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Attribute VB_Name = "</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">操作<span lang="EN-US">"<p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub EXCELPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">销售单<span lang="EN-US">").Select<p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Call XSD</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">界面清空<span lang="EN-US"><p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">进货单<span lang="EN-US">").Select<p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Call JHD</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">界面清空<span lang="EN-US"><p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub JHDPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">进货单<span lang="EN-US">").Select<p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub XSDPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;</span><span style="mso-spacerun: yes;">&nbsp;</span>Sheets("</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">销售单<span lang="EN-US">").Select<p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub JXCcountPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("Temp").Select<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>UserForm3.Show<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub JXRecordPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("Temp").Select<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>UserForm6.Show<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub JXCzbsPZ_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("Temp").Select<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>UserForm4.Show<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub start_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Sheets("Temp").Select<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>UserForm7.Show<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub Yes_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>With Application<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Worksheet Menu Bar").Enabled = True<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Standard").Visible = True<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Formatting").Visible = True<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>End With<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub No_Click()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>On Error Resume Next<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>With Application<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Worksheet Menu Bar").Enabled = False<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Standard").Visible = False<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>.CommandBars("Formatting").Visible = False<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>End With<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub Macro1()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub Macro2()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>ActiveWindow.SelectedSheets.PrintPreview<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub Macro3()<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Application.ActivateMicrosoftApp 0<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">Sub File_Close() '</span><span style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">退出系统<span lang="EN-US"><p></p></span></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Application.ScreenUpdating = True<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>ActiveWorkbook.Save<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;">&nbsp; </span>Application.Quit<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;">End Sub<p></p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><p>&nbsp;</p></span></p><p class="MsoPlainText" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US" style="mso-hansi-font-family: 宋体; mso-bidi-font-family: 宋体;"><p>&nbsp;</p></span></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><span lang="EN-US"><p><font face="Times New Roman">&nbsp;</font></p></span></p><p></p>
回复

使用道具 举报

发表于 2008-6-23 18:11 | 显示全部楼层

学习一下
回复

使用道具 举报

发表于 2008-6-23 18:12 | 显示全部楼层

回复
回复

使用道具 举报

发表于 2008-6-23 18:56 | 显示全部楼层

正好需找此資料
回复

使用道具 举报

发表于 2008-6-23 19:08 | 显示全部楼层

<p>認真學習</p>
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 22:54 , Processed in 0.664799 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表