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