基于vb的多媒體畢業(yè)紀(jì)念冊(cè)的設(shè)計(jì)與實(shí)現(xiàn)-預(yù)覽頁(yè)
【正文】 息提供相應(yīng)的界面供操作人員錄入顯示查詢結(jié)果圖 33 查詢模塊（3） 用戶信息維護(hù)模塊 IPO 圖I OP增加修改刪除提供相應(yīng)的界面供操作人員操作保存到表圖 34 用戶信息維護(hù)模塊3 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)的概念和基本操作（1）數(shù)據(jù)庫(kù)概念5 5數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。 （2）新建一個(gè)數(shù)據(jù)庫(kù)創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。這三種操作均可由 Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。需求分析的結(jié)果是系統(tǒng)開(kāi)發(fā)的基礎(chǔ)，關(guān)系到整個(gè)系統(tǒng)的成敗和質(zhì)量。數(shù)據(jù)庫(kù)中包含三種相關(guān)聯(lián)的信息：數(shù)據(jù)對(duì)象、數(shù)據(jù)對(duì)象的屬性以及數(shù)據(jù)對(duì)象彼此間相互連接的關(guān)系。 amp。 End Sub上述代碼中，“IF”語(yǔ)句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫(kù)的是否相同，如果相同，則執(zhí)行 （隱藏當(dāng)前的窗體）和 （調(diào)出系統(tǒng)主界面），如果用戶名或密碼輸入錯(cuò)誤，則提示錯(cuò)誤信息，并要求用戶重新輸入用戶名或密碼。 此屬性的作用是保證 Data 控件與數(shù)據(jù)庫(kù)相連。主界面是用菜單形式表現(xiàn)的，運(yùn)行效果如下圖所示：圖 58 主界面圖中菜單的制作過(guò)程如下：此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫(kù)此數(shù)據(jù)控件綁定到何字段12 12Step1：通過(guò)“工具” 菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)，另外還要注意菜單的級(jí)別。以所選的班級(jí)信息菜單為例，其設(shè)計(jì)與實(shí)現(xiàn)過(guò)程描述如下：Step1：構(gòu)造界面，將所需的控件放到窗體的相應(yīng)位置。主要代碼如下：Private Sub Command1_Click() = False = False = False = True = True = Date = DateFor i = 0 To 2 Text1(i).Enabled = TrueNext = TrueText1(0).SetFocusEnd SubPrivate Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then = False = False If Then End IfEnd IfEnd SubPrivate Sub Command3_Click()…… = True15 15For i = 0 To 2 Text1(i).Enabled = TrueNext = TrueText1(0).SetFocusEnd SubPrivate Sub Command4_Click()If (Len(Trim(Text1(0))) = 0) And (Len(Trim(Text1(1))) = 0) Then MsgBox 班級(jí)信息有誤！請(qǐng)檢查！, , 系統(tǒng)提示 Text1(0).SetFocusElse For i = 0 To 2 Text1(i).Enabled = False Next = False = True…… MsgBox 班級(jí)信息添加成功！, , 系統(tǒng)提示End IfEnd SubPrivate Sub Command5_Click() = True……For i = 0 To 2 Text1(i).Enabled = FalseNext = FalseEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load() = amp。Step2：選擇窗體或控件進(jìn)行屬性設(shè)置。 Trim(DataCombo1(0).Text) amp。（1）流程圖18 18圖 514 教師資料維護(hù)流程圖（2）界面運(yùn)行效果圖 515 教師資料維護(hù)窗口（3）設(shè)計(jì)與實(shí)現(xiàn)過(guò)程Step1：構(gòu)造界面。（1）流程圖 圖 516 教師資料流程圖（2）界面運(yùn)行效果NY開(kāi)始設(shè)置查詢條件查詢是否繼續(xù)退出20 20圖 517 教師資料查詢（3）設(shè)計(jì)與實(shí)現(xiàn)過(guò)程Step1：構(gòu)造界面。 amp。21 21 同學(xué)資料管理模塊的實(shí)現(xiàn) 同學(xué)資料維護(hù)模塊同學(xué)資料模塊用于存儲(chǔ)同學(xué)資料，具有增加、刪除功能。主要代碼如下：Private Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then = False = FalseNY開(kāi)始增加刪除等操作是否繼續(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)信息。主要代碼如下：Private Sub Command1_Click()If Then SQL = select * from 學(xué)生表 where 學(xué)生姓名= 39。 = SQL If Then MsgBox 沒(méi)有學(xué)生的信息！, , 提示 = select * from 學(xué)生表 End IfEnd IfIf Then SQL = select * from 學(xué)生表 where 班級(jí)名 = 39。 = SQL If Then MsgBox 沒(méi)有此班級(jí)的同學(xué)資料！, , 提示 = select * from 學(xué)生表 End IfEnd If24 24End SubPrivate Sub Form_Load() = + End Sub 用戶信息管理模塊的設(shè)計(jì)與實(shí)現(xiàn)用戶信息管理模塊主要具有用戶信息維護(hù)及密碼修改功能。主要代碼如下：Private Sub Command1_Click()NY開(kāi)始增加刪除項(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。Step3：編寫(xiě)代碼。 39。然而，由于時(shí)間倉(cāng)促，加上本人水平有限，沒(méi)有對(duì)多媒體畢業(yè)紀(jì)念冊(cè)的其他一功能進(jìn)行深入分析和實(shí)現(xiàn)，還有許多地方需要進(jìn)一步完善和改
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1