基于vb的多媒體畢業(yè)紀念冊的設計與實現(xiàn)(已改無錯字)
2022-07-25 18:49:38 本頁面
【正文】 字段12 12Step1：通過“工具” 菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進行菜單的設，另外還要注意菜單的級別。系統(tǒng)主菜單運行效果如下：圖 59 菜單編輯Step2：單擊菜單設置各菜單代碼。部分關鍵代碼如下圖：Private Sub bjly_Click()End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub Form_Resize() = ( ) / 2 = / 2End SubPrivate Sub jsxxcx_Click()End SubPrivate Sub jsxxwf_Click()End SubPrivate Sub rkxxwf_Click()調(diào)節(jié)菜單的級別設置快捷鍵實現(xiàn)圖片上文字的位置自動調(diào)整13 13End Sub 班級資料管理模塊的設計實現(xiàn) 班級信息管理模塊班級信息管理的功能是用戶存放班級信息及增加刪除功能。（1）流程圖圖 510 班級信息管理流程圖（2）界面運行效果圖 511 班級信息維護（3）設計與實現(xiàn)過程NY開始增加刪除等操作是否繼續(xù)退出14 14運行時用戶可以選擇系統(tǒng)菜單。以所選的班級信息菜單為例，其設計與實現(xiàn)過程描述如下：Step1：構造界面，將所需的控件放到窗體的相應位置。在 “工具箱”中選中所需要的控件圖標然后在表單的恰當位置上單擊鼠標并拖動鼠標，既可把由所選取的控件生成的對象添加到窗體上。Step2：選擇窗體或控件進行屬性設置。Step3：雙擊相應的控件，在控件的相應過程中編寫代碼。主要代碼如下：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(確認刪除當前記錄嗎？, vbYesNo, 確認窗口) = 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 班級信息有誤！請檢查！, , 系統(tǒng)提示 Text1(0).SetFocusElse For i = 0 To 2 Text1(i).Enabled = False Next = False = True…… MsgBox 班級信息添加成功！, , 系統(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。 End SubPrivate Sub Image1_Click()16 16 = End Sub 班級留言管理模塊 班級留言管理主要完成存放和刪除班級留言信息的功能。（1）流程圖圖 512 班級留言流程圖（2）界面運行效果 圖 513 留言管理（3）設計與實現(xiàn)過程Step1：構造界面，將所需的控件放到窗體的相應位置。在 “工具箱”中選中所需要的控件圖標然后在表單的恰當位置上單擊鼠標并拖動鼠標，既可把由所選取的控件生成的對象添加到窗體上。Step2：選擇窗體或控件進行屬性設置。Step3：編寫代碼。NY開始留言/查詢留言是否繼續(xù)退出17 17查看留言的主要代碼如下：Private Sub DataCombo1_Change(Index As Integer)If Index = 0 Then SQL = select * from 留言表 where 班級 = 39。 amp。 Trim(DataCombo1(0).Text) amp。 39。 = SQL If Then MsgBox 沒有此班級的學生留言！, , 提示 = select * from 留言表 End IfEnd IfEnd Sub上述代碼的實現(xiàn)主要通過用戶選擇不同的班級然后通過 SQL 結構化查詢語句實現(xiàn)信息的查詢。添加留言頁框的主要代碼如下：Private Sub Command1_Click()If = 留言 Then = 保存 = True = DataCombo1(1).Text = yf Else = 留言 = False End IfEnd Sub 教師資料管理模塊的設計實現(xiàn) 教師資料維護模塊教師資料維護模塊的功能是為了維護用戶存放教師資料，主要具有資料的增加和刪除功能。（1）流程圖18 18圖 514 教師資料維護流程圖（2）界面運行效果圖 515 教師資料維護窗口（3）設計與實現(xiàn)過程Step1：構造界面。Step2：設置控件的屬性。Step3：編寫代碼。主要代碼如下：Private Sub Command4_Click()If Len(Trim(Text1(0))) = 0 ThenMsgBox 教師資料有誤！請檢查！, , 系統(tǒng)提示 Text1(0).SetFocusElse NY開始增加刪除等操作是否繼續(xù)退出19 19 For i = 0 To 4 Text1(i).Enabled = False Next = False = False = True = True = True = False = False MsgBox 教師資料添加成功！, , 系統(tǒng)提示End IfEnd Sub 教師資料查詢模塊教師資料查詢的功能是方便查詢與教師相關的信息。（1）流程圖 圖 516 教師資料流程圖（2）界面運行效果NY開始設置查詢條件查詢是否繼續(xù)退出20 20圖 517 教師資料查詢（3）設計與實現(xiàn)過程Step1：構造界面。Step2：設置控件的屬性。Step3：編寫代碼。主要代碼如下：
法律信息相關推薦
鄂ICP備17016276號-1