一个做出来的火箭队怎么点一个按扭就能飞一下
点击联系发帖人
时间：2014-10-22 12:21
CAD中这种花纹怎么做出来的？_百度知道
提问者采纳
CAD中有一个功能是“填充”，输入“H”或者在菜单栏中找到“工具”——图案填充，点击就有一个填充的对话框，在“图案填充”项中按下拉按扭或旁边的小框进行选择，再根据需要设置角度和比例，再用“拾取点”或“选择对象”选择你需要填充的区域后确定，可以“预览”一下，看合不合适，不合适再调整一下，最后右键确定，就画完了。
提问者评价
其他类似问题
按默认排序
其他3条回答
图案填充，在网上找个填充的模块，里面有很多图案的。 快捷键H
CAD还有一个重要功能 就是块操作 尤其在建筑方面 一些家具 电器 一些带有图案的 常用的东西 都是早备的块 直接插入的
我也比较同意这个就是插入一张这样的图 祝愿你CAD真正摸透
cad的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
阅读(113)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'未来的交通工具',
blogAbstract:'教师点评：本次习作先是在老师的引导下，让学生说出现在的交通工具有哪些优点和缺点，然后在小组内说说自己最想造出什么样的车。考虑到学生写这篇习作有困难，所以以小组为单位来进行画图设计和写话。整体效果还可以，不过大部分采用按钮功能，缺少创新。
七彩香肠车(一等奖)
柴士荣、刘益君、张颐馨、田耀诚、杨若昕、王业千秋
blogTag:'小学,教育,日记',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:7,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}收藏本文到：更多 >>
Copyright &
All Rights Reserved本帖已被收录到知识树中，索引项：
前一段时间很少来这里，是因为花了很长一段时间用EXCEL+ACCESS+WORD做了一个适合本部门使用的东东，这个东东做出来后，简化了本部门的很多工作，得到领导的口头表扬:(。本应把东东传上来让大家批评批评，但由于涉及到本部门的一些小小秘密，要改大量的东东，而且代码又太乱，也就懒得上传了。我就以做一个通讯录并可以用通讯录的地址打印信封为例，把我做这个东东的过程弄出来和大家分享分享。
首先申明：
1、本帖不是教学帖，请大家不要问我为什么代码要这样写，因为有的也我不知道为什么，我只知道这样可以达到目的。
2、偶不是科班出身，所以在写代码时有很多陋习，还请大家不要扔偶鸡蛋。
3、虽然费了九牛二虎之力整出来个东东，但很多代码写得比较幼稚，请各位大虾不要笑话，知道如何简化的还请告知一声。
4、请大家不要催我，因为我要把代码测试过没问题才能弄上来，而世界杯又到了。不过不管如何我一定会全部弄出来的。
猜你喜欢看
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
建三个文件
一个当然是ACCESS数据库了（以前用EXCEL来保存数据，而又需要可以多人可以编辑，所以共享了EXCEL，让我饱受文件经常损坏和速度奇慢之苦，用ACCESS做数据库后，幸福多了[em01]），我把它命名为“通讯录“，在ACCESS中建一个表，也命名为“通讯录”，“通讯录”表包括13个字段（ID、姓名、办公电话、手机、小灵通、传真、家庭电话、QQ号码、工作单位、单位地址、邮政编码、电子邮件、MSN），其中ID是自动编号，其它十二个字段均为非必填字段、允许空字符串；字段大小分别是：姓名为8、所有的电话和QQ号码为12、邮政编码为6、其它均为50（请根据字段长度分别设置文本框的maxlength属性）。
另一个是EXCEL文件，我也把它命名为通讯录，这个EXCEL文件主要是用来做界面，对ACCESS数据库的操作全在这里进行了，在EXCEL里插入一个窗体，窗体再插入12个标签、12个文本框和10个命令按钮（为方便操作，我将textbox1~textbox12的顺序根据“通讯录”表的字段排列，即工作单位的文本框为textbox8、单位地址的文本框为textbox9、邮政编码的文本框为textbox10等），标签的caption属性分别设为姓名、办公电话、手机、小灵通、传真、家庭电话、QQ号码、工作单位、单位地址、邮政编码、电子邮件、MSN；命令按钮的caption属性为别为首条、前条、后条、末条、添加、修改、删除、查找、打印、退出，如下图：
document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
最后一个是WORD文件，命名为信封，以后用来打信封用。在我的实际工作中，这个WORD文件是帮了我的大忙，以前我打一封文书的时候，要分别打开草拟稿纸、XXX文书、送达回证（两份），逐个修改后再打印，尤其是那个文书，需要修改的地方不下二十处，又有好几个时间，害得我经常搞错[em06]，用我做的那个东东后，一键就搞定了四个文书，既加快了速度，又减少了修改过程中容易发生的错误。[em01][em01]
[此贴子已经被作者于 19:58:42编辑过]
(59.51 KB, 下载次数: 69)
19:51 上传
下载次数: 69
(54.98 KB, 下载次数: 41)
19:58 上传
下载次数: 41
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
我考虑的是如何向数据库里添加数据，所以就先搞定“添加”按钮（即CommandButton5）。
我把添加分为两步进行，一是按下CommandButton5按钮后，才可以在文本框输入数据，在文本框输入数据后再按一下CommandButton5按钮才把数据输入到ACCESS数据库，那如何判断是向文本框输入数据，还是向数据库输入数据呢？我是根据CommandButton5按钮的caption属性来判断的，如果CommandButton5按钮的caption属性是“添加”二字，就把所有的文本框的enabled属性都设为true，好让我向文本框输入数据，并且此时把CommandButton5按钮的caption属性改为“保存”二字。如果CommandButton5按钮的caption属性为“保存”，就把文本框里的数据保存入ACCESS数据库。
在添加时有时突然不想添加了，怎么办？我就用另一个按钮（"退出"按钮，即CommandButton10）来判断，是否取消添加，即按下CommandButton5后，把CommandButton10的caption属性改为取消，如果在CommandButton10的属性为取消时按下它，就取消添加。
在添加过程中，为防止误按其它按钮，我就把除CommandButton5和CommandButton10之外的按钮全禁止了。
如何添加到数据库，当然用ADO来实现了（这是我研究了N久的后，才搞定的[em01]）
代码如下：
Dim Stpath As String
Dim Strsql As String
If CommandButton5.Caption = "添加" Then
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = True
Me.Controls("textbox" & i) = ""
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton5.Enabled = True
CommandButton5.Caption = "保存"
CommandButton10.Caption = "取消"
TextBox1.SetFocus
For i = 1 To 12
A(i) = Me.Controls("textbox" & i).Value
[U]Set cnn = CreateObject("Adodb.Connection")
Set rst = CreateObject("Adodb.Recordset")
Stpath = ThisWorkbook.Path & Application.PathSeparator & "通讯录.mdb"
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""[/U]
Strsql = "Insert Into 通讯录(姓名,办公电话,手机,小灵通,传真,家庭电话,QQ号码,工作单位,单位地址,邮政编码,电子邮件,MSN) " & _
"Values('" & A(1) & "','" & A(2) & "','" & A(3) & "','" & A(4) & "','" & A(5) & "','" & A(6) & "','" & A(7) & "','" & A(8) & "','" & A(9) & "','" & A(10) & "','" & A(11) & "','" & A(12) & "')"
cnn.Execute Strsql
Strsql = "Select * From 通讯录"
rst.Open Strsql, cnn, 1, 3
rst.movelast
myID = rst.Fields(0)
Set rst = Nothing
Set cnn = Nothing
MsgBox "数据已输入!", vbOKOnly + 64, "温馨提示"
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = True
CommandButton5.Caption = "添加"
CommandButton10.Caption = "退出"
上面有下划线的部分以后经常用到，所以我在EXCEL里插入一模块，把下划线部分写在模块里，以后可以少写很多东东，也方便维护。如下：
Public stpath
Public cnn
Public rst
Sub mycnn()
Set cnn = CreateObject("Adodb.Connection")
Set rst = CreateObject("Adodb.Recordset")
stpath = ThisWorkbook.Path & Application.PathSeparator & "通讯录.mdb"
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "Data Source =" & stpath & ";Jet OLEDB:Database Password=" & ""
并把下划线改成Call mycnn,并去掉 Dim Stpath As String
[此贴子已经被作者于 20:43:35编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第三步窗体初始化当数据库有了数据后，我想到的是显示窗体时，不要让文本框空当当的，就让它显示数据库里的数据吧。显示窗体时，如果数据库里没有数据，除了“添加”和“退出”按钮，其它按钮好像都没什么用，我就让它们失效；如果数据库里只有一条数据，那首条、末条、向前、向后按钮好像也没什么用，我也让它们失效；不管数据库里有多少条数据，我只能让它显示第一条，首条、向前按钮我也让它失效了。所以就有了下面的代码。有个另外的情况,如果是经过查询再返回到这个主窗口时,因为我没想到特别好的办法,办能就让所有的按钮都有效,我是根据myid来判断,是否是经过查询再返回到这个主窗口的。代码如下：Private Sub UserForm_Initialize()&&& '窗口初始化&&& Dim Strsql As String&&& Dim i%&&& Call mycnn&&& If myID = 0 Then&&&&&&& Strsql = "Select * From 通讯录"&&&&&&& rst.Open Strsql, cnn, 1, 3&&&&&&& If rst.RecordCount = 0 Then&&&&&&&&&&& For i = 1 To 9&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&& Next&&&&&&&&&&& CommandButton5.Enabled = True&&&&&&& Else&&&&&&&&&&& If rst.RecordCount = 1 Then&&&&&&&&&&&&&&& For i = 1 To 4&&&&&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&&&&&& Next&&&&&&&&&&& Else&&&&&&&&&&&&&&& For i = 1 To 2&&&&&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&&&&&& Next&&&&&&&&&&& End If&&&&&&& End If&&& Else&&&&&&& Strsql = "Select * From 通讯录 where ID=" & myID&&&&&&& rst.Open Strsql, cnn, 1, 3&&&&&&& For i = 1 To 4&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = True&&&&&&& Next&&& End If&&& &&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&&&&&& Me.Controls("textbox" & i).Enabled = False&&& Next&&& Set rst = Nothing&&& Set cnn = NothingEnd Sub
[此贴子已经被作者于 21:05:15编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
修改和添加差不多，根据CommandButton6的catiion属性来判断修改还是修改后的保存。当CommandButton6的caption属性为修改时，按下CommandButton6按钮，就让所有的textbox可以编辑为防止意外，把除CommandButton6按钮和CommandButton10按钮之外的按钮禁止，并把CommandButton10的caption改为“取消”，好让不想修改时取消修改，同时，把CommandButton6的caption属性改为保存。
当CommandButton6的caption属性为保存时把textbox中的值用update修改到数据库中去，根据什么来修改，才能修改到我想修改的记录？因为12个文本框都有可能被修改，如果用当年任一文本框中值来搜寻数据库中的内容，都有可能搜索不到，或者即使搜索到，都有可能是另外（或重复）的记录，而不是我想修改的记录，这时，我考虑的是，必须根据一个唯一值到数据库来搜寻我想修改的记录，正好ID字段（自动编号的那个）符合这个要求，这就要求每当textbox显示一条记录时，公共变量myID都要等于这条记录ID字段的值。前面初始化窗体时，已经做到了，但在添加时，还没有做到，我发现，每当添加一条记录时，都是添加在数据库的末尾，那就在添加按钮中增加使公共变量myID等于刚添加记录的ID值（即最后一条记录的ID值,添加的红色代码部分）。
CommandButton6的代码如下：
Private Sub CommandButton6_Click()
Dim Strsql As String
If CommandButton6.Caption = "修改" Then
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = True
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton6.Enabled = True
CommandButton6.Caption = "保存"
CommandButton10.Caption = "取消"
TextBox1.SetFocus
For i = 1 To 12
A(i) = Me.Controls("textbox" & i).Value
Call mycnn
Strsql = "Update 通讯录 set 姓名='" & A(1) & "',办公电话='" & A(2) & "',手机='" & A(3) & "',小灵通='" & A(4) & "',传真='" & A(5) & "',家庭电话='" & A(6) & "',QQ号码='" & A(7) & "',工作单位='" & A(8) & "',单位地址='" & A(9) & "',邮政编码='" & A(10) & "',电子邮件='" & A(11) & "',MSN='" & A(12) & "' where ID = " & myID
cnn.Execute Strsql
Set rst = Nothing
Set cnn = Nothing
MsgBox "数据已修改!", vbOKOnly + 64, "温馨提示"
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = True
CommandButton6.Caption = "修改"
CommandButton10.Caption = "退出"
[此贴子已经被作者于 20:44:22编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
删除相对来说简单一点，当然，按下删除前最好提示一下，否则一不小心按错了就惨了，所以我用一个msgbox进行提示，如果在msgbox上按“是”则删除，按“否”则不删除。
删除是根据ID字段（因为它唯一，不用担心删了其他相同的值）在数据库中找到记录并删除的。
删除文本框中的记录后，清除文本框中的值，并搜索数据库，如果有记录，就显示到文本框中来，如果没有，就只有添加和退出按钮有用，其它禁用（和初始化窗体类似）。
代码如下：
Private Sub CommandButton7_Click()
Dim Strsql As String
ts = MsgBox("您是否真的删除该记录？", vbYesNo + 64, "温馨提示！")
If ts = vbNo Then
Call mycnn
Strsql = "delete * from 通讯录 where ID = " & myID
cnn.Execute Strsql
For i = 1 To 12
Me.Controls("textbox" & i) = ""
Strsql = "Select * From 通讯录"
rst.Open Strsql, cnn, 1, 3
If rst.RecordCount = 0 Then
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton5.Enabled = True
If rst.RecordCount = 1 Then
For i = 1 To 4
Me.Controls("commandbutton" & i).Enabled = False
For i = 1 To 2
Me.Controls("commandbutton" & i).Enabled = False
myID = rst.Fields(0)
For i = 1 To 12
Me.Controls("textbox" & i) = rst.Fields(i)
Set rst = Nothing
Set cnn = Nothing
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
Set rst = Nothing
Set cnn = Nothing
[此贴子已经被作者于 20:00:08编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第六步退出因为我用退出按钮来取消添加或删除，所以按下退出按钮时，有两种情况，一是当退出按钮的caption属性是“取消”时，使文本框的值为原记录，其他按钮均恢复为可用，添加按扭和修改按钮的caption属性分别恢复为“添加”和“修改”。当退出按钮的caption属性是“退出”时，卸载窗体。有了退出代码后，我就把右上角的那个叉给禁止了[em01]。代码如下：Private Sub CommandButton10_Click()&&&&'退出或者取消添加和修改&&&&Dim Strsql As String&&&&Dim i%&&&&If CommandButton10.Caption = "取消" Then&&&&&&&&CommandButton10.Caption = "退出"&&&&&&&&Call mycnn&&&&&&&&Strsql = "Select * From 通讯录 where ID=" & myID&&&&&&&&rst.Open Strsql, cnn, 1, 3&&&&&&&&myID = rst.Fields(0)&&&&&&&&For i = 1 To 12&&&&&&&&&&&&Me.Controls("textbox" & i) = rst.Fields(i)&&&&&&&&&&&&Me.Controls("textbox" & i).Enabled = False&&&&&&&&Next&&&&&&&&Set rst = Nothing&&&&&&&&Set cnn = Nothing&&&&&&&&CommandButton5.Caption = "添加"&&&&&&&&CommandButton6.Caption = "修改"&&&&&&&&For i = 1 To 9&&&&&&&&&&&&Me.Controls("commandbutton" & i).Enabled = True&&&&&&&&Next&&&&Else&&&&&&&&Unload Me&&&&End IfEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)‘禁止那个X[em01]&&&&If CloseMode && 1 Then Cancel = 2&myID = 0'退出窗口时，把myid值也清掉吧。End Sub
[此贴子已经被作者于 21:15:25编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第七步&前条、首条&数据库中有了数据后，我开始想实现简单的查询，想想还是一条一条查吧，于是就整了前条，所谓前条，就是当年记录的前一条记录，我的思路是，先从数据库中把所有记录查询出来，然后用循环找到当前显示在文本框中的记录（我是用ID字段来比较的，因为它不会重复），然后前移一条记录，显示在文本框中，如果是第一条记录，就把前条、首条按钮禁止掉，当然，向前移了，后条、末条按钮当然不能再禁止了。首条就相对容易一点了，先从数据库中把所有记录查询出来，然后移到第一条记录后，显示在文本框中就行了。代码如下：Private Sub CommandButton2_Click()&&& '前条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& Do Until rst.Fields(0) = myID&&&&&&& rst.movenext&&& Loop&&& rst.MovePrevious&&& If rst.BOF Then&&&&&&& CommandButton1.Enabled = False&&&&&&& CommandButton2.Enabled = False&&&&&&& rst.movenext&&& End If&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton3.Enabled = True&&& CommandButton4.Enabled = True&&& End Sub&Private Sub CommandButton1_Click()&&& '首条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& rst.movefirst&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = False&&& CommandButton2.Enabled = False&&& CommandButton3.Enabled = True&&& CommandButton4.Enabled = TrueEnd Sub&PS：后面的后条和前条的思路类似，都是用循环，感觉效率有点低，但我实在想不出其他办法了。哪位仁兄仁姐知道的，就告诉我哈，多谢先。再PS：由于世界杯，我有小小慢，不好意思哈，偶肯定会完成的。希望乱七八糟的文字和代码没有倒了大家伙的胃口哈。[em01]
[此贴子已经被作者于 21:38:29编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第八步&后条、末条&后条的思路和前条一样，先从数据库中把所有记录查询出来，然后用循环找到当前显示在文本框中的记录（我是用ID字段来比较的，因为它不会重复），然后向后移一条记录，显示在文本框中，如果是最后一条记录，就把后条、末条按钮禁止掉。前条、首条按钮不再禁止。首条，先从数据库中把所有记录查询出来，然后移到最后一条记录后，显示在文本框中就行了。代码如下：Private Sub CommandButton3_Click()&&& '后条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& Do Until rst.Fields(0) = myID&&&&&&& rst.movenext&&& Loop&&& rst.movenext&&& If rst.EOF Then&&&&&&& CommandButton3.Enabled = False&&&&&&& CommandButton4.Enabled = False&&&&&&& rst.MovePrevious&&& End If&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = True&&& CommandButton2.Enabled = TrueEnd SubPrivate Sub CommandButton4_Click()&&& '末条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& rst.movelast&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& &&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = True&&& CommandButton2.Enabled = True&&& CommandButton3.Enabled = False&&& CommandButton4.Enabled = FalseEnd Sub
[此贴子已经被作者于 21:47:45编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第九步&查找（分4步吧）&第九步（一）在做这个东东的过程中，我感觉查找是非常麻烦的，总是很难达到让我满意的效果。最后实在没办法的情况下，就糊弄了一下自己，反正做出来能用就行了，至于小小瑕疵就懒得理它了。我觉得仅仅这一个窗口很难实现一些复杂的查找工作，没办法，只能再插入一个窗体，在窗体上插入三个标签、一个列表框、一个文本框、三个命令按钮和一个ListView控件。如下图：document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
[此贴子已经被作者于 21:26:05编辑过]
(49.26 KB, 下载次数: 44)
21:23 上传
下载次数: 44
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
浏览过的版块
优秀会员奖章No.1
优秀会员奖章No.2
积分≥4700即可申请
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&}
提问者采纳
CAD中有一个功能是“填充”，输入“H”或者在菜单栏中找到“工具”——图案填充，点击就有一个填充的对话框，在“图案填充”项中按下拉按扭或旁边的小框进行选择，再根据需要设置角度和比例，再用“拾取点”或“选择对象”选择你需要填充的区域后确定，可以“预览”一下，看合不合适，不合适再调整一下，最后右键确定，就画完了。
提问者评价
其他类似问题
按默认排序
其他3条回答
图案填充，在网上找个填充的模块，里面有很多图案的。 快捷键H
CAD还有一个重要功能 就是块操作 尤其在建筑方面 一些家具 电器 一些带有图案的 常用的东西 都是早备的块 直接插入的
我也比较同意这个就是插入一张这样的图 祝愿你CAD真正摸透
cad的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
阅读(113)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_',
blogTitle:'未来的交通工具',
blogAbstract:'教师点评：本次习作先是在老师的引导下，让学生说出现在的交通工具有哪些优点和缺点，然后在小组内说说自己最想造出什么样的车。考虑到学生写这篇习作有困难，所以以小组为单位来进行画图设计和写话。整体效果还可以，不过大部分采用按钮功能，缺少创新。
七彩香肠车(一等奖)
柴士荣、刘益君、张颐馨、田耀诚、杨若昕、王业千秋
blogTag:'小学,教育,日记',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:7,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}收藏本文到：更多 >>
Copyright &
All Rights Reserved本帖已被收录到知识树中，索引项：
前一段时间很少来这里，是因为花了很长一段时间用EXCEL+ACCESS+WORD做了一个适合本部门使用的东东，这个东东做出来后，简化了本部门的很多工作，得到领导的口头表扬:(。本应把东东传上来让大家批评批评，但由于涉及到本部门的一些小小秘密，要改大量的东东，而且代码又太乱，也就懒得上传了。我就以做一个通讯录并可以用通讯录的地址打印信封为例，把我做这个东东的过程弄出来和大家分享分享。
首先申明：
1、本帖不是教学帖，请大家不要问我为什么代码要这样写，因为有的也我不知道为什么，我只知道这样可以达到目的。
2、偶不是科班出身，所以在写代码时有很多陋习，还请大家不要扔偶鸡蛋。
3、虽然费了九牛二虎之力整出来个东东，但很多代码写得比较幼稚，请各位大虾不要笑话，知道如何简化的还请告知一声。
4、请大家不要催我，因为我要把代码测试过没问题才能弄上来，而世界杯又到了。不过不管如何我一定会全部弄出来的。
猜你喜欢看
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
建三个文件
一个当然是ACCESS数据库了（以前用EXCEL来保存数据，而又需要可以多人可以编辑，所以共享了EXCEL，让我饱受文件经常损坏和速度奇慢之苦，用ACCESS做数据库后，幸福多了[em01]），我把它命名为“通讯录“，在ACCESS中建一个表，也命名为“通讯录”，“通讯录”表包括13个字段（ID、姓名、办公电话、手机、小灵通、传真、家庭电话、QQ号码、工作单位、单位地址、邮政编码、电子邮件、MSN），其中ID是自动编号，其它十二个字段均为非必填字段、允许空字符串；字段大小分别是：姓名为8、所有的电话和QQ号码为12、邮政编码为6、其它均为50（请根据字段长度分别设置文本框的maxlength属性）。
另一个是EXCEL文件，我也把它命名为通讯录，这个EXCEL文件主要是用来做界面，对ACCESS数据库的操作全在这里进行了，在EXCEL里插入一个窗体，窗体再插入12个标签、12个文本框和10个命令按钮（为方便操作，我将textbox1~textbox12的顺序根据“通讯录”表的字段排列，即工作单位的文本框为textbox8、单位地址的文本框为textbox9、邮政编码的文本框为textbox10等），标签的caption属性分别设为姓名、办公电话、手机、小灵通、传真、家庭电话、QQ号码、工作单位、单位地址、邮政编码、电子邮件、MSN；命令按钮的caption属性为别为首条、前条、后条、末条、添加、修改、删除、查找、打印、退出，如下图：
document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
最后一个是WORD文件，命名为信封，以后用来打信封用。在我的实际工作中，这个WORD文件是帮了我的大忙，以前我打一封文书的时候，要分别打开草拟稿纸、XXX文书、送达回证（两份），逐个修改后再打印，尤其是那个文书，需要修改的地方不下二十处，又有好几个时间，害得我经常搞错[em06]，用我做的那个东东后，一键就搞定了四个文书，既加快了速度，又减少了修改过程中容易发生的错误。[em01][em01]
[此贴子已经被作者于 19:58:42编辑过]
(59.51 KB, 下载次数: 69)
19:51 上传
下载次数: 69
(54.98 KB, 下载次数: 41)
19:58 上传
下载次数: 41
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
我考虑的是如何向数据库里添加数据，所以就先搞定“添加”按钮（即CommandButton5）。
我把添加分为两步进行，一是按下CommandButton5按钮后，才可以在文本框输入数据，在文本框输入数据后再按一下CommandButton5按钮才把数据输入到ACCESS数据库，那如何判断是向文本框输入数据，还是向数据库输入数据呢？我是根据CommandButton5按钮的caption属性来判断的，如果CommandButton5按钮的caption属性是“添加”二字，就把所有的文本框的enabled属性都设为true，好让我向文本框输入数据，并且此时把CommandButton5按钮的caption属性改为“保存”二字。如果CommandButton5按钮的caption属性为“保存”，就把文本框里的数据保存入ACCESS数据库。
在添加时有时突然不想添加了，怎么办？我就用另一个按钮（"退出"按钮，即CommandButton10）来判断，是否取消添加，即按下CommandButton5后，把CommandButton10的caption属性改为取消，如果在CommandButton10的属性为取消时按下它，就取消添加。
在添加过程中，为防止误按其它按钮，我就把除CommandButton5和CommandButton10之外的按钮全禁止了。
如何添加到数据库，当然用ADO来实现了（这是我研究了N久的后，才搞定的[em01]）
代码如下：
Dim Stpath As String
Dim Strsql As String
If CommandButton5.Caption = "添加" Then
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = True
Me.Controls("textbox" & i) = ""
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton5.Enabled = True
CommandButton5.Caption = "保存"
CommandButton10.Caption = "取消"
TextBox1.SetFocus
For i = 1 To 12
A(i) = Me.Controls("textbox" & i).Value
[U]Set cnn = CreateObject("Adodb.Connection")
Set rst = CreateObject("Adodb.Recordset")
Stpath = ThisWorkbook.Path & Application.PathSeparator & "通讯录.mdb"
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""[/U]
Strsql = "Insert Into 通讯录(姓名,办公电话,手机,小灵通,传真,家庭电话,QQ号码,工作单位,单位地址,邮政编码,电子邮件,MSN) " & _
"Values('" & A(1) & "','" & A(2) & "','" & A(3) & "','" & A(4) & "','" & A(5) & "','" & A(6) & "','" & A(7) & "','" & A(8) & "','" & A(9) & "','" & A(10) & "','" & A(11) & "','" & A(12) & "')"
cnn.Execute Strsql
Strsql = "Select * From 通讯录"
rst.Open Strsql, cnn, 1, 3
rst.movelast
myID = rst.Fields(0)
Set rst = Nothing
Set cnn = Nothing
MsgBox "数据已输入!", vbOKOnly + 64, "温馨提示"
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = True
CommandButton5.Caption = "添加"
CommandButton10.Caption = "退出"
上面有下划线的部分以后经常用到，所以我在EXCEL里插入一模块，把下划线部分写在模块里，以后可以少写很多东东，也方便维护。如下：
Public stpath
Public cnn
Public rst
Sub mycnn()
Set cnn = CreateObject("Adodb.Connection")
Set rst = CreateObject("Adodb.Recordset")
stpath = ThisWorkbook.Path & Application.PathSeparator & "通讯录.mdb"
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Open "Data Source =" & stpath & ";Jet OLEDB:Database Password=" & ""
并把下划线改成Call mycnn,并去掉 Dim Stpath As String
[此贴子已经被作者于 20:43:35编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第三步窗体初始化当数据库有了数据后，我想到的是显示窗体时，不要让文本框空当当的，就让它显示数据库里的数据吧。显示窗体时，如果数据库里没有数据，除了“添加”和“退出”按钮，其它按钮好像都没什么用，我就让它们失效；如果数据库里只有一条数据，那首条、末条、向前、向后按钮好像也没什么用，我也让它们失效；不管数据库里有多少条数据，我只能让它显示第一条，首条、向前按钮我也让它失效了。所以就有了下面的代码。有个另外的情况,如果是经过查询再返回到这个主窗口时,因为我没想到特别好的办法,办能就让所有的按钮都有效,我是根据myid来判断,是否是经过查询再返回到这个主窗口的。代码如下：Private Sub UserForm_Initialize()&&& '窗口初始化&&& Dim Strsql As String&&& Dim i%&&& Call mycnn&&& If myID = 0 Then&&&&&&& Strsql = "Select * From 通讯录"&&&&&&& rst.Open Strsql, cnn, 1, 3&&&&&&& If rst.RecordCount = 0 Then&&&&&&&&&&& For i = 1 To 9&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&& Next&&&&&&&&&&& CommandButton5.Enabled = True&&&&&&& Else&&&&&&&&&&& If rst.RecordCount = 1 Then&&&&&&&&&&&&&&& For i = 1 To 4&&&&&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&&&&&& Next&&&&&&&&&&& Else&&&&&&&&&&&&&&& For i = 1 To 2&&&&&&&&&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = False&&&&&&&&&&&&&&& Next&&&&&&&&&&& End If&&&&&&& End If&&& Else&&&&&&& Strsql = "Select * From 通讯录 where ID=" & myID&&&&&&& rst.Open Strsql, cnn, 1, 3&&&&&&& For i = 1 To 4&&&&&&&&&&& Me.Controls("commandbutton" & i).Enabled = True&&&&&&& Next&&& End If&&& &&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&&&&&& Me.Controls("textbox" & i).Enabled = False&&& Next&&& Set rst = Nothing&&& Set cnn = NothingEnd Sub
[此贴子已经被作者于 21:05:15编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
修改和添加差不多，根据CommandButton6的catiion属性来判断修改还是修改后的保存。当CommandButton6的caption属性为修改时，按下CommandButton6按钮，就让所有的textbox可以编辑为防止意外，把除CommandButton6按钮和CommandButton10按钮之外的按钮禁止，并把CommandButton10的caption改为“取消”，好让不想修改时取消修改，同时，把CommandButton6的caption属性改为保存。
当CommandButton6的caption属性为保存时把textbox中的值用update修改到数据库中去，根据什么来修改，才能修改到我想修改的记录？因为12个文本框都有可能被修改，如果用当年任一文本框中值来搜寻数据库中的内容，都有可能搜索不到，或者即使搜索到，都有可能是另外（或重复）的记录，而不是我想修改的记录，这时，我考虑的是，必须根据一个唯一值到数据库来搜寻我想修改的记录，正好ID字段（自动编号的那个）符合这个要求，这就要求每当textbox显示一条记录时，公共变量myID都要等于这条记录ID字段的值。前面初始化窗体时，已经做到了，但在添加时，还没有做到，我发现，每当添加一条记录时，都是添加在数据库的末尾，那就在添加按钮中增加使公共变量myID等于刚添加记录的ID值（即最后一条记录的ID值,添加的红色代码部分）。
CommandButton6的代码如下：
Private Sub CommandButton6_Click()
Dim Strsql As String
If CommandButton6.Caption = "修改" Then
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = True
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton6.Enabled = True
CommandButton6.Caption = "保存"
CommandButton10.Caption = "取消"
TextBox1.SetFocus
For i = 1 To 12
A(i) = Me.Controls("textbox" & i).Value
Call mycnn
Strsql = "Update 通讯录 set 姓名='" & A(1) & "',办公电话='" & A(2) & "',手机='" & A(3) & "',小灵通='" & A(4) & "',传真='" & A(5) & "',家庭电话='" & A(6) & "',QQ号码='" & A(7) & "',工作单位='" & A(8) & "',单位地址='" & A(9) & "',邮政编码='" & A(10) & "',电子邮件='" & A(11) & "',MSN='" & A(12) & "' where ID = " & myID
cnn.Execute Strsql
Set rst = Nothing
Set cnn = Nothing
MsgBox "数据已修改!", vbOKOnly + 64, "温馨提示"
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = True
CommandButton6.Caption = "修改"
CommandButton10.Caption = "退出"
[此贴子已经被作者于 20:44:22编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
删除相对来说简单一点，当然，按下删除前最好提示一下，否则一不小心按错了就惨了，所以我用一个msgbox进行提示，如果在msgbox上按“是”则删除，按“否”则不删除。
删除是根据ID字段（因为它唯一，不用担心删了其他相同的值）在数据库中找到记录并删除的。
删除文本框中的记录后，清除文本框中的值，并搜索数据库，如果有记录，就显示到文本框中来，如果没有，就只有添加和退出按钮有用，其它禁用（和初始化窗体类似）。
代码如下：
Private Sub CommandButton7_Click()
Dim Strsql As String
ts = MsgBox("您是否真的删除该记录？", vbYesNo + 64, "温馨提示！")
If ts = vbNo Then
Call mycnn
Strsql = "delete * from 通讯录 where ID = " & myID
cnn.Execute Strsql
For i = 1 To 12
Me.Controls("textbox" & i) = ""
Strsql = "Select * From 通讯录"
rst.Open Strsql, cnn, 1, 3
If rst.RecordCount = 0 Then
For i = 1 To 9
Me.Controls("commandbutton" & i).Enabled = False
CommandButton5.Enabled = True
If rst.RecordCount = 1 Then
For i = 1 To 4
Me.Controls("commandbutton" & i).Enabled = False
For i = 1 To 2
Me.Controls("commandbutton" & i).Enabled = False
myID = rst.Fields(0)
For i = 1 To 12
Me.Controls("textbox" & i) = rst.Fields(i)
Set rst = Nothing
Set cnn = Nothing
For i = 1 To 12
Me.Controls("textbox" & i).Enabled = False
Set rst = Nothing
Set cnn = Nothing
[此贴子已经被作者于 20:00:08编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第六步退出因为我用退出按钮来取消添加或删除，所以按下退出按钮时，有两种情况，一是当退出按钮的caption属性是“取消”时，使文本框的值为原记录，其他按钮均恢复为可用，添加按扭和修改按钮的caption属性分别恢复为“添加”和“修改”。当退出按钮的caption属性是“退出”时，卸载窗体。有了退出代码后，我就把右上角的那个叉给禁止了[em01]。代码如下：Private Sub CommandButton10_Click()&&&&'退出或者取消添加和修改&&&&Dim Strsql As String&&&&Dim i%&&&&If CommandButton10.Caption = "取消" Then&&&&&&&&CommandButton10.Caption = "退出"&&&&&&&&Call mycnn&&&&&&&&Strsql = "Select * From 通讯录 where ID=" & myID&&&&&&&&rst.Open Strsql, cnn, 1, 3&&&&&&&&myID = rst.Fields(0)&&&&&&&&For i = 1 To 12&&&&&&&&&&&&Me.Controls("textbox" & i) = rst.Fields(i)&&&&&&&&&&&&Me.Controls("textbox" & i).Enabled = False&&&&&&&&Next&&&&&&&&Set rst = Nothing&&&&&&&&Set cnn = Nothing&&&&&&&&CommandButton5.Caption = "添加"&&&&&&&&CommandButton6.Caption = "修改"&&&&&&&&For i = 1 To 9&&&&&&&&&&&&Me.Controls("commandbutton" & i).Enabled = True&&&&&&&&Next&&&&Else&&&&&&&&Unload Me&&&&End IfEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)‘禁止那个X[em01]&&&&If CloseMode && 1 Then Cancel = 2&myID = 0'退出窗口时，把myid值也清掉吧。End Sub
[此贴子已经被作者于 21:15:25编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第七步&前条、首条&数据库中有了数据后，我开始想实现简单的查询，想想还是一条一条查吧，于是就整了前条，所谓前条，就是当年记录的前一条记录，我的思路是，先从数据库中把所有记录查询出来，然后用循环找到当前显示在文本框中的记录（我是用ID字段来比较的，因为它不会重复），然后前移一条记录，显示在文本框中，如果是第一条记录，就把前条、首条按钮禁止掉，当然，向前移了，后条、末条按钮当然不能再禁止了。首条就相对容易一点了，先从数据库中把所有记录查询出来，然后移到第一条记录后，显示在文本框中就行了。代码如下：Private Sub CommandButton2_Click()&&& '前条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& Do Until rst.Fields(0) = myID&&&&&&& rst.movenext&&& Loop&&& rst.MovePrevious&&& If rst.BOF Then&&&&&&& CommandButton1.Enabled = False&&&&&&& CommandButton2.Enabled = False&&&&&&& rst.movenext&&& End If&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton3.Enabled = True&&& CommandButton4.Enabled = True&&& End Sub&Private Sub CommandButton1_Click()&&& '首条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& rst.movefirst&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = False&&& CommandButton2.Enabled = False&&& CommandButton3.Enabled = True&&& CommandButton4.Enabled = TrueEnd Sub&PS：后面的后条和前条的思路类似，都是用循环，感觉效率有点低，但我实在想不出其他办法了。哪位仁兄仁姐知道的，就告诉我哈，多谢先。再PS：由于世界杯，我有小小慢，不好意思哈，偶肯定会完成的。希望乱七八糟的文字和代码没有倒了大家伙的胃口哈。[em01]
[此贴子已经被作者于 21:38:29编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第八步&后条、末条&后条的思路和前条一样，先从数据库中把所有记录查询出来，然后用循环找到当前显示在文本框中的记录（我是用ID字段来比较的，因为它不会重复），然后向后移一条记录，显示在文本框中，如果是最后一条记录，就把后条、末条按钮禁止掉。前条、首条按钮不再禁止。首条，先从数据库中把所有记录查询出来，然后移到最后一条记录后，显示在文本框中就行了。代码如下：Private Sub CommandButton3_Click()&&& '后条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& Do Until rst.Fields(0) = myID&&&&&&& rst.movenext&&& Loop&&& rst.movenext&&& If rst.EOF Then&&&&&&& CommandButton3.Enabled = False&&&&&&& CommandButton4.Enabled = False&&&&&&& rst.MovePrevious&&& End If&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = True&&& CommandButton2.Enabled = TrueEnd SubPrivate Sub CommandButton4_Click()&&& '末条&&& Dim Strsql As String&&& Call mycnn&&& Strsql = "Select * From 通讯录"&&& rst.Open Strsql, cnn, 1, 3&&& rst.movelast&&& myID = rst.Fields(0)&&& For i = 1 To 12&&&&&&& Me.Controls("textbox" & i) = rst.Fields(i)&&& Next&&& &&& Set rst = Nothing&&& Set cnn = Nothing&&& CommandButton1.Enabled = True&&& CommandButton2.Enabled = True&&& CommandButton3.Enabled = False&&& CommandButton4.Enabled = FalseEnd Sub
[此贴子已经被作者于 21:47:45编辑过]
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
在线时间698 小时经验13126 威望4 性别男最后登录注册时间阅读权限95UID40771积分13726帖子精华2分享0
积分排行36帖子精华2微积分0
第九步&查找（分4步吧）&第九步（一）在做这个东东的过程中，我感觉查找是非常麻烦的，总是很难达到让我满意的效果。最后实在没办法的情况下，就糊弄了一下自己，反正做出来能用就行了，至于小小瑕疵就懒得理它了。我觉得仅仅这一个窗口很难实现一些复杂的查找工作，没办法，只能再插入一个窗体，在窗体上插入三个标签、一个列表框、一个文本框、三个命令按钮和一个ListView控件。如下图：document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
[此贴子已经被作者于 21:26:05编辑过]
(49.26 KB, 下载次数: 44)
21:23 上传
下载次数: 44
来生再续缘，和你共缠绵！
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open('http://club.excelhome.net/showimg.asp?BoardID=101&filename=25.gif');}" onmousewheel="return imgzoom(this);" alt="" />
浏览过的版块
优秀会员奖章No.1
优秀会员奖章No.2
积分≥4700即可申请
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&}
我要回帖
更多关于 火箭队 的文章
- ·用自己的话说说火箭是怎样升上外太空九号计划的
- ·一个做出来的火箭队怎么点一个按扭就能飞一下
- ·火箭队体上涂了什么东西
- ·请问NBA赛事，火箭队客场连续七八个赛季都输给多伦多猛龙队新标志。为什么火箭队客场输给多伦多猛龙队新标志呢？
- ·火箭队武藏小次郎优酷和勇士队第一场谁的胜率会高点？
- ·请问勇士队和火箭队台词会打成什么的比分?
- ·火箭队武藏小次郎和勇士队谁能进入总决赛？
- ·美国红火箭 快船高度80公分,直径0.5价格多少
- ·火箭吧图书馆
- ·请问07-64火箭落选新秀残骸落在哪个村
- ·nbaonline如何我想成为领袖火箭队的领袖
- ·火箭队赛程上周加时赛
- ·火箭队直播的三板斧战术是那三个战术，谁知道，来说说，说认真的，别来什么xjb，这我知道
- ·用于剑灵劳动节纪念牌失败火箭队赛季失败的一首中文歌叫什么？
- ·纳什嵌入定理有没有入过火箭队
- ·好讨厌的感觉啊火箭队火箭队是不是忘了什么
- ·火箭队赛程最后1分钟狂追9分，当时到底发生了什么
- ·为什么我好讨厌的感觉啊火箭队火箭队对内有练过专门为了哈登而设计的
- ·火箭队琼斯去哪里了最好的后卫诺瑞现在去了哪里
- ·为什么火箭队球员名单简称HOU不是HUO么
- ·火队这三队，推荐哪个
- ·2006年火箭队湖人的主力中锋现在是哪个人？
- ·有没有火箭队bgm50周年庆那个视频。记得bgm是陪安东尼度过漫长岁月。是腾讯体育直播比赛休息的时候放的
- ·请问火箭队比赛视频直播对灰熊队的比分在哪里能看直播
- ·火箭队史 哈登 地位哈登漂亮十大绝杀 揭秘火箭为什么能得到哈登
- ·宿舍哪些事之火箭队交易（声优：杨步野，摄像：方竞吾
- ·韦德会不会加盟火箭队热火
- ·哪个队终结火箭22连胜终结14连
- ·NBA火箭队今天的比赛直播的MM组合是指“特雷西·麦克格雷迪”和哪位球员？
- ·到哪里可以找出火箭队成员几年前的视频...是整场比赛的录像!_百度知道
- ·全盛黑化小智加入火箭队对决全盛火箭队，哪个赢
- ·为什么nba火箭队吧上头的广告是阿迪的，nba火箭队队谁
- ·三年前NBA火箭队赛程阵容与本赛季火箭阵容谁更强
- ·你为什么不喜欢火箭队为什么这么强
- ·对休斯敦火箭队队与快船队的比赛冲突及处罚结果，你怎么看
- ·年纪挺大了，为什么还要坚持随火箭队赛程去客场看比赛
- ·那些三次元的家伙和火箭队球员名单有什么区别
- ·灯泡算得上是火箭队成员史最佳后场吗
- ·圣诞节的火箭队成员先发五人是谁
- ·火箭队成员你知道为什么？
- ·火箭少女 火箭队队实用什么来测量的？
- ·周琦还会在火箭队吗之前的奖励还会回归吗
- ·曾跟火箭队成员合作但现在终止合作的还有哪些关系厂商?
- ·有人觉得火箭队成员很不负责任吗
- ·因为休斯敦火箭队吧的发言，怎么没在手机上设置禁止推送任何NBA的消息,看着恶心。
更多推荐
- ·去新疆带什么衣服必买的五件衣服
- ·五一要几号免高速免费费吗
- ·新疆有哪些民族哪个是姓名
- ·乌鲁木齐到喀什旅游攻略最佳线路多少公里
- ·新疆自驾游攻略有哪些公路
- ·阅续短文完成练习丹顶鹤图片这段话围绕哪句话来写
- ·廉桥一中中心小学的体育老师龙坤
- ·脚被赛车砸后起了一个红色的疱红色白带是怎么回事事
- ·怎么判断全员劳动生产率率是提高还是降低？
- ·08年南骏集团牌cnj3040zgp37b配套规格轮胎型号。
- ·求rsi指标详解？
- ·同城乱斗西游激活码码6.5以上版本
- ·五年级说明文关于大公鸡的说明文400字左右
- ·求助请问新百伦的鞋子真假假
- ·分析儿歌橙子变变变手指变变变的辞格
- ·反武林外传邪风剑客反邪气的资料
- ·aj属于什么aj品牌故事
- ·有人比我更帅吗在线吗？有人比我更帅吗在线吗？
- ·新视野大学英语教案1读写unite3的知识点
- ·皇家德州扑克在线有什么规律
- ·一个做出来的火箭队怎么点一个按扭就能飞一下
- ·给我一篇拿国家励志奖学金查询的文章谢谢？
- ·鞋子抬脚时前面脚掌有硬皮抬起时鞋子会发出吱吱声
- ·一台瑞士产wTR牌AX一280cD功放有谁知道手机黄的网址它的功放输出管的型号？
- ·BB3D香港占中是什么意思？
- ·明康医学是医学类核心期刊刊吗?
- ·冠军出现在我国哪个先秦时期我国农业？
- ·第三季我我真是大明星星王媛媛夫视频
- ·购买自行车购买指南(小学生专用)
- ·有草 柳 榴 社 区2014最新入口管理员吗,有如何获得草榴邀请码码吗
- ·江苏快3怎么玩容易中奖吗？
- ·品德与社会五年级上册第三单元二单元怎样看电视资料
- ·田宫四驱车比赛视频闪电暴鲨拼装视频
- ·各位，看一下这款户外背包是双肩背包什么牌子好，知道的说一声，谢谢。
