附錄1部分源代碼

1)系統(tǒng)主窗體(MDIFrmMain)

PrivateSubaboutchcng_Click()'顯示科研成果查詢

窗體

frmprint2.Show

EndSub

PrivateSubaboutxm_C1i2k()'顯示項目查詢

窗體

frmPrint.Show

EndSub

PrivateSubcode_Click()'顯示密碼更改

窗體

frmPasswordChange.Show

EndSub

PrivateSubexit_Click()

退出

DimanswerAsString

DimCancelAsInteger

answer=MsgBox("是否退出本系統(tǒng)？+vbYesN。，〃警告〃)

Ifanswer=vbNoThen

Cancel=1

Elbelfciiiiswer=vbYusTlien

End

EndIf

EndSub

PrivateSubhelpClickO

幫助

frmSplash.Show

EndSub

PrivateSubkedit_Click()'顯示科研成果錄入

窗體

frmCheng.Show

EndSub

PrivateSubkmClickO'顯示科研成果修改

窗體

frmChengModify.Show

EndSub

PrivateSubMDIFormLoadO'主窗體

登錄

IfLogAdimsucceeded=FalseThen'在這里設(shè)置用戶

權(quán)限

user.Encibled=False:code.Enabled=False

proj.Enabled=False:proc.Enabled=False:mon.Enabled=False

keyan.Enabled=False

EndIf

EndSub

PrivateSubmmClickO'顯示經(jīng)費修改

窗體

frmMonModify.Show

EndSub

PrivateSubmoneditClick()'顯示經(jīng)費錄入

窗體

frmMonEdit.Show

EndSub

PrivateSubpeditClick()'顯示項目基本情況錄入

窗體

frmProjEdit.Show

EndSub

PrivateSubpmClick()’顯示項目基本情況修改

窗體

frmProjModify.Show

EndSub

PrivateSubpredit_Click()'顯示項目進度情況錄入

窗體

frmProcEdit.Show

EndSub

PrivateSubprm_Click()'顯示項忖進度情況修改

窗體

frmProcModify.Show

EndSub

PrivateSubsearailClick()'顯示所有項目情況查詢

窗體

frmSearchxm.Show

ssear="all"

EndSub

PrivateSubsearfuze_Click()’顯示按申請者姓名進行項目查詢

窗體

frmSoarch.Show

ssear=2

WithfrmSearch

.Label1.Caption="請輸入申請者姓名:

EndWith

EndSub

PrivateSubsearnamo_Click()'顯示按輸入項目名稱進行查詢

窗體

frmScarch.Show

frmSearch.Show

ssear=I

WithfrmSearch

.Labell.Caption="請輸入項目名稱:

EndWith

EndSub

PrivateSubsearxueke_Click()'顯示按學(xué)科進行項目查詢

窗體

frmSearch.Show

ssear=3

WithfrmSearch

.LabelI.Caption="請輸入學(xué)科：”

EndWith

EndSub

PrivateSubToolbarl_ButtonClick(ByVaiButtonAsMSComctlLib.Button)'工具

攔

SelectCaseButton.Index

CaseI

frmProjEdit.Show

Case3

frmScarchxm.Show

ssear=alI

Case5

frmPrint.Show

Case7

frmSplash.Show

Case9

answer=MsgBox（"是否退出本系統(tǒng)？。vbInformation+vbYcsNo,“警告"）

Ifanswer=vbNoThen

Cancel=1

Elselfanswer=vbYesThen

End

EndIf

EndSub

PrivateSubcmdOk_Click（）

Setdb=OpenDatabase（App.Path&"課題數(shù)據(jù)庫I.mdb"）

Setrsuser=db.OpenRecordset（^select*from用戶表where用戶名='〃&

txtUserName.Text&and密碼='"&txtPassword.Text&"）

ifNot（rsuser.EOEAndrsuser.BOF）Then

Ifrsuser.Fields（"身份"）="管理員"Then

LogAdimsucceeded=True'說明是管理員

登錄

LoginlD=rsuser.Fields（"用戶名”）

LoginPassword=rsuser.Fields（"裕碼"）

MDIFrmMain.Show

Me.Hide

Else

LogAdimsucceeded=False‘普通用戶

登錄

LoginlD=rsuser.Fields（"用戶名”）

LoginPassword=rsuser.Fields（“密碼”）

MDIFrmMain.Show

Me.Hide

EndIf

Else

MsgBox”無效的密碼,請重試!〃，，〃登錄”

txtPassword.SetFocus

SendKeys*{Home}+{End}*

EndIf

EndSub

PrivateSubFormUnload（CancelAsInteger）'確定關(guān)閉

系統(tǒng)

DimanswerAsString

answer=MsgBox（"是否退出本系統(tǒng)？“，vblnformation+vbYesNo,"警告”）

Ifanswer=vbNoThen

Cancel=1

Elselfanswer=vbYesThen

End

EndIf

EndSub

3)密碼修改窗體(frmPasswordChange)

