日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 运维知识 > windows >内容正文

windows

【学生信息管理系统】——优化篇(二)

發布時間:2023/12/20 windows 34 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【学生信息管理系统】——优化篇(二) 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

優化內容

3、查詢信息窗體——check復選框
界面簡潔、設計美觀,提供給用戶需要的、滿足用戶的需求,給用戶帶來方便。所以,我在查詢信息的窗體中,對于選查詢方式,這部分做了一些改動。當加載完窗體時,因為用戶還沒有選擇查詢方式,為使界面簡潔,滿足用戶所需要的需求即可,所以我將查詢方式的check隱藏了起來。當用戶設置某種查詢方式時,check框便會出現,獲得焦點,用戶輸入信息即可。當用戶重新打開上次設置的查詢方式時,為輸入新的查詢信息提供方便,所以將文本框清空,不保留上次輸入的查詢信息。實現功能的代碼入下:

Private Sub Check1_Click(Index As Integer)If Check1(0).Value = 0 Then '若check1(0)不被選中txtSID.Visible = False '學號文本框不可見Else '若check1(0)被選中txtSID.Visible = True '學號文本框可見txtSID.Text = "" '學號文本框清空txtSID.SetFocus '學號文本框獲得焦點End IfIf Check1(1).Value = 0 Then '若check1(1)不被選中txtName.Visible = FalseElsetxtName.Visible = TruetxtName.Text = ""txtName.SetFocusEnd IfIf Check1(2).Value = 0 Then '若check1(2)不被選中txtClassno.Visible = FalseElsetxtClassno.Visible = TruetxtClassno.Text = ""txtClassno.SetFocusEnd If End Sub

4、設置年級課程窗體——重復設置課程
套用源代碼,當我們一次又一次單擊設置課程按鈕時,所有課程文本框的內容會發生更改,將所有課程又copy了一次又一次,顯然這是不合理的,用戶所能更改的是選擇課程,而不是將已設置好的所有課程進行更改。按照源代碼的方式,會出現的結果如圖所示:

Private Sub cmdSet_Click()Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As String'使各個控件有效Listallcourse.Enabled = TrueListselectcourse.Enabled = TruecmdModify.Enabled = True'查詢數據txtSQL = "select * from course_Info"Set mrc = ExecuteSQL(txtSQL, MsgText)While (mrc.EOF = False) '添加內容到列表中listAllcourse.AddItem mrc.Fields(1) mrc.MoveNextWendmrc.CloseflagSet = True End Sub

這段代碼運行結果是:

要解決這個問題,我們先要對listbox控件有所了解。additem、removeitem方法要了解,listindex和listcount屬性要知道。簡單一點說,additem是將項添加到列表框中的,removeitem是將項從列表框中刪除的,listindex返回的是列表框list中當前選擇項目的索引號碼,listcount返回的是列表框list中項目總數。當我們知道到了這些基本內容,再來看代碼就比較容易理解了。我們要解決這個問題,就需要從while wend段中入手了,修改這段代碼來去除重復設置問題。解決的具體方法如下代碼:

While (mrc.EOF = False) If Listallcourse.ListCount <> mrc.RecordCount ThenListallcourse.AddItem mrc.Fields(1)End Ifmrc.MoveNextWendmrc.Close

此外,還有重復添加某一相同課程。源代碼實現的功能如下圖所示:

Private Sub cmdAdd_Click()If listAllcourse.ListIndex <> -1 ThenlistSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)End If End Sub

運行結果:

我們想要的結果是,某一年級,同樣的課程只需要添加一次即可,不需要同一年級重復添加某一課程。可以使用下面的代碼片段解決這個問題:

'判斷是否有內容被選中 If Listallcourse.ListIndex <> -1 ThenIf Listselectcourse.ListCount = 0 ThenListselectcourse.AddItem Listallcourse.List(Listallcourse.ListIndex)End If For i = 0 To Listselectcourse.ListCount - 1If Listselectcourse.List(i) = Listallcourse.List(Listallcourse.ListIndex) ThenExit SubEnd If NextListselectcourse.AddItem Listallcourse.List(Listallcourse.ListIndex) End If

5、日期問題——調用日期控件,為用戶提供方便;設置出生日期早于入學日期,要符合現實情況
6、文本框輸入文本的限制,可參看文本框的限制方法
7、還有其他的一些優化,需要設置控件的屬性等,遇到某一具體的控件,我們可以多了解一下該控件的屬性

總結

以上是生活随笔為你收集整理的【学生信息管理系统】——优化篇(二)的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。