【文章內(nèi)容簡(jiǎn)介】 Text3 + ”39。“ End IfIf = 1 And Not IsNull(Text4)Then SQLadd = SQLadd + ”and 輔導(dǎo)員=39?！?+ Text4 + ”39?！?End IfstrSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = ”“ = ”“ = ”“ = ”“ End SubPrivate Sub Command2_Click()amp。n上一頁(yè) [1] [2] [3] [4] [5] 下一頁(yè)sp。Unload MeEnd SubPrivate Sub Form_Load() = ”“ = ”“ = ”“ = ”“ End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub 檔案分析統(tǒng)計(jì)（如：界面如圖五）（圖五）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String On Error Resume Next SQLoriginal = ”SELECT * FROM 學(xué)生檔案 “ SQLadd = ”WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 “ SQLorder = ”“If = 1 And IsNumeric(Text1)Then SQLadd = SQLadd + ”and 學(xué)號(hào)=39?！?+ Text1 + ”39?！?End If If = 1 And Not IsNull(Text2)Then SQLadd = SQLadd + ”and 姓名=39?！?+ Text2 + ”39?！?End IfIf = 1 And Not IsNull(Text3)Then SQLadd = SQLadd + ”and 專(zhuān)業(yè)=39?！?+ Text3 + ”39?！?End IfIf = 1 And IsDate(DTPicker1)Then SQLadd = SQLadd + ” and 出生年月= “ amp。 amp。 ”“ End IfstrSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = ”“ = ”“ = ”“ End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load()39。(”男“)39。(”女“) = ”“ = ”“ = ”“ End SubPrivate Sub Text1_Change()End Sub 課程統(tǒng)計(jì)分析（如：界面如圖六）（圖六）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = ”SELECT * FROM 課程表 “ SQLadd = ”WHERE 專(zhuān)業(yè)=專(zhuān)業(yè) AND 課程名稱(chēng)=課程名稱(chēng) “ SQLorder = ”“If = 1 And Not IsNull(Text1)Then SQLadd = SQLadd + ”and 專(zhuān)業(yè)=39。“ + Text1 + ”39?！?End If If = 1 And Not IsNull(Combo1)Then SQLadd = SQLadd + ”and 課程性質(zhì)=39?！?+ Combo1 + ”39?！?End If39。If = 1 And Not IsNumeric(Text2)Then 39。SQLadd = SQLadd + ”and 課時(shí)=39。“ + Text2 + ”39?！?39。End If If = 1 And Not IsNull(Text3)Then SQLadd = SQLadd + ”and 課程名稱(chēng)=39?！?+ Text3 + ”39?！?End IfstrSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = ”“ = ”“ 39。 = ”“ = ”“ End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load() = ”“ 39。 = ”“ = ”“ = ”“ (”必修“)(”選修“)(”自開(kāi)“)End Sub Private Sub Text3_Change()End Sub 成績(jī)統(tǒng)計(jì)分析（如：界面如圖七）（圖七）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String On Error Resume Next SQLoriginal = ”SELECT * FROM 成績(jī)表 “ SQLadd = ”WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 “ SQLorder = ”“If = 1 And IsNumeric(Text1)Then SQLadd = SQLadd + ”and 學(xué)號(hào)=39?！?+ Text1 + ”39?！?End If If = 1 And Not IsNull(Text2)Then SQLadd = SQLadd + ”and 姓名=39?！?+ Text2 + ”39?！?End IfIf = 1 And Not IsNull(Text3)Then SQLadd = SQLadd + ”and 考試科目=39?！?+ Text3 + ”39。“ End IfIf = 1 Then SQLadd = SQLadd + ”and 科目分?jǐn)?shù)strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = ”“ = ”“ = ”“ End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load() = ”“ = ”“ = ”“ 39。 = ”“ End SubPrivate Sub Text1_Change()End Sub 交費(fèi)統(tǒng)計(jì)分析（如：界面如圖八）（圖八）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = ”SELECT 學(xué)號(hào),姓名,學(xué)期,本學(xué)期應(yīng)交費(fèi)用,實(shí)際交費(fèi),本次欠費(fèi) FROM 交費(fèi)表 “ SQLadd = ”WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 “ SQLorder = ”“If = 1 And IsNumeric(Text1)Then SQLadd = SQLadd + ”and 學(xué)號(hào)=39?！?+ Text1 + ”39?！?End If If = 1 And Not IsNull(Text2)Then SQLadd = SQLadd + ”and 姓名=39?！?+ Text2 + ”39?！?End IfIf = 1 And IsNumeric(Text3)Then SQLadd = SQLadd + ”and 實(shí)際交費(fèi)=39?！?+ Text3 + ”39?！?End IfIf = 1 And IsNumeric(Text4)Then SQLadd = SQLadd + ”and 本次欠費(fèi)=39?！?+ Text4 + ”39?！?End IfstrSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = ”“ = ”“ = ”“ = ”“ End SubPrivate Sub Command2_Click()Unload Me End SubPrivate Sub Form_Load() = ”“ = ”“ = ”“ = ” End SubPrivate Sub Text1_Change()End Sub結(jié)束語(yǔ)學(xué)生信息管理系統(tǒng)（課程設(shè)置和打印統(tǒng)計(jì)）的完成，它在審核這一功能中能夠?qū)Σ煌闆r的資料進(jìn)行設(shè)置和打印，針對(duì)需要的信息進(jìn)行設(shè)置和打印。后記本系統(tǒng)能夠順利完成，非常感謝指導(dǎo)老師陳志衛(wèi)老師，同時(shí)，也感謝和我一起合作完成本系統(tǒng)的另兩位同學(xué)。對(duì)于本人來(lái)說(shuō)，通過(guò)這次畢業(yè)設(shè)計(jì)，也是對(duì)自己在這三年學(xué)習(xí)的一個(gè)檢驗(yàn)和平時(shí)學(xué)習(xí)的一種結(jié)累，可以在學(xué)習(xí)中提高自己，也充分體現(xiàn)學(xué)有所用，學(xué)以致用的學(xué)習(xí)倡導(dǎo)。在此，我對(duì)三年來(lái)輔導(dǎo)過(guò)我的各位任課老師深表感謝主要參考文獻(xiàn)本系統(tǒng)的過(guò)程中，主要的參考文獻(xiàn)有：《Visual 》 林陳雷 人民郵電出版社 《面向?qū)ο蟪绦蛟O(shè)計(jì)系列教材》上一頁(yè) [1] [2] [3] [4] [5] 下一頁(yè)龔沛曾 高等教育出版社《Visual 》 何文俊《學(xué)用Visual Basic 編程》 潭 浩 西安電子科技大學(xué)出版社《Visual 數(shù)據(jù)庫(kù)開(kāi)發(fā)與專(zhuān)業(yè)應(yīng)用》 敬 錚 國(guó)防工業(yè)出版社 《Visual 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手》 溫賢發(fā) 科學(xué)出版社第二篇：基于VB+ACCESS的車(chē)輛信息管理系統(tǒng)華北水利水電大學(xué)畢業(yè)設(shè)計(jì)目錄摘要.....................................................................................................................................I Abstract..............................................................................................................................II 第一章 緒論......................................................................................................................1 ..............................................................................................................1 ..............................................................................................................1 ..............................................................................................................2 第二章 系統(tǒng)的分析和設(shè)計(jì)..............................................................................................3 ..........................................................................................................3 .......................................................................................3 ...................................................................................................3 ...................................................................................................3 ..........................................................................................................5 第三章 系統(tǒng)功能的實(shí)現(xiàn)..................................................................................................7 工程與數(shù)據(jù)庫(kù)的創(chuàng)建.........................................................................................7 ...................................................................................................7 ................................................................................