DimrspachAsDAO.Recordset

PrivateSubcmdExitClick()

Me.Hide

EnclSub

PrivateSubFormLoad(>

txtOldPWD=Loginpassword

txtOldPWD.Locked=True

EndSub

PrivateSubcmdSavc_Click()

IftxtNewPWD(l)<>ixtNewPWD(O)Then

MsgBox”兩次輸入的新口令必須相等！"，vbExclamation,“新口令”

txtNewI'WI)(0).SetFocus

txtNewPWD(O).SeIStart=0

txtNewPWD(O).SeiLength=Len(txtNewPWD(O))

Else

Setdb=OpenDatabasc(App.Path&"/課題數(shù)據(jù)庫Lmdb")

Setrspach=db.OpenRecordset(''select*from用戶表where用戶名二'"&Log!nil)

&

)

rspach.Edit

rspach.Fields("密碼")=txtNewPWD(0).Text

MsgBox”口令修改成功！"，vblnformation,"修改口令”

rspach.Update

rspach.Close

txtNewPWD(0).Text=""

txtNewPWD(l).Text=

Me.Hide

EndIf

EndSub

4)用戶管理窗體(fnnUserManage)

DimrsumAsDAO.Recordset

PrivateSubcmdAddClick()

UsgBox”請在表中直接添加用戶！“，vbInformation,

cmdAdd.Enabled=False

emdScive.Eneibled=True

EnclSub

PrivateSubcmdAlterClick()

MsgBox”請在表中直接修改用戶“，vbInformation,

cmdAlter.Enabled=False

cmdSave.Enabled=True

EndSub

PrivateSubcmdDelete_Click()

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

