基于vb的多媒體畢業(yè)紀(jì)念冊的設(shè)計(jì)與實(shí)現(xiàn)-資料下載頁
2025-06-27 18:49本頁面
【正文】 Private Sub Command1_Click()If ThenSQL = select * from 教師表 where 教師姓名= 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有此教師姓名的教師資料！, , 提示 = select * from 教師表 End IfEnd If……End Sub上述代碼主要通過 option 控件判斷用戶選擇了何查詢方法，再采用 SQL 結(jié)構(gòu)化查詢語句實(shí)現(xiàn)查詢。21 21 同學(xué)資料管理模塊的實(shí)現(xiàn) 同學(xué)資料維護(hù)模塊同學(xué)資料模塊用于存儲同學(xué)資料，具有增加、刪除功能。（1）流程圖圖 518 同學(xué)資料維護(hù)流程圖（2）界面運(yùn)行效果圖 519 同學(xué)資料維護(hù)窗口（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then = False = FalseNY開始增加刪除等操作是否繼續(xù)退出22 22 If Then End IfEnd IfEnd SubPrivate Sub Command3_Click() = False = False = False = True = TrueFor i = 0 To 6 Text1(i).Enabled = TrueNext = TrueText1(0).SetFocusEnd Sub 同學(xué)資料查詢模塊 同學(xué)資料查詢模塊的功能是方便用戶查詢學(xué)生的更多相關(guān)信息。（1）流程圖圖 520 同學(xué)資料查詢流程圖（2）界面運(yùn)行效果NY開始設(shè)置查詢條件查詢是否繼續(xù)退出23 23圖 521 同學(xué)資料查詢（3）設(shè)計(jì)與實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command1_Click()If Then SQL = select * from 學(xué)生表 where 學(xué)生姓名= 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有學(xué)生的信息！, , 提示 = select * from 學(xué)生表 End IfEnd IfIf Then SQL = select * from 學(xué)生表 where 班級名 = 39。 amp。 Trim() amp。 39。 = SQL If Then MsgBox 沒有此班級的同學(xué)資料！, , 提示 = select * from 學(xué)生表 End IfEnd If24 24End SubPrivate Sub Form_Load() = + End Sub 用戶信息管理模塊的設(shè)計(jì)與實(shí)現(xiàn)用戶信息管理模塊主要具有用戶信息維護(hù)及密碼修改功能。 用戶信息維護(hù)模塊（1）流程圖圖 522 用戶信息維護(hù)模塊流程圖（2）界面運(yùn)行效果圖 523 用戶信息維護(hù)（3）實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command1_Click()NY開始增加刪除項(xiàng)目是否繼續(xù)保存25 25If = 新增 Then = 確定 = False = FalseElse = 新增 ……End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load() = amp。 End Sub 用戶密碼管理模塊 用戶密碼管理主要是對用戶密碼進(jìn)行管理修改。（1）流程圖圖 524 用戶密碼管理流程圖NY開始修改密碼是否繼續(xù)保存26 26（2）界面運(yùn)行效果圖 525 密碼修改（3） 實(shí)現(xiàn)過程Step1：構(gòu)造界面。Step2：設(shè)置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command1_Click() SQL = select * from 用戶表 where user =39。 amp。 Trim() amp。 39。 = SQLIf Then MsgBox 沒有此用戶！, , 提示 = 用戶表 ElseIf Trim() = Trim() Then If Trim() = Trim() Then = MsgBox 密碼修改成功！, , 提示 = …… Else MsgBox (新密碼與確認(rèn)密碼不符！), , 提示 = ……27 27 End IfElse MsgBox 原密碼錯(cuò)誤！, , 提示 = End IfEnd IfEnd SubPrivate Sub Form_Load() = amp。 End Sub5 結(jié)束語通過這次畢業(yè)設(shè)計(jì)，本人實(shí)現(xiàn)了一個(gè)多媒體畢業(yè)紀(jì)念冊的主要功能。開發(fā)出來的多媒體畢業(yè)紀(jì)念冊集圖像、文字、音樂等于一體，能夠較好地完成班級資料、教師資料、同學(xué)資料的管理、查詢和留言管理等工作。然而，由于時(shí)間倉促，加上本人水平有限，沒有對多媒體畢業(yè)紀(jì)念冊的其他一功能進(jìn)行深入分析和實(shí)現(xiàn)，還有許多地方需要進(jìn)一步完善和改進(jìn)。總之，本次畢業(yè)設(shè)計(jì)在一定程度上綜合運(yùn)用了大學(xué)所學(xué)的專業(yè)課程知識，不但讓本人進(jìn)一步鞏固了所學(xué)知識，而且提高了本人的編程能力，積累軟件開發(fā)方面的經(jīng)驗(yàn)，為本人今后的工作、學(xué)習(xí)打下良好的基礎(chǔ)。參考文獻(xiàn)[1] [M].北京：清華大學(xué)出版,1999[2] Basic 程序設(shè)計(jì)[M].北京：中央廣播電視大學(xué)出版社,2022[3] [M].北京：清華大學(xué)出版社,1999[4] [M].上海：電子工業(yè)出版社,2022[5] Basic 程序設(shè)計(jì)[M].清華大學(xué)出版社,2022[6] Basic 實(shí)戰(zhàn)講座[M].北京：人民郵電出版社,1999[7] [M].北京：清華大學(xué)出版社,2022[8] 紅軍,王虹. Visual Basic 中文版高級應(yīng)用與開發(fā)指南[M].北京：人民郵電出版社,1999[9] Server 實(shí)用教程[M].北京：電子工業(yè)出版社,2022[10] 劉明,周學(xué)名,郭安源. Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航[M].北京：民郵電出版,2022[11] 劉稻,駱娟,何旭洪. Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航[M].北京。人民郵電出版,202228 28[12] 趙乃真. Access 數(shù)據(jù)庫基礎(chǔ)教程[M]. 北京：清華大學(xué)出版社,2
法律信息相關(guān)推薦
鄂ICP備17016276號-1