<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./daima.files/filelist.xml">
<title>Option Explicit</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>syd_s</o:Author>
<o:Template>Normal</o:Template>
<o:LastAuthor>syd_s</o:LastAuthor>
<o:Revision>2</o:Revision>
<o:TotalTime>4</o:TotalTime>
<o:Created>2003-09-04T13:20:00Z</o:Created>
<o:LastSaved>2003-09-04T13:20:00Z</o:LastSaved>
<o:Pages>130</o:Pages>
<o:Words>18927</o:Words>
<o:Characters>107886</o:Characters>
<o:Company>sydcbe</o:Company>
<o:Lines>899</o:Lines>
<o:Paragraphs>215</o:Paragraphs>
<o:CharactersWithSpaces>132491</o:CharactersWithSpaces>
<o:Version>9.2812</o:Version>
</o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:PunctuationKerning/>
<w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing>
<w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery>
<w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery>
<w:Compatibility>
<w:SpaceForUL/>
<w:BalanceSingleByteDoubleByteWidth/>
<w:DoNotLeaveBackslashAlone/>
<w:ULTrailSpace/>
<w:DoNotExpandShiftReturn/>
<w:AdjustLineHeightInTable/>
<w:UseFELayout/>
</w:Compatibility>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:宋体;
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-alt:SimSun;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
{font-family:"\@宋体";
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:1 135135232 16 0 262144 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
text-align:justify;
text-justify:inter-ideograph;
mso-pagination:none;
font-size:10.5pt;
mso-bidi-font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:宋体;
mso-font-kerning:1.0pt;}
/* Page Definitions */
@page
{mso-page-border-surround-header:no;
mso-page-border-surround-footer:no;}
@page Section1
{size:498.95pt 25.0cm;
margin:72.0pt 89.85pt 72.0pt 89.85pt;
mso-header-margin:42.55pt;
mso-footer-margin:49.6pt;
mso-paper-source:0;
layout-grid:15.6pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=ZH-CN style='tab-interval:21.0pt;text-justify-trim:punctuation'>
<div class=Section1 style='layout-grid:15.6pt'>
<p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Option Explicit<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Private Sub CancelButton_Click()<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Unload Me<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>End Sub<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Private Sub Form_Activate()<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>txtUserName.SetFocus<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>End Sub<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><![if !supportEmptyParas]> <![endif]><o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Private Sub OKButton_Click()<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Dim rstUser As ADODB.Recordset<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>Set rstUser =
cnnPerson.Execute("select IfSysMng from User where UserName='" &
txtUserName.Text & "' and Password='" & txtOldPassword.Text
& "'")<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>'check for correct password<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>If Not rstUser.EOF Then<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>If txtNewPassword.Text =
txtNewPasswordAgain.Text Then<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">
</span>cnnPerson.Execute ("update User set Password='" &
txtNewPassword.Text & "' where UserName='" & txtUserName.Text
& "'")<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>MsgBox
"</span><span style='font-family:宋体;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>更改口令成功</span><span lang=EN-US>!",
vbExclamation, "</span><span style='font-family:宋体;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>更改口令</span><span
lang=EN-US>"<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>Unload
Me<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>Else<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>MsgBox
"</span><span style='font-family:宋体;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>两遍新口令输入不符</span><span lang=EN-US>,</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>请重新输入</span><span lang=EN-US>!", vbCritical, "</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>更改口令</span><span lang=EN-US>"<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">
</span>txtNewPassword.SetFocus<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes">
</span>SendKeys "{Home}+{End}"<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>End If<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>Else<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><span style="mso-spacerun:
yes"> </span>MsgBox "</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>原口令输入错误</span><span lang=EN-US>,</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>请重新输入</span><span lang=EN-US>!", vbCritical, "</span><span
style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman"'>更改口令</span><span
vb开发的人事管理系统+系统设计分析报告可做毕业设计论文
4星 · 超过85%的资源 需积分: 9 189 浏览量
2010-04-14
12:17:34
上传
评论
收藏 563KB RAR 举报 
vb开发的人事管理系统+系统设计分析报告可做毕业设计论文 （100个子文件） 
Person.dot 38KB
人事管理系统.exe 708KB
image018.gif 11KB image005.gif 8KB image031.gif 8KB image028.gif 7KB image027.gif 7KB image026.gif 4KB image004.gif 4KB image003.gif 4KB image002.gif 4KB image025.gif 3KB image001.gif 3KB image001.gif 3KB image001.gif 3KB image019.gif 3KB image024.gif 2KB image030.gif 2KB image029.gif 2KB image009.gif 2KB image001.gif 2KB image016.gif 2KB image052.gif 731B image008.gif 424B image014.gif 335B image056.gif 313B image021.gif 311B image025.gif 298B image047.gif 293B image037.gif 291B image015.gif 283B image046.gif 281B image033.gif 270B image036.gif 265B image050.gif 254B image039.gif 220B image027.gif 192B image012.gif 181B image011.gif 164B image029.gif 152B image042.gif 145B image044.gif 144B image043.gif 142B image041.gif 142B image006.gif 133B image048.gif 128B image031.gif 115B image030.gif 115B image028.gif 114B image013.gif 110B image010.gif 110B image023.gif 97B image032.gif 95B image024.gif 94B image045.gif 89B image022.gif 79B image026.gif 79B image040.gif 78B image038.gif 77B image051.gif 77B image034.gif 76B image035.gif 76B image049.gif 76B image054.gif 76B image020.gif 75B image053.gif 74B image055.gif 74B image007.gif 73B daima.htm 619KB 系统设计报告.htm 450KB 系统分析报告.htm 69KB 系统开发计划.htm 67KB 系统使用说明书.htm 49KB 课程设计报告.htm 46KB header.htm 4KB header.htm 3KB header.htm 3KB header.htm 3KB header.htm 3KB ManOpen.ico 318B ManClose.ico 318B DepOpen.ico 318B DepClose.ico 318B
image005.jpg 36KB image007.jpg 23KB image003.jpg 21KB image011.jpg 17KB image009.jpg 8KB user.mdb 402KB
image004.png 19KB image006.png 14KB image002.png 11KB image010.png 9KB image008.png 4KB image017.png 3KB filelist.xml 2KB filelist.xml 529B filelist.xml 462B filelist.xml 206B filelist.xml 174B共 100 条
- 1
资源评论
wo8708908272012-12-14从中借鉴了好多有用的东西- liangliangssss2014-11-13可作为毕业设计参考资料！
pc_master
- 粉丝: 45
- 资源: 128
最新资源
- 数据库课程设计on-model-for-netwo开发笔记
- linux常用命令大全mage-processing-m开发笔记
- mysql安装配置教程droid-m开发笔记
- PWMmodel-for-network-ids-ma开发笔记
- apache-doris-build-env-for-2.0.c
- apache-doris-build-env-for-2.0.b
- apache-doris-build-env-for-2.0.a
- 1719422999141832_lls-release_cqfw.mobileconfig
- 数据库课程设计processing-m开发笔记
- pycharm安装教程ention-model-for-开发笔记
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
