📄 例12-2.mht
字号:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>所示=
。启动窗体为“成绩=
649;理”。在主窗体中添=
加</span><span
lang=3DEN-US>5</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>个按钮，&#=
20854;中“删除”和“更新=
”按钮启动时不可见A=
292;并且与“添加”、“&#=
20462;改”按钮重叠放置Ӎ=
0;其他控件的情况按下&=
#22270;设置，这里不再赘$=
848;。</span></p>
<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><!--[if gte vml 1]><v:shape
id=3D"_x0000_i1028" type=3D"#_x0000_t75" style=3D'width:107.4pt;height:78p=
t'>
<v:imagedata src=3D"file2562.files/image007.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D143 height=3D104
src=3D"file2562.files/image008.jpg" v:shapes=3D"_x0000_i1028"><![endif]><sp=
an
style=3D'mso-spacerun:yes'> </span><!--[if gte vml =
1]><v:shape
id=3D"_x0000_i1029" type=3D"#_x0000_t75" style=3D'width:101.4pt;height:78p=
t'>
<v:imagedata src=3D"file2562.files/image009.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D135 height=3D104
src=3D"file2562.files/image010.jpg" v:shapes=3D"_x0000_i1029"><![endif]><sp=
an
style=3D'mso-spacerun:yes'> </span><!--[if gte=
vml 1]><v:shape
id=3D"_x0000_i1030" type=3D"#_x0000_t75" style=3D'width:123.6pt;height:65.=
4pt'>
<v:imagedata src=3D"file2562.files/image011.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D165 height=3D87
src=3D"file2562.files/image012.jpg" v:shapes=3D"_x0000_i1030"><![endif]></s=
pan></p>
<h6><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roma=
n";
mso-hansi-font-family:Roman'>图</span><span lang=3DEN-US>12-14<span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>෹=
4;计主程序界面</span><span
lang=3DEN-US><span
style=3D'mso-spacerun:yes'> </spa=
n></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
Roman'>图</span><span lang=3DEN-US>12-15<span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>෹=
4;计添加记录界面</span><span
lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:Roman'>图</span><span lang=3DEN-US>12-16<span
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>෹=
4;计输入口令界面</span></h6>
<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"'>③</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>设置=
对象属性。</span></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"'>将“成绩管理”&#=
21644;“添加记录”窗体中=
;的</span><span
lang=3DEN-US>Data</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>控件=
的</span><span
class=3DSpellE><span lang=3DEN-US>DatabaseName</span></span><span style=3D'=
font-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>属性设为数据库ढ=
4;放位置</span><span
lang=3DEN-US>d:\</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>成绩=
管理</span><span
lang=3DEN-US>.<span class=3DSpellE>mdb</span></span><span style=3D'font-fam=
ily:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>，</span><span
class=3DSpellE><span lang=3DEN-US>RecordSource</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=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"'>将“成绩管理”&#=
31383;体上两个</span><span
class=3DSpellE><span lang=3DEN-US>ComboBox</span></span><span style=3D'font=
-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>的</span><span
class=3DSpellE><span lang=3DEN-US>DataSource</span></span><span style=3D'fo=
nt-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>属性设为</span><span
lang=3DEN-US>Data1</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>（绑=
定到数据控件）。文=
6412;框的</span><span
lang=3DEN-US>Text</span><span style=3D'font-family:SimSun;mso-ascii-font-fa=
mily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>属性=
设为空，注意无需绑=
3450;到数据表字段。</span></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"'>④</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>编写=
程序代码。“成绩管=
702;”窗体模块的代码为=
：</span></p>
<p class=3Da><span lang=3DEN-US>Public <span class=3DSpellE>panduan</span> =
As Integer
</span></p>
<p class=3Da><span lang=3DEN-US>Dim <span class=3DSpellE>reccount</span> As=
Integer<span
style=3D'mso-spacerun:yes'> </span><span style=3D'mso-tab-count=
:7'>  =
; &n=
bsp;  =
; &n=
bsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>用来存放&#=
24635;记录条数</span></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'>Combo1</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><b><span lang=3DEN-US>Private Sub Combo1_<span class=3DGramE>C=
lick()</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
style=3D'mso-spacerun:yes'> =
</span><span style=3D'mso-tab-count:3'> =
&nb=
sp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>将记录指&#=
38024;指向第一条记录</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Data1.Recordset.FindFirst "</span><span style=3D'font-family:Si=
mSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>学号</span><span
lang=3DEN-US> =3D '" & Combo1.Text & "'"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'>
</span>Combo2.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
style=3D'mso-spacerun:yes'> </span></span><span style=3D'font-f=
amily:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
New Roman"'>在“学号”组合框=
中按回车键时执行的=
1243;序代码为：</span></p>
<p class=3Da><b><span lang=3DEN-US>Private Sub Combo1_<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>Data1.Recordset.FindFirst "</span><span style=3D'font-family:Si=
mSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>学号</span><span
lang=3DEN-US> =3D '" & Combo1.Text & "'"</span></p>
<p class=3Da><span lang=3DEN-US><span style=3D'mso-spacerun:yes'> &nbs=
p;
</span>Combo2.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
style=3D'mso-spacerun:yes'> </span><span
style=3D'mso-spacerun:yes'> </span><span style=3D'mso-tab-count:1'>&nb=
sp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
mso-hansi-font-family:"Times New Roman"'>未找到匹&#=
37197;的记录，则显示提Ķ=
34;信息</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'> </span><span
style=3D'mso-tab-count:5'> &=
nbsp; &nbs=
p; &=
nbsp; </span>'
</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New R=
oman";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -