VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
《Visual Basic数据库系统开发案例精选》人力资源管理系统问题，请速回，急
发表在VB答疑区
2008-02-28
是否精华
是
否
版块置顶:
是
否
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">我的调试目录在</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt">G:\</SPAN><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">源码</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">人力资源管理系统（风格二、风格三）</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">用户管理功能不好使，设置和不设置没区别</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">帮助文件链接不了，在执行时显示“实时错误</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt">424</SPAN><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">”要求对象</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">请速回复或联系我QQ：363017144 在线</SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'"></SPAN> </P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">Private Sub m7_Click(index As Integer)<BR> text = m7(index).Caption<BR> Select Case m7(index).Caption<BR> Case "帮助"<BR> CommonDialog1.HelpFile = App.Path & "/HELP.HLP"<BR> CommonDialog1.HelpCommand = cdlHelpContents<BR> CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题<BR> Case "关于"<BR> Load frm_about<BR> frm_about.Show 1<BR> End Select<BR>End Sub</SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">人力资源管理系统（风格二、风格三）</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">用户管理功能不好使，设置和不设置没区别</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">帮助文件链接不了，在执行时显示“实时错误</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt">424</SPAN><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">”要求对象</SPAN><SPAN lang=EN-US style="FONT-SIZE: 15pt; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">请速回复或联系我QQ：363017144 在线</SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'"></SPAN> </P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 36pt; tab-stops: 0cm"><SPAN style="FONT-SIZE: 15pt; FONT-FAMILY: 宋体; mso-bidi-font-size: 12.0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">Private Sub m7_Click(index As Integer)<BR> text = m7(index).Caption<BR> Select Case m7(index).Caption<BR> Case "帮助"<BR> CommonDialog1.HelpFile = App.Path & "/HELP.HLP"<BR> CommonDialog1.HelpCommand = cdlHelpContents<BR> CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题<BR> Case "关于"<BR> Load frm_about<BR> frm_about.Show 1<BR> End Select<BR>End Sub</SPAN></P>
分享到：
