freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告-學(xué)生成績(jī)管理系統(tǒng)-文庫吧在線文庫

2025-06-27 01:49上一頁面

下一頁面
  

【正文】 aSource: 20 設(shè)置 DataField: 當(dāng)在圖 2中點(diǎn)擊學(xué)生管理,則進(jìn)入圖 3界面,可以進(jìn)行學(xué)生添加、刪除、修 改等操作。其程序代碼如下: 4. 成績(jī)的查詢窗體( form3) 7 通過該窗體可直接輸入的查詢條件分別對(duì) VB、 Math、 English這三門課程各成績(jī)段學(xué)生情況統(tǒng)計(jì)。 4 總結(jié)和體會(huì) ................................................................................... 錯(cuò)誤 !未定義書簽。 2. 學(xué)生成績(jī)管理系統(tǒng) ( form1) 5 學(xué)生成績(jī)管理系統(tǒng)這個(gè)窗體有學(xué)生管理(添加與刪除)、查詢與統(tǒng)計(jì)、統(tǒng)計(jì)總分、排名、統(tǒng)計(jì)直方圖 、 優(yōu)等生界面 這五大主 要功能。 ( form9) 12 通過輸入班級(jí)可以查詢?cè)摪嗨袑W(xué)生的信息。 End Sub Private Sub Form_Load() kc = name End Sub ( 5)班級(jí)查詢界面(參考成績(jī)查詢界面) 26 圖 6 班級(jí)查詢界面 輸入 班級(jí) 后 查詢 27 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 當(dāng)點(diǎn)擊計(jì)算分?jǐn)?shù)段統(tǒng)計(jì),則在相應(yīng)的文本框中顯示各科的分?jǐn)?shù)段。 而 Chart控件 恐怕是我之前從未見過的控件,但是通過到圖書館查找資料后我發(fā)現(xiàn)它與其他控件比較也沒有什么特殊之處,它與 DBGrid控件 一樣需要被 ADO控件連接 ,通過設(shè)置圖表類型和圖表選項(xiàng)后,即可以直方圖的形式十分形象地顯 示每門課程學(xué)生成績(jī)分布情況,功能十分強(qiáng)大。 。所謂 “對(duì)象 ”就是個(gè)可操作實(shí)體如窗體、窗體中命令按鈕、標(biāo)簽、文本框等,面向?qū)ο缶幊叹褪侵赋绦騿T可根據(jù)界面設(shè)計(jì)要求直接在界面上設(shè)計(jì)出窗口、菜單、按鈕等類型對(duì)象并為每個(gè)對(duì)象設(shè)置屬性。 步驟如下:步驟 在部件中加載 Chart控件 : 步驟 步驟 3: Chart屬性設(shè)置如下 : 35 點(diǎn)擊生成 VB直方圖按鈕后: Private Sub Command1_Click() = 1 = 36 For lngI = 1 To = lngI = Val((VB).Value) = (name).Value Next lngI = VB成績(jī)直方圖 End Sub Private Sub Command2_Click() = 1 = For lngI = 1 To = lngI = Val((Math).Value) = (name).Value Next lngI = Math成績(jī)直方圖 End Sub Private Sub Command3_Click() = 1 = For lngI = 1 To = lngI = Val((English).Value) = (name).Value Next lngI = English成績(jī)直方圖 End Sub 37 ( 10)優(yōu)等生界面 點(diǎn)擊圖 2的優(yōu)等生界面 ,出現(xiàn)圖 10 圖 10 優(yōu)等生界面 點(diǎn)擊統(tǒng)計(jì)優(yōu)等生 ,出現(xiàn) Private Sub Command1_Click() Dim vb As Integer 38 Dim math As Integer Dim english As Integer = select * from stu where ((math+english+vb)/3=90) or((math+english+vb)/3=85 and (math=100 or english=100 or vb=100 ))or((vb+english+math)/3=85 and ((vb=9
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評(píng)公示相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1