📄 例12-2.mht
字号:
mso-hansi-font-family:"Times New Roman"'>调用</span><span
class=3DSpellE><span lang=3DEN-US>xianshi</span></span><span style=3D'font-=
family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>过程</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>End If</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>End If</span></p>
<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span><span style=3D'mso-spacerun:yes'>&n=
bsp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:"Times New Roman"'>“姓名” =
452;合框</span><span
lang=3DEN-US style=3D'mso-bidi-font-weight:bold'>Combo2</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman";mso-bidi-font-weight:bold'>的</span><span lang=3DEN=
-US
style=3D'mso-bidi-font-weight:bold'>Click</span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man";
mso-bidi-font-weight:bold'>事件</span><span style=3D'font-famil=
y:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>代码为：</span></p>
<p class=3Da style=3D'margin-top:2.3pt;mso-para-margin-top:.15gd'><b><span
lang=3DEN-US>Private Sub Combo2_<span class=3DGramE>Click()</span><o:p></o:=
p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Data1.Recordset.MoveFirst</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>Data1.Recordset.FindFirst
"</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times=
New Roman";
mso-hansi-font-family:"Times New Roman"'>姓名</span><span
lang=3DEN-US> =3D '" & Combo2.Text & "'"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Combo1.Text =3D Data1.Recordset("</span><span style=3D'font-fam=
ily:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>学号</span><span
lang=3DEN-US>")</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>Call <span
class=3DSpellE>xianshi</span></span></p>
<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>在“姓名”组合&#=
26694;中按回车键时执行į=
40;代码为：</span></p>
<p class=3Da><b><span lang=3DEN-US>Private Sub Combo2_<span class=3DGramE>K=
eyUp(</span><span
class=3DSpellE>KeyCode</span> As Integer, Shift As Integer)<o:p></o:p></spa=
n></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>If <span
class=3DSpellE>KeyCode</span> =3D 13 Then</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Data1.Recordset.MoveFirst</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p; </span><span
style=3D'mso-spacerun:yes'> </span>Data1.Recordset.FindFirst "</s=
pan><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>姓名</span><span lang=3DEN-US> =3D '" &=
amp;
Combo2.Text & "'"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Combo1.Text =3D Data1.Recordset("</span><span style=3D'font-fam=
ily:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>学号</span><span
lang=3DEN-US>")</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>If Data1.Recordset.NoMatch Then</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span><span
class=3DSpellE>MsgBox</span> "</span><span style=3D'font-family:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>查无此人！</span><span
lang=3DEN-US>", 48, "</span><span style=3D'font-family:SimSun;mso=
-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>注意=
</span><span
lang=3DEN-US>"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Else</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span>Call <span
class=3DSpellE>xianshi</span><span
style=3D'mso-spacerun:yes'> </spa=
n><span
style=3D'mso-tab-count:4'> &=
nbsp; &nbs=
p; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>调用</span><span
class=3DSpellE><span lang=3DEN-US>xianshi</span></span><span style=3D'font-=
family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>过程</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>End If</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>End If</span></p>
<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&n=
bsp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:"Times New Roman"'>“添加”=
353;钮</span><span
lang=3DEN-US style=3D'mso-bidi-font-weight:bold'>Command1</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman";mso-bidi-font-weight:bold'>的</span><span lang=3DEN=
-US
style=3D'mso-bidi-font-weight:bold'>Click</span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man";
mso-bidi-font-weight:bold'>事件</span><span style=3D'font-famil=
y:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>代码为：</span></p>
<p class=3Da style=3D'margin-top:2.3pt;mso-para-margin-top:.15gd'><b><span
lang=3DEN-US>Private Sub Command1_<span class=3DGramE>Click()</span> <o:p><=
/o:p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan><span
class=3DSpellE><span class=3DGramE>panduan</span></span> =3D 1</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Form2.Show 1<span style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-tab-count:6'> &=
nbsp; &nbs=
p; &=
nbsp; &nbs=
p; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>显示输入&#=
21475;令对话框</span></p>
<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>&n=
bsp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:"Times New Roman"'>“修改”=
353;钮</span><span
lang=3DEN-US style=3D'mso-bidi-font-weight:bold'>Command2</span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman";mso-bidi-font-weight:bold'>的</span><span lang=3DEN=
-US
style=3D'mso-bidi-font-weight:bold'>Click</span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>事件代码为：</span></p>
<p class=3Da style=3D'margin-top:2.3pt;mso-para-margin-top:.15gd'><b><span
lang=3DEN-US>Private Sub Command2_<span class=3DGramE>Click()</span> <o:p><=
/o:p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan><span
class=3DSpellE><span class=3DGramE>panduan</span></span> =3D 2</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Form2.Show 1</span></p>
<p class=3Da><b><span lang=3DEN-US>End Sub<o:p></o:p></span></b></p>
<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>重新计算“总分&=
#8221;和“平均分”字段的=
;值的自定义过程为：</=
span></p>
<p class=3Da style=3D'margin-top:2.3pt;mso-para-margin-top:.15gd'><b><span
lang=3DEN-US>Sub <span class=3DSpellE><span class=3DGramE>gengxin</span></s=
pan><span
class=3DGramE>()</span><o:p></o:p></span></b></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Data1.Recordset.MoveFirst</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> </s=
pan>Do
While Data1.Recordset.EOF =3D False</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Data1.Recordset.Edit<span style=3D'mso-spacerun:yes'> </span><=
span
style=3D'mso-tab-count:4'> &=
nbsp; &nbs=
p; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>进入编辑&#=
29366;态</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Data1.Recordset("</span><span style=3D'font-family:SimSun;mso-a=
scii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>总分=
</span><span
lang=3DEN-US>") =3D Data1.Recordset("</span><span style=3D'font-f=
amily:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>数学</span><span
lang=3DEN-US>") + _</span></p>
<p class=3Da><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'> =
</span>Data1.Recordset("</span><span style=3D'font-family:SimSun;mso-a=
scii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>英语=
</span><span
lang=3DEN-US>") + Data1.Recordset("</span><span style=3D'font-fam=
ily:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>计算机</span><span
lang=3DEN-US>")</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Data1.Recordset.Update<span style=3D'mso-spacerun:yes'> </span=
><span
style=3D'mso-tab-count:4'> &=
nbsp; &nbs=
p; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>将缓冲区&#=
20013;௚⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -