计算机类专业毕业-代码及外文文献.doc

附录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