學(xué)生信息管理系統(tǒng)的設(shè)計與實現(xiàn)論文-閱讀頁
2025-07-13 03:50本頁面
【正文】 可以所在的表格的寬度進行調(diào)整。3．實現(xiàn)過程：第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），代碼如下：主要是通過Show方法調(diào)用相應(yīng)的窗體。第二步，選擇窗體或控件進行屬性設(shè)置，同上一小結(jié)。第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：窗體的load事件為：Private Sub Command1_Click()Dim myCon As New Dim myRs As New Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As StringZhuanYe = NianJi = XueQi = KeCheng = JiaoCai = RenKLS = KeShi = ShangKeDD = KeChengXZ = KaoShiXZ = If Trim(ZhuanYe) = Or Trim(NianJi) = Or Trim(XueQi) = Or Trim(KeCheng) = Or Trim(JiaoCai) = Or Trim(RenKLS) = Or Trim(KeShi) = Or Trim(ShangKeDD) = Or Trim(KeChengXZ) = Or Trim(KaoShiXZ) = Then MsgBox 請?zhí)顚懸薷恼n程資料的內(nèi)容！ = = Exit SubEnd If dsn=信息 select * from 課程表 where 專業(yè)=39。 amp。, myCon, 3, 2 myRs!年級 = myRs!學(xué)期 = myRs!課程名稱 = myRs!教材 = myRs!任課老師 = myRs!課時 = myRs!上課地點 = myRs!課程性質(zhì) = myRs!考試性質(zhì) = MsgBox 您確定要修改嗎？, vbYesNo, 提示 = = 39。 = select * from 課程表 where 專業(yè) = 39。 Trim() amp。39。 = (年級)39。 = (課程名稱)39。 = (任課老師)39。 = (上課地點)39。 = (考試性質(zhì))End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate() = strTiaoJianSet = End SubPrivate Sub Form_Load() (必修) (選修) (自開) (考試) (查考) = = 39。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。 + Text1 + 39。 + Text2 + 39。 + Text3 + 39。 + Text4 + 39。 + Text1 + 39。 + Text2 + 39。 + Text3 + 39。 amp。 (男)39。 + Text1 + 39。 + Combo1 + 39。If = 1 And Not IsNumeric(Text2) Then 39。 + Text2 + 39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 課程名稱=39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = 39。 = = = (必修) (選修) (自開)End SubPrivate Sub Text3_Change()End Sub成績統(tǒng)計分析 代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = SELECT * FROM 成績表 SQLadd = WHERE 學(xué)號=學(xué)號 AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號=39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 考試科目=39。End IfIf = 1 Then SQLadd = SQLadd + and 科目分?jǐn)?shù)60End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = 39。 + Text1 + 39。 + Text2 + 39。 + Text3 + 39。 + Text4 + 39。 建議分辨率1024*768。JET數(shù)據(jù)引擎、ADO數(shù)據(jù)引擎。在社會上不比在學(xué)校，在學(xué)校學(xué)的都是些理論性的知識，往往在實踐中不知道怎么去應(yīng)用，在工作中就不一樣，實踐性更強一點，理論結(jié)合實踐，學(xué)到的東西更牢靠也更實用。社會經(jīng)驗的缺乏，學(xué)歷不足等種種原因會使自己缺乏自信。自信不是麻木的自夸，而是對自己的能力做出肯定。 致謝在論文即將完成之際，回顧緊張但又充實的學(xué)習(xí)班和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。在撰寫論文階段，徐老師幾次審閱我們的論文，提出了許多寶貴意見，沒有他的指導(dǎo)，我們就不能較好的完成課題設(shè)計的任務(wù)。同時，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。[4] 馮沃輝 , 黃智誠．新編網(wǎng)頁設(shè)計與制作[M] .北京：冶金工業(yè)出版社，2003。[6] 李晨蕾， ，200
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1