原创力文档- 1、本文档共44页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
附录1部分源代码
1）系统主窗体（MDIFrmMain）
PrivateSubaboutcheng_Click()显示科研成果查询窗体
frmprint2.Show
EndSub
PrivateSubaboutxm_Click()显示项目查询窗体
frmPrint.Show
EndSub
PrivateSubcode_Click()显示密码更改窗体
frmPasswordChange.Show
EndSub
PrivateSubexit_Click()退出
DimanswerAsString
DimCancelAsInteger
answer=MsgBox(是否退出本系统?,vbInformation+vbYesNo,警告)
Ifanswer=vbNoThen
Cancel=1
ElseIfanswer=vbYesThen
End
EndIf
EndSub
PrivateSubhelp_Click()帮助
frmSplash.Show
EndSub
PrivateSubkedit_Click()显示科研成果录入窗体
frmCheng.Show
EndSub
PrivateSubkm_Click()显示科研成果修改窗体
frmChengModify.Show
EndSub
PrivateSubMDIForm_Load()主窗体登录
IfLogAdimsucceeded=FalseThen在这里设置用户权限
user.Enabled=False:code.Enabled=False
proj.Enabled=False:proc.Enabled=False:mon.Enabled=False
keyan.Enabled=False
EndIf
EndSub
PrivateSubmm_Click()显示经费修改窗体
frmMonModify.Show
EndSub
PrivateSubmonedit_Click()显示经费录入窗体
frmMonEdit.Show
EndSub
PrivateSubpedit_Click()显示项目基本情况录入窗体
frmProjEdit.Show
EndSub
PrivateSubpm_Click()显示项目基本情况修改窗体
frmProjModify.Show
EndSub
PrivateSubpredit_Click()显示项目进度情况录入窗体
frmProcEdit.Show
EndSub
PrivateSubprm_Click()显示项目进度情况修改窗体
frmProcModify.Show
EndSub
PrivateSubsearall_Click()显示所有项目情况查询窗体
frmSearchxm.Show
ssear=all
EndSub
Priv
文档评论（0）