vb课题项目进程管理系统-代码及外文文献

11）系统主窗体PrivateSubaboutcheng_Click() EndSubPrivateSub EndSubPrivateSub '显示更EndSubPrivateSub DimanswerAsStringDimCancelAsanswerMsgBoxvbInformationvbYesNo,Ifanswer=vbNoThenCancel=ElseIfanswer=vbYesThenEndIfEndSubPrivateSub EndSubPrivateSubkedit_Click() EndSubPrivateSub EndPrivateSub IfLogAdimsucceeded=FalseThen user.Enabled=False:code.Enabled=proj.Enabled=False:proc.Enabled=False:mon.Enabled=Falsekeyan.Enabled=FalseEndIfEndSubPrivateSub EndSubPrivateSub EndSubPrivateSubpedit_Click() EndSubPrivateSubpm_Click() EndSubPrivateSubpredit_Click() EndSubPrivateSubprm_Click() EndSubPrivateSubsearall_Click() ssear="all"EndSubPrivateSubsearfuze_Click() '显示按申请者进行项目查询ssear="2"WithfrmSearch.Label1.Caption="请输入申请者："EndWithEndPrivateSubsearname_Click() ssear="1"WithfrmSearch.Label1.CaptionEndWithEndPrivateSubsearxueke_Click() ssear="3"WithfrmSearch.Label1.CaptionEndWithEndPrivateSubToolbar1_ButtonClick(ByValButtonAs SelectCaseButton.IndexCase1Case3ssear="all"CaseCase7Case9IfMsgBox("vbQuestionvbYesNo,vbYesThenUnloadMeEndIfEndSelectEndSubPrivateSubToolbar1_ButtonClick ctlLib.Button 'SelectCaseButton.IndexCase1ssear="1"frmSearch.Label1.CaptionCaseCase

ssear="2"frmSearch.Label1.Caption="请输入申请者ssear="3"frmSearch.Label1.Captionssear="all"EndSelectEndSubPrivateSub Endsub2)登录窗体OptionDimrsuserAsPrivateSubcmdCancel_Click()DimanswerAsStringDimCancelAsanswerMsgBox(vbInformationvbYesNo,Ifanswer=vbNoThenCancel=ElseIfanswer=vbYesThenEndIfEndSubPrivateSubSetdbOpenDatabase(App.Path&Setrsuser=db.OpenRecordset("select*from用户表where用户名='"&txtUserName.Text&"'and='"&txtPassword.Text&IfNot(rsuser.EOFAndrsuser.BOF)ThenIfrsuser.Fields("")="管理员"Then

LoginID=rsuser.Fields("用户名")LoginPassword=rsuser.Fields("") LoginID=rsuser.Fields("用户名")LoginPassword=rsuser.Fields("")

EndMsgBox"无效的，请重试!",,"登录"SendKeysEndIfEndPrivateSubForm_Unload(CancelAsInteger) DimanswerAsanswerMsgBox("vbInformationvbYesNo,Ifanswer=vbNoThenCancel=ElseIfanswer=vbYesThenEndEnd3)修改窗体DimrspachAsPrivateSubcmdExit_Click()EndPrivateSubForm_Load()txtOldPWD=LoginPasswordtxtOldPWD.Locked=TrueEndPrivateSubIftxtNewPWD(1)<>txtNewPWD(0)MsgBoxvbExclamationtxtNewPWD(0).SelStart=0txtNewPWD(0).SelLength=Len(txtNewPWD(0))SetdbOpenDatabase(App.Path&Setrspachdb.OpenRecordset("select*fromwhere&'")rspach.Fields("")=MsgBoxvbInformationtxtNewPWD(0).Text=""txtNewPWD(1).Text=""EndIfEndSub用户管理窗体DimrsumAsDAO.RecordsetPrivateSubMsgBoxvbInformationcmdAdd.Enabled=FalsecmdSave.Enabled=EndPrivateSubMsgBoxvbInformation,cmdAlter.Enabled=FalsecmdSave.Enabled=TrueEndSubPrivateSubSetdbOpenDatabase(App.Path&Setrsum=db.OpenRecordset("SELECT*FROM用户表WHERE用户 ='"DataGrid1.Columns(0)&DimdAsdMsgBoxvbQuestionvbYesNo,Ifd=vbYesThenMsgBoxvbInformationvbOKOnly,cmdSave.Enabled=TruecmdDelete.Enabled=FalseEndIfEndPrivateSubcmdSave_Click()cmdAdd.Enabled=TrueEndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)cmdDelete.Enabled=TrueEndPrivateSubForm_Load()cmdDelete.Enabled=FalsecmdSave.Enabled=False "Provider=SecurityInfo=False;DataSource&App.Path&课题I.mdb"mandTypeadCmdUnknownss="SELECT*FROM用户表"Adodc1.RecordSource=ssEnd项目基本情况录入窗体PublicAddRecordAsPrivateSubcmdAdd_Click() ‘新添项目’按 '息 '清除息AddRecord=TrueSSTab1.Enabled=TruecmdSave.Enabled=DataGrid1.AllowAddNew=TruecmdAdd.Enabled=FalseWith '目If.RecordCount>0txtNum=.RecordCount+txtNum=EndIfEndWithDimsql3As Adodc1控件连接数据库,Datagrid1Adodc1.ConnectionString="Provider=.Jet.OLEDB.3.51;PersistInfo=False;DataSource="&App.Path&课题数据库mandType=sql3="SELECT,,出生日期,专业职务,研究专长 ,学历FROM参加WHERE项目LIKE'"txtNum.Text&Setrs3=db.OpenRecordset(sql3,dbOpenDynaset)Adodc1.RecordSource=sql3EndPrivateSub DimstcanAsStringDimrscanAsRecordsetstcan="select*from参加表where项目like'"&Trim(txtNum.Text)&Setrscan=db.OpenRecordset(stcan,Ifrscan.EOFAndrscan.BOFThenrscan.Fields("项目")=Iftxtcan(17)<>""Thenrscan.Fields("")=Iftxtcan(16)Thenrscan.Fields("txtcan(16).TextIftxtcan(15)Thenrscan.Fields(txtcan(15).TextIftxtcan(12)Thenrscan.Fields(txtcan(12).TextIftxtcan(13)<>""Thenrscan.Fields("")=txtcan(13).TextIftxtcan(14)Thenrscan.Fields("txtcan(14).TextIfcmbsex(2)<>""Thenrscan.Fields("")=cmbsex(2).TextMsgBoxvbOKOnlyEndIfEndSubPrivateSub If(NotText2(3).TextAnd(NotIsNumeric(Trim(Text2(3).Text)))ThenMsgBox"请您正确输入申请经费！",vbInformation+vbOKOnly,"提示"SendKeys"{home}+{end}"ExitSubElseIf(Text2(0).Text="")MsgBoxvbInformationvbOKOnly,ExitElseIf(NotText2(4).Text="")And(NotIsDate(Trim(Text2(4).Text)))MsgBoxvbInformationvbOKOnly,ExitSubElseIf(NotText2(5).TextAndNotIsDate(Trim(Text2(4).Text)))ThenMsgBox"请您正确输入截止时间！",vbInformation+vbOKOnly,"提示"ExitSubElseIf(Nottext3(1).Text="")And(NotIsDate(Trim(text3(1).Text)))ThenMsgBoxvbInformationvbOKOnly,ExitElseIfNottxtcan(16).TextAnd(NotIsDate(Trim(txtcan(16).Text)ThenMsgBoxvbInformationvbOKOnly,ExitElseIfNotText2(4).Text=""AndNotText2(5).Text=""AndText2(4),Text2(5))<=0MsgBoxvbInformationvbOKOnly,ExitSubMsgBoxvbOKOnly,cmdAdd.Enabled=TruecmdSave.Enabled=FalseEndIfEndSubPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubForm_Load()cmdSave.Enabled=FalseAddRecord=FalseSSTab1.Enabled=FalseSetdbOpenDatabase(App.Path&Dimsql1Assql1select*fromSetrs1=db.OpenRecordset(sql1,dbOpenDynaset)DimmAsIntegerDimsql2Assql2="SELECT*FROM项目表WHERE项目LIKE'"&Trim(txtNum.Text)&"%'AND项目中的分工LIKE'"&负责&"'"Setrs2=db.OpenRecordset(sql2,dbOpenDynaset)EndPublicSub DimiAsIntegerDimjAsFori=0To8Text2(i)=""Forj=0To2Combo1(j).Text=""EndPublicSub DimiAsIntegerDimjAsFori=0To11text3(i)=""Forj=0To1Combo2(j).Text=""EndPublicSubWriteRecord() WithIftxtNum.Text<>""Then.Fields(0)=IfText2(0).Text<>""Then.Fields(1)=Text2(0).TextIfText2(1).Text<>""Then.Fields(2)=Text2(1).TextIfCombo1(0).Text<>""Then.Fields(3)=Combo1(0).TextIfCombo1(1).Text<>""Then.Fields(4)=Combo1(1).TextIfCombo1(2).Text<>""Then.Fields(5)=Combo1(2).TextIfText2(4).Text<>""Then.Fields(6)=Text2(4).TextIfText2(5).Text<>""Then.Fields(7)=Text2(5).TextIfText2(3).Text<>""Then.Fields(8)=Text2(3).TextIfText2(6).Text<>""Then.Fields(9)=Text2(6).TextIfText2(7).Text<>""Then.Fields(10)=Text2(7).TextIfText2(8).Text<>""Then.Fields(11)=Text2(8).TextIfText2(2).Text<>""Then.Fields(12)=Text2(2).TextIftext3(0).Text<>""Then.Fields(13)=text3(0).TextEndWithEndSubPublicSubWriteRecord2() '将录入的员信息添加到数据库WithIftext3(0)<>""Then.Fields(1)=text3(0)IfCombo2(0)<>""Then.Fields(2)=Combo2(0)IfCombo2(1)<>""Then.Fields(3)=Combo2(1)Iftext3(1)<>""Then.Fields(4)=text3(1)Iftext3(5)<>""Then.Fields(5)=text3(5)Iftext3(8)<>""Then.Fields(6)=text3(8)Iftext3(2)<>""Then.Fields(7)=text3(2)Iftext3(6)<>""Then.Fields(8)=text3(6)Iftext3(9)<>""Then.Fields(9)=text3(9)Iftext3(3)<>""Then.Fields(10)=text3(3)Iftext3(7)<>""Then.Fields(11)=text3(7)Iftext3(10)<>""Then.Fields(12)=text3(10)Iftext3(4)<>""Then.Fields(13)=text3(4)Iftext3(11)<>""Then.Fields(14)=text3(11).Fields.Fields("项目")=txtNumEndWithEndPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=NothingEndPublicSubClearDisplay3()txtcan(17).Text=""txtcan(16).Text=""txtcan(15).Text=""txtcan(12).Text=""txtcan(13).Text=""txtcan(14).Text=""cmbsex(2).Text=""End项目基本情况修改窗体PublicAlterRecordAsBooleanPrivateSubcmdAlter_Click()MsgBoxvbInformationvbOKOnly,EndSubPrivateSubcmdDelete_Click()cmdDelete.Enabled=FalseSetdbOpenDatabase(App.Path&Dimrsxmj1AsRecordset:Dimrsren1AsRecordset:Dimrscanjia1AsRecordsetSetrsxmj1=db.OpenRecordset("select*from项目基本情况表where项目='"frmProjSelectPM.DataGrid1.Columns(0)&Setrsren1=db.OpenRecordset("select*from项目表where项目='"frmProjSelectPM.DataGrid1.Columns(0)&Setrscanjia1=db.OpenRecordset("select*from参加表where项目='"Trim(txtNum.Text)&DimdAsdMsgBox("&vbCr_&"（包括申请人、参加人vbQuestion+vbYesNo,"Ifd=vbYesThenIfrsxmj1.RecordCount>0ThenIfrsxmj1.EOFThenEndIfEndIfIfrsren1.RecordCount>0ThenIfrsxren1.EOFThenEndIfEndIfDimmmAsInteger:DimnnAsIfNot(rscanjia1.BOFAndrscanjia1.EOF)Thenmm=rscanjia1.RecordCountFornn=1TommSetrscanjia1=db.OpenRecordset("select*from参加表where项目号='"&Trim(txtNum.Text)&EndMsgBoxvbOKOnlyEndIfEndSubPrivateSubcmdExit_Click()AlterRecord=FalseEndPrivateSubcmdSave_Click()DimstxmjAsStringDimrsxmjAsSetdbOpenDatabase(App.Path&stxmj="select*from项目基本情况 where项目='"&"'"Setrsxmj=db.OpenRecordset(stxmj,dbOpenDynaset)WithrsxmjIftxtNum.Text<>""Then.Fields(0)=IfText2(0).Text<>""Then.Fields(1)=Text2(0).TextIfText2(1).Text<>""Then.Fields(2)=Text2(1).TextIfCombo1(0).Text<>""Then.Fields(3)=Combo1(0).TextIfCombo1(1).Text<>""Then.Fields(4)=Combo1(1).TextIfCombo1(2).Text<>""Then.Fields(5)=Combo1(2).TextIfText2(4).Text<>""Then.Fields(6)=Text2(4).TextIfText2(5).Text<>""Then.Fields(7)=Text2(5).TextIfText2(3).Text<>""Then.Fields(8)=Text2(3).TextIfText2(6).Text<>""Then.Fields(9)=Text2(6).TextIfText2(7).Text<>""Then.Fields(10)=Text2(7).TextIfText2(8).Text<>""Then.Fields(11)=Text2(8).TextIfText2(2).Text<>""Then.Fields(12)=Text2(2).TextIftext3(0).Text<>""Then.Fields(13)=text3(0).TextEndDimstrenAsStringDimrsrenAsRecordsetSetdbOpenDatabase(App.Path&stren="select*from项目 where项目='"&"'"Setrsren=db.OpenRecordset(stren,dbOpenDynaset)WithrsrenIftext3(0)<>""Then.Fields(1)=text3(0)IfCombo2(0)<>""Then.Fields(2)=Combo2(0)IfCombo2(1)<>""Then.Fields(3)=Combo2(1)Iftext3(1)<>""Then.Fields(4)=text3(1)Iftext3(5)<>""Then.Fields(5)=text3(5)Iftext3(8)<>""Then.Fields(6)=text3(8)Iftext3(2)<>""Then.Fields(7)=text3(2)Iftext3(6)<>""Then.Fields(8)=text3(6)Iftext3(9)<>""Then.Fields(9)=text3(9)Iftext3(3)<>""Then.Fields(10)=text3(3)Iftext3(7)<>""Then.Fields(11)=text3(7)Iftext3(10)<>""Then.Fields(12)=Iftext3(4)<>""Then.Fields(13)=text3(4)Iftext3(11)<>""Then.Fields(14)=text3(11)EndMsgBoxvbInformationvbOKOnly,cmdSave.Enabled=FalsecmdDelete.Enabled=FalsecmdExit.Enabled=FalsecmdAlter.Enabled=TrueEndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubCommand1_Click()EndPrivateSubForm_Load()AlterRecord=FalsecmdDelete.Enabled=FalsecmdSave.Enabled=FalsecmdExit.Enabled=FalseSSTab1.Enabled=FalseEndPublicSubClearAll()txtNum.Text=""Text2(0).Text=""Text2(1).Text=""Combo1(0).Text=""Combo1(1).Text=""Combo1(2).Text=""Text2(4).Text=""Text2(5).Text=Text2(3).Text=Text2(6).Text=Text2(7).Text=Text2(8).Text=Text2(2).Text=text3(0)=Combo2(0)=Combo2(1)=text3(1)=text3(5)=text3(8)=text3(2)=text3(6)=text3(9)=text3(3)=text3(7)=text3(10)=text3(4)=text3(11)=""EndSub项目进展情况录入窗体OptionPublicAddRecordAsPrivateSubMsgBoxvbInformationvbOKOnly,AddRecord=TrueEndPrivateSubcmdExit_Click()AddRecord=FalseEndPrivateSubcmdSave_Click()IfText2.Text=""ThenMsgBoxvbInformationvbOKOnly,ExitSubElseIfNotText4.TextAnd(NotIsDate(Trim(Text4.Text)ThenMsgBoxvbInformationvbOKOnly,ExitSubEndDimsqlAsSetdbOpenDatabase(App.Path&sql="select*from项目进展情况表where项目='"&frmProjSelect1.DataGrid1.Columns(0)&"'AND&Text2.Text&"'"Setrsp=db.OpenRecordset(sql,Ifrsp.EOFAndrsp.BOFThenrsp.Fields("项目")=frmProjSelect1.DataGrid1.Columns(0) IfCombo1.Text<>""Thenrsp.Fields(2)=Combo1.Text IfText4<>""Thenrsp.Fields(3)=Text4 DimiAsIntegerFori=0To4IfText3(i)<>""Thenrsp.Fields(i+4)=MsgBoxvbOKOnly,cmdAdd.Enabled=TruecmdSave.Enabled=FalseAddRecord ExitEndMsgBoxvbInformationvbOKOnly,EndPrivateSub cmdSave.Enabled=TruecmdAdd.Enabled=FalseAddRecord=TrueEndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubCommand2_Click() SetdbOpenDatabase(App.Path&I.mdb")Dimtt1AsStringDimrsxmAstt1="SELECT*FROM项目基本情况表WHERE项目='"frmProjSelect1.DataGrid1.Columns(0)&Setrsxm=db.OpenRecordset(tt1)mand2.Visible=Ifrsxm.Fields(0)<>""ThenfrmProjSearOne.txtNum.Text=rsxm.Fields(0)Ifrsxm.Fields(1)<>""ThenfrmProjSearOne.Text2(0).Text=rsxm.Fields(1)Ifrsxm.Fields(2)<>""ThenfrmProjSearOne.Text2(1).Text=rsxm.Fields(2)Ifrsxm.Fields(3)<>"" bo1(0).Text=Ifrsxm.Fields(4)<>"" bo1(1).Text=Ifrsxm.Fields(5)<>""Then bo1(2).Text=rsxm.Fields(5)Ifrsxm.Fields(6)<>""ThenfrmProjSearOne.Text2(4).Text=rsxm.Fields(6)Ifrsxm.Fields(7)<>""ThenfrmProjSearOne.Text2(5).Text=rsxm.Fields(7)Ifrsxm.Fields(8)<>""ThenfrmProjSearOne.Text2(3).Text=rsxm.Fields(8)Ifrsxm.Fields(9)<>""ThenfrmProjSearOne.Text2(6).Text=rsxm.Fields(9)DimstrenAsStringDimrsrenAsRecordsetSetdbOpenDatabase(App.Path&stren="select*from项目 where项目='"frmProjSelect1.DataGrid1.Columns(0)&Setrsren=db.OpenRecordset(stren,Ifrsren.Fields(1)<>""ThenfrmProjSearOne.Text3(0)=rsren.Fields(1)Ifrsren.Fields(2)<>"" bo2(0)=Ifrsren.Fields(3)<>""Then bo2(1)=rsren.Fields(3)Ifrsren.Fields(4)<>""ThenfrmProjSearOne.Text3(1)=rsren.Fields(4)Ifrsren.Fields(5)<>""ThenfrmProjSearOne.Text3(5)=rsren.Fields(5)Ifrsren.Fields(6)<>""ThenfrmProjSearOne.Text3(8)=rsren.Fields(6)Ifrsren.Fields(7)<>""ThenfrmProjSearOne.Text3(2)=rsren.Fields(7)Ifrsren.Fields(8)<>""ThenfrmProjSearOne.Text3(6)=rsren.Fields(8)Ifrsren.Fields(9)<>""ThenfrmProjSearOne.Text3(9)=rsren.Fields(9)Ifrsren.Fields(10)<>""ThenfrmProjSearOne.Text3(3)=rsren.Fields(10)Ifrsren.Fields(11)<>""ThenfrmProjSearOne.Text3(7)=rsren.Fields(11)Ifrsren.Fields(12)<>""ThenfrmProjSearOne.Text3(10)=rsren.Fields(12)Ifrsren.Fields(13)<>""ThenfrmProjSearOne.Text3(4)=rsren.Fields(13)Ifrsren.Fields(14)<>""ThenfrmProjSearOne.Text3(11)=With mandType=adCmdUnknownDimstcanjstcanjia="select,,出生日期,专业职务,研究专长,学历,from参加表where项目='"&frmProjSelect1.DataGrid1.Columns(0)&"'".Adodc1.RecordSource=EndWithEndPrivateSubForm_Load()cmdSave.Enabled=FalsecmdExit.Enabled=AddRecord Text2.Enabled=False:Text4.Enabled=False:Combo1.Enabled=FalseSSTab1.Enabled=FalseCommand2.Enabled=EndPublicSubText2="":Text4="":Combo1.Text=""DimiAsIntegerFori=0To4Text3(i)=EndSub项目进展情况修改窗体OptionPublicAlterRecordAsPrivateSubMsgBoxvbInformationvbOKOnly,AlterRecord=TrueEndPrivateSubSetdbOpenDatabase(App.Path&I.mdb")Dimtt1AsStringDimrsxmAstt1="SELECT*FROM项目基本情况 WHERE项目='"&"'"Setrsxm=mand2.Visible=Ifrsxm.Fields(0)<>""ThenfrmProjSearOne.txtNum.Text=rsxm.Fields(0)Ifrsxm.Fields(1)<>""ThenfrmProjSearOne.Text2(0).Text=rsxm.Fields(1)Ifrsxm.Fields(2)<>""ThenfrmProjSearOne.Text2(1).Text=rsxm.Fields(2)Ifrsxm.Fields(3)<>"" bo1(0).Text=Ifrsxm.Fields(4)<>"" bo1(1).Text=Ifrsxm.Fields(5)<>""Then bo1(2).Text=rsxm.Fields(5)Ifrsxm.Fields(6)<>""ThenfrmProjSearOne.Text2(4).Text=rsxm.Fields(6)Ifrsxm.Fields(7)<>""ThenfrmProjSearOne.Text2(5).Text=rsxm.Fields(7)Ifrsxm.Fields(8)<>""ThenfrmProjSearOne.Text2(3).Text=rsxm.Fields(8)Ifrsxm.Fields(9)<>""ThenfrmProjSearOne.Text2(6).Text=rsxm.Fields(9)DimstrenAsStringDimrsrenAsRecordsetSetdbOpenDatabase(App.Path&stren="select*from项目 where项目='"&"'"Setrsren=db.OpenRecordset(stren,Ifrsren.Fields(1)<>""ThenfrmProjSearOne.Text3(0)=rsren.Fields(1)Ifrsren.Fields(2)<>"" bo2(0)=Ifrsren.Fields(3)<>""Then bo2(1)=rsren.Fields(3)Ifrsren.Fields(4)<>""ThenfrmProjSearOne.Text3(1)=rsren.Fields(4)Ifrsren.Fields(5)<>""ThenfrmProjSearOne.Text3(5)=rsren.Fields(5)Ifrsren.Fields(6)<>""ThenfrmProjSearOne.Text3(8)=rsren.Fields(6)Ifrsren.Fields(7)<>""ThenfrmProjSearOne.Text3(2)=rsren.Fields(7)Ifrsren.Fields(8)<>""ThenfrmProjSearOne.Text3(6)=rsren.Fields(8)Ifrsren.Fields(9)<>""ThenfrmProjSearOne.Text3(9)=rsren.Fields(9)Ifrsren.Fields(10)<>""ThenfrmProjSearOne.Text3(3)=rsren.Fields(10)Ifrsren.Fields(11)<>""ThenfrmProjSearOne.Text3(7)=rsren.Fields(11)Ifrsren.Fields(12)<>""ThenfrmProjSearOne.Text3(10)=rsren.Fields(12)Ifrsren.Fields(13)<>""ThenfrmProjSearOne.Text3(4)=rsren.Fields(13)Ifrsren.Fields(14)<>""ThenfrmProjSearOne.Text3(11)=With SecurityInfo=False;DataSource="&App.Path&mandType=adCmdUnknownDimstcanjstcanjia="select,,出生日期,专业职务,研究专长,学历,from参加表where项目='"&frmProjSelect3.DataGrid1.Columns(0)&"'".Adodc1.RecordSource=EndWitEndPrivateSubDataGrid1_SelChange(CancelAsInteger)cmdSave.Enabled=TruecmdDelete.Enabled=TrueDimrsppAsSetdbOpenDatabase(App.Path&Setrspp=db.OpenRecordset("SELECT*FROM项目进展情况表WHERE项目='"&DataGrid1.Columns(0)&"'AND&DataGrid1.Columns(1)&"'")Ifrspp.Fields(1)<>""ThenText2.Text= Ifrspp.Fields(2)ThenCombo1.Text Ifrspp.Fields(3)ThenText4.Text DimiAsIntegerFori=0To4Ifrspp.Fields(i+4)<>""ThenText3(i).Text=rspp.Fields(i+EndPrivateSubForm_Load()cmdSave.Enabled=FalsecmdExit.Enabled=FalsecmdDelete.Enabled=FalseAlterRecord Text2.Enabled=False:Text4.Enabled=False:Combo1.Enabled=FalseSSTab1.Enabled=FalseCommand2.Enabled=FalseEndSubPublicSubText2="":Text4="":Combo1.Text=""DimiAsIntegerFori=0To4Text3(i)=""EndSubPrivateSubcmdDelete_Click()DimrsppAsRecordsetSetdbOpenDatabase(App.Path&Setrspp=db.OpenRecordset("SELECT*FROM项目进展情况表WHERE项目='"&DataGrid1.Columns(0)&"'AND&DataGrid1.Columns(1)&DimdAsdMsgBox("vbQuestionvbYesNo,Ifd=vbYesThenMsgBoxvbInformationvbOKOnly, DataGridEndIfIfrspp.RecordCount>0ThenIfrspp.EOFThenEndIfEndEndSubPrivateSubcmdSave_Click()DimrsppAsRecordsetSetdbOpenDatabase(App.Path&Setrsppdb.OpenRecordset("SELECT*FROMWHERE号='"&DataGrid1.Columns(0)&"'AND阶段号='"&Text2.Text&"'")rspp.Fields("项目")=rspp.Fields(1) IfCombo1.TextThenrspp.Fields(2) IfText4Thenrspp.Fields(3 DimiAsIntegerFori=0To4IfText3(i)<>""Thenrspp.Fields(i+4)=Text3(i)MsgBoxvbInformationvbOKOnly, DataGridcmdAlter.Enabled=TruecmdSave.Enabled=FalseAlterRecord=FalseEndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSub cmdAlter.Enabled=FalseEndPrivateSubAlterRecord=FalseEndPrivateSubForm_Unload(CancelAsInteger)SetDataGrid1.DataSource=NothingEnd项目经费情况录入窗体OptionPublicAddRecordAsPrivateSubMsgBoxvbInformationvbOKOnlyAddRecord=TrueEndPrivateSubcmdExit_Click()AddRecord=FalseEndPrivateSubcmdJisuan_Click()'计算按钮DimiAsIntegerDimsAsCurrencyDimtAsCurrencys=0Fori=0ToIfText5(i)<>""Thens=s+Text5(i)Text5(7)=IfText3<>""Thent=Text3-sIft<0ThenLabel13.Caption="透支"Text5(8).Text=Abs(t)Label13.Caption="结 Text5(8).Text=tEndIfEndSubPrivateSubcmdSave_Click() IfText2.Text=""ThenMsgBoxvbInformationvbOKOnly,ExitElseIf(NotText3.Text="")And(NotIsNumeric((Trim(Text3.Text))))ThenMsgBoxvbInformationvbOKOnly,ExitElseIf(NotText4.Text="")And(NotIsNumeric((Trim(Text4.Text))))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(0).TextAnd(NotIsNumeric((Trim(Text5(0).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(1).TextAnd(NotIsNumeric((Trim(Text5(1).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(2).TextAnd(NotIsNumeric((Trim(Text5(2).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(3).TextAnd(NotIsNumeric((Trim(Text5(3).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(4).TextAnd(NotIsNumeric((Trim(Text5(4).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(5).TextAnd(NotIsNumeric((Trim(Text5(5).Text))ThenMsgBoxvbInformationvbOKOnlyExitElseIfNotText5(6).TextAnd(NotIsNumeric((Trim(Text5(6).Text))ThenMsgBoxvbInformationvbOKOnlyExitEndDimsqlAsSetdbOpenDatabase(App.Path&sql="select*from项目经费 where项 ='"frmProjSelect.DataGrid1.Columns(0)&"'AND&Text2.Text&"'"Setrs=db.OpenRecordset(sql,Ifrs.EOFAndrs.BOFThenrs.Fields("项目")=frmProjSelect.DataGrid1.Columns(0)rs.Fields(1)=Text2 IfText4Thenrs.Fields(2) IfText3Thenrs.Fields(3) IfText5(7)<>""Thenrs.Fields(11)= IfText5(8)<>""Thenrs.Fields(12)= DimiAsIntegerFori=0To6IfText5(i)<>""Thenrs.Fields(i+4)=MsgBoxvbOKOnly,cmdAdd.Enabled=TruecmdSave.Enabled=False ExitEndMsgBoxvbInformationvbOKOnly,EndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubCommand1_Click() cmdSave.Enabled=TruecmdAdd.Enabled=FalseAddRecord=TrueEndSubPrivateSub SetdbOpenDatabase(App.Path&I.mdb")Dimtt1AsStringDimrsxmAstt1="SELECT*FROM项目基本情况 WHERE项目='"frmProjSelect.DataGrid1.Columns(0)&Setrsxm=db.OpenRecordset(tt1)mand2.Visible= Ifrsxm.Fields(3)<>""Then bo1(0).Text=Ifrsxm.Fields(4)<>""Then bo1(1).Text=Ifrsxm.Fields(5)<>""Then bo1(2).Text= Ifrsxm.Fields(10)<>""ThenfrmProjSearOne.Text2(7).Text=Ifrsxm.Fields(11)<>""ThenfrmProjSearOne.Text2(8).Text=Ifrsxm.Fields(12)<>""ThenfrmProjSearOne.Text2(2).Text=DimstrenAsStringDimrsrenAsRecordsetSetdbOpenDatabase(App.Path&stren="select*from项目 where项 ='"&"'"Setrsren=db.OpenRecordset(stren,Ifrsren.Fields(1)<>""ThenfrmProjSearOne.Text3(0)=rsren.Fields(1) bo2(0)=Ifrsren.Fields(3)<>""Then Ifrsren.Fields(4)<>""ThenfrmProjSearOne.Text3(1)=rsren.Fields(4)Ifrsren.Fields(5)<>""ThenfrmProjSearOne.Text3(5)=rsren.Fields(5)Ifrsren.Fields(6)<>""ThenfrmProjSearOne.Text3(8)=rsren.Fields(6)Ifrsren.Fields(7)<>""ThenfrmProjSearOne.Text3(2)=rsren.Fields(7)Ifrsren.Fields(8)<>""ThenfrmProjSearOne.Text3(6)=rsren.Fields(8)Ifrsren.Fields(9)<>""ThenfrmProjSearOne.Text3(9)=rsren.Fields(9)Ifrsren.Fields(10)<>""ThenfrmProjSearOne.Text3(3) With.Adodc1.ConnectionString="Provider=.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&App.Path&mandType=Dimstcanjstcanjia="select,,出生日期,专业职务,研究专长,学历, 参加表 项目='" frmProjSelect.DataGrid1.Columns(0)&"'".Adodc1.RecordSource=EndWithEndPrivateSubForm_Load()cmdSave.Enabled=FalsecmdExit.Enabled=FalseCommand2.Enabled=AddRecord Text2.Enabled=False:Text3.Enabled=False:Text4.Enabled=Frame2.Enabled=FalseEndSubPublicSubClear()DimiAsIntegerText2="":Text3="":Text4=""Fori=0To8Text5(i)=""End项目经费情况修改窗体DimrsmAsDAO.RecordsetOptionExplicitPublicAlterRecordAsPrivateSubMsgBoxvbInformationvbOKOnlyAlterRecord=TrueEndPublicSubClear()DimiAsIntegerText2="":Text3="":Text4=""Fori=0To8Text5(i)=""EndPrivateSubSetdbOpenDatabase(App.Path&Setrsm=db.OpenRecordset("SELECT*FROM项目经费表WHERE项目='"&DataGrid1.Columns(0&"'AND&DataGrid1.Columns(1)&"'")DimdAsdMsgBoxvbQuestionvbYesNoIfd=vbYesThenMsgBoxvbInformationvbOKOnly, DataGridEndIfIfrsm.RecordCount>0ThenIfrsm.EOFThenEndIfEnd

EndPrivateSub DimiAsIntegerDimsAsCurrencyDimtAsCurrencys=0Fori=0ToIfText5(i)<>""Thens=s+Text5(i)Text5(7)=IfText3<>""Thent=Text3-sIft<0ThenLabel13.Caption="透 Text5(8).Text=Abs(t)Label13.Caption="结 Text5(8).Text=tEndEndPrivateSubSetdbOpenDatabase(App.Path&Setrsm=db.OpenRecordset("SELECT*FROM项目经费表WHERE项目='"&DataGrid1.Columns(0&"'AND&Text2.Text&rsm.Fields("项目")= IfText4Thenrsm.Fields(2) IfText3Thenrsm.Fields(3) IfText5(7)<>""Thenrsm.Fields(11)= IfText5(8)<>""Thenrsm.Fields(12)= DimiAsIntegerFori=0To6IfText5(i)<>""Thenrsm.Fields(i+4)=MsgBoxvbInformationvbOKOnly DataGridcmdAlter.Enabled=TruecmdSave.Enabled=FalseAlterRecord=FalseEndPrivateSubcmdUnload_Click()UnloadMeEndPrivateSubSetdbOpenDatabase(App.Path&I.mdb")Dimtt1AsStringDimrsxmAstt1="SELECT*FROM项目基本情况 WHERE项目='"rmProjSelect2.DataGrid1.Columns(0)&Setrsxm=db.OpenRecordset(tt1)mand2.Visible=Ifrsxm.Fields(0)<>""ThenfrmProjSearOne.txtNum.Text=rsxm.Fields(0)Ifrsxm.Fields(1)<>""ThenfrmProjSearOne.Text2(0).Text=rsxm.Fields(1)Ifrsxm.Fields(2)<>""ThenfrmProjSearOne.Text2(1).Text=rsxm.Fields(2)Ifrsxm.Fields(3)<>"" bo1(0).Text=Ifrsxm.Fields(4)<>"" bo1(1).Text=Ifrsxm.Fields(5)<>""Then bo1(2).Text=rsxm.Fields(5)Ifrsxm.Fields(6)<>""ThenfrmProjSearOne.Text2(4).Text=rsxm.Fields(6)Ifrsxm.Fields(7)<>""ThenfrmProjSearOne.Text2(5).Text=rsxm.Fields(7)Ifrsxm.Fields(8)<>""ThenfrmProjSearOne.Text2(3).Text=Ifrsxm.Fields(9)<>""ThenfrmProjSearOne.Text2(6).Text=rsxm.Fields(9)DimstrenAsStringDimrsrenAsRecordsetSetdbOpenDatabase(App.Path&stren="select*from项目 where项目='"frmProjSelect2.DataGrid1.Columns(0)&Setrsren=db.OpenRecordset(stren,Ifrsren.Fields(1)<>""ThenfrmProjSearOne.Text3(0)=rsren.Fields(1)Ifrsren.Fields(2)<>"" bo2(0)=Ifrsren.Fields(3)<>""Then bo2(1)=rsren.Fields(3)Ifrsren.Fields(4)<>""ThenfrmProjSearOne.Text3(1)=rsren.Fields(4)Ifrsren.Fields(5)<>""ThenfrmProjSearOne.Text3(5)=rsren.Fields(5)Ifrsren.Fields(6)<>""ThenfrmProjSearOne.Text3(8)=rsren.Fields(6)Ifrsren.Fields(7)<>""ThenfrmProjSearOne.Text3(2)=rsren.Fields(7)Ifrsren.Fields(8)<>""ThenfrmProjSearOne.Text3(6)=rsren.Fields(8)Ifrsren.Fields(9)<>""ThenfrmProjSearOne.Text3(9)=rsren.Fields(9)Ifrsren.Fields(10)<>""ThenfrmProjSearOne.Text3(3)=rsren.Fields(10)Ifrsren.Fields(11)<>""ThenfrmProjSearOne.Text3(7)=Ifrsren.Fields(12)<>""ThenfrmProjSearOne.Text3(10)=rsren.Fields(12)Ifrsren.Fields(13)<>""ThenfrmProjSearOne.Text3(4)=rsren.Fields(13)Ifrsren.Fields(14)<>""ThenfrmProjSearOne.Text3(11)=With.Adodc1.ConnectionString="Provider=SecurityInfo=False;DataSource&App.Path&I.mdb"mandType=Dimstcanjstcanjia="select,,出生日期,专业职务,研究专长,学历,from参加表where项目='"&frmProjSelect2.DataGrid1.Columns(0)&"'".Adodc1.RecordSource=EndWithEndPrivateSubDataGrid1_SelChange(CancelAsInteger)cmdSave.Enabled=TruecmdDelete.Enabled=SetdbOpenDatabase(App.Path&Setrsm=db.OpenRecordset("SELECT*FROM项目经费表WHERE项目='"&经费&DataGrid1.Columns(1).CellText(DataGrid1.Bookmark)&Ifrsm.Fields(1)ThenText2.Text 数Ifrsm.Fields(2)ThenText4.Text Ifrsm.Fields(3)ThenText3.Text Ifrsm.Fields(11)<>""ThenText5(7).Text= Ifrsm.Fields(12)<>""ThenText5(8).Text= DimiAsIntegerFori=0To6Ifrsm.Fields(i+4)<>""ThenText5(i).Text=rsm.Fields(i+EndPrivateSubForm_Load()cmdSave.Enabled=FalsecmdExit.Enabled=FalsecmdDelete.Enabled=FalseAlterRecord Text2.Enabled=False:Text3.Enabled=False:Text4.Enabled=FalseFrame2.Enabled=FalseText5(7).Locked=TrueText5(8).Locked=TrueCommand2.Enabled=FalseEndPrivateSub cmdAlter.Enabled=FalseAlterRecord=TrueEndPrivateSubAlterRecord=FalseEnd项目情况查询窗体PrivateSubcmdExit_Click()UnloadMeEndPrivateSubAdodc1.ConnectionString="Provider=.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&App.Path&I.mdb"mandType=DimxuyanAsString:DimleiAsString:DimyanAsStringDimxxAsString:DimwwAsStringDimwan1AsString:Dimwan2AsString:DimstartAsStringDimwanAsString:Dimwan3AsStringxx="select项目,项目名称,课题来源,项目类别,研究类型,学科,开始时间,结束间from项目基xuyan=xx&"where学科like'"&cmbXue&"%'"lei=xx&"where项目类别like'"&cmbLei&"%'"yanxx&wherelike&cmbYan&wan1select*fromwherewan2="selectdistinct项目from项目进展情况表where项目not(select项目from项目进展情况表where研究进DimrsnianAsDAO.RecordsetSetdbOpenDatabase(App.Path&from情况表"Setrsnian=db.OpenRecordset(sql,nianxx&whereyear&cmbEnd&IfoptXue.ValueThenAdodc1.RecordSource=xuyanEndIfoptLei.ValueThen