學(xué)生成績管理系統(tǒng)vb程序(留存版)

　　

【正文】 1_Click()Dim vb_A As IntegerDim vb_B As IntegerDim vb_C As IntegerDim vb_D As IntegerDim vb_E As IntegerDim Math_A As IntegerDim Math_B As IntegerDim Math_C As IntegerDim Math_D As IntegerDim Math_E As IntegerDim English_A As IntegerDim English_B As IntegerDim English_C As IntegerDim English_D As IntegerDim English_E As Integer = “select * from stu where vb=90”vb_A = = vb_A = “select * from stu where vb=80 and vbvb_B = = vb_B = “select * from stu where vb=70 and vbvb_C = = vb_C = “select * from stu where vb=60”vb_D = = vb_D = “select * from stu where vbvb_B = = vb_E = “select * from stu where math=90”Math_A = = Math_A = “select * from stu where math=80 and mathMath_B = = Math_B = “select * from stu where math=70 and mathMath_C = = Math_C = “select * from stu where math=60 ”Math_D = = Math_D = “select * from stu where mathMath_E = = Math_E = “select * from stu where english=90”English_A = = English_A = “select * from stu where english=80 and englishEnglish_B = = English_B = “select * from stu where english=70 and englishEnglish_C = = English_C = “select * from stu where english=60”English_D = = English_D = “select * from stu where englishEnglish_E = = English_E End SubPrivate Sub Form_Load() = “ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ End Sub代碼如下Private Sub Command1_Click()39。第五篇：VB學(xué)生成績管理系統(tǒng)課程設(shè)計報告VB程序設(shè)計 課程設(shè)計報告班 級：資工10902 班 姓 名：何睦 序 號：05 指導(dǎo)老師：劉少華 邵燕林 王慶陳君華 朱小龍目錄課設(shè)的目的..............................................................................................................................3界面設(shè)計和功能設(shè)計............................................................................................................3系統(tǒng)功能實施.......................................................................................................................12系統(tǒng)功能設(shè)計...........................................................................................................................19總結(jié)和體會...............................................................................................................................28一、課設(shè)的目的，提高實踐動手能力；，進(jìn)一步理解計算機(jī)程序設(shè)計的思路與方法； ，進(jìn)一步熟練運用VB的語言元素和流程控制語句；，達(dá)到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷耄?，熟悉用戶界面的設(shè)計；，熟悉數(shù)據(jù)訪問控件ADO及相關(guān)對象的使用，能基于ADO控件實現(xiàn)Access的數(shù)據(jù)訪問與操縱；二、界面設(shè)計和功能設(shè)計下面的界面為用戶登陸界面：用戶名和密碼均已設(shè)定，用戶名為zg，密碼為10902，只有輸入正確，然后點擊“登陸“按鈕才能進(jìn)入主界面。” + kc_條件 + “39。我發(fā)現(xiàn)并不是每一個問題都能從資料中得到解決方法，有些問題是無法預(yù)料的，這個時候就得靠自己去分析了，你必須得非常的細(xì)心，一步一步的進(jìn)行調(diào)試和修改，而且不能急，往往有的錯誤就是在你急躁的時候從你眼皮底下溜過去的，這樣又得重新檢查，到頭來，既費時又費力，實在不行，還可以和同學(xué)一起進(jìn)行討論；在寫代碼的時候，一定要養(yǎng)成良好的語法習(xí)慣，對窗體和控件的name屬性和caption屬性，要盡量習(xí)慣用相對應(yīng)的英文單詞的縮寫或簡寫，因為這樣便于自己的查找和修改，還有就是在寫代碼的時候，不要圖簡單，一些語法結(jié)構(gòu)總是不寫全，老是用最簡單的形式，如果你對vb語法結(jié)構(gòu)很熟的話，這沒問題，但對于我們這樣的初學(xué)者來說，一定不要這樣，因為時間長了的話，對一些復(fù)雜一點的程序理解起來會很吃力的，而且對其的運行過程的了解不能達(dá)到透徹；在數(shù)據(jù)庫的操作部分，一定檢驗一下數(shù)據(jù)源的連接成功與否，還有就是在控件與數(shù)據(jù)庫連接的時候，不要忘了每個控件的datasource屬性和datafield屬性，要確保其于數(shù)據(jù)庫的成功連接。將學(xué)號對應(yīng)的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學(xué)號，需要設(shè)置DataSource和DataField兩個屬性,首先選中Text1文本框，并進(jìn)行下面的兩步操作，即可綁定數(shù)據(jù)庫的學(xué)號字段。在設(shè)計過程中，我通過查閱有關(guān)資料，與同學(xué)交流經(jīng)驗和自學(xué)等方式，使自己學(xué)到了不少知識，也經(jīng)歷了不少艱辛，但收獲同樣巨大。說明：DataGrid控件屬性設(shè)置以下為各個界面所對應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zgzy” And = “11201” Then Unload me Else MsgBox “用戶名或密碼錯誤,請重新輸入”, vbMsgBoxSetForeground, “系統(tǒng)提示！” End IfStatic t As Integer t = t + 1 If t = 3 Then End End SubPrivate Sub Command2_Click()a = MsgBox(“確定要退出本系統(tǒng)嗎？”, 3 + 32 + 256, “系統(tǒng)提示！”)If a = 6 Then Unload Me End If End Sub該界面代碼如下：Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub該界面代碼如下：Private Sub Command1_Click() End SubPrivate Sub Command2_Click()If = 0 Or ThenExit Sub End If If = 0 ThenExit Sub End If If Then End SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click()Unload Me End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “ ” + kc_條件 End SubPrivate Sub Form_Load()kc_條件 = “=92” kc = “vb” End SubPrivate Sub Option1_Click()kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub該界面代碼如下：Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39。” amp。（2）經(jīng)過密碼檢驗后，顯示主界面，以表格形式顯示數(shù)據(jù)庫中所有學(xué)生的成績信息。結(jié)語及致謝通過這次的設(shè)計，讓我對VB的使用有了進(jìn)一步的了解。第三章 前臺界面分析 登陸界面主要代碼Option Explicit Dim m As IntegerDim conn As New Dim rs As New Private rsmc As Public username As String Private Sub cmdOk_Click()Dim ee As String If m 3 Then If Trim()= “ Or = ”“ Then MsgBox ”用戶名或密碼不能為空！請重新輸入！“, vbInformation, ”登錄信息“ Exit Sub End If Do While Not If (0)= And (1)= Then MsgBox ”歡迎你進(jìn)入學(xué)生成績管理系統(tǒng),“ Unload Me Exit Sub End If Loop m = m + 1 ee = MsgBox(”用戶名或密碼錯誤！請重新輸入！“, vbCritical + vbRetryCancel, ”登錄信息“)39。學(xué)生成績管理系統(tǒng)軟件應(yīng)用的好壞直接影響到學(xué)校以及學(xué)校今后發(fā)展。“ sql, conn, adOpenDynamic, adLockOptimisticIf Not Then39。“ amp。 amp。第一篇：學(xué)生成績管理系統(tǒng)VB程序登陸登陸Private Sub cmdLogin_Click()If = “ ThenMsgBox(”請輸入用戶名!“) Else Call openconn sql = ”select * from login where username=39。 ”39。 amp。判斷學(xué)號是否存在 rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”修改成功！“)ElseMsgBox(”學(xué)號不存在!“)End If End If End Sub 窗體Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtA