?? 7_6 代碼設計（3）.mht
字號:
}=20
}
</SCRIPT>
<DIV class=3DsearchMain>
<DL=20
style=3D"BORDER-RIGHT: #5992ac 1px solid; PADDING-RIGHT: 2px; =
BORDER-TOP: #5992ac 1px solid; PADDING-LEFT: 2px; PADDING-BOTTOM: 2px; =
BORDER-LEFT: #5992ac 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM: #5992ac =
1px solid">
<DD=20
style=3D"PADDING-RIGHT: 5px; PADDING-LEFT: 240px; PADDING-BOTTOM: 5px; =
PADDING-TOP: 5px; BACKGROUND-COLOR: #95c4d9"><INPUT=20
class=3DsearchDi id=3DtxtTopKey size=3D70> <INPUT=20
onclick=3D"SearchBook_Top();return false;" type=3Dimage=20
=
src=3D"http://book.csdn.net/images2/search.gif"> =CD=
=BC=CA=E9=C6=B7=D6=D6=A3=BA<FONT=20
color=3D#ff0000><B>235680</B></FONT>=D6=D6<BR><INPUT id=3DsearchKind1 =
type=3Dradio=20
CHECKED name=3Daa> <LABEL for=3DsearchKind1>=CA=E9=D3=D1=BB=E1</LABEL> =
<INPUT=20
id=3DsearchKind2 type=3Dradio name=3Daa> <LABEL =
for=3DsearchKind2>=C1=AC=D4=D8</LABEL> =20
<INPUT id=3DsearchKind3 type=3Dradio name=3Daa> <LABEL=20
for=3DsearchKind3>Tag</LABEL> <INPUT id=3DsearchKind4 =
type=3Dradio name=3Daa>=20
<LABEL for=3DsearchKind4><FONT =
color=3D#800080>=D3=C3Google=BD=F8=D0=D0=C8=AB=CE=C4=BC=EC=CB=F7</FONT></=
LABEL> =20
<INPUT id=3DsearchKind5 type=3Dradio name=3Daa> <LABEL =
for=3DsearchKind5><FONT=20
=
color=3D#800080>=D3=C3=B0=D9=B6=C8=BD=F8=D0=D0=C8=AB=CE=C4=BC=EC=CB=F7</F=
ONT></LABEL>=20
<DT=20
style=3D"PADDING-RIGHT: 5px; PADDING-LEFT: 245px; PADDING-BOTTOM: 5px; =
PADDING-TOP: 5px">=C8=C8=C3=C5=CB=D1=CB=F7=A3=BA=20
<A =
href=3D"http://club.book.csdn.net/book/s.aspx?key=3DASP.NET">ASP.NET</A> =
<A=20
href=3D"http://club.book.csdn.net/book/s.aspx?key=3DAjax">Ajax</A> <A=20
href=3D"http://club.book.csdn.net/book/s.aspx?key=3DSpring">Spring</A> =
<A=20
=
href=3D"http://club.book.csdn.net/book/s.aspx?key=3DHibernate">Hibernate<=
/A> <A=20
href=3D"http://club.book.csdn.net/book/s.aspx?key=3DJava">Java</A>=20
</DT></DL></DIV><LINK href=3D"http://book.csdn.net/css/newindex2.css"=20
type=3Dtext/css rel=3Dstylesheet>
<DIV id=3Dwrapper>
<DIV id=3DinnerWrapper>
<DIV id=3DmainWrappe>
<DIV id=3DpageContent>
<DIV class=3Dcol1><!-- title -->
<DIV class=3DarcTitle style=3D"WIDTH: 100%">
<H1 style=3D"WIDTH: 100%">
<SCRIPT src=3D"http://wz.csdn.net/javascripts/vote.js"></SCRIPT>
<A href=3D"http://book.csdn.net/bookfiles/79">Visual =
Basic+Access=CA=FD=BE=DD=BF=E2=BF=AA=B7=A2=D3=EB=CA=B5=C0=FD=20
</A></H1>
<DIV style=3D"FONT-SIZE: 15px; TEXT-ALIGN: center"><A=20
href=3D"http://book.csdn.net/bookfiles/79/100792184.shtml">7.6 =
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A83=A3=A9 =20
</A></DIV>
<DIV style=3D"FONT-SIZE: 15px; TEXT-ALIGN: center"><A class=3Durl=20
href=3D"http://book.csdn.net/">http://book.csdn.net/</A> 2006-7-31 =
16:26:00 </DIV>
<DIV class=3Dclear></DIV>
<DIV=20
style=3D"BORDER-RIGHT: #0b5f98 1px solid; BORDER-TOP: #0b5f98 1px solid; =
FLOAT: left; MARGIN: 0px auto; BORDER-LEFT: #0b5f98 1px solid; WIDTH: =
600px; BORDER-BOTTOM: #0b5f98 1px solid">
<DIV=20
style=3D"PADDING-RIGHT: 1px; PADDING-LEFT: 1px; FLOAT: left; =
PADDING-BOTTOM: 1px; WIDTH: 16px; COLOR: white; PADDING-TOP: 1px; =
BACKGROUND-COLOR: #0b5f98">=CD=BC=CA=E9=B5=BC=B6=C1=20
</DIV>
<DIV=20
style=3D"PADDING-LEFT: 2px; FLOAT: right; WIDTH: 570px; LINE-HEIGHT: =
16pt; TEXT-ALIGN: left"><!--=B5=BC=B6=C1-->
<H1 id=3DdivCurrentNode=20
style=3D"PADDING-LEFT: 2px; FONT-SIZE: 12px; WIDTH: 100%; COLOR: =
#b83507; TEXT-ALIGN: left">=B5=B1=C7=B0=D5=C2=BD=DA:<A=20
href=3D"http://book.csdn.net/bookfiles/79/100792184.shtml"><FONT =
color=3Dred>7.6=20
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A83=A3=A9</FONT></A></H1>
<DIV id=3DdivRelateNode style=3D"PADDING-LEFT: 2px">
<DIV style=3D"FLOAT: left; WIDTH: 49%">=A1=A4<A=20
href=3D"http://book.csdn.net/bookfiles/79/100792181.shtml">7.6 =
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A81=A3=A9</A></DIV>
<DIV style=3D"FLOAT: right; WIDTH: 49%">=A1=A4<A=20
href=3D"http://book.csdn.net/bookfiles/79/100792182.shtml">7.6 =
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A82=A3=A9</A></DIV>
<DIV style=3D"FLOAT: left; WIDTH: 49%">=A1=A4<A=20
href=3D"http://book.csdn.net/bookfiles/79/100792183.shtml">6.5=20
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A82=A3=A9</A></DIV></DIV></DIV></DIV>
<DIV class=3Dclear></DIV></DIV><!-- main -->
<DIV id=3Dmain>
<DIV id=3Dtext>
<DIV id=3Dcsdn_zhaig_ad_yahoo_2></DIV>
<P class=3DMsoNormal><SPAN lang=3DEN-US>(6) </SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=B5=C7=C2=BC=D7=D3=B4=B0=CC=E5=B4=FA=C2=EB</SPA=
N></P>
<P class=3DMsoNormal><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D4=CB=D0=D0=B5=C4=D3=C3=BB=A7=B5=C7=C2=BC=D7=D3=B4=B0=CC=E5=
=C8=E7=CD=BC</SPAN><SPAN=20
lang=3DEN-US>7-43</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CB=F9=CA=BE=A1=A3</SPAN></P>
<P align=3Dcenter><SPAN lang=3DEN-US><IMG height=3D159=20
src=3D"http://book.csdn.net/BookFiles/79/07/image045.jpg" =
width=3D207></SPAN></P>
<P align=3Dcenter><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CD=BC</SPAN><SPAN lang=3DEN-US>7-43=20
</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D4=CB=D0=D0=B5=C4=D3=C3=BB=A7=B5=C7=C2=BC=D7=D3=B4=B0=CC=E5=
</SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D4=DA=B1=BE=CF=EE=C4=BF=D6=D0=A3=AC=D3=C3=BB=A7=B5=C7=C2=BC=
=D7=D3=B4=B0=CC=E5=CA=C7=D4=CB=D0=D0=B5=C4=B5=DA=D2=BB=B8=F6=BD=E7=C3=E6=A3=
=AC=CB=FC=B5=C4=D7=F7=D3=C3=CA=C7=BC=EC=B2=E9=D3=C3=BB=A7=C3=FB=BA=CD=C3=DC=
=C2=EB=CA=C7=B7=F1=D5=FD=C8=B7=A1=A3=D3=C9=D3=DA=D3=C3=BB=A7=B5=C4=D7=CA=C1=
=CF=CA=C7=B4=E6=B7=C5=D4=DA=CA=FD=BE=DD=BF=E2=D6=D0=A3=AC=CB=F9=D2=D4=D4=DA=
=C6=F4=B6=AF=B8=C3=D7=D3=B4=B0=CC=E5=CA=B1=A3=AC=BE=CD=D2=D1=BE=AD=C1=AC=BD=
=D3=C1=CB=CA=FD=BE=DD=BF=E2=A1=A3=C6=E4=B4=FA=C2=EB=C8=E7=CF=C2=A3=BA</SP=
AN></P>
<P class=3Da6 style=3D"MARGIN: 8pt 0cm 0pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>Private Sub Form_Load()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US>Dim connectionstring As String</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US>connectionstring =3D "provider=3DMicrosoft.Jet.oledb.4.0;" =
&=20
_</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
=20
"data source=3Dbook.mdb"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US>conn.Open connectionstring</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US>cnt =3D 0</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 0cm 0cm 8pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>End Sub</SPAN></P>
<P class=3DMsoNormal><SPAN lang=3DEN-US> </SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=A1=B0=C8=B7=B6=A8=A1=B1=B0=B4=C5=A5=B5=C4=D7=F7=D3=C3=CA=C7=
=BC=EC=B2=E9=CA=E4=C8=EB=B5=C4=CA=FD=BE=DD=CA=C7=B7=F1=D3=EB=CA=FD=BE=DD=BF=
=E2=D6=D0=B5=C4=CA=FD=BE=DD=D2=BB=D6=C2=A1=A3</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 8pt 0cm 0pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>Private Sub Command1_Click()</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US>Dim sql As String</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US>Dim rs_login As New ADODB.Recordset</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US>If Trim(txtuser.Text) =3D ""=20
Then =20
' </SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C5=D0=B6=CF=CA=E4=C8=EB=B5=C4=D3=C3=BB=A7=C3=FB=CA=C7=B7=F1=
=CE=AA=BF=D5</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> MsgBox "</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C3=BB=D3=D0=D5=E2=B8=F6=D3=C3=BB=A7</SPAN><SPAN =
lang=3DEN-US>", vbOKOnly +=20
vbExclamation, ""</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> txtuser.SetFocus</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US>Else</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> sql =3D "select * from </SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5">=CF=B5=CD=B3=B9=DC=C0=ED</SPAN><SPAN =
lang=3DEN-US> where </SPAN><SPAN=20
style=3D"FONT-FAMILY: =CB=CE=CC=E5">=D3=C3=BB=A7=C3=FB</SPAN><SPAN =
lang=3DEN-US>=3D'" & txtuser.Text &=20
"'"</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> rs_login.Open sql, conn, adOpenKeyset,=20
adLockPessimistic</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> If rs_login.EOF =3D True Then</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> MsgBox "</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C3=BB=D3=D0=D5=E2=B8=F6=D3=C3=BB=A7</SPAN><SPAN =
lang=3DEN-US>", vbOKOnly +=20
vbExclamation, ""</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
14.5pt"><SPAN=20
lang=3DEN-US> txtuser.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 0cm 0cm 8pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US> =20
Else &nb=
sp; &nbs=
p; =20
' </SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=BC=EC=D1=E9=C3=DC=C2=EB=CA=C7=B7=F1=D5=FD=C8=B7</SPAN></P>=
<P class=3DMsoNormal><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=C3=FB=BA=CD=C3=DC=C2=EB=CD=A8=B9=FD=BA=F3=A3=AC=
=D2=AA=B9=D8=B1=D5=B1=BE=B4=B0=CC=E5=B2=A2=B4=F2=BF=AA=D6=F7=B4=B0=CC=E5=A1=
=A3</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 8pt 0cm 0pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>If Trim(rs_login.Fields(1)) =3D Trim(txtpwd.Text) =
Then</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =
userID =3D=20
txtuser.Text</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =
userpow =3D=20
rs_login.Fields(2)</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =20
rs_login.Close</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =
Unload=20
Me</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =20
MDIForm1.Show</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> Else</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> MsgBox =
"</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C3=DC=C2=EB=B2=BB=D5=FD=C8=B7</SPAN><SPAN lang=3DEN-US>", =
vbOKOnly +=20
vbExclamation, ""</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> =20
txtpwd.SetFocus</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>End If</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>' </SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D6=BB=C4=DC=CA=E4=C8=EB</SPAN><SPAN=20
lang=3DEN-US>3</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=B4=CE</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>cnt =3D cnt + 1</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>If cnt =3D 3 Then</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US> Unload Me</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>End If</SPAN></P>
<P class=3Da6=20
style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt; LINE-HEIGHT: =
15pt"><SPAN=20
lang=3DEN-US>Exit Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 0cm 0cm 8pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>End Sub</SPAN></P>
<P class=3DMsoNormal style=3D"LINE-HEIGHT: 18pt"><SPAN lang=3DEN-US>(7) =
</SPAN><SPAN=20
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -