DataGridView中直接增删改查的方法—追加了复制粘贴功能
在https://www.doczj.com/doc/b77694353.html, 或C#中对于直接增删改DataGridView中的记录，用户更易接受，虽然DataGridView本身提供Update的方法（该仅需有Select语句即可）可将添加或删除或更新的的记录同时更新至底层数据库，但该方法模拟Excel的操作，如用户未点击保存按钮，用户此前所做的添加修改或更新的操作无法反映到底层数据库，若此时有别的用户也在访问该表格，系统所显示的还是旧的数据而不是最新的；另外系统所提供的Update方法仅适用于单表查询结果的操作，而对于关联表查询的操作则无能为力。
下面的提供的方法所有的操作必须要手动完成，select,update,delete,insert的语句全部有编程人员手动加入。
在DataGridView中可通过其本身直接增加记录，修改记录，以及删除记录。为了保证修改及删除的功能正常运行，数据库在设计表时必须要添加自动编号ID。
添加记录：
一般添加时，用Insert方法可模拟向数据库添加空白记录，以获取数据库的自动编号，随后利用修改功能输入其他字段的数据。
修改记录：
修改记录时利用DataGridiView的CellEndEdit事件直接修改，每修改完一个单元格即触发该事件，该事件再调用Update方法更新到数据库中的记录。避免数据库表中添加了新的字段而必须修改Update 的sql语句。
删除记录：
有了ID后，删除记录也变得更简单，只需将所有欲删除的记录选中，最后由数据库的Delete方法删除选择的记录。
以上方法每一次动作均直接与数据库关联，保证数据库中的数据都是最新的，一般对于局域网中的操作比较合适。
直接上项目：
将DataGridView控件拉入窗体中，打开其属性，修改AllowUserToAddRows 与AllowUserToDeleteRows 均为False，如下图。
.
同时必须将下面的删除和添加按钮删除，加入自己的删除按钮和添加按钮。
表中灰色ID列为不能修改，而其余的列修改即保存。
具体代码如下：
Imports System.data
Imports System.data.sqlclient
Public Class frmDataGridViewPast
#Region"定义变量"
Private conn As New SqlConnection("server=server;database=dbtest;uid=sa;pwd=sa")
Private da As New SqlDataAdapter()
Private tbl As New DataTable
Private sql As String = ""
Private cmd As New SqlCommand
#End Region
#Region"初始加载"
Private Sub InitLoad()
'初始加载程序
Try
Me.Cursor = Cursors.WaitCursor
'打开连接
conn.Open()
sql = "select ID,Number,[Name],age,gender,Address,Telphone,Email from nametable" cmd.Connection = conn
https://www.doczj.com/doc/b77694353.html,mandText = sql
https://www.doczj.com/doc/b77694353.html,mandType = CommandType.Text
da.SelectCommand = cmd
tbl.Clear()
tbl = New DataTable
da.Fill(tbl)
'定义绑定数据源，以便DataGridview和BindingNavigator 享用同一数据源。
Dim bindSrc As New BindingSource
bindSrc.DataSource = tbl
Me.dg1.DataSource = bindSrc
bdnv1.BindingSource = bindSrc
'将DataGridView的列宽设定为所有单元格，每列的宽度以该列中最宽单元格宽度为准显示
'该方法不会关闭手动调整列宽的功能．
dg1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
'由于ID是由数据库自动生成的数据，所以此处将其改为只读，不能让用户修改该列内容，而其他的列均可修改。
dg1.Columns(0).ReadOnly = True
dg1.Columns(0).DefaultCellStyle.BackColor = Color.LightGray
Catch ex As Exception
'遇到问题就报系统错误！
MsgBox(ex.Message)
Finally
Me.Cursor = Cursors.Default
conn.Close()
End Try
End Sub
Private Sub frmDataGridViewPast_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitLoad()
End Sub
#End Region
#Region"添加新数据"
'注意：此处模拟添加数据给表，只是为了得到一个数据库自动的ID番号，输入后即可按更新的方法直接输入数据Private Sub tsBtnAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnAddNew.Click
Try
Me.Cursor = Cursors.WaitCursor
conn.Open()
sql = "Insert into nametable(Number)values('')"'仅输入空值，只为能获得数据库的自动ID番号
cmd = New SqlCommand
cmd.Connection = conn
https://www.doczj.com/doc/b77694353.html,mandType = CommandType.Text
https://www.doczj.com/doc/b77694353.html,mandText = sql
cmd.ExecuteNonQuery() '此处直接将数据保存到底层数据库中
Catch ex As Exception
MsgBox(ex.Message)
Finally
Me.Cursor = Cursors.Default
conn.Close()
End Try
'添加完成后再将数据重新加载
InitLoad()
'并且每次输入后，总是将最新输入的记录显示在表的最后部分.
dg1.FirstDisplayedScrollingRowIndex = dg1.RowCount - 1 End Sub
#End Region
#Region"删除表中选择的数据"
Private Function getDeleteID() As Integer()
'为了方便以后移植到底层类所以此处特将选中的ID先保存至本地数组中
Dim ID() As Integer
ReDim ID(dg1.SelectedRows.Count)
For i As Integer = 0 To dg1.SelectedRows.Count - 1
ID(i) = CInt(dg1.SelectedRows(i).Cells(0).Value)
Next
Return ID
End Function
Private Sub DeleteData()
'该方法可同时删除连续选择的多行记录。
'删除数据以表中的ID番号为准，删除时先删除底层的数据然后删除表中的数据
'注意；删除时必须选择整行的数据
Try
Me.Cursor = Cursors.WaitCursor
conn.Open()
'删除时从ID的数组中取出该ID，再按该ID番号删除底层数据库中的记录
Dim ID() As Integer = getDeleteID()
For i As Integer = 0 To ID.Length - 1
sql = "delete from nameTable where ID='" & ID(i) & "'"
cmd = New SqlCommand
cmd.Connection = conn
https://www.doczj.com/doc/b77694353.html,mandType = CommandType.Text
https://www.doczj.com/doc/b77694353.html,mandText = sql
cmd.ExecuteNonQuery()
Next
'删除数据库记录后再删除界面中的记录
Dim x As Integer = dg1.SelectedRows.Count
While x > 0
dg1.Rows.RemoveAt(dg1.SelectedRows(x - 1).Index)
x -= 1
End While
Catch ex As Exception
MsgBox(ex.Message)
Finally
Me.Cursor = Cursors.Default
conn.Close()
End Try
End Sub
Private Sub tsBtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnDelete.Click
DeleteData()
End Sub
#End Region
#Region"修改表中数据直接保存到数据库相应表中"
Private Sub dg1_CellEndEdit(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellEndEdit
'当表中的记录有修改时可直接将当前的数据保存至底层数据库中
Try
Me.Cursor = Cursors.WaitCursor
conn.Open()
Dim ID As Integer = CInt(dg1.CurrentRow.Cells(0).Value.ToString) '一般表的首列为ID,每次有改动时均以ID作为条件
Dim UpdateFieldName As String = dg1.Columns(e.ColumnIndex).Name.ToString '修改时以当前单元格的列名为字段名，
Dim UpdateValue As String = dg1.CurrentCell.Value.ToString '修改后的当前值作为保存到数据库的值,因使用了字段名称直接等于值的方式，今后数据库表中即使添加了字段也不必在此处添加新的字段，程序自动会根据DataGridView的字段名及输入后的值直接保存至数据库。
sql = "Update nametable set " & UpdateFieldName & "='" & UpdateValue & "' where ID=" & ID & "" cmd = New SqlCommand
cmd.Connection = conn
https://www.doczj.com/doc/b77694353.html,mandType = CommandType.Text
https://www.doczj.com/doc/b77694353.html,mandText = sql
cmd.ExecuteNonQuery() '此处直接将数据保存到底层数据库中
Catch ex As Exception
MsgBox(ex.Message)
Finally
Me.Cursor = Cursors.Default
conn.Close()
End Try
End Sub
#End Region
#Region"刷新数据"
Private Sub tsBtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnRefresh.Click
InitLoad()
End Sub
#End Region
’－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－―――――――――――------- ‘新添加了复制粘贴功能
#Region"表格复制粘贴功能"
'关于DataGridView的复制和粘贴一直很困扰，因为要每次粘贴好后，还要能直接保存到数据库表中，所以采取了'以行为单位作为复制源，粘贴时可选取多行一起粘贴，当然所有的数据均会保存至数据库，保存时以表的ID '番号为准。
'首先加入快捷菜单，命名为ctMnuForDg1,并添加两子菜单，复制(&C) 和粘贴(&P),
'复制按钮
Private Sub tsMnuCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuCopy.Click
'注意，选择数据源时，只能选择一行，但同时可选择多个单元格。
'此方法旨在将DataGridView中选择的任意多连续单元格的值复制到剪贴板中
'以便粘贴至其他地方如Excel中或其他的程序中。
Dim CellValue As String = ""'定义粘贴的值
Dim RCount As Integer'当前行数
Dim CCount As Integer'当前列数
Dim MaxRCount As Integer = dg1.SelectedCells(0).RowIndex '当前最大行数
Dim MaxCCount As Integer = dg1.SelectedCells(0).ColumnIndex '当前最大列数
Dim MinRCount As Integer = dg1.SelectedCells(0).RowIndex '最小行数
Dim MinCCount As Integer = dg1.SelectedCells(0).ColumnIndex '最小列数
For i As Integer = 1 To dg1.SelectedCells.Count - 1
'表中循环获得最大行数,列数和最小行数和列数
RCount = dg1.SelectedCells(i).RowIndex
If MaxRCount < RCount Then
MaxRCount = RCount
End If
If MinRCount > RCount Then
MinRCount = RCount
End If
CCount = dg1.SelectedCells(i).ColumnIndex
If MaxCCount < CCount Then
MaxCCount = CCount
End If
If MinCCount > CCount Then
MinCCount = CCount
End If
Next
'将每一单元格的值添加到变量中
For i As Integer = MinRCount To MaxRCount
For j As Integer = MinCCount To MaxCCount
If j < MaxCCount Then
CellValue += dg1.Rows(i).Cells(j).Value.ToString & Chr(9)
Else
CellValue += dg1.Rows(i).Cells(j).Value.ToString
End If
Next
'在剪贴板中最后都要加一空白行,所以此处无需处理。
CellValue += Chr(13) + Chr(10) '注意13在前10在后才有回车效果。
Next
'最后将获得的值输入到剪贴板中
Clipboard.SetData(DataFormats.Text, CellValue)
End Sub
'粘贴按钮
Private Sub tsMnuPaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsMnuPaster.Click
Try
Me.Cursor = Cursors.WaitCursor
conn.Open() '打开连接
Dim RowChangeChar As String = Chr(13) + Chr(10) '换行字符
Dim ClmChangeChar As String = Chr(9) '列间隔字符
Dim R, C As Integer'选择的行和列的索引
Dim CellValue As String'当前取到的值
CellValue = Clipboard.GetText().Trim '从剪贴板获得值
Dim RowsCount As Integer = CellValue.Split(RowChangeChar).Length
Dim ClmsCount As Integer = CellValue.Split(RowChangeChar)(0).Split(ClmChangeChar).Length
Dim SelCount As Integer = dg1.SelectedCells.Count
'把行和列的惟一索引分别存储在数组中,然后各自排列,最后再组合在一起。
Dim CIndex_Arr As New ArrayList
Dim RIndex_Arr As New ArrayList
Dim FirstColumnIndex As Integer
Dim FirstRowIndex As Integer
Dim WhereCondition As String'作为更新条件的语句如 where ID='1'
'Dim Prev_R As Integer = dgColor.SelectedCells(0).RowIndex()
'先将行列索引分别输入各自的数组中
For i As Integer = 0 To SelCount - 1
'
'取得此选择纪录的对于dg的行索引位置
R = dg1.SelectedCells(i).RowIndex
'取得此选择纪录的对于dg的列索引位置
C = dg1.SelectedCells(i).ColumnIndex
RIndex_Arr.Add(R)
CIndex_Arr.Add(C)
Next
'对索引排序
RIndex_Arr.Sort()
CIndex_Arr.Sort()
FirstColumnIndex = CIndex_Arr(0)
FirstRowIndex = RIndex_Arr(0)
Dim PastStr As String
Dim Row_S As Integer'当前源数据中的行索引
Dim UpdateFieldValue As String'写入到数据库的数据如:字段名='b'
Dim R_Prev As Integer = RIndex_Arr(0)
For i As Integer = 0 To RIndex_Arr.Count - 1
'依次获得行的索引
R = FirstRowIndex + i
WhereCondition = dg1.Rows(R).Cells(0).Value.ToString
'依次获得列的索引
'如果i=0为首次计算,然后判断是否不等时才输入,
UpdateFieldValue = ""
For j As Integer = 0 To ClmsCount - 1
PastStr = CellValue.Split(RowChangeChar)(Row_S).Split(ClmChangeChar)(j).ToString C = FirstColumnIndex + j
dg1.Rows(R).Cells(C).Value = PastStr
'2014/03/13 修正，更新语句改为末尾处理掉多余的逗号的方式。
UpdateFieldValue += dg1.Columns(C).Name & "='" & PastStr & "',"
Next
'处理掉多余的逗号。
UpdateFieldValue = UpdateFieldValue.Substring(0, UpdateFieldValue.Length - 1)
'该部分语句可迁徙到其他类中，由于是demo所以放在此处。
sql = "Update nametable set " & UpdateFieldValue & " where ID='" & WhereCondition & "'" cmd = New SqlCommand
cmd.Connection = conn
https://www.doczj.com/doc/b77694353.html,mandType = CommandType.Text
https://www.doczj.com/doc/b77694353.html,mandText = sql
cmd.ExecuteNonQuery() '此处直接将数据保存到底层数据库中。
'当前行位置，每次累加到末尾，再从头开始。
'即被粘贴的行数超过剪贴板的行数时，再寻坏从0开始，直到选中粘贴的末行为止。
If Row_S = RowsCount - 1 Then
Row_S = 0
Else
Row_S += 1
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
Me.Cursor = Cursors.Default
conn.Close()
End Try
End Sub
#End Region
以上
演示文稿设计与制作（公共选修课）作业要求及作业上传方法1、创建一个“学号+姓名+电话号码”文件夹。制作的演示文稿文 件存入此文件夹中，文件名为：ZY.pptx，其他相关文件均存入此文件夹(作业最好用PPT2010或2007、也可用PPT2003完成) 2、制作七张以上的幻灯片（内容分别包含文字、图片、声音、艺 术字等）。第一张幻灯片内容为学院名称，姓名，学号，联系电话。 3、为每张幻灯片加上页脚，内容为“演示文稿设计与制作”。 4、幻灯片的母板自行设计、幻灯片的背景图片自定。 5、在每张幻灯片的右上角加上：“制作人：《姓名》”。 6、制作一张具有翻书效果的幻灯片（内容自定） 7、制作一个缩略图片 8、制作一个绕图形的某个顶点的顺时针旋转180度的效果 9、文字、图片需包含动画效果 10、将一张幻灯片上的几个对象的动画效果设置为自动连续播放 11、制作一个超级链接,链接到江苏大学主页（https://www.doczj.com/doc/b77694353.html,） 12、网上下载一段视频，并用格式工厂截取10秒的视频（格式为 WMV），插入幻灯片中进行播放（需用控制Windows Media Player 控件）。 13、选一段声音并用格式工厂转换为.wav的格式，并将其设置背 景音乐（内容自定） 14、通过FLASH播放控件，在PPT中插入一个FLASH文件 15、文件夹中的作业文件必须保证能打开，以免影响成绩。 “学号+姓名+电话号码”文件夹需压缩后再上传,作业上传至服务器：
ftp:// dyppt@210.28.58.241用户名、密码均为：dyppt 作业上交截止日期：2014年4月18日(第3-8周上课班级) 2014年5月23日(第9-13周上课班级) 作业上传操作方法 1．选择校内可上网的计算机（宿舍区除外） 2．启动Internet explorer 3．在地址栏中输入：ftp:// dyppt@210.28.58.241 4．如果是IE8.0,则单击“查看”菜单下的“在windows浏览器中打开FTP”；或者单击下面窗口的红色方框“页面”，从下拉菜单中选“在windows浏览器中打开FTP” 5.在新弹出的windows浏览器窗口中重新输入：
教你如何在上传的作业中插入图片和制作简报的 方法 一、如何在网页中插入图片 有些老师在Word中插入了图片，复制－粘贴后作业中没有出现图片的影子。这是因为网页上不能直接粘图片。如果你想在作业中使用图片，请按下列方法操作： 1、将要上传的图片保存在电脑中的一个位置，已经插入Word的图片 是不能上传的。 2、在作业编辑器工具栏上找到“图片”按钮（倒数第10个，一棵绿色大树的形状）， 鼠标对着该按钮会出现一个上传图片的小窗口。点击“上传”按 钮，再点击“浏览图片”，浏览找到您要上传的图片文件。 3、填写宽度和高度，如果不知道填多少就直接点确定，插入后再用鼠标调整图片大小。图片的长宽比例一般是4:3，所以在填写宽度高度时，请您注意这个比例，比如填：200×150等。图片的对齐方式可以调整，单击已插入的图片再把鼠标指向插入图片按钮，将再次出现图片格式设置对话框。
二、如何将Word中的内容转到作业中 方法一：复制粘贴法。从Word中复制文字、表格等内容，再粘贴到作业页面中。这种方法操作容易，但是直接粘进去的表格等特殊对象可能会发生一些变形，最大的缺点是无法直接粘贴图片。操作步骤：Word文档编辑好后，Word编辑（菜单）－全选（或者直接按键盘组合键Ctrl＋A）→转到作业界面，在正文部分点击一下鼠标确定位置→按Ctrl＋V（粘贴快捷键）,这样就可以将Word中的内容粘到网页编辑器中了。如果您的作业中含有图片，建议您在备份好Word文档副本的情况下，先在Word中删除那些图片，然后再复制－粘贴到作业中。如果Word 中有图片，粘到网页中后会出现一些带“×”号的图像占位符，选定后
反复制粘贴的破解办法集锦 1，点击工具-INTERNET选项-安全设置。把它设置为高，点确定，再刷新下网页就可复制了。不过复制了后改回原来的，不然会影响正常上网。也可以点击IE菜单栏上的"文件"->发送->电子邮件页面(跟这向导说的去做就可以拉,一路点击'下一步")然后就可以在弹出的邮件窗口中复制你要的内容就可以了。安全级别最高的时候，一切控件和脚本均不能运行，再厉害的网页限制手段统统全部作废。2，有时候可以用ctrl+A全选你要的页面，然后按ctrl+c复制，再到word里按ctrl+v粘贴，这个在不能使用菜单命令复制的时候很好用。3，用文件菜单里的另存为，文件格式选纯文本的.txt，然后打开这个txt文件.OK 搞定。4，查看-源文件。再另存源文件为.HTML格式，打开即可复制！但是有时候还是不行，需要去掉其中的那段禁止复制的代码才可以。或者直接文件——另存为"网页,仅HTML"格式,快捷方便,可以以此办法来复制那些禁止复制网页内容的网页. 保存好后再打开该网页。或者，用该网页的源代码！在查看源文件里剪切源代码，复制到一个网页制作工具里就可以了！ 4，换个浏览器如GreenBrowser，如MYIE，它有一个解除右键设置的选项，你可以试试。用maxthon 安装一个"清除烦扰"的插件点一下就可以了.非常方便,我一直在用. 还可以使用MAXTHON（遨游）的解除右键限制功能。或者，到瑞星上下载个瑞星卡卡,这是免费的,可以破除网页限制。还可以下载一个体积很小的浏览器Gogo Explorer ，就可以复制了！用快捷键ctrl+m（这是默认的，也可以自定义）就行了，解除鼠标限制 5，在网页上任意处将右键按下，等跳出对话框时不要放开右键。将鼠标移至对话框，用鼠标左键点“确定”，在将鼠标移动到想要的连接处，放开右键；或者只是将鼠标移至对话框，用回车去“确认”。 6，用组合键“CTRL+F10”。 7，在页面中点击右键，当出现警告窗口时，左手按键盘上的“CTRL+F4”键关闭提示窗口（以上的方法适用于仅禁用而没有隐藏右键菜单的网页）。 9. 如果是图片，直接将想要的图片用左键拖着，然后按下“WIN+D”键，这样一来就可以拖到桌面上保存（此方法适用于单手操作较灵活的同志）。 10. 查看源代码如果发现用了这样的代码：你可以在地址栏键入： javascript:alert(document.oncontextmenu='')回车，确定对话框后，直接使用右键。另外一个有意思的解决办法：就是把下面这段代码复制到地址栏，然后按回车键。之后就可以复制当前页面了。javascript:alert(document.onselectstart = document.oncontextmenu= document.onmousedown = document.onkeydown= function(){return true;}); 11，浏览器有默认的网页编辑软件（一般为frontpage或者word），只要在快捷工具栏中点击相应的按钮，或者依次选择“文件”→“使用Microsoft Frontpage （或者Microsoft Word）编辑”，即可在相应软件的编辑窗口中显示网页的全部内容，这个时候就可以进行复制或修改了。 12，一个高招，用的Word来更为简单方便的获取。首先复制网页地址，然后打开Word，依次单击“文件／打开”，弹出“打开”窗口。在“文件名”中用“Ctrl+V”粘贴入已复制的网页地址，再单击“打开”按钮，这里Word就会自动连接到网站（如图）。在打开网页之前，可能会弹出“Word 没有足够的内存，此操作完成后无法撤消。是否继续？”的提示窗口，单击“是”，即弹出新的窗口，询问是否信任文件来源，再单击“是”后，Word会自动链接到对应的服务器并打开网页，这时我们就可以选中其中的文字进行复制粘贴了。
学习平台做作业方法 （请同学们仔细阅读理解每一项，以减少今后学习过程中不必要的问询） 为了帮助同学们都能顺利完成学业，按期获得毕业证，我总结了如下的做作业方法，教给大家，请仔细阅读明白，再开始完成作业！ （内容较多请下载到电脑中，遇到问题随时查看） 平台做作业方法： 一、在线作业（只有五次机会的作业）题不变： 进平台首页---我的学习—点相应课程名称后面的做作业，认真看本套题有几个选项卡（单选、判断或多选..），找一张纸将题号记下（留出写答案的空）。 *一定要把整套题（单选、多选、判断..）全部做完才能点交卷！（提交时出现提示有未答题目对话框，要认真查看！避免漏答或浪费答卷次数） 每套题都要得90分以上才行，如分数低，易造成不及格！ 1、开始做第一遍题：判断题：全都选“对” 单选和多选题：全都选“A” 全部做好点交卷（提交）2、刷新页面(或点击其他菜单后再点回来)--点查看（历史记录）---看到第一 遍做的答案：对的给分了！ 判断题：给分的选”对“，没给分的就应选“错”！全部答案就都出来了，把正确答案记到纸上的相应题号后面。 单选和多选题：把选“A”得分的题记录到纸上的相应题号后面 3、做第二遍题：判断题的答案已经全部出来，填上所有正确的答案！ 单选和多选题：全部都选“B” 全部做好交卷 4、刷新页面后点查看（历史记录）---看第二遍的答案
把选“B”得分的题记录到纸上的相应题号后面 5、做第三遍题：单选多选题：全部选“C“---交卷—刷新---查看---纸上记下 得分的答案。 A B C 都没得分的单选里的答案就是D了！记下来！单选题的答案也全 部出来了!（如果没有多选题，这时全部答案已经出来，做第四遍题时就可将全部记下的答案填上，交卷，得100分了） 如果有多选题: 6、做第四遍：将判断题和单选题的所有正确答案都填上，多选题里全部 选”D”---交卷—查看历史—纸上记下多选题中得分的答案。 7、做第五遍：将所有记下的判断、单选、多选题的答案都填上，交卷，刷新（查 看历史）--100分了！ *注意：个别多选题会出现a、b、c、d、e五个选项，做该题的方法如下： 方法一：第一遍和上面所说一样操作。记下正确的选项 做第二遍选“b”的时候将a是正确的选项一并填上，查看历史—看得分情况，如给分了，说明b也是对的，记下来！如没给分，就说明b是错的（不用记）， 第三遍选c时，将前二遍已经选出来的正确的选项一并填上，同上，对的给分，错的不给分，记下正确选项。 第四遍选d时，同样将前三遍已经记下的正确选项一并填上，查看历史—如给满分了，说明后面的e 选项是错的！如果还是给该题的的一半分，说明e 选项是对的（记下来）。此时该题的正确答案已经全部出来了。 做第五遍时，将所有记下的正确答案填上即可！提交！
《电脑美术—复制翻转画花边》教案 教学内容： 1.通过学生的学习和实践活动，激发学生学习及使用电脑的兴趣，使他们进一步体验通过电脑开展设计实践活动所具有的技术优势。 2.通过欣赏及运用电脑设计连续图案，提高学生的信息及艺术素养，感受艺术与实际生活的联系，激发学生热爱生活的情感，使他们养成善于美化生活的良好行为习惯。 教学目标： 1.指导学生采用界面上的绘画工具进行绘画和复制、粘贴游戏。 2.引导学生通过简单的创意和操作，感受电脑美术课的乐趣。 教学重、难点： 1.利用复制和粘贴的功能来引导学生进行简单的创意、想象并组合画面。 2.在粘贴过程中形象大小和色彩的改变。 3.利用矩形、椭圆形等工具进行形象创作。 课前准备： 老师准备电脑及电脑软硬件设备，还有一些电脑美术的优秀作品。教育学生要爱护电脑设备及各种教学设施。 教学过程： 一、引导阶段 1.组织好学生进入电脑室上课的组织工作并安排好。 2.复习一年级学过画图游戏方法导入本课的排列、重复、变异等造型内容。 3.老师打开一些电脑美术优秀作品让学生欣赏，并演示电脑绘画中复制和粘贴的创作过程，来激发学生强烈的学习兴趣。 4.引导学生分析图中的复制和粘贴。 （让学生了解用复制和粘贴就可以组合成一幅完整的画） 二、发展阶段 1.详细的说明画图程序界面上的各种工具的用途，并演示与粘贴以及变化的操作方法及过程，以便让学生更清楚的了解和掌握。 可先让学生随意地使用一下各种工具，试着进行复制、粘贴和变化的操作，也可互相交
流。 2.步骤：打开画图程序。 （开始-程序-附件-画图）。 打开工具箱的各种工具画出一个图案后上色，并打开编辑进行复制、粘贴和变化。 3.布置作业。 让学生利用复制、粘贴和变化制作一副有独特、有趣的作业。 作业完成后可让学生互评、互欣赏。 同时对有困难完成操作的同学进行指导。 三、收拾与整理 指导学生按正确的步骤关闭电脑，保持教室环境整洁。
大理学院成人高等教育 计算机应用基础课程作业一 （以下作业题目可复印，答案需手写不能复印） 1．课程名称：计算机应用基础 2．适用专业：医学类专科、本科各专业 3．选用教材：计算机应用基础，全国高校网络教育考试委员会办公室组编，清华大学出版社，2010年修订版 第1章至第4章 一、名词解释 1．操作系统 2．应用软件 3．CPU 4．快捷方式 二、选择题 1．自计算机问世至今已经经历了4个时代，划分时代的主要依据是计算机的_____。 A．规模B．功能C．性能D．构成元件 2．第四代计算机的主要元件采用的是_____。 A．晶体管B．电子管 C．小规模集成电路D．大规模和超大规模集成电路 3．世界上第一台电子数字计算机采用的逻辑元件是_____。 A．大规模集成电路 B．集成电路C．晶体管D．电子管 4．当前的计算机一般被认为是第四代计算机，它所采用的逻辑元件是_____。 A．晶体管B．集成电路C．电子管D．大规模集成电路 5．早期的计算机体积大、耗能高、速度慢，其主要原因是制约于_____。 A．工艺水平B．元器件C．设计水平D．原材料 6．五笔字型输入法属于_____。 A．音码输入法B．形码输入法 C．音形结合输入法D．联想输入法 7．在windows XP中，下列关于添加硬件的叙述正确的是_____。 A．添加任何硬件均应打开“控制面板”
B．添加即插即用硬件必须打开“控制面板” C．添加非即插即用硬件必须使用“控制面板” D．添加任何硬件均不使用“控制面板” 8．在windows XP资源管理器中，选中文件后，打开文件属性对话框的操作是___ __ A．单击“文件”—“属性”B．单击“编辑”—“属性” C．单击“查看”—“属性”D．单击“工具”—“属性” 9．在Windows XP中，下列关于输入法切换组合键设置的叙述中，错误的是____ _ A．可将其设置为CTRL+SHIFT B．可将其设置为左ALT+SHIFT C．可将其设置为TAB+SHIFT D．可不做组合键设置 10．操作系统OS的全称是_____。 A．Operating System B．Office System C．Open System D．Open Source 11．在word2003编辑状态下，若光标位于表格外右侧的行尾处，按回车键，结果是_____。 A．光标移到下一列 B．光标移到下一行，表格行数不变 C．插入一行，表格行数改变 D．在本单元格内换行，表格行数不变 12．关于word2003中的多文档窗口操作，以下叙述中错误的是_____。 A．word的文档窗口可以拆分为二个文档窗口 B．多个文档编辑工作结束后，只能一个一个地存盘或者关闭文档窗口 C．word允许同时打开多个文档进行编辑，每个文档有一个文档窗口 D．多文档窗口间的内容可以进行剪切、粘贴和复制等操作 13．在word2003中，若要计算表格中某行数值的总和，可以使用的统计函数是__ ___。 A．SUM（）B．TOTAL（）C．COUNT（）D．AVERAGE（） 14．在word2003中，若要计算表格中某行数值的平均值，可以使用的统计函数是_ ____。 A．SUM（）B．TOTAL（）C．COUNT（）D．AVERAGE（） 15．在word2003中，下述关于分栏操作的说法，正确的是_____。 A．可以将指定的段落分成指定宽度的两栏 B．在任何视图下均可以看到分栏效果 C．设置的各栏宽度和间距与页面无关
在线作业快速改 在线作业快速改 (1) 序言 (2) 一、在线作业的组织和发布（创建表单） (3) 二、发布在线作业。 (9) 三、回收数据 (10) 四、单选题的预处理和批改 (13) 五、有一个关键词的填空简答题处理 (18) 六、并列型“不确定的多关键词”答案 (22) 七、与或并列的“确定多关键词”答案 (25) 八、双选题 (30) 九、多选题 (34) 第十、统计和发布 (38) 第十一、一劳永逸的策略 (44)
序言 先看看你是否适合或者有兴趣看下去。 一场疫情，改变了生活，也改变了人的观念。原来我们教师不断强调要防止学生过度接触手机电脑，现在呢，我们不得不让学生拿起手机，打开电脑来学习。以后学生拿着手机学习和做作业，恐怕也会成为越来越正常的事，甚至没有手机电脑反而会给学习造成很多困难。与其限制学生接触手机电脑，不如教会学生用手机和电脑来学习，通过手机电脑来提高学生的学习兴趣。教师能够在这种形势下提高自己的工作效率吗？ 假如你对此感兴趣，请继续看下去。 通过布置在线作业，可以快速批改作业，统计作业情况。如果学会操作，再也不必对着堆积山高的作业发愁了。 在线作业有哪些途径实现？ 使用一些网站现成的服务。但是功能受到很大限制，或者会收取不菲的费用。除非大规模应用，否则不合适。还可以自己编程，绝大数老师不会，我们也没有时间去编写。 利用钉钉平台，或者微信平台，结合电子表格的函数功能，就基本可以实现，这是更适合我们的选择。钉钉和微信中都有在线的WPS表单，就是利用它让学生提交在线作业，实现我们快速批改并统计作业的目的。怎样操作，后面再讲。先说一下它的应用对象，如果适合你，并且感兴趣，就请继续看。 适合哪些作业？你可以把电子文档转化成在线作业，这其实很烦琐。简单的方法是利用你手中和学生手中有的资料、报纸、试卷，等一切现成的资源，把它们全都整合到在线作业中。 哦，等一下，别理解错了，不需要你坐下打字，把资料转成电子文档，而是
一、提交作业 1.1 登录10.7.1.98服务器 1.1.1 在Windows资源管理器的地址栏输入：“ftp://10.7.1.98”，打开FTP，如图1-1 图1-1 打开FTP 1.1.2 在打开FTP窗口上点击右键选择“登录菜单”，打开登录对话框，如图1-2，1-3 图1-2 选择登录
图1-3 打开登录对话框 1.1.3 在打开的登录对话框输入用户名密码进行登录。登录成功会看到自己的FTP目录（初次打开时为空目录）。 用户名是班级号+姓名，例：201001anxiaofei 初始密码为12345 1.2 复制作业文件到FTP上 1.2.1 创建本次作业目录，如图1-4： 图1-4 创建本次作业目录
1.2.2. 复制作业文件到目录，如图1-5： 图1-5 提交作业文件到目录 1.3 在浏览器访问作业程序，检查是否有错误，如图1-6： 正确的访问地址是：http://10.7.1.98/用户名/自己创建的目录/文件名 例：http://10.7.1.98/201001anxiaofei/Lab2/index.php 因为服务器和各自本地的PHP运行环境配置不同，所以检查这一步务必要做，以防出现错误。 图1-6 检查提交的程序
1.4 在魔灯上粘贴此次作业程序的访问地址，如图：1-7： 图1-7 在魔灯上提交作业程序的访问地址 1.5 其他事项：修改FTP密码的方法 访问：http://10.7.1.98/pwd/修改自己的密码 2. 数据库服务器的使用方法 在10.7.1.98服务器上为每一位同学创建了数据库的帐号并关联了数据库。 数据库用户名同FTP用户名，例：201001anxiaofei，初始密码：12345。 数据库名称同FTP用户名。 2.1 使用PHPMyAdmin管理数据库 2.1.1 访问服务器上部署的phpMyAdmin，地址为http://10.7.1.98/phpmyadmin 2.1.2 输入自己的数据库用户名密码，进行登录，如图2-1 登录phpMyAdmin
图形的移动、复制和粘贴 【教学目标】 1、知识与技能：学会使用复制、粘贴命令复制图形。 2、过程与方法：通过操作，掌握使用“选定”工具、移动图形和复制图形的基本技巧，培养学生的自学能力和发现问题解决问题的能力。 3、情感、态度、价值观： a、在尝试操作的过程中，培养学生独立思考的能力。 b、运用一些简单的开放性的练习，激发学生学习信息技术的兴趣，增强学生的观察力、想象力和创新意识；培养学生发现美、创造美的能力。 【教学重点与教学难点】 重点：图形的移动、复制和粘贴 难点：设置“应用透明背景”模式 【课时安排】1课时 【教学方法与教学手段】任务驱动法，演示法，讨论法 【教学准备】多媒体课件，视频，学生任务图片。 教学过程： 一、游戏导入、激发兴趣 1、师：同学们，你们平时玩游戏吗？ 2、师：这款游戏同学们玩过没有？出示视频。今天这堂课，疯狂戴夫交给了我们一些任务，想不想去看一看？ [设计理念：从学生喜闻乐见的游戏——“植物大战僵尸”入手，激发学生的学习兴趣。] 二、情境设置、任务驱动 1、任务一：移动 师：这一天，僵尸队伍里来了三个新成员。（教师演示打开“任务一”的方法。）他们迫不及待想加入了。你有办法把它们移动到队伍中去吗？ 李老师这有一个法宝，它就是“选定”工具（指向这个工具）。 教师演示。单击“选定”工具，注意起点的位置，从它的左上角往右下角拖动，当这个虚线框把僵S包围住了，说明就已经选中了。现在，我们就可以开始移动了！ 学生演示。 [设计理念：对于三年级学生来说，教师细致的、慢节奏的操作演示是非常有必要的，一方面考虑到学生的接受能力，另一方面也为提高学生的信息表述能力作好表率。] 问题一：发现有白色边框。 细心的同学一定发现了，单击“选定”工具以后，下面会有2个模式。我们来观察一下这2个模式，有什么不一样？一个叫“应用不透明背景”，另一个叫“应用透明背景”，那这里我们应该选择……？同学们，这就是完整的“移动”过程，还记得移动之前必须要做的一步操作是……（选中）。 下面，请你赶快把这3个僵尸移进来吧。注意：如果发现操作有错，要及时“撤消”。
无法复制粘贴的解决办法 复制粘贴功能无法使用的情况相信大家都遇到过，特别是中过冲击波病毒的机器，更是容易出现这个现象，怎么办呢？以下几个办法你可以试一下： 建议:先重新启动机子试试,可能是偶尔系统故障,如果不行那就用下面的方法解决. 方法一：重新注册以下DLL文件。 regsvr32 Shdocvw.dll } regsvr32 Shell32.dll （注意这个命令，先不用输） regsvr32 Oleaut32.dll regsvr32 Actxprxy.dll regsvr32 Mshtml.dll regsvr32 Urlmon.dll 第二个命令可以先不用输，输完这些命令后重新启动windows，如果发现无效，再重新输入一遍，这次输入第二个命令。 方法二：COMCTL32.DLL文件产生的问题。 在升级IE或windows时这个文件可能被替换了，也许新版本的COMCTL32.DLL 文件有BUG。找一张windows安装光盘，搜索它，找到一个名为COMCTL32.DL_的文件，把它拷贝出来，用winrar提取这个文件为COMCTL32.DLL文件，并覆盖现有文件. 我不知道98光盘里有没有这个文件，我用的是2000光盘） 方法三：用方法一重新注册regsvr32 Oleaut32.dll时出错或重新注册后也无效。 在windows光盘里提取Oleaut32.dll文件，在MDAC_IE5.CAB文件包里，也是用winrar提取并覆盖现有。 方法四：DCOM属性设置错误。 详细参见： [https://www.doczj.com/doc/b77694353.html,/default.aspx?scid=kb;EN-US;Q274696]
如何进行作业展示和上传 各位专家及指导老师： 本次研修的作业以附件形式提交并且数据量较大，在学习园地和简报中展示学员的作业案例时，如果不采取相应的措施，将会造成文件过大，影响学员打开和观看，所以在展开学员的作业时，请注意以下事项： 1、思维导图导出时请选择png格式的图片（不要选择jpeg格式）； 2、尽量选用图片较少的作业作为案例； 3、请尽量对作业中的图片进行压缩(office2003以后的版本自带压缩功能)； 4、转化为flashpaper前的word文件尽量不要超过1M； 5、作业展示请使用flashpaper制作并上传； 6、具体操作方法请见附件。
附件：如何将作业展开并上传 目录 如何进行作业展示 (1) 一、如何将学员作业附件中的内容展开 (3) 1、下载学员的作业 (3) 2、将学员作业整理在一个新的文档中 (3) 3、对word中的图片进行压缩 (3) 4、如何将文档上传（有两种方式） (5) 二、如何利用flashpaper软件将word转换成静态flash (5) Ⅰ.安装 (6) Ⅱ. 如何使用flashpaper (9) 三、如何将flash文档上传到学习园地的话题讨论中 (13)
一、如何将学员作业附件中的内容展开 1、下载学员的作业 请您首先下载学员的作业。 2、将学员作业整理在一个新的文档中 请将学员上传的作业压缩包利用压缩软件打开，一般会出现几个内容，有word及.mm格式的文件等内容，建议您将.mm格式的文件利用freemind软件打开，导出为.png格式（不要选择JPEG格式）的图片，插入到一个新的word中；将作业中的word内容也复制粘贴到您新建的word中，保存。 3、对word中的图片进行压缩 1）word97或word2000或word2003版本 在黄色区域插入一幅图片，插入完毕后，图片工具栏会自动显示出来，如果没有显示，请从菜单上按照【视图】→【工具栏】→【图片】这个步骤打开图片工具栏，如图所示： 请点击【压缩图片】按钮，弹出如下图所示的窗口：
不能复制粘贴的破解方法 1、将Internet的安全级别设置为“高”。操作方法： ①启动IE→点击菜单“工具”中“Internet选项”→点“安全”→自定义级别→选择“安全级-高”→确定→按F5“刷新”； 这时你就可复制了，因为安全级别最高的时候，一切控件和脚本均不能运行，再厉害的网页限制手段统统全部作废； ②复制后改回原来的安全级别设置，不然会影响正常上网。
2、将Internet的所有“脚本”都改为“禁用”。操作方法： ①启动IE→点击菜单“工具”中的“Internet选项”→点击“安全”→自定义级别→将所有“脚本”改为“禁用”→确定→按F5“刷新”； ②当你复制到自己需要的内容后，再用相同步骤给网页脚本解禁，这样就不会影响到我们浏览其他网页了。 3、用Word打开网页。操作方法： ①打开Word→单击工具栏的“打开”，这时弹出了“打开”窗口； ②复制网页地址→在打开的窗口“文件名”中用“Ctrl+V”粘贴网页地址→点“打开”； ③如弹出“Word 没有足够的内存，是否继续？”的提示窗口，单击“是”；询问是否信任文件来源，再单击“是”。 接着Word会自动打开网页，这时可选中文字进行复制粘贴了。
4、利用浏览器的编辑功能。 我用的是IE浏览器，有Excel、word和记事本编辑网页的功能，只要在工具栏中点击“编辑工具”，就可以在编辑中进行复制或修改了，方法很简单。操作方法： ①用word编辑，打开网页→点开工具栏中“编辑工具”→选择“使用Microsoft Office word 编辑”，打开后可复制粘贴。 ②用记事本编辑，打开网页→点开工具栏中“”按钮→选择“使用记事本编辑”，打开后可进行复制粘贴。 5、用文件菜单里的另存为文本.txt。操作方法： ①点击“文件”菜单里的“另存为”→在“保存类型”中选择“文本文件(*.txt)”→保存； ②再打开保存的这个txt文件，就可复制了。 6、去掉源文件中的屏蔽代码。操作方法： ①将该网页另存到你的电脑上， 打开网页→点击“文件”菜单里的“另存为”→在“保存类型”中选择“全部(*htm;*.html)”→保存；
附件：如何将作业展开并上传 目录 如何进行作业展示......................................................................................... 错误！未定义书签。 一、如何将学员作业附件中的内容展开 (2) 1、下载学员的作业 (2) 2、将学员作业整理在一个新的文档中 (2) 3、对word中的图片进行压缩 (2) 4、如何将文档上传（有两种方式） (4) 二、如何利用flashpaper软件将word转换成静态flash (4) Ⅰ.安装 (5) Ⅱ. 如何使用flashpaper (8) 三、如何将flash文档上传到学习园地的话题讨论中 (12)
一、如何将学员作业附件中的内容展开 1、下载学员的作业 请您首先下载学员的作业。 2、将学员作业整理在一个新的文档中 请将学员上传的作业压缩包利用压缩软件打开，一般会出现几个内容，有word及.mm格式的文件等内容，建议您将.mm格式的文件利用freemind软件打开，导出为.png格式（不要选择JPEG格式）的图片，插入到一个新的word中；将作业中的word内容也复制粘贴到您新建的word中，保存。 3、对word中的图片进行压缩 1）word97或word2000或word2003版本 在黄色区域插入一幅图片，插入完毕后，图片工具栏会自动显示出来，如果没有显示，请从菜单上按照【视图】→【工具栏】→【图片】这个步骤打开图片工具栏，如图所示： 请点击【压缩图片】按钮，弹出如下图所示的窗口：
根据中文提示对图片进行压缩，选择【应用于】中的【文档中的所有图片】。其中【更改分辨率】建议选择【Web/屏幕】这一项，【选项】中的两项建议采用默认值全部选择，点击【确定】即可完成对图片的压缩。 2）word2007以后版本 在黄色区域插入一幅图片，插入完毕后，菜单中会在最后自动出现一项【格式】，如果没有出现，请任意选中任意一幅图片，该项就会出现，如下图所示： 点击【格式】，在菜单下方的左上角处会出现【压缩图片】这个功能选项，如下图所示：