第一篇：VB3130車輛管理系統(tǒng)2
摘 要..............................................................................................................................................2 Abstract...........................................................................................................錯誤！未定義書簽。引 言............................................................................................................錯誤！未定義書簽。
信息管理系統(tǒng)簡介.................................................................................錯誤！未定義書簽。開發(fā)的背景和意義.................................................................................錯誤！未定義書簽。系統(tǒng)設計的目標和主要內容.................................................................錯誤！未定義書簽。1 涉及技術簡介.............................................................................................錯誤！未定義書簽。
1.1數(shù)據(jù)庫管理系統(tǒng)簡介.......................................................................錯誤！未定義書簽。1.2 開發(fā)工具Visual Basic 6.0...............................................................錯誤！未定義書簽。1.3 SQL Server 2000 簡介.....................................................................錯誤！未定義書簽。1.4 相近研究課題的特點及優(yōu)缺點分析..............................................錯誤！未定義書簽。1.5 現(xiàn)行研究存在的問題及解決辦法..................................................錯誤！未定義書簽。2 系統(tǒng)的需求分析.........................................................................................錯誤！未定義書簽。
2.1可行性分析.......................................................................................錯誤！未定義書簽。2.2 開發(fā)環(huán)境..........................................................................................錯誤！未定義書簽。2.3 擬開展研究的幾個主要方面..........................................................錯誤！未定義書簽。3系統(tǒng)總體設計..............................................................................................錯誤！未定義書簽。
3.1 上機考試系統(tǒng)設計實現(xiàn)的策略......................................................錯誤！未定義書簽。3.2 數(shù)據(jù)流程圖......................................................................................錯誤！未定義書簽。4 系統(tǒng)詳細設計.............................................................................................錯誤！未定義書簽。
4.1 數(shù)據(jù)庫結構表..................................................................................錯誤！未定義書簽。4.2 程序模塊實現(xiàn)..................................................................................錯誤！未定義書簽。
4.2.1 系統(tǒng)功能界面.........................................................................................................3 4.2.2 車輛管理模塊.........................................................................................................4 4.2.3 駕駛員管理模塊.....................................................................................................8 4.2.4 系統(tǒng)維護模塊.........................................................................................................9 系統(tǒng)運行與測試.........................................................................................錯誤！未定義書簽。
5.1 調試..................................................................................................錯誤！未定義書簽。5.2 測試..................................................................................................錯誤！未定義書簽。結 論............................................................................................................錯誤！未定義書簽。致 謝............................................................................................................錯誤！未定義書簽。參考文獻.........................................................................................................錯誤！未定義書簽。
摘 要
隨著信息時代的到來，信息高速公路的興起，全球信息化進入了一個新的發(fā)展時期。人們越來越認識到計算機強大的信息模塊處理功能，使之成為信息產(chǎn)業(yè)的基礎和支柱。
我國經(jīng)濟的快速發(fā)展，汽車已經(jīng)成為人們不可缺少的交通工具。對于擁有大量車輛的機關企事業(yè)來說，車輛的管理系統(tǒng)成為日常事物中的一項重要工作。如何讓管理人員及時了解每一輛車的情況，提高車輛的使用效率減少費用支出，就成為個單位需要解決的一個難題。SQL為規(guī)范企業(yè)內部管理，提高企業(yè)管理質量，更好的服務于廣大的客戶，我們開發(fā)出一套專門用于車輛管理的軟件，Visual Basic;本軟件可以集中管理車輛的運營、維修、事故、違章等一系列信息，有效跟蹤管理，企業(yè)每臺汽車的使用狀況，帶動企業(yè)進入車輛管理信息化、科學化、同時也可以節(jié)省人力、物力、才力、提高工作效率，使企業(yè)車輛管理更加科學、更加規(guī)范。
本文主要分析了系統(tǒng)的主要組成情況，包括需求情況，系統(tǒng)的設計目標，數(shù)據(jù)結構，數(shù)據(jù)流程和系統(tǒng)的主要特點等，重點介紹了系統(tǒng)功能模塊的詳細思路和實現(xiàn)方法，以及對系統(tǒng)關鍵技術和部分源代碼的詳細說明。
關鍵詞：
模塊；車輛管理系統(tǒng)；SQL ；Visual Basic
功能界面 車輛檔案管理 車輛運營信息管理 車輛統(tǒng)計管理 車輛管理 駕駛員信息管理 幫助 系統(tǒng)維護 車輛事故記錄查詢 車輛事故列表 車輛添加零件 車輛違章查詢 車輛違章記錄 車輛維修查詢 車輛維修列表 駕駛員檔案查詢 駕駛員獎罰 駕駛員車輛事故記錄查詢 管理員設置 數(shù)據(jù)備份 數(shù)據(jù)恢復 圖1 系統(tǒng)模塊圖
4.2.1 系統(tǒng)功能界面
本系統(tǒng)一共七個模塊，分別是車輛檔案管理；車輛運營信息管理；車輛統(tǒng)計管理；駕駛員信息管理；車輛管理和系統(tǒng)維護以及幫助，我主要負責后三個模塊的編寫工作，既駕駛員信息管理；車輛管理和系統(tǒng)維護模塊。下面就介紹一下這三個模塊。系統(tǒng)功能界面如圖3所示：
圖3 系統(tǒng)功能界面
4.2.2 車輛管理模塊
車輛管理分七個部分，分別是車輛事故記錄查詢、車輛事故列表、車輛添加零件、車輛違章查詢、車輛違章記錄、車輛維修查詢、車輛維修列表。下面我們就詳細介紹一下。
（1）車輛事故記錄查詢
可以按照車輛的牌號查詢特定時間內的事故次數(shù)，時間精確到日，查詢完畢可按退出，回到主界面。具體實現(xiàn)如圖4所示
圖4 車輛事故記錄查詢
（2）車輛事故列表
可以對事故編號、公司負擔金、車牌號碼、保險理賠金、車輛類型、對方賠償金、事故時間、對方姓名、事故概要、對方住址、事故確認者，對方所住單位、對方破壞程度、和解內容等信息進行添加、修改和刪除，以及瀏覽事故記錄。具體實現(xiàn)如圖5所示
圖5 車輛事故列表
（3）車輛添加零件
本窗體可以對零件的名稱和單價進行添加、修改和刪除。具體實現(xiàn)如圖6所示
圖6 車輛添加零件
（4）車輛違章查詢
可以對違章車輛處罰結果在特定的是時間內按照車牌號碼進行查詢，查詢結束后，按退出返回主界面。具體實現(xiàn)如圖7所示
圖7 車輛違章查詢
（5）車輛違章記錄
本窗體的功能就是將違章車輛的車牌號碼，違章原因、處罰、違章時間、以及備注等信息輸入到數(shù)據(jù)庫里，并可對其進行添加、刪除和修改的功能。具體實現(xiàn)如圖8所示
圖8 車輛違章記錄
（6）車輛維修查詢
可以對維修車輛的維修費用在特定的是時間內按照車牌號碼進行查詢，查詢結束后，按退出返回主界面。具體實現(xiàn)如圖9所示
圖9 車輛維修查詢
（7）車輛維修列表
本窗體的功能就是將維修車輛的車牌號碼，更換零件及數(shù)量、維修日期、費用、以及備注等信息輸入到數(shù)據(jù)庫里，并可對其進行添加、刪除、修改和統(tǒng)計所花費用的功能。操作完成后，按退出返回主界面。具體實現(xiàn)如圖10所示
圖10 車輛維修列表
4.2.3 駕駛員管理模塊
駕駛員管理分三個部分，分別是駕駛員檔案查詢、駕駛員獎罰、駕駛員事故記錄查詢。下面我們就詳細介紹一下。（1）駕駛員檔案查詢
可以按照姓名、駕齡、性別、證件有效期以及出生日期等信息。從數(shù)據(jù)庫中查詢需要的駕駛員檔案信息。查詢完畢后，按退出返回主界面。具體實現(xiàn)如圖11所示
圖11 駕駛員檔案查詢
（2）駕駛員獎罰 本窗體是按照本月駕駛員的當月表現(xiàn)對其進行獎罰，將記錄記錄進行保存，并打印。具體實現(xiàn)如圖12所示
圖12 駕駛員獎罰
（3）駕駛員車輛事故記錄查詢
可以按照車牌號碼和事故時間對駕駛員開車發(fā)生的事故進行查詢，操作完畢后，按退出返回主界面。具體實現(xiàn)如圖13所示
圖13 駕駛員車輛事故記錄查詢
4.2.4 系統(tǒng)維護模塊
系統(tǒng)維護分三個部分，分別是管理員設置、數(shù)據(jù)備份、數(shù)據(jù)恢復。下面我們就詳細介紹一下。（1）管理員設置
可以對用戶姓名、密碼和用戶類型進行設置，包括添加、修改、刪除。具體實現(xiàn)如圖14所示
圖14 管理員設置
（2）數(shù)據(jù)備份
對數(shù)據(jù)庫里的數(shù)據(jù)進行備份，單擊開始備份就執(zhí)行此操作，完畢后退出，便返回主界面。具體實現(xiàn)如圖15所示
圖15 數(shù)據(jù)備份
（3）數(shù)據(jù)恢復
對數(shù)據(jù)庫里的備份的數(shù)據(jù)進行恢復，單擊開始恢復就執(zhí)行此操作，完畢后退出，便返回主界面。具體實現(xiàn)如圖16所示
圖16 數(shù)據(jù)恢復重要提示：
本論文由大學論文網(wǎng)www.004km.cn 提供 如果需要詳細內容請與QQ:4991024聯(lián)系
第二篇：VB圖書管理系統(tǒng)
圖書管理系統(tǒng)的設計與實現(xiàn)
目錄
一、序言······················································································································4
二、需求分析說明書 ····································································································4 2.1系統(tǒng)介紹..................................................................................................................................................4 2.2系統(tǒng)面向的用戶群體..............................................................................................................................4 2.3系統(tǒng)的功能性需求..................................................................................................................................4 2.4系統(tǒng)的非功能性需求..............................................................................................................................5 2.4.1用戶界面需求...................................................................................................................................5 2.4.2軟硬件環(huán)境需求...............................................................................................................................5 2.4.3軟件質量需求...................................................................................................................................5
三、可行性分析報告 ····································································································5 3.1技術可行性..............................................................................................................................................5 3.2人員可能性..............................................................................................................................................5 3.3時間、設備可能性..................................................................................................................................5 3.4系統(tǒng)工作量..............................................................................................................................................5 3.5代碼工作量..............................................................................................................................................5 3.6文檔要求..................................................................................................................................................5
四、開發(fā)環(huán)境與項目規(guī)劃 ·····························································································5 4.1開發(fā)環(huán)境..................................................................................................................................................5 4.2項目規(guī)劃與管理......................................................................................................................................5 4.2.1開發(fā)人員安排...................................................................................................................................5 4.2.2開發(fā)進度安排...................................................................................................................................6
五、軟件界面設計標準與規(guī)范 ······················································································6 5.1編寫目的..................................................................................................................................................6 5.2界面設計思想..........................................................................................................................................6 5.3界面設計原則..........................................................................................................................................6 5.4界面設計樣式..........................................................................................................................................6 5.5常見提示信息樣式..................................................................................................................................6 5.6常見錯誤信息樣式..................................................................................................................................7 5.7其他界面約定..........................................................................................................................................7
六、軟件編碼設計標準與規(guī)范 ······················································································7 6.1對象命名約定..........................................................................................................................................7 6.2常量和變量命名約定..............................................................................................................................8 6.3結構化編碼約定......................................................................................................................................8 6.4數(shù)據(jù)源的約定..........................................................................................................................................9 6.5數(shù)據(jù)庫訪問約定......................................................................................................................................9 6.6其他約定..................................................................................................................................................9
七、數(shù)據(jù)庫分析與設計·································································································10 7.1數(shù)據(jù)庫環(huán)境說明.......................................................................................................................................10 7.2數(shù)據(jù)庫命名標準與規(guī)范...........................................................................................................................10 7.3數(shù)據(jù)庫邏輯設計.......................................................................................................................................10 7.4數(shù)據(jù)庫物理設計.......................................................................................................................................10 7.4.1表、視圖匯總...................................................................................................................................10 7.4.2各表、視圖設計詳解.......................................................................................................................11
八、軟件體系結構設計說明書 ······················································································15 8.1系統(tǒng)概述..................................................................................................................................................15 8.2設計約束..................................................................................................................................................15 8.3設計策略..................................................................................................................................................15 8.4系統(tǒng)概要設計說明書..............................................................................................................................16 8.4.1圖例說明...........................................................................................................................................16 8.4.2系統(tǒng)總體結構圖...............................................................................................................................16 8.5系統(tǒng)詳細設計說明書..............................................................................................................................17 8.5.1系統(tǒng)模塊匯總...................................................................................................................................17 8.5.2系統(tǒng)核心模塊詳解...........................................................................................................................18 8.5.3系統(tǒng)模塊詳解...................................................................................................................................28
九、用戶界面設計報告·································································································42 9.1界面設計規(guī)范..........................................................................................................................................42 9.2系統(tǒng)窗體匯總..........................................................................................................................................42 9.3主界面設計..............................................................................................................................................43 9.4子界面設計..............................................................................................................................................43 9.5界面資源設計..........................................................................................................................................44
十、軟件測試分析報告·································································································44 10.1測試范圍與主要內容............................................................................................................................44 10.2測試方法................................................................................................................................................44 10.3測試報告................................................................................................................................................44 10.4改進建議與措施....................................................................................................................................45
十一、軟件使用說明書·································································································45 11.1軟件概述.................................................................................................................................................45 11.2使用說明.................................................................................................................................................45 11.2.1系統(tǒng)登陸..........................................................................................................................................45 11.2.2系統(tǒng)退出..........................................................................................................................................46 11.2.3圖書類別管理..................................................................................................................................46 11.2.4圖書信息管理..................................................................................................................................48 11.2.5查詢圖書信息..................................................................................................................................48 11.2.6讀者類別管理..................................................................................................................................49 11.2.7讀者信息管理..................................................................................................................................49 11.2.8查詢讀者信息..................................................................................................................................50 11.2.9借書管理..........................................................................................................................................50 11.2.10還書管理........................................................................................................................................50 參考資料······················································································································51
一、序言
圖書管理系統(tǒng)的設計與推出是多方面原因促成的，比如學校的圖書管理，日常管理工作 1 都是人工操作，歷史數(shù)據(jù)很難保存和利用。而其他的小型圖書館大多如此。針對這種狀況，我計劃開發(fā)一個面向小型圖書館的圖書管理系統(tǒng)，實現(xiàn)對人員、物流的全面管理，以幫助這些圖書館早日實現(xiàn)書店管理信息化。
為了系統(tǒng)的順利開發(fā)和維護，特編制如下技術文檔：
想要全部 請加QQ：76536415 專業(yè)設計 畢業(yè)論文
第三篇：車輛管理系統(tǒng)
交警大隊涉案車輛管理系統(tǒng) 系統(tǒng)概述
隨著我國機動車保有量及道路里程的迅速增長，基層公安機關交通管理部門在維護道路交通安全秩序的同時，面對日益增多的各類道路交通違法行為以及交通事故，依法應當采取行政強制措施扣留或拖移涉案車輛的具體行政行為也在不斷增多。如何在基層公安機關交通管理部門警力不足、資源有限的現(xiàn)實情況下應對這些突如其來的工作量，保證初始信息采集完備，依照法律法規(guī)明確辦案民警、保管人員及單位領導等環(huán)節(jié)的職責分工，促使涉案車輛管理流程規(guī)范透明，維護當事人合法權益，成為擺在基層公安機關交通管理部門面前的一個課題。為此，北京萬政通達科技有限公司針對基層公安機關交通管理部門涉案車輛管理工作方面存在的問題和難點，積極創(chuàng)新工作思路，充分利用科技手段，依據(jù)《公安機關涉案車輛管理若干規(guī)定》（公通字〔2015〕21號）、《中華人民共和國行政強制法》（主席令第四十九號）等相關法律規(guī)定設計研發(fā)了《交警大隊涉案車輛管理系統(tǒng)》，將涉案車輛的日常管理工作納入信息化、流程化、規(guī)范化的軌道。
本系統(tǒng)分為電腦版和手機APP兩個版本。電腦版由待辦任務、扣留登記、處置登記、涉案車輛查詢、涉案車輛統(tǒng)計、現(xiàn)場執(zhí)法文書、系統(tǒng)管理等功能模塊組成，可在Windows臺式機或筆記本電腦上運行；手機APP版由首頁、涉案車輛管理、現(xiàn)場執(zhí)法文書等功能模塊組成，可在搭載安卓4.0以上操作系統(tǒng)的智能手機、PDA或警務通上運行。
系統(tǒng)對涉案車輛的查扣登記、審批、接收、存放等流程均是按照現(xiàn)行的法律法規(guī)所規(guī)定的流程而設計，既可供交警大隊和停車場聯(lián)網(wǎng)使用，也可供停車場單獨使用。
每天民警現(xiàn)場執(zhí)法扣留的車輛、處理道路交通事故扣留的車輛，都要進入停車場保管，同時將車輛信息錄入本系統(tǒng)進行管理。民警依法扣留車輛后，扣車信息首先由停車場工作人員登記錄入系統(tǒng)，電腦版和手機APP上錄入均可，包括扣車時間、地點、民警、車輛情況、存放的停車場等必要信息，同時可將現(xiàn)場扣車的相片、法律文書掃描進系統(tǒng)，幫助民警辦案標準化、流程規(guī)范化?？圮囆畔崟r同步到交警大隊，經(jīng)交警大隊內勤民警審批確認后正式成為已進場車輛。駕駛員來交警隊接受處理后，內勤民警可在系統(tǒng)內調出扣車信息進行返還登記，生成放車通知單，返還車輛信息實時同步到停車場，停車場保管人員根據(jù)車輛返還信息做車輛出場確認后，該車即成為已返還狀態(tài)。內勤民警在涉案車輛查詢模塊中可隨時查詢并導出“涉案車輛管理臺賬”。
系統(tǒng)能夠統(tǒng)計每天的待辦數(shù)據(jù)，包括待進場車輛數(shù)（停車場已經(jīng)錄入扣車信息但交警大隊內勤民警尚未審批確認的）、待返還車輛數(shù)（交警大隊內勤民警已經(jīng)登記返還信息但停車場尚未做出場確認的）、待歸還車輛數(shù)（交警大隊出于鑒定或檢驗等需求將車輛調出停車場但尚未歸還的）、待處理車輛數(shù)（交警大隊內勤民警已經(jīng)登記將要報廢或拆解等處理信息但停車場尚未做出場確認的）；能夠分類統(tǒng)計已辦車輛數(shù)據(jù)，包括已進場車輛數(shù)（停車場已經(jīng)錄入扣車信息且交警大隊內勤民警已審批確認的）、已返還車輛數(shù)（交警大隊內勤民警已經(jīng)登記返還信息且停車場已做出場確認的）、已公告車輛數(shù)（自扣車之日起超過30日駕駛員未前來交警大隊接受處理且交警大隊已登報公告的）、已處理車輛數(shù)（交警大隊內勤民警已經(jīng)登報公告超過三個月駕駛員仍不來接受處理，交警部門依法對車輛進行報廢或拆解等處理措施完畢的）；系統(tǒng)可對逾期未處理的超時車輛進行提醒，包括車輛已進場3個月以上的，民警可在系統(tǒng)內統(tǒng)計出相關車輛，然后在當?shù)貓蠹埢蛘W(wǎng)站等媒體上發(fā)布公告；經(jīng)公告3個月以上仍未處理的，交警部門可依法將這些車輛送到報廢回收公司進行報廢或拆解等處理，并將相關信息錄入系統(tǒng)。系統(tǒng)可為涉案車輛制作帶有二維碼的不干膠標簽。打印出來的不干膠標簽共三聯(lián)，裁開后，一聯(lián)粘貼在涉案車輛上、一聯(lián)貼在涉案車輛的鑰匙上、一聯(lián)交給當事人，當事人可以掃描標簽上的二維碼，查閱自己被扣留車輛處于何種狀態(tài)。另外，本系統(tǒng)還附帶了現(xiàn)場文書制作模塊，民警可在當事人違法現(xiàn)場使用手機APP直接連接便攜式打印機，無需配備筆記本電腦，在手機上即可制作并打印《違法停車告知單》、《公安交通管理簡易程序處罰決定書》、《道路交通安全違法行為處理通知書》等現(xiàn)場法律文書。
本系統(tǒng)的投入使用，可有效解決基層公安機關交通管理部門涉案車輛底數(shù)不清、情況不明和對涉案車輛清理、公告、處置難等問題，有效堵塞漏洞，實現(xiàn)對涉案車輛管理工作的信息化、制度化、規(guī)范化管理，為提升執(zhí)法質量、規(guī)范執(zhí)法行為奠定了良好基礎。系統(tǒng)用戶
本系統(tǒng)面向以下用戶提供服務：
1、交警大隊內勤民警。使用本系統(tǒng)可以做到規(guī)范登記、方便管理、數(shù)目清晰準確、加強監(jiān)督。具有數(shù)據(jù)增刪改查所有權限，能夠訪問所有停車場數(shù)據(jù)。
2、停車場保管人員。承接交警大隊的停車業(yè)務，由交警大隊通過政府采購服務等方式支付停車業(yè)務管理費。只能訪問自己停車場的數(shù)據(jù)。
3、涉案車輛所有人或駕駛人。通過微信公眾號可以查詢自己車輛所在位置以及停車費等相關信息。工作流程
本系統(tǒng)所能處理的涉案車輛相關的工作流程共有4個。明細如下：
1、扣留車輛流程
2、返還車輛流程
3、調取歸還流程
4、公告處理流程
本系統(tǒng)對上述4個工作流程的操作步驟設計如下：
1、扣留車輛流程
停車場保管人員執(zhí)行扣車登記 →交警大隊內勤民警執(zhí)行扣車審批
2、返還車輛流程
交警大隊內勤民警執(zhí)行車輛返還登記 → 停車場保管人員執(zhí)行車輛出場
3、調取歸還流程
交警大隊內勤民警執(zhí)行車輛調取登記 → 停車場保管人員執(zhí)行車輛出場 →交警大隊內勤民警執(zhí)行車輛歸還登記 → 停車場保管人員執(zhí)行車輛進場
4、公告處理流程
交警大隊內勤民警執(zhí)行公告登記 → 交警大隊內勤民警執(zhí)行處理登記 → 停車場保管人員車輛出場 → 交警大隊內勤民警執(zhí)行處理結果登記
第四篇：vb圖書管理系統(tǒng)源代碼
Borbook：
Public sqltxt As String Public rno As String
'保存讀者借書證號 Public bno As String
'保存讀者圖書編號 Public xm As String
'保存讀者姓名 Public dw As String
'保存讀者單位 Public rs As ADODB.Recordset
Private Sub Comm1_Click()
rno = Trim(Text1(0).Text)
If rno = “" Then
MsgBox ”借書證號不能為空,請輸入“, vbOKOnly, ”信息提示“
Comm2.Enabled = False
Else
sqltxt = ”select * from reader where 借書證號='“ + rno + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”該讀者未登記,不能借書“, vbOKOnly, ”信息提示“
Comm2.Enabled = False
Else
Text2(0).Text = rs.Fields(”姓名“)
Text2(1).Text = str(rs.Fields(”借書總數(shù)“))
Text2(2).Text = str(rs.Fields(”借書總數(shù)“)rs.Fields(”已借書數(shù)“))
End If
End If
End If End Sub
Private Sub retCom_Click()
Unload Me End Sub
Private Sub Form_Load()
Comm2.Enabled = False End Sub
Edbook：
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
'說明:為什么使用recs,而不直接使用adodc1.recordset.recordcount?在調用edbook1窗體添加一個記錄(確定)后,再
'返回到本表單,若不在Form_Activate()事件過程中調用adodc1.refresh進行刷新,adodc1.recordset.recordcount值
'仍未增1,這樣調用encomm過程時出錯;若在Form_Activate()事件過程中調用adodc1.refresh進行刷新，'adodc1.recordset.recordcount值增1了,調用encomm過程時也正確,但返回本窗體時,當前行總是第一行,顯然也不行，'因為用戶在添加或修改后希望在datagrid1中顯示當前操作的那條記錄.recs = Adodc1.Recordset.RecordCount End Sub
Private Sub Form_Activate()
DataGrid1.SetFocus
Call encomm End Sub
Private Sub Comm1_Click()
flag = 1
edbook1.Show vbModal End Sub
Private Sub Comm2_Click()
flag = 2
edbook1.Show vbModal End Sub
Private Sub Comm3_Click()
If MsgBox(”真的要刪除[“ + Trim(Adodc1.Recordset.Fields(”書名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Then
Adodc1.Recordset.Delete
recs = recs1
Call encomm
End If End Sub
Private Sub Comm4_Click()
Unload Me End Sub
Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Edlev1：
Dim cond As String
Private Sub Form_Load()
If flag = 2 Then
Text1(0).Text = edlev.Adodc1.Recordset.Fields(”級別“)
Text1(1).Text = edlev.Adodc1.Recordset.Fields(”過期罰款“)
Text1(2).Text = edlev.Adodc1.Recordset.Fields(”借書總數(shù)“)
Text1(3).Text = edlev.Adodc1.Recordset.Fields(”借書天數(shù)“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _
Trim(Text1(3).Text)= ”“ Then
MsgBox ”數(shù)據(jù)項不全,請重新設置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edlev.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數(shù)大于0
cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“
edlev.Adodc1.Recordset.MoveFirst
'每次從頭開始查找
edlev.Adodc1.Recordset.Find(cond)
If Not edlev.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
End If
edlev.Adodc1.Recordset.AddNew
edlev.Adodc1.Recordset.Fields(”級別“)= Trim(Text1(0).Text)
edlev.Adodc1.Recordset.Fields(”過期罰款“)= Val(Trim(Text1(1).Text))
edlev.Adodc1.Recordset.Fields(”借書總數(shù)“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借書天數(shù)“)= Val(Trim(Text1(3).Text))
edlev.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = edlev.Adodc1.Recordset.AbsolutePosition
cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“
edlev.Adodc1.Recordset.MoveFirst '每次從頭開始查找
edlev.Adodc1.Recordset.Find(cond)
If Not edlev.Adodc1.Recordset.EOF()And edlev.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
edlev.Adodc1.Recordset.MoveFirst
'這兩個語句恢復原記錄位置
edlev.Adodc1.Recordset.Move(n1)
edlev.Adodc1.Recordset.Fields(”級別“)= Trim(Text1(0).Text)
edlev.Adodc1.Recordset.Fields(”過期罰款“)= Val(Trim(Text1(1).Text))
edlev.Adodc1.Recordset.Fields(”借書總數(shù)“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借書天數(shù)“)= Val(Trim(Text1(3).Text))
edlev.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Edreader：
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount End Sub
Private Sub Form_Activate()
DataGrid1.SetFocus
Call encomm End Sub
Private Sub Comm1_Click()
flag = 1
edreader1.Show vbModal End Sub
Private Sub Comm2_Click()
flag = 2
edreader1.Show vbModal End Sub
Private Sub Comm3_Click()
If MsgBox(”真的要刪除[“ + Trim(Adodc1.Recordset.Fields(”姓名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Then
Adodc1.Recordset.Delete
recs = recs1
Call encomm
End If End Sub Private Sub Comm4_Click()
Adodc1.Recordset.UpdateBatch
Adodc1.Recordset.Close
Unload Me End Sub Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Edrec1：
Dim cond As String
Private Sub Form_Load()
Label1.Caption = cap
If flag = 1 Then
Text1.Text = ”“
Else
Text1.Text = edrec.Adodc1.Recordset.Fields(”fn“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1.Text)= ”“ Then
MsgBox ”數(shù)據(jù)項不能為空,請重新設置“, vbOKOnly, ”信息提示“
Text1.SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edrec.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數(shù)大于0
cond = ”fn='“ + Trim(Text1.Text)+ ”'“
edrec.Adodc1.Recordset.MoveFirst
'每次從頭開始查找
edrec.Adodc1.Recordset.Find(cond)
If Not edrec.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
Text1.SetFocus
Exit Sub
End If
End If
edrec.Adodc1.Recordset.AddNew
edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)
edrec.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = edrec.Adodc1.Recordset.AbsolutePosition
cond = ”fn='“ + Trim(Text1.Text)+ ”'“
edrec.Adodc1.Recordset.MoveFirst '每次從頭開始查找
edrec.Adodc1.Recordset.Find(cond)
If Not edrec.Adodc1.Recordset.EOF()And edrec.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
edrec.Adodc1.Recordset.MoveFirst
'這兩個語句恢復原記錄位置
edrec.Adodc1.Recordset.Move(n1)
edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)
edrec.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Menu：
Private Sub MDIForm_Load()
If Not userlevel = ”系統(tǒng)管理員“ Then
menu21.Enabled = False
menu31.Enabled = False
menu41.Enabled = False
menu42.Enabled = False
End If End Sub
Private Sub menu11_Click()
borbook.Show vbModal End Sub
Private Sub menu12_Click()
retbook.Show vbModal End Sub
Private Sub menu13_Click()
End End Sub
Private Sub menu21_Click()
edbook.Show vbModal End Sub
Private Sub menu22_Click()
qubook.Show vbModal End Sub
Private Sub menu31_Click()
edreader.Show vbModal End Sub
Private Sub menu32_Click()
qureader.Show vbModal End Sub
Private Sub menu41_Click()
setuser.Show vbModal End Sub
Private Sub menu42_Click()
If MsgBox(”本功能要清除系統(tǒng)中所有數(shù)據(jù),真的初始化嗎?“, vbYesNo, ”確認初始化操作“)
= vbYes Then
Call deldata(”book“)Call deldata(”reader“)Call deldata(”borrow“)Call deldata(”rlevel“)
Call deldata(”depart“)
Call deldata(”press“)
Call deldata(”oper“)
MsgBox ”系統(tǒng)初始化完畢,下次只能以1234/1234(用戶名/口令)進入本系統(tǒng)“, vbOKOnly, ”信息提示“
End If End Sub
Pass：
Public n As Integer
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = ”select * from oper where 用戶名='“ & _
Trim$(Text1(0).Text)& ”'“ & ” And 口令 = '“ & Trim$(Text1(1).Text)+ ”'“
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then '未找到用戶記錄
n = n + 1
If n < 3 Then
MsgBox ”沒有這個用戶,繼續(xù)登錄“, vbOKOnly + vbExclamation, ”信息提示“
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(0).SetFocus
Else
MsgBox ”已登錄失敗三次,退出系統(tǒng)“, vbOKOnly + vbExclamation, ”信息提示“
mrc.Close
Unload Me
End If
Else
'找到合法用戶記錄
userlevel = Trim(mrc.Fields(”級別“))
mrc.Close
Unload Me
menu.Show '調用menu窗體
End If End Sub
Private Sub Command2_Click()
Unload Me End Sub
Private Sub Form_Load()
n = 0
'n保存登錄的次數(shù) End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Qubook：
Private Sub Comm1_Click()
Dim sqltxt As String
If Adodc1.Recordset.Fields(”借否“)= ”借“ Then
no = Trim(Adodc1.Recordset.Fields(”圖書編號“))
sqltxt = ”select * from borrow where 圖書編號='“ + no + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”該圖書沒有借書記錄“, vbOKOnly, ”信息提示“
Else
MsgBox ”圖書編號:“ + no + Chr(10)+ Chr(13)+ _
”書
名:“ + Trim(rs.Fields(”書名“))+ Chr(10)+ Chr(13)+ _
”借 書 人:“ + Trim(rs.Fields(”姓名“))+ Chr(10)+ Chr(13)+ _
”單
位:“ + Trim(rs.Fields(”單位“))+ Chr(10)+ Chr(13)+ _
”借書日期:“ + Format(rs.Fields(”借書日期“), ”yyyy.mm.dd“), vbOKOnly, ”查找結果“
End If
rs.Close
Else
MsgBox ”該書沒有外借,不能顯示借書人“, vbOKOnly, ”信息提示“
End If End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Form_Activate()
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Call encomm End Sub
Private Sub selcmd1_Click()'設置條件確定
Dim str As String
str = ”“
'條件表達式
If Trim(Text1(0).Text)<> ”“ Then
If str = ”“ Then
str = ”圖書編號='“ + Trim(Text1(0).Text)+ ”'“
Else
str = str + ” and 圖書編號='“ + Trim(Text1(0).Text)+ ”'“
End If
End If
If Trim(Text1(1).Text)<> ”“ Then
If str = ”“ Then
str = ”書名='“ + Trim(Text1(1).Text)+ ”'“
Else
str = str + ” and 書名='“ + Trim(Text1(1).Text)+ ”'“
End If
End If
If Trim(Text1(2).Text)<> ”“ Then
If str = ”“ Then
str = ”作者='“ + Trim(Text1(2).Text)+ ”'“
Else
str = str + ” and 作者='“ + Trim(Text1(2).Text)+ ”'“
End If
End If
If Trim(Text1(3).Text)<> ”“ Then
If str = ”“ Then
str = ”出版社='“ + Trim(Text1(3).Text)+ ”'“
Else
str = str + ” and 出版社='“ + Trim(Text1(3).Text)+ ”'“
End If
End If
If Trim(Text1(4).Text)<> ”“ Then
If str = ”“ Then
str = ”借否='“ + Trim(Text1(4).Text)+ ”'“
Else
str = str + ” and 借否='“ + Trim(Text1(4).Text)+ ”'“
End If
End If
If Trim(Text1(5).Text)<> ”“ Then
If str = ”“ Then
str = ”定價=“ + Trim(Text1(5).Text)
Else
str = str + ” and 定價=“ + Trim(Text1(5).Text)
End If
End If
If str <> ”“ Then
Adodc1.RecordSource = ”select * from book where “ + str
Adodc1.Refresh
Else
Adodc1.RecordSource = ”select * from book“
Adodc1.Refresh
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“
End If
Call encomm End Sub
Private Sub selcmd2_Click()'設置條件重置
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(2).Text = ”“
Text1(3).Text = ”“
Text1(4).Text = ”“
Text1(5).Text = ”“ End Sub
Private Sub encomm()'自定義子過程:判斷Adodc1中是否存在記錄
If Adodc1.Recordset.RecordCount = 0 Then
Comm1.Enabled = False
Else
Comm1.Enabled = True
End If End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Qureader：
Private Sub Comm1_Click()
Dim strn As String
Dim sqltxt As String
no = Trim(Adodc1.Recordset.Fields(”借書證號“))
sqltxt = ”select * from borrow where 借書證號='“ + no + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”該讀者沒有借任何圖書“, vbOKOnly, ”信息提示“
Else
rs.MoveFirst
strn = ”書
名(借書日期)“ + Chr(10)+ Chr(13)
Do While Not rs.EOF()
strn = strn & Trim(rs.Fields(”書名“))& ”(“ & Format(rs.Fields(”借書日期“), ”yyyy.mm.dd“)& ”)“ + Chr(10)+ Chr(13)
rs.MoveNext
Loop
MsgBox strn, vbOKOnly, ”列所借圖書清單“
rs.Close
End If End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Form_Activate()
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Call encomm End Sub
Private Sub selcmd1_Click()'設置條件確定
Dim str As String
str = ”“
'條件表達式
If Trim(Text1(0).Text)<> ”“ Then
If str = ”“ Then
str = ”借書證號='“ + Trim(Text1(0).Text)+ ”'“
Else
str = str + ” and 借書證號='“ + Trim(Text1(0).Text)+ ”'“
End If
End If
If Trim(Text1(1).Text)<> ”“ Then
If str = ”“ Then
str = ”姓名='“ + Trim(Text1(1).Text)+ ”'“
Else
str = str + ” and 姓名='“ + Trim(Text1(1).Text)+ ”'“
End If
End If
If Trim(Text1(2).Text)<> ”“ Then
If str = ”“ Then
str = ”單位='“ + Trim(Text1(2).Text)+ ”'“
Else
str = str + ” and 單位='“ + Trim(Text1(2).Text)+ ”'“
End If
End If
If Trim(Text1(3).Text)<> ”“ Then
If str = ”“ Then
str = ”級別='“ + Trim(Text1(3).Text)+ ”'“
Else
str = str + ” and 級別='“ + Trim(Text1(3).Text)+ ”'“
End If
End If
If Trim(Text1(4).Text)<> ”“ Then
If str = ”“ Then
str = ”性別='“ + Trim(Text1(4).Text)+ ”'“
Else
str = str + ” and 性別='“ + Trim(Text1(4).Text)+ ”'“
End If
End If
If str <> ”“ Then
Adodc1.RecordSource = ”select * from reader where “ + str
Adodc1.Refresh
Else
Adodc1.RecordSource = ”select * from reader“
Adodc1.Refresh
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“
End If
Call encomm End Sub
Private Sub selcmd2_Click()'設置條件重置
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(2).Text = ”“
Text1(3).Text = ”“
Text1(4).Text = ”“ End Sub
Private Sub encomm()'自定義子過程:判斷Adodc1中是否存在記錄
If Adodc1.Recordset.RecordCount = 0 Then
Comm1.Enabled = False
Else
Comm1.Enabled = True
End If End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Retbook：
Public rno As String Public bno As String
Private Sub Comm1_Click()
bno = Trim(Text1.Text)
If bno <> ”“ Then
Dim sqltxt As String
sqltxt = ”select * from borrow where 圖書編號='“ + bno + ”'“
Set brs = exesql(sqltxt)
If brs.RecordCount = 0 Then
MsgBox ”該書不是從本圖書館所借的,不能歸還!“, vbOKOnly, ”信息提示“
Else
If Trim(brs.Fields(”借書證號“))<> rno Then
If rno <> ”“ Then
'另一讀者還書,自動列出上一個還書人的罰款單
dstr = ”罰款單“ + Chr(10)+ Chr(13)
dstr = dstr & ”姓名:“ & Trim(Text2(1).Text)+ ”(“ + rno + ”)罰款總額:“ & str(Text2(4).Text)& ”元“
MsgBox dstr, vbOKOnly, ”列罰款單“
End If
rno = Trim(brs.Fields(”借書證號“))
sqltxt = ”select * from book where 圖書編號='“ + bno + ”'“ '處理圖書記錄
Set bs = exesql(sqltxt)
bs.Fields(”借否“)= ”否“
bs.Update
sqltxt = ”select * from reader where 借書證號='“ + rno + ”'“ '處理讀者記錄
Set rs = exesql(sqltxt)
rs.Fields(”已借書數(shù)“)= rs.Fields(”已借書數(shù)“)rs.Fields(”已借書數(shù)“)
If(Datebrs.Fields(”借書日期“)1
rs.Update
If(Datebrs.Fields(”借書日期“)1
Call encomm
End If End Sub
Private Sub Comm4_Click()
Unload Me End Sub
Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Setuser1：
Dim cond As String
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys ”{TAB}“
End If End Sub
Private Sub Form_Load()
If flag = 2 Then
Text1(0).Text = setuser.Adodc1.Recordset.Fields(”用戶名“)
Text1(1).Text = setuser.Adodc1.Recordset.Fields(”口令“)
Combo1.Text = setuser.Adodc1.Recordset.Fields(”級別“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Combo1.Text)= ”“ Then
MsgBox ”數(shù)據(jù)項不全,請重新設置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If setuser.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數(shù)大于0
cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“
setuser.Adodc1.Recordset.MoveFirst
'每次從頭開始查找
setuser.Adodc1.Recordset.Find(cond)
If Not setuser.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
End If
setuser.Adodc1.Recordset.AddNew
setuser.Adodc1.Recordset.Fields(”用戶名“)= Trim(Text1(0).Text)
setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))
setuser.Adodc1.Recordset.Fields(”級別“)= Trim(Combo1.Text)
setuser.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = setuser.Adodc1.Recordset.AbsolutePosition
cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“
setuser.Adodc1.Recordset.MoveFirst '每次從頭開始查找
setuser.Adodc1.Recordset.Find(cond)
If Not setuser.Adodc1.Recordset.EOF()And setuser.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“
setuser.Adodc1.Recordset.MoveFirst
'這兩個語句恢復原記錄位置
setuser.Adodc1.Recordset.Move(n1)
setuser.Adodc1.Recordset.Fields(”用戶名“)= Trim(Text1(0).Text)
setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))
setuser.Adodc1.Recordset.Fields(”級別“)= Trim(Combo1.Text)
setuser.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
模塊：
Public userlevel As String '保存用戶級別
Public flag As Integer
'用作記錄操作標記
Public tna As String
'保存表名:用于調用edrec1窗體 Public cap As String
'保存標題名:用于調用edrec1窗體 Public recs As Integer
'保存記錄集中記錄個數(shù)
Sub main()
pass.Show vbModal End Sub
Public Function exesql(ByVal sql As String)As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing End Function
Public Sub deldata(ByVal tn As String)刪除指定表中所有記錄,對于oper表添加一個系統(tǒng)用戶
Dim sql As String
sql = ”delete “ & Trim$(tn)
Set conn = New ADODB.Connection
conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“
conn.Open
conn.Execute sql
If Trim(tn)= ”oper“ Then
sql = ”insert oper values('1234','1234','系統(tǒng)管理員')“
conn.Execute sql
End If
conn.Close End Sub Public Sub endata(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys ”{TAB}" '將回車鍵轉換成Tab鍵
End If End Sub
第五篇：VB學生管理系統(tǒng)主要代碼
主要代碼如下：
Dim cn As New ADODB.Connection Dim rst0 As New ADODB.Recordset Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset
Private Sub Cmd0add_Click()rst0.AddNew Cmd0add.Enabled = False Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True End Sub
Private Sub Cmd0del_Click()Cmd0add.Enabled = True Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True x = MsgBox(“確定要刪除嗎”, vbYesNoCancel + vbQuestion, “確認”)If x = vbYes Then rst0.Delete End Sub
Private Sub Cmd0Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd0save_Click()Cmd0add.Enabled = True Cmd0save.Enabled = False Cmd0del.Enabled = True Cmd0Exit.Enabled = True rst0.Update rst0.Sort = “應聘人編號” End Sub
Private Sub Cmd1Exit_Click()cn.close Unload Me End Sub Private Sub Cmd1Import_Click()rst0.MoveFirst For i = 1 To rst0.RecordCount
rst1.AddNew
rst1.Fields(“應聘人編號”)= rst0.Fields(“應聘人編號”)
rst0.MoveNext
rst1.MoveNext Next i '
Cmd1Import.Enabled = False
' Cmd1OK.Enabled = True
' Cmd1Exit.Enabled = True
End Sub
Private Sub Cmd1OK_Click()rst1.Fields(“綜合評分”)=(Val(rst1.Fields(“計算機能力”))+ rst1.Fields(“業(yè)務能力”))* 0.5 If rst1.Fields(“綜合評分”)>= 6 Then
rst1.Fields(“初選狀態(tài)”)= “通過”
Else
rst1.Fields(“初選狀態(tài)”)= “未通過”
End If
rst1.Update
rst1.Sort = “應聘人編號” End Sub
Private Sub Cmd2Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd2Import_Click()rst1.close rst1.open “select * from 初選表 where 初選狀態(tài)='通過'”, cn rst1.MoveFirst For i = 1 To rst1.RecordCount
rst2.AddNew
rst2.Fields(“應聘人編號”)= rst1.Fields(“應聘人編號”)
rst2.Fields(“初選評分”)= rst1.Fields(“綜合評分”)
rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub
Private Sub Cmd2OK_Click()rst2.Fields(“綜合評分”)=(rst2.Fields(“初選評分”)+ rst2.Fields(“外表形象”)+ rst2.Fields(“領悟反應能力”))/ 3 If rst2.Fields(“綜合評分”)>= 6 Then
rst2.Fields(“錄用情況”)= “通過” Else
rst2.Fields(“錄用情況”)= “未通過” End If rst2.Update rst2.Sort = “應聘人編號” rst2.MoveLast End Sub
Private Sub Cmd3Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd3Import_Click()rst2.close rst2.open “selsct * from 面試表 where 錄用情況= '通過'” rst2.MoveFirst For i = 1 To rst2.RecordCount
rst3.AddNew
rst3.Fields(“應聘人編號”)= rst2.Fields(“應聘人編號”)
rst3.Fields(“面試分”)= rst2.Fields(“綜合評分”)
rst3.Fields(“開始錄用時間”)= Date
rst2.MoveNext Next i Cmd3Import.Enabled = False End Sub
Private Sub Cmd3OK_Click()rst3.Fields(“綜合考核分”)=(rst3.Fields(“面試分”)+ rst3.Fields(“筆試分”))/ 2 If rst3.Fields(“綜合考核分”)>= 6 Then
rst3.Fields(“是否錄用”)= “是”
Else
rst3.Fields(“是否錄用”)= “否”
End If
rst3.Update
rst3.Sort = “應聘人編號”
rst3.MoveLast End Sub
Private Sub cxtg_Click()frmDataEnv.Show 1 End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()cn.ConnectionString = “DSN=xsgl;name=sa;pass=sa” cn.open cn.CursorLocation = adUseClient rst0.LockType = adLockPessimistic rst1.LockType = adLockPessimistic rst2.LockType = adLockPessimistic rst3.LockType = adLockPessimistic
rst0.open “select * from 登記表”, cn Set DataGrid1.DataSource = rst0
rst1.open “select * from 初選表”, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount <> 0 Then Cmd1Import.Enabled = False End If
rst2.open “select * from 面試表”, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount <> 0 Then Cmd2Import.Enabled = False End If
rst3.open “select * from 錄用表”, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount <> 0 Then Cmd3Import.Enabled = False End If End Sub 學生基本信息瀏覽窗口
圖5.6學生基本信息瀏覽
主要代碼如下：
string sql = string.Format(“select P_id from Tb_popedom order by P_id desc”);
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
SqlCommand c = new SqlCommand(sql, GetConn.conn);
SqlDataReader reader = c.ExecuteReader();
if(reader.Read())
{
string id = reader[“P_id”].ToString();
txt_id.Text =(int.Parse(id.Substring(1,(id.Length-1)))+ 1)+ “";
}
reader.Close();
GetConn.conn.Close();
////加載一級菜單
sql = ”select * from Tb_function where F_level='1'“;
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
sda = new SqlDataAdapter(sql, GetConn.conn);
sda.Fill(ds, ”fun");
……
}
點擊咨詢 