vb可視化編程技術(shù)-學(xué)生信息管理系統(tǒng)(編輯修改稿)
2025-06-19 00:45 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 制輸入長(zhǎng)度 txtDepartHead (TextBox) DataField DepartHead 綁定的字段名 DataSource dataDepart 綁定的數(shù)據(jù)控件名 MaxLength 8 限制輸入長(zhǎng)度 txtTelephone (TextBox) DataField Telephone 綁定的字段名 DataSource dataDepart 綁定的數(shù)據(jù)控件名 MaxLength 13 限制輸入長(zhǎng)度 txtDesc (TextBox) DataField Description 綁定的字段名 DataSource dataDepart 綁定的數(shù)據(jù)控件名 Multiline Ture 允許多行輸入 cmdAdd Caption 添加 (amp。A) 按鈕控件 (CommandButton) cmdDelete Caption 刪除 (amp。D) cmdQuit Caption 退出 (amp。Q) cmdModify Caption 修改 (amp。M) cmdSave Caption 保存 (amp。S) cmdCancel Caption 放棄 (amp。C) dbgDepart (DBGrid) DataSource dataDepart 數(shù)據(jù)表格控件，其他屬性另外設(shè)置 表 院系設(shè)置窗體各控件主要屬性 (1)通用變量、通用模塊定義 本模塊在同一個(gè)用戶(hù)界面上實(shí)現(xiàn)數(shù)據(jù)的瀏覽、添加、刪除、修改等功能，為了避免用戶(hù)操作不當(dāng)而錯(cuò) 誤修改數(shù)據(jù)，在瀏覽數(shù)據(jù)時(shí)應(yīng)禁止數(shù)據(jù)的修改；在添加、修改數(shù)據(jù) 9 時(shí)允許用戶(hù)輸入數(shù)據(jù)并禁止對(duì)記錄集的指針的移動(dòng)，可以設(shè)置一個(gè)通用過(guò)程來(lái)實(shí)現(xiàn)界面的切換。執(zhí)行【工具】 【添加過(guò)程】命令，添加一個(gè)名為 ToggleEditMode 的私有子過(guò)程，代碼如下： Private Sub ToggleEditMode() =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =Not InEditMoude =InEditMode =InEditMode End Sub (2)窗體加載過(guò)程 在窗體加載時(shí)需要進(jìn)行初始化處理。首先，為了保證應(yīng)用程序子任何路徑下都可以訪問(wèn)數(shù)據(jù)庫(kù)，必須修改數(shù)據(jù)控件的 DatabaseName 屬性，使其能自動(dòng)定位到應(yīng)用程序所在路徑。其次，確保窗體加載時(shí)界面處在瀏覽模式下，不允許修改數(shù)據(jù)庫(kù)中的數(shù)據(jù)。代碼如下： Private Sub Form_Load() =amp?！?\” =amp?！?\” =False InEditMode=False ToggleEditMode End Sub 10 (3)數(shù)據(jù)添加功能的實(shí)現(xiàn) 數(shù)據(jù)添加功能比較容易實(shí)現(xiàn)，通過(guò)數(shù)據(jù)控件的數(shù)據(jù)集的 AddNew 方法就可以添加一條空記錄，同時(shí)將界面切換到編輯模式下供用戶(hù)輸入數(shù)據(jù)。為了在操作完成以后數(shù)據(jù)控件能回到添加前的記錄位置，需要設(shè)置數(shù)據(jù)控件的書(shū)簽。添加功能的代碼如下： Private Sub cmdAdd_Click() 39。書(shū)簽操作 If 0 Then BookMK = Else BookMK = Null End If 39。添加記錄 InEditMode = True 39。設(shè)置編輯模式 ToggleEditMode 39。切換模式 End Sub (4)記錄刪除功能的實(shí)現(xiàn) 記錄刪除功能通過(guò)數(shù)據(jù)控件的數(shù)據(jù)集的 Delete 方法實(shí)現(xiàn)。為了保證數(shù)據(jù)庫(kù)的數(shù)據(jù)完整性，在刪除院系設(shè)置記錄前應(yīng)確保數(shù)據(jù)庫(kù)中沒(méi)有屬于該院系的班級(jí)。保證數(shù)據(jù)庫(kù)的完整性，一般可以采取“級(jí)聯(lián)更新 /級(jí)聯(lián)刪除”或者“拒絕操作”的方法，本系統(tǒng)中采用“拒絕刪除”的辦法，同時(shí)向用戶(hù)顯示警告信息。記錄刪除功能的代碼如下： Private Sub cmdDelete_Click() Dim Msg$, strSQL$ If Then Exit Sub 39。驗(yàn)證是否存在屬于該院系的班級(jí) strSQL=SELECT*FROM Class WHERE DepartID =39。 amp。 (“ DepartID” ) amp。 39。 = strSQL If Not Then 39。輸出屬于該院系的班級(jí)名稱(chēng) 11 Msg = 班級(jí) [ While Not Msg = Msg amp。 (ClassName) amp。 , Wend Msg = Msg amp。 ]屬于該院（系），所以不能刪除該院系！ MsgBox Msg Exit Sub End If Msg = MsgBox(確定要?jiǎng)h除記錄嗎 ?, vbYesNo) 39。確認(rèn)刪除操作 If Msg = vbYes Then 39。刪除操作 39。修改當(dāng)前指針 If And ( Count 0) Then
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1