?? 6_5 代碼設計（2）.mht
字號:
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If Trim(txtUser_pwd.Text) =3D "" =
Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox =
"</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C3=DC=C2=EB=B2=BB=C4=DC=CE=AA=BF=D5=A3=AC=C7=EB=D6=D8=D0=C2=
=CA=E4=C8=EB=A3=A1</SPAN><SPAN lang=3DEN-US>", vbOKOnly +=20
vbExclamation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=BE=AF=B8=E6</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
txtUser_pwd.Text =3D=20
""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =20
txtUser_pwd.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Exit =
Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If Trim(txtUser_pwd.Text) =
<>=20
Trim(Text1.Text) Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox "</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C1=BD=B4=CE=CA=E4=C8=EB=B5=C4=C3=DC=C2=EB=B2=BB=CF=E0=CD=AC=
=A3=AC=C7=EB=D6=D8=D0=C2=CA=E4=C8=EB=A3=A1</SPAN><SPAN lang=3DEN-US>", =
vbOKOnly +=20
vbExclamation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=BE=AF=B8=E6</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
txtUser_pwd.Text =3D=20
""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =20
txtUser_pwd.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Exit =
Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If Option1.Value Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"a"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> ElseIf Option2.Value Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"b"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Else</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"c"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strSql =3D "Select user_id from sysuser =
where=20
user_id =3D '" & txtUser_id.Text & "'"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> rs.Open strSql, dbConn, =
adOpenForwardOnly,=20
adLockReadOnly</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If rs.EOF Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strSql =3D =
"Insert into=20
sysuser (user_id,user_pwd,user_qx,user_des) Values ('" _</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
=20
& txtUser_id.Text & "','" & txtUser_pwd.Text & "','" =
& strQx=20
& "','" & </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
&=
nbsp; =20
txtUser_des.Text & " ')"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> dbConn.Execute=20
strSql</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox =
"</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=D4=F6=BC=D3=B3=C9=B9=A6=A3=A1</SPAN><SPAN =
lang=3DEN-US>", vbOKOnly +=20
vbInformation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CC=E1=CA=BE</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =20
cmdReturn.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Else</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox =
"</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D5=E2=B8=F6=D3=C3=BB=A7=C3=FB=D2=D1=B4=E6=D4=DA=A3=AC=C7=EB=
=D6=D8=D0=C2=CA=E4=C8=EB=A3=A1</SPAN><SPAN lang=3DEN-US>", vbOKOnly +=20
vbExclamation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=BE=AF=B8=E6</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =20
txtUser_id.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> SendKeys=20
"{HOME}"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> SendKeys=20
"+{end}"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End =
If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> rs.Close</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Set rs =3D Nothing</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> 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_Load()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Me.Icon =3D LoadPicture(App.Path =
&=20
"\Graph07.ico")</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Option3.Value =3D True</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 style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=B5=A5=BB=F7=A1=B0=D0=DE=B8=C4=A1=B1=B0=B4=C5=A5=CA=B1=A3=AC=
=B3=F6=CF=D6=C8=E7=CD=BC</SPAN><SPAN=20
lang=3DEN-US>6-33</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CB=F9=CA=BE=B5=C4=B4=B0=CC=E5=A1=A3</SPAN></P>
<P align=3Dcenter><SPAN lang=3DEN-US><IMG height=3D240=20
src=3D"http://book.csdn.net/BookFiles/79/06/image035.jpg" =
width=3D348></SPAN></P>
<P align=3Dcenter><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CD=BC</SPAN><SPAN lang=3DEN-US>6-33=20
</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D0=DE=B8=C4=D3=C3=BB=A7=D4=CB=D0=D0=D0=A7=B9=FB</SPAN></P>=
<P class=3DMsoNormal><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D0=DE=B8=C4=D3=C3=BB=A7=B4=FA=C2=EB=C8=E7=CF=C2=A3=BA</SPA=
N></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 cmdmodi_Click()</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If Trim(txtUser_pwd.Text) =3D "" =
Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox =
"</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=C3=DC=C2=EB=B2=BB=C4=DC=CE=AA=BF=D5=A3=AC=C7=EB=D6=D8=D0=C2=
=CA=E4=C8=EB=A3=A1</SPAN><SPAN lang=3DEN-US>", vbOKOnly +=20
vbExclamation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=BE=AF=B8=E6</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
txtUser_pwd.Text =3D=20
""</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =20
txtUser_pwd.SetFocus</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Exit =
Sub</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> If Option1.Value Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"a"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> ElseIf Option2.Value Then</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"b"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> Else</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strQx =3D =
"c"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> End If</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> strSql =3D "Update sysuser set user_pwd =
=3D '" &=20
txtUser_pwd.Text & "',user_qx=3D'" & strQx </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> =
& "'=20
,user_des =3D '" & Trim(txtUser_des.Text) & " ' Where user_id =
=3D '" &=20
tUser_id & "'"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> dbConn.Execute strSql</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> </SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> MsgBox "</SPAN><SPAN=20
style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=D3=C3=BB=A7=D0=DE=B8=C4=B3=C9=B9=A6=A3=A1</SPAN><SPAN =
lang=3DEN-US>", vbOKOnly +=20
vbInformation, "</SPAN><SPAN style=3D"FONT-FAMILY: =
=CB=CE=CC=E5">=CC=E1=CA=BE</SPAN><SPAN=20
lang=3DEN-US>"</SPAN></P>
<P class=3Da6 style=3D"MARGIN-LEFT: 21.65pt; TEXT-INDENT: 18.65pt"><SPAN =
lang=3DEN-US> cmdReturn.SetFocus</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"MAR?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -