學(xué)生信息管理系統(tǒng)學(xué)士學(xué)位論文(參考版)
2024-08-07 07:58本頁面
【正文】 30參考文獻(xiàn)[１] Bob Reselman .Visual Basic 使用指南 ,電子工業(yè)出版社 2022[２] Craig Access 2022 24 學(xué)時教程,機(jī)械工業(yè)出版社 2022[３] BASIC 經(jīng)典范例,清華大學(xué)出版社 2022[４] ,清華大學(xué)出版社 2022[５] ,清華大學(xué)出版社 2022[６] 2022 ,科學(xué)出版社 2022。而且在這次設(shè)計中我也受益良多，對 VB 系統(tǒng)的應(yīng)用更加得心應(yīng)手，語言更加簡便，應(yīng)用更加直接，對各控件的把握也有一定提高，雖然中間遇到好多問題，但通過老師的幫助都得到了解決，通過對整個系統(tǒng)的整體設(shè)計，也認(rèn)識到了自己對系統(tǒng)設(shè)計方面所存在的不足，比如想事情不夠周到，不能夠把細(xì)節(jié)做的很好等。并提供部分系統(tǒng)測試功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。29第八章 結(jié)束語經(jīng)過這幾個月的設(shè)計和開發(fā)，學(xué)生信息管理系統(tǒng)基本開發(fā)完畢。其它功能測試與添加用戶流程雷同，暫不一一復(fù)述。因技術(shù)、設(shè)備有限，只對系統(tǒng)的基本運行環(huán)節(jié)進(jìn)行了測試。采用結(jié)構(gòu)化開發(fā)方法與否對系統(tǒng)測試工作有極大影響，具有很高的代價，系統(tǒng)測試工作對測試人員要求較高，對象是整個系統(tǒng)的配置。在此不再贅述。 = 瀏覽學(xué)生檔案End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 39 Then KeyAscii = 0End IfEnd Sub 班級管理界面點擊“班級管理”顯示如下界面，效果如圖 610 所示：圖 610 班級管理界面班級管理模塊有班級瀏覽、班級添加、班級查詢?nèi)椆δ埽渲邪嗉墳g覽界面中也有修改、刪除、打印功能。01 美術(shù)一39。01 美術(shù)一39。 order by desc, desc, desc = txtsqlfind = True39。 txtsqlDim mrc As Set mrc = ExecuteSQL(str)If = True Then zzz = MsgBox(對不起，沒有此學(xué)生的檔案記錄！, vbOKOnly, 查詢) (0) (0).SetFocus Exit SubEnd Iftxtsql = select ,class.年制, from xj inner join class on = where amp。 %39。% amp。 39。 amp。 Else txtsql = txtsql amp。 Trim(Text1(2).Text) amp。 End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = =39。 Trim(Text1(1).Text) amp。 and =39。 39。 amp。 39。 amp。 Else txtsql = txtsql amp。 Trim(Text1(0).Text) amp。效果如圖 69 所示：圖 69 學(xué)生檔案查詢可使用下面程序完成：Private Sub Command1_Click()Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = =39。25 Set mrc = ExecuteSQL(txtsql) TreeView1_DblClick End If End If瀏覽界面，在此處可以進(jìn)行查找、修改、刪除和打印工作。 Trim((, 1)) amp。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from cj where 學(xué)號=39。 Trim((, 1)) amp。 Set mrc = ExecuteSQL(txtsql) txtsql = delete * from jf where 學(xué)號=39。 Trim((, 1)) amp。 該操作會導(dǎo)致該學(xué)生交費記錄和成績記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intcount = txtsql = delete * from xj where 學(xué)號=39。 Chr(10) amp。 Trim((, 1)) amp。End IfIf aa = 0 Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！, , 警告) Text1(0).SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where amp。 Trim(Text1(3).Text) amp。 End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = like 39。 Trim(Text1(2).Text) amp。 and =39。 39。 amp。 39。 amp。 Else txtsql = txtsql amp。 Trim(Text1(1).Text) amp。 End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = =39。 Trim(Text1(0).Text) amp。 and =39。 39。 amp。 39。 amp。首先程序先對輸入的學(xué)號進(jìn)行判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的內(nèi)容。Set mrc = ExecuteSQL(txtsql)If = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd Iftxtsql = select * from useSet mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text)For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y20 End Select End If Next j End Select End If Next i MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Option1(2).Value = TrueEnd SubPrivate Sub Form_Resize()Text1(0).SetFocusEnd SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Option1_Click(Index As Integer)If Index 2 ThenFor i = 0 To 3 Check1(i).Enabled = FalseNext iElseFor i = 0 To 3 Check1(i).Enabled = TrueNext iEnd IfEnd Sub21 學(xué)生檔案管理界面點擊“學(xué)生檔案管理”后出現(xiàn)如下界面，效果如圖 66 所示。 Trim(Text1(0).Text) amp。18Private Sub Command1_Click()If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocu
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號-1