【正文】
Private Sub Command3_Click()If = ThenMsgBox 請選擇修改對象Else = = = End IfEnd Sub(4)退出個(gè)人信息窗口代碼如下:Private Sub Command4_Click()Unload MeEnd Sub(5)打開個(gè)人信息窗口運(yùn)行代碼如下:Private Sub Form_Load()i = 0Open + \ For Random As 1Do While Not EOF(1)i = i + 1Get 1, i, pers , i 1 , i 1 , i 1 , i 1LoopCloseEnd SubPrivate Sub List1_Click() = = = End SubPrivate Sub List2_Click() = = = End SubPrivate Sub List3_Click() = = = End SubPrivate Sub List4_Click() = = = End Sub(8)主界面六如圖11所示 圖11 主界面主要代碼如下:Dim pers As managerPrivate Sub Form_Load()Text3 = End SubPrivate Sub Command1_Click() ‘確定添加按鈕If Text1 = Or Text2 = Or Text3 = Or = ThenMsgBox 請輸入完整的信息Exit SubEnd IfIf Text1 And Text2 And Text3 And Then Text1 Text2 Text3Call saveEnd IfUnload MeEnd SubPrivate Sub Command2_Click() ‘退出按鈕Unload MeEnd Sub(9)主界面七如圖12所示 圖12 主界面3 結(jié)果分析 單擊“確定”按鈕,運(yùn)行結(jié)果見圖1所示 圖1用戶登錄單擊“搜索”按鈕,運(yùn)行結(jié)果見圖2所示。 圖2搜索單擊“零件查詢卡片式”按鈕,運(yùn)行結(jié)果見圖3所示。 圖3卡片式單擊“零件查詢列表框式”按鈕,運(yùn)行結(jié)果見圖4所示。 圖4列表框式單擊“零件數(shù)據(jù)維護(hù)”按鈕,運(yùn)行結(jié)果見圖5所示。 圖5零件數(shù)據(jù)維護(hù) 點(diǎn)擊任一零部件后顯示如圖6 圖6 單擊“修改”按鈕,運(yùn)行結(jié)果見圖7所示。 圖7修改零件點(diǎn)擊確定后顯示如圖8所示 圖8點(diǎn)擊任一零部件后顯示如圖9所示 圖9點(diǎn)擊刪除按鈕后顯示如圖10所示 圖10點(diǎn)擊添加按鈕后顯示如圖11所示 圖11 點(diǎn)擊確定后顯示如圖12所示 圖12單擊“管理員數(shù)據(jù)維護(hù)”按鈕,運(yùn)行結(jié)果見圖13所示。 圖13管理員數(shù)據(jù) 點(diǎn)擊任一管理員信息后顯示如圖14所示 圖14點(diǎn)擊刪除后顯示如圖15所示 圖15點(diǎn)擊任一管理員信息后顯示如圖16所示 圖16 點(diǎn)擊修改按鈕后顯示如圖17所示 圖17單擊“確定”按鈕后顯示如圖18 圖18單擊“添加”按鈕,運(yùn)行結(jié)果見圖19所示。 圖19點(diǎn)擊確定后顯示如圖20所示 圖20點(diǎn)擊幫助按鈕后顯示如圖21所示 圖21 結(jié) 論 在這個(gè)學(xué)生成績查詢、管理系統(tǒng)課設(shè)創(chuàng)作的過程中,讓我親身體會了制作軟件的全過程,讓我明白了制作軟件是一件很復(fù)雜的事情。也深深的體會到了理論聯(lián)系實(shí)踐的重要性,光有理論知識不去親自動(dòng)手制作是不行的。只懂理論不會實(shí)踐最多只是紙上談兵,想要真正的學(xué)好VB,完全掌握VB就一定要理論聯(lián)系實(shí)踐。在設(shè)計(jì)中會遇到很多的困難,其主要的原因如下:(1)缺乏實(shí)踐經(jīng)驗(yàn),不會理論聯(lián)系實(shí)際;(2)思維不是很靈活;(3)知識面不夠廣;(4)對VB編程不是很熟練,有很多實(shí)踐動(dòng)手能力,讓我更深刻的了解了VB的應(yīng)用,給我在以后的學(xué)習(xí)工作帶來更多的便利 致 謝 在本次課程設(shè)計(jì)中,我得到了很多幫助。尤其特別感謝指導(dǎo)老師:朱老師!還有許多熱心的學(xué)長和室友們在這里一并表示感謝! 參考文獻(xiàn) [1][J]..(11).12~15[2]Islamabad. Software tools for forgery detection[J]. Business . (5). 29~32 [3].. Visual ,21世紀(jì)教材;[4].. Visual ,21世紀(jì)教材;[5].龔沛曾. Visual Baisc程序設(shè)計(jì)簡明教程(第二版).高等教育出版社,2003[6]. ,2004 43 / 44