Setrsum=db.OpenRecordset("SELECT*FROM用戶表WHERE用戶名二&

DataGridl.Columns(0)&

DimdAsInteger

d=MsgBox("確實要刪除嗎？"，vbQuostion+vbYcsNo,"刪除記錄")

Ifd=vbYesThen

rsum.Delete

MsgBox"刪除成功！:vbInformation+vbOKOn1y,""

Adodcl.Refresh

cmdSave.Enabled=True

cmdDelete.Enabled=False

EndIf

EndSub

PrivateSubcmdSaveClick()

cmdAdd.Enabled=True

DataGridl.Refresh

EndSub

PrivateSubcmdlnloadClickO

UnloadMe

EnclSub

PrivateSubDataGridlRou*ColChange(LastRowAsVariant,ByVaiLastColAsInteger)

cmdDelete.Enabled=True

EndSub

PrivateSubForm_Load(>

cmdDelete.Enabled=False

cmdSave.Enabled=False

Adodcl.Connectionstring="Provider=Microsoft.Jet.OLEDB.3.51;Persist

SecurityInfo=False;DataSourcei&App.Path&"/課題

數(shù)據(jù)庫I.mdb”

Adodcl.CommandTypc=adCmdUnknown

ss="SELECT*FROM用戶表”

Adodcl.RecordSource=ss

Adodcl.Refresh

EndSub

5)項目基木情況錄入窗體(frmProjEdit)

PublicAddRecordAsBoolean

PrivateSubcmdAdd_Click()''新添項目'按

鈕

ClearDisplay'清除項目基本信

息

ClearDisplay2'清除負責(zé)人信

息

AddRecord=True

SSTabl.Enabled=True

cmdSave.Enabled=True

DataGridl.AllowAddNew=True

cmdAdd.Enabled=False

Withrsl'自動增加項

目編號

If.RecordCount>0Then

.MoveLast

txtNum=.RecordCount+1

.MoveFirst

Else

txtNum=1

EndIf

EndWith

Dimsql3AsString'將Adodcl控件連接數(shù)據(jù)庫，Datagridl中添加參加人

員信息

Adodcl.Connectionstring=/，Providcr=Microsoft.Jet.OLEDB.3.51;PersistSecurity

Info:False;DataSource&App.Path&"/課題數(shù)據(jù)庫

I.mdb”

Adodcl.ComniandType=adCmdUnknown

sql3="SELECT姓名，性別，出生日期，專業(yè)職務(wù)，研究專長，學(xué)位，學(xué)歷FROM參加人員表

NHERE項目編號LIKE&

txtNum.Text&”

Setrs3=db.OpcnRecDrdset(sql3,dbOpenDynasot)

Adodc1.RecordSource=sql3

Adodcl.Refresh

Text2(0).SetFocus

EndSub

PrivateSubcmdRubiao_Click()''人表'

按鈕

DimstcanAsString

DimrscanAsRecordset

stcan="select*from參加人員表where項目編號like&Trim(txtNun).Text)&

〃為'"

Setrscan=db.OpenRecordset(stcan,dbOpenDynaset)

Ifrscan.EOFAndrscan.BOFThen

rscan.AddNew

rscan.Fields(“項目編號")=txtNum.Text

Iftxtcan(17)<>Thenrscan.Fields("姓名")=txtcan(17).Text

Iftxtcan(16)<>""Thenrscan.Fields("出生日期")=txtcan(16).Text

Iftxtcan(15)<>Thenrscan.Fields("研究專長")=txtcan(15).Text

Iftxtcan(12)<>""Thenrscan.Fields("專業(yè)職務(wù)")=txtcan(12).Text

Iftxtcan(13)<>Thenrscan.Fields("學(xué)位")=txtcan(13).Text

Iftxtcan(14)<>Thenrscan.Fields("學(xué)歷")=txtcan(14).Text

Ifembsex(2)<>"〃Thenrscan.Fields(〃性別〃)=cmbsex(2).Text

rscan.Update

MsgBox”已列入表中！“，vbOKOn1y

ClearDisplay3

rscan.Close

Adodcl.Refresh

EndIf

EnclSub

PrivateSubcmdSave_Click()'，保存'

按鈕

If(NotText2(3).Text=And(NotIsNumeric(Trim(Text2(3).Text)))Then

MsgBox”請您正確輸入申請經(jīng)費！:vblnformation+vbOKOnly,"提示”

Text2(3).SetFocus

SondKeys”{home}+(end)”

ExitSub

Elself(Text2(0).Text=Then

MsgBox”請您輸入項目名稱！”,vblnformation+vbOKOnIy,"提示"

Text2(0).SetFocus

ExitSub

Elself(NotText2(4).Text=And(NotIsDate(Trim(Text2(4).Text)))Then

MsgBox”請您正確輸入起始時間！“，vblnformation+vbOKOnly,“提示"

ExitSub

Elself(NotText2(5).Text=〃")And(NotIsDate(Trim(Text2(4).Text)))Then

MsgBox”請您正確輸入截止時間！“，vblnformation+vbOKOnly,〃提示“

ExitSub

Elself(Nottext3(1).Text=And(NotIsDate(Trim(text3(1).Text)))Then

MsgBox”請您正確輸入申請人的出生日期！”,vblnformation+vbOKOnly,“提

■“

小

ExitSub

Elself(Nottxtcan(16).Text=And(NotIsDate(Trim(txtcan(16).Text)))Then

MsgBox”請您正確輸入?yún)⒓诱叩某錾掌?”,vblnformation+vbOKOnly,”提

—〃

zK

ExitSub

ElselfNotText2(4).Text=""AndNotText2(5).Text=""AndDateDiff("d〃，

Text2(4),Text2(5))<=0Then

MsgBox”請您正確輸入起止時間！“，vblnformation+vbOKOnly,〃提示“

ExitSub

Else

rsl.AddNew

WriteRecord

rsl.Update

rs2.AddNew

WriteRecor(12

rs2.Update

MsgBox”保存成功！，vbOKOnly,

cmdAdd.Enabled=True

cmdSave.Enabled=False

EndIf

EndSub

PrivateSubcmdUn1oad_C1ick()

UnloadMe

EndSub

PrivateSubFormLoad()

cmdSave.Enabled=False

AddRecord=False

SSTabl.Enabled=False

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

DimsqllAsString

sqll="select*from項Fl基本情況表〃

Setrsl=db.OpcnResordset(sql1,dbOponDynaset)

DimmAsInteger

ClcarDisplay

Dimsql2AsString

sql2="SELECT*FROM項目人員表WHERE項目編號LIKE'〃&Trim(txtNum.Text)&

AND項目中的分工LIKE&負責(zé)&

Setrs2=db.OpcnRecordset(sql2,dbOponDynaset)

ClearDisplay2

EndSub

PublicSubClearDisplayO清除項目基本

信息

DimiAsInteger

DimjAsInteger

Fori=0To8

Text2(i)=""

Next

Forj=0To2

Combol(j).Text=

Next

EnclSub

PublicSubClearDisplayO()清除負責(zé)人

信息

DimiAsInteger

DimjAsInteger

Fori=0To11

text3(i)=

Next

Forj=0To1

Combo2(j).Text=

Next

EndSub

PubIicSubWriteRecord()將錄入的項目基本信息添加到數(shù)據(jù)庫

表中

Withrsl

IftxtNum.Text<>Then.Fields(O)=txtNum.Text

IfToxt2(0).Text<>""Then.Fields(l)=Text2(0).Text

IfText2(l).Text<>Then.Fields(2)=Text2(l).Text

IfCombo1(0).Text<>""Then.Fields(3)=Combol(0).Text

IfCombol(1).Text<>""Then.Fields(4)=Combol(1).Text

IfCombol(2).Text<>""Then.Fields(5)=Combol(2).Text

IfText2(4).Text<>Then.FieIds(6)=Text2(4).Text

IfText2(5).Text<>Then.Fields(7)=Text2(5).Text

IfTcxt2(3).Text<>Then.Fields(8)=Toxt2(3).Text

IfText2(6).Text<>〃〃Then.Fields(9)=Text2(6).Text

IfText2(7).Text<>Then.Fields(lO)=Text2(7).Text

IfText2(8).Text<>Then.Fields(U)=Text2(8).Text

IfText2(2).Text<>Then.Fields(12)=Text2(2).Text

Iftext3(0).Text<>Then.Fields(13)=text3(0).Text

EndWith

EndSub

PublicSubWriteRecord2()'將錄入的負責(zé)人員信息添加到數(shù)據(jù)庫

表中

Withrs2

Iftext3(0)<>""Then.Fields(1)=text3(0)

IfCombo2(0)<>Then.Fields(2)=Combo2(0)

IfCombo2(1)<>""Then.Fields(3)=Combo2(1)

Iftext3(l)<>""Then.Fields(4)=text3(l)

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(lO)=text3(3)

Iftext3(7)<>Then.Fields(ll)=text3(7)

Iftext3(10)<>""Then.Fields(12)=text3(10)

Iftext3(4)<>〃〃Then.Fields(13)=text3(4)

Iftext3(ll)<>Then.Fields(14)=text3(ll)

.Fields(“項目中的分工〃)=〃負責(zé)〃

.Fields(〃項目編號=txtNum

EndWith

EndSub

PrivateSubForm_Un1oad(Cance1AsInteger)

SetDataGridl.DataSource=Nothing

EndSub

PublicSubClearDisplay3()

txtccin(17).Text=""

txtcan(16).Text=〃”

txtcan(15).Text=""

txtcan(12).Text=""

txtcan(13).Text=

txtcan(14).Text=

embsex(2).Text=""

EndSub

6)項目基木情況修改窗體(frmProjModify)

PublicAlterRecordAsBoolean

PrivateSubcmd.Alter_Click()

MsgBox”請首先選擇需要修改的項目！。vblnformation+vbOKOnly,

EndSub

PrivateSubcmdDelete_Click()

cmdDelete.Enabled=False

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

Dimrsxmj1AsRecordset:DimrsrenlAsRecordset:DiinrscanjialAsRecordset

Setrsxmj1=db.OpenRecordset(''select*from項目基本情況表where項目編號='"&

frmProjSelectPM.DataGridl.Columns(0)&

Setrsrenl=db.OpenRccordset("select*from項目人員表where項目編號='"&

frmProjSelectPM.DataGridl.Columns(0)&

“，")

Setrscanjial=db.OpenRecordset(^select*from參加人員表where項目編號=&

Trim(txtNum.Text)&

Z,，“)

DimdAsInteger

d=MsgBox("確實要刪除關(guān)于該項目的所有信息”&vbCr_&〃(包括申請人、參加人)

嗎？"，vbQuestion+vbYesNo,”

刪除記錄”)

Ifd=vbYesThen

rsxmj1.Delete

rsrenl.Delete

rsxmj1.MoveNext

rsrenl.MoveNext

Ifrsxmj1.RecordCount>0Then

Ifrsxmj1.EOFThen

rsxmj1.MoveLast

EndIf

Else

rsxmj1.AddNcw

EndIf

Ifrsrenl.RecordCount>0Then

Ifrsxrenl.EOFThen

rsrenl.MoveLast

EndIf

Else

rsrenl.AddNew

EndIf

rsxmj1.Close

rsrenl.Close

DimmmAsInteger:DimnnAsInteger

IfNot(rscanjial.BOFAndrscanjial.EOF)Then

rscanjial.MoveLast

mm=rscanjial.RecordCount

Fornn=1Tomm

rscanjial.Delete

Setrscanjicil=db.OpenRecordset(''select*from參加人員表where項目編

號"&

Trim(txtNum.Text)&

Next

EndIf

MsgBox”刪除成功！\vbOKOnly

Adodcl.Refresh

ClearAll

EndIf

rscanjial.Close

EndSub

PrivateSubcmdExit_Click()

AlterRecord=False

frmProjSelectPM.Writel

frmProjSelectPM.Write2

EnclSub

PrivateSubcmdSaveClick()

DimstxmjAsString

DimrsxmjAsRecordset

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

stxmj"select*from項目基本情況表where項目編號二&

frmProjSelectPM.DataGridl.Columns(0)

&…

Setrsxmj=db.OpenRecordset(stxmj,dbOpenDynaset)

Withrsxmj

.Edit

IftxtNum.Text<>""Then.Fields(O)=txtNum.Text

IfText2(0).Text<>Then.Fields(l)=Text2(0).Text

IfText2(l).Text<>""Then.Fields(2)=Text2(l).Text

IfCombo1(0).Text<>〃"Then.Fields(3)=Combo1(0).Text

IfCombol(1).Text<>Then.Fields(4)=Combol(1).Text

IfCombol(2).Text<>""Then.Fields(5)=Combol(2).Text

IfText2(4).Text<>〃〃Then.Fields(6)=Text2(4).Text

IfTcxt2(5).Text<>Then.Fields(7)=Text2(5).Text

IfText2(3).Text<>Then.Fields(8)=Text2(3).Text

IfText2(6).Text<>Then.Fields(9)=Text2(6).Text

IfText2(7).Text<>Then.Fields(lO)=Text2(7).Text

IfText2(8).Text<>Then.Fields(ll)=Text2(8).Text

IfText2(2).Text<>Then.Fields(12)=Text2(2).Text

Iftext3(0).Text<>“Then.Fields(13)=text3(0).Text

.Update

EndWith

DimstrenAsString

DimrsrenAsRecordset

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

strenselect*from項目人員表where項目編號='"&

frmProjSelectPM.DataGridl.Columns(0)

Setrsren=db.OpenRecordset(stren,dbOpenDynaset)

Withrsren

.Edit

Iftext3(0)<>""Then.Fields(l)=text3(0)

IfCombo2(0)<>Then.Fields(2)=Combo2(0)

IfCombo2(l)<>Then.Fields(3)=Combo2(l)

Iftext3(1)<>Then.Fields(4)=tcxt3(l)

Iftext3(5)<>〃〃Then.Fields(5)=text3(5)

Iftext3(8)<>""Then.Fields(6)=tcxt3(8)

Iftex13(2)<>〃〃Then.Fields⑺=text3(2)

Iftext3(6)<>〃〃Then.Fields(8)=text3(6)

Iftext3(9)<>〃〃Then.Fields(9)=text3(9)

Iftext3(3)<>〃〃Then.Fields(lO)=text3(3)

Iftext3(7)<>Thon.Fields(ll)=text3(7)

Iftext3(10)<>"〃Then.Fields(12)=text3(10)

Iftext3(4)<>Then.Fields(13)=text3(4)

Iftext3(ll)<>Then.Fields(14)=text3(ll)

.Update

EndWith

MsgBox”修改成功!”:vblnformation+vbOKOn1y,”

rsxmj.Close

rsren.Close

cmdSave.Enabled=False

cmdDelete.Enabled=False

cmdExit.Enabled=False

cmdAlter.Enabled=True

EndSub

PrivateSubcmdUnload_Click()

UnloadMe

EndSub

PrivateSubCommand1Click()

frmProjSelectPM.Show

frmProjSelcctPM.Adodcl.Refresh

EndSub

PrivateSubForm_Load(>

AlterRecord=False

cmdDelete.Enabled=False

cmdSave.Enabled=False

cmdExit.Enabled=False

SSTabl.Enabled=False

EnclSub

PublicSubClearAll()

txtNum.Text=

Text2(0).Text=""

Tcxt2(l).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=

Tcxt2(8).Text=""

Text2(2).Text="〃

text3(0)=

Combo2(0)=

Combo2(1)=

text3(l)=**

text3(5)=""

text3(8)=〃〃

text3(2)=

text3(6)=""

text3(9)=

text3(3)=

text3(7)=

text3(10)=""

text3(4)=

text3(ll)=""

EndSub

7)項目進展情況錄入窗體(frmProcEdit)

OptionExplicit

PublicAddRecordAsBoolean

PrivateSubcmdAddClick()

MsgBox”請首先選擇需要添加階段的項目！"，vbInformation+vbOKOn]y,""

AddRecord=True

EndSub

PrivateSubcmdExit_Click()

AddRecord=False

Clear

EndSub

PrivateSubcmdSave_Click()

IfText2.Text=""Then

MsgBox”請輸入階段號！“，vbInformation+vbOKOnly,"提示”

ExitSub

Elself(NotTcxt4.Text=And(NotIsDate(Trim(Tcxt4.Text)))Then

MsgBox”請您正確輸入檢查日期!”,vbInformation+vbOKOn1y,"提示"

ExitSub

EndIf

DimsqlAsString

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

sql="select*from項目進展情況表where項目編號='"&

frmProjSelectl.DcitciGi'idl.Columns(0)&“'AND階段號二'〃&Text2.Text

&

Setrsp=db.OpenRecordset(sql,dbOpenDynaset)

Ifrsp.EOFAndrsp.BOFThen

rsp.AddNew

rsp.Fields(“項目編號")=frmProjSelectl.DataGridl.Columns(0)

rsp.Fields(l)=Text2.Text'階

段號

IfCombol.TextO^^Thenrsp.Fields(2)=Combol.Text'研究

進度

IfText4<>""Thenrsp.Fields(3)=Text4'檢查

日期

DimiAsInteger

Fori=0To4

IfTcxt3(i><>""Thenrsp.Fields(i+4)=Tcxt3(i)

Next

rsp.Update

rsp.Close

MsgBox"保存成功！"，vbOKOnly,

Clear

Adodc1.Refresh

cmdAdd.Enabled=True

cmdSave.Enabled=False

AddRecord=False'不在添加

狀態(tài)

ExitSub

EndIf

MsgBox”階段號不能重復(fù)！"，vblnformation+vbOKOnly,"提示"

Clear

EndSub

PrivateSubCommandl_Click()'選擇項目

按鈕

cmdSave.Enabled=True

cmdAdd.Enabled=False

frmProjSelectl.Show

AddRecord=True

EnclSub

PrivateSubcmdCnload_Click()

UnloadMe

EndSub

PrivateSubCommand2_Click()'查看項目基本情況

按鈕

Setdb=OpenDatabase(App.Path&"/課題數(shù)據(jù)庫I.mdb")

DimttlAsString

DimrsxmAsDAO.Recordset

ttl="SELECT*FROM項目基本情況表WHERE項目編號='"&

frmProjSelectl.DataGridl.Columns(0)&

Setrsxm=db.OpcnRccordsct(tt1)

frmProjSearOne.Show

frmProjSearOne.Command2.Visible=False

Ifrsxm.Fields(0)<>""ThenfrmProjSearOne.txtNum.Text=rsxm.Fields(O)

Ifrsxm.Fields(1)<>""ThenfrmProjSearOne.Text2(0).Text=rsxm.Fields(l)

Ifrsxm.Fields(2)<>ThonfrmProjSearOne.Tcxt2(l).Text=rsxm.Fields(2)

Ifrsxm.Fields(3)<>〃"ThenfrmProjSearOne.Combol(0).Text=rsxm.Fields(3)

Ifrsxm.Fields(4)<>ThenfrmProjSearOne.Combol(1).Text=rsxm.Ficlcs(4)

Ifrsxm.Fields(5)<>ThenfrmProjSearOne.Combol(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)

Ifrsxm.Fields(10)<>〃〃ThenfrmProjSearOne.Text2(7).Text=rsxm.Fields(10)

Ifrsxm.Fields(ll)<>ThenfrmProjSearOne.Text2(8).Text=rsxm.Fields(11)

Ifrsxm.Fields(12)<>""ThenfrmProjSearOne.Text2(2).Text=rsxm.Fields(12)

DimstrenAsString

DimrsrenAsRecordset

Sotdb=OpenDatabasc(App.Path&"/課題數(shù)據(jù)庫Lmdb〃)

stren="select*from項目人員表where項Fl編號='"&

frmProjSelectl.DataGridl.Columns(0)&

Setrsren=db.OpenRecordset(stren,dbOpenDynaset)

Ifrsren.Fields(1)<>""ThenfrmProjSearOne.Text3(0)=rsren.Fields(l)

Ifrsren.Fields(2)<>ThenfrmProjSearOne.Combo2(0)=rsren.Fields(2)

Ifrsren.Fields(3)<>ThenfrmProjSearOne.Combo2(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.Tcxt3(9)=rsren.Fields(9)

Ifrsren.Fields(10,)<>〃"ThenfrmProjSearOne.Text3(3)=rsren.Fields(10)

Ifrsren.Fields(11)<>""ThenfrmProjScarOne.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(l1)=rsren.Fields(14)

WithfrmProjSearOne

.Adodcl.ConnectionString="Provider二Microsoft.Jet.OLEDB.3.51;Persist

SecurityInfo=False;DataSource—&App.Path&'7

課題數(shù)據(jù)庫Lmdb〃

.Adodcl.CommandTypc=adCmdllnknown

DimstcanjiaAsString

stcanjia=，zselect姓名，性別，出生口期，專業(yè)職務(wù)，研究專長，學(xué)歷，學(xué)位from參

加人員表where項目編號='"&

frm^rojSelectl.DataGridl.Colunns(O)&

.Adodcl.RccordSource=stcanjia

.