?? 6_5 代碼設計（2）.mht

?? 數據庫系統Visual Basic+Access數據庫開發與實例代碼設計
?? MHT
?? 第 1 頁 / 共 5 頁
字號:
  </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">&nbsp;&nbsp;&nbsp;&nbsp;=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> =
&nbsp; <INPUT=20
  id=3DsearchKind2 type=3Dradio name=3Daa> <LABEL =
for=3DsearchKind2>=C1=AC=D4=D8</LABEL> &nbsp;=20
  <INPUT id=3DsearchKind3 type=3Dradio name=3Daa> <LABEL=20
  for=3DsearchKind3>Tag</LABEL>&nbsp; <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>&nbsp;=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/100792183.shtml">6.5 =
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A82=A3=A9&nbsp;=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:25: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/100792183.shtml"><FONT =
color=3Dred>6.5=20
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A82=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/100792180.shtml">7.5 =
=BD=A8=C1=A2=B9=AB=B9=B2=C4=A3=BF=E9</A></DIV>
<DIV style=3D"FLOAT: right; 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: left; 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: right; WIDTH: 49%">=A1=A4<A=20
href=3D"http://book.csdn.net/bookfiles/79/100792184.shtml">7.6=20
=B4=FA=C2=EB=C9=E8=BC=C6=A3=A83=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>(3) </SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=B9=DC=C0=ED=D7=D3=B4=B0=CC=E5=B4=FA=C2=EB</SPA=
N></P>
<P class=3DMsoNormal><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=B9=DC=C0=ED=D7=D3=B4=B0=CC=E5=CA=C7=D3=C3=C0=B4=
=B1=E0=BC=AD=D3=C3=BB=A7=B5=C4=D3=C3=BB=A7=C3=FB=A1=A2=C3=DC=C2=EB=BA=CD=C8=
=A8=CF=DE=B5=C4=A1=A3=C6=E4=D4=CB=D0=D0=D0=A7=B9=FB=C8=E7=CD=BC</SPAN><SP=
AN=20
lang=3DEN-US>6-31</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=3D219=20
src=3D"http://book.csdn.net/BookFiles/79/06/image033.jpg" =
width=3D320></SPAN></P>
<P align=3Dcenter><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CD=BC</SPAN><SPAN=20
lang=3DEN-US>6-31&nbsp; </SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=B9=DC=C0=ED=D7=D3=B4=B0=CC=E5</SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=B4=B0=CC=E5=B2=BF=B7=D6=B4=FA=C2=EB=B5=C4=CB=BC=C2=B7=CA=C7=
=A3=AC=CA=D5=BC=AF=CA=E4=C8=EB=B5=C4=B1=ED=D6=D0=B5=C4=D7=D6=B7=FB=B4=AE=A3=
=AC=C8=BB=BA=F3=D3=EB=CA=FD=BE=DD=BF=E2=D6=D0=B5=C4=CF=B5=CD=B3=B5=C4=D3=C3=
=BB=A7=CA=FD=BE=DD=B1=C8=BD=CF=A3=AC=C8=E7=B9=FB=B2=BB=B4=E6=D4=DA=A3=AC=D4=
=F2=D4=CA=D0=ED=CC=ED=BC=D3=A1=A3</SPAN></P>
<P class=3Da6 style=3D"MARGIN: 8pt 0cm 0pt 21.65pt; TEXT-INDENT: =
18.65pt"><SPAN=20
lang=3DEN-US>Option Explicit</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Dim rs As New ADODB.Recordset</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Dim strSql As String</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Dim strQx As String</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdAdd_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; frmUserAdd.Show vbModal</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdDel_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; strSql =3D "Delete from sysuser where =
user_id =3D '"=20
&amp; txtUser_id &amp; "'"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; dbConn.Execute strSql</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; Form_Activate</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdFirst_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MoveFirst</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdLast_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MoveLast</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdmodi_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; tUser_id =3D txtUser_id.Text</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; frmUserModi.Show vbModal</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdNext_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; On Error GoTo ERR_CONN</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MoveNext</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; Exit Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>ERR_CONN:</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MoveLast</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdPre_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; On Error GoTo ERR_CONN</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MovePrevious</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; Exit Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>ERR_CONN:</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.MoveFirst</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; refreshData</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub cmdReturn_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; Unload Me</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>End Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>Private Sub Form_Activate()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_id.Text =3D ""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_pwd.Text =3D ""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_des.Text =3D ""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_id.Locked =3D True</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_pwd.Locked =3D True</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; txtUser_des.Locked =3D True</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; strSql =3D "Select =
user_id,user_pwd,user_qx,user_des=20
from sysuser where user_id &lt;&gt; 'admin' order </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp; by=20
user_id "</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; If rs.State =3D adStateOpen =
Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
rs.Close</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; rs.Open strSql, dbConn, adOpenStatic,=20
adLockReadOnly</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =

lang=3DEN-US>&nbsp;&nbsp;&nbsp; If rs.EOF Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
?? 文件大小 399 K
?? 上傳用戶 add505
?? 所屬分類數據庫系統
??? 相關標簽

#Visual #Access #Basic #數據庫系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 6_5 代碼設計（2）.mht

?? 快捷鍵說明
