第一篇：VB3130車輛管理系統2
摘 要..............................................................................................................................................2 Abstract...........................................................................................................錯誤！未定義書簽。引 言............................................................................................................錯誤！未定義書簽。
信息管理系統簡介.................................................................................錯誤！未定義書簽。開發的背景和意義.................................................................................錯誤！未定義書簽。系統設計的目標和主要內容.................................................................錯誤！未定義書簽。1 涉及技術簡介.............................................................................................錯誤！未定義書簽。
1.1數據庫管理系統簡介.......................................................................錯誤！未定義書簽。1.2 開發工具Visual Basic 6.0...............................................................錯誤！未定義書簽。1.3 SQL Server 2000 簡介.....................................................................錯誤！未定義書簽。1.4 相近研究課題的特點及優缺點分析..............................................錯誤！未定義書簽。1.5 現行研究存在的問題及解決辦法..................................................錯誤！未定義書簽。2 系統的需求分析.........................................................................................錯誤！未定義書簽。
2.1可行性分析.......................................................................................錯誤！未定義書簽。2.2 開發環境..........................................................................................錯誤！未定義書簽。2.3 擬開展研究的幾個主要方面..........................................................錯誤！未定義書簽。3系統總體設計..............................................................................................錯誤！未定義書簽。
3.1 上機考試系統設計實現的策略......................................................錯誤！未定義書簽。3.2 數據流程圖......................................................................................錯誤！未定義書簽。4 系統詳細設計.............................................................................................錯誤！未定義書簽。
4.1 數據庫結構表..................................................................................錯誤！未定義書簽。4.2 程序模塊實現..................................................................................錯誤！未定義書簽。
4.2.1 系統功能界面.........................................................................................................3 4.2.2 車輛管理模塊.........................................................................................................4 4.2.3 駕駛員管理模塊.....................................................................................................8 4.2.4 系統維護模塊.........................................................................................................9 系統運行與測試.........................................................................................錯誤！未定義書簽。
5.1 調試..................................................................................................錯誤！未定義書簽。5.2 測試..................................................................................................錯誤！未定義書簽。結 論............................................................................................................錯誤！未定義書簽。致 謝............................................................................................................錯誤！未定義書簽。參考文獻.........................................................................................................錯誤！未定義書簽。
摘 要
隨著信息時代的到來，信息高速公路的興起，全球信息化進入了一個新的發展時期。人們越來越認識到計算機強大的信息模塊處理功能，使之成為信息產業的基礎和支柱。
我國經濟的快速發展，汽車已經成為人們不可缺少的交通工具。對于擁有大量車輛的機關企事業來說，車輛的管理系統成為日常事物中的一項重要工作。如何讓管理人員及時了解每一輛車的情況，提高車輛的使用效率減少費用支出，就成為個單位需要解決的一個難題。SQL為規范企業內部管理，提高企業管理質量，更好的服務于廣大的客戶，我們開發出一套專門用于車輛管理的軟件，Visual Basic;本軟件可以集中管理車輛的運營、維修、事故、違章等一系列信息，有效跟蹤管理，企業每臺汽車的使用狀況，帶動企業進入車輛管理信息化、科學化、同時也可以節省人力、物力、才力、提高工作效率，使企業車輛管理更加科學、更加規范。
本文主要分析了系統的主要組成情況，包括需求情況，系統的設計目標，數據結構，數據流程和系統的主要特點等，重點介紹了系統功能模塊的詳細思路和實現方法，以及對系統關鍵技術和部分源代碼的詳細說明。
關鍵詞：
模塊；車輛管理系統；SQL ；Visual Basic
功能界面 車輛檔案管理 車輛運營信息管理 車輛統計管理 車輛管理 駕駛員信息管理 幫助 系統維護 車輛事故記錄查詢 車輛事故列表 車輛添加零件 車輛違章查詢 車輛違章記錄 車輛維修查詢 車輛維修列表 駕駛員檔案查詢 駕駛員獎罰 駕駛員車輛事故記錄查詢 管理員設置 數據備份 數據恢復 圖1 系統模塊圖
4.2.1 系統功能界面
本系統一共七個模塊，分別是車輛檔案管理；車輛運營信息管理；車輛統計管理；駕駛員信息管理；車輛管理和系統維護以及幫助，我主要負責后三個模塊的編寫工作，既駕駛員信息管理；車輛管理和系統維護模塊。下面就介紹一下這三個模塊。系統功能界面如圖3所示：
圖3 系統功能界面
4.2.2 車輛管理模塊
車輛管理分七個部分，分別是車輛事故記錄查詢、車輛事故列表、車輛添加零件、車輛違章查詢、車輛違章記錄、車輛維修查詢、車輛維修列表。下面我們就詳細介紹一下。
（1）車輛事故記錄查詢
可以按照車輛的牌號查詢特定時間內的事故次數，時間精確到日，查詢完畢可按退出，回到主界面。具體實現如圖4所示
圖4 車輛事故記錄查詢
（2）車輛事故列表
可以對事故編號、公司負擔金、車牌號碼、保險理賠金、車輛類型、對方賠償金、事故時間、對方姓名、事故概要、對方住址、事故確認者，對方所住單位、對方破壞程度、和解內容等信息進行添加、修改和刪除，以及瀏覽事故記錄。具體實現如圖5所示
圖5 車輛事故列表
（3）車輛添加零件
本窗體可以對零件的名稱和單價進行添加、修改和刪除。具體實現如圖6所示
圖6 車輛添加零件
（4）車輛違章查詢
可以對違章車輛處罰結果在特定的是時間內按照車牌號碼進行查詢，查詢結束后，按退出返回主界面。具體實現如圖7所示
圖7 車輛違章查詢
（5）車輛違章記錄
本窗體的功能就是將違章車輛的車牌號碼，違章原因、處罰、違章時間、以及備注等信息輸入到數據庫里，并可對其進行添加、刪除和修改的功能。具體實現如圖8所示
圖8 車輛違章記錄
（6）車輛維修查詢
可以對維修車輛的維修費用在特定的是時間內按照車牌號碼進行查詢，查詢結束后，按退出返回主界面。具體實現如圖9所示
圖9 車輛維修查詢
（7）車輛維修列表
本窗體的功能就是將維修車輛的車牌號碼，更換零件及數量、維修日期、費用、以及備注等信息輸入到數據庫里，并可對其進行添加、刪除、修改和統計所花費用的功能。操作完成后，按退出返回主界面。具體實現如圖10所示
圖10 車輛維修列表
4.2.3 駕駛員管理模塊
駕駛員管理分三個部分，分別是駕駛員檔案查詢、駕駛員獎罰、駕駛員事故記錄查詢。下面我們就詳細介紹一下。（1）駕駛員檔案查詢
可以按照姓名、駕齡、性別、證件有效期以及出生日期等信息。從數據庫中查詢需要的駕駛員檔案信息。查詢完畢后，按退出返回主界面。具體實現如圖11所示
圖11 駕駛員檔案查詢
（2）駕駛員獎罰 本窗體是按照本月駕駛員的當月表現對其進行獎罰，將記錄記錄進行保存，并打印。具體實現如圖12所示
圖12 駕駛員獎罰
（3）駕駛員車輛事故記錄查詢
可以按照車牌號碼和事故時間對駕駛員開車發生的事故進行查詢，操作完畢后，按退出返回主界面。具體實現如圖13所示
圖13 駕駛員車輛事故記錄查詢
4.2.4 系統維護模塊
系統維護分三個部分，分別是管理員設置、數據備份、數據恢復。下面我們就詳細介紹一下。（1）管理員設置
可以對用戶姓名、密碼和用戶類型進行設置，包括添加、修改、刪除。具體實現如圖14所示
圖14 管理員設置
（2）數據備份
對數據庫里的數據進行備份，單擊開始備份就執行此操作，完畢后退出，便返回主界面。具體實現如圖15所示
圖15 數據備份
（3）數據恢復
對數據庫里的備份的數據進行恢復，單擊開始恢復就執行此操作，完畢后退出，便返回主界面。具體實現如圖16所示
圖16 數據恢復重要提示：
本論文由大學論文網www.tmdps.cn 提供 如果需要詳細內容請與QQ:4991024聯系
第二篇：VB圖書管理系統
圖書管理系統的設計與實現
目錄
一、序言······················································································································4
二、需求分析說明書 ····································································································4 2.1系統介紹..................................................................................................................................................4 2.2系統面向的用戶群體..............................................................................................................................4 2.3系統的功能性需求..................................................................................................................................4 2.4系統的非功能性需求..............................................................................................................................5 2.4.1用戶界面需求...................................................................................................................................5 2.4.2軟硬件環境需求...............................................................................................................................5 2.4.3軟件質量需求...................................................................................................................................5
三、可行性分析報告 ····································································································5 3.1技術可行性..............................................................................................................................................5 3.2人員可能性..............................................................................................................................................5 3.3時間、設備可能性..................................................................................................................................5 3.4系統工作量..............................................................................................................................................5 3.5代碼工作量..............................................................................................................................................5 3.6文檔要求..................................................................................................................................................5
四、開發環境與項目規劃 ·····························································································5 4.1開發環境..................................................................................................................................................5 4.2項目規劃與管理......................................................................................................................................5 4.2.1開發人員安排...................................................................................................................................5 4.2.2開發進度安排...................................................................................................................................6
五、軟件界面設計標準與規范 ······················································································6 5.1編寫目的..................................................................................................................................................6 5.2界面設計思想..........................................................................................................................................6 5.3界面設計原則..........................................................................................................................................6 5.4界面設計樣式..........................................................................................................................................6 5.5常見提示信息樣式..................................................................................................................................6 5.6常見錯誤信息樣式..................................................................................................................................7 5.7其他界面約定..........................................................................................................................................7
六、軟件編碼設計標準與規范 ······················································································7 6.1對象命名約定..........................................................................................................................................7 6.2常量和變量命名約定..............................................................................................................................8 6.3結構化編碼約定......................................................................................................................................8 6.4數據源的約定..........................................................................................................................................9 6.5數據庫訪問約定......................................................................................................................................9 6.6其他約定..................................................................................................................................................9
七、數據庫分析與設計·································································································10 7.1數據庫環境說明.......................................................................................................................................10 7.2數據庫命名標準與規范...........................................................................................................................10 7.3數據庫邏輯設計.......................................................................................................................................10 7.4數據庫物理設計.......................................................................................................................................10 7.4.1表、視圖匯總...................................................................................................................................10 7.4.2各表、視圖設計詳解.......................................................................................................................11
八、軟件體系結構設計說明書 ······················································································15 8.1系統概述..................................................................................................................................................15 8.2設計約束..................................................................................................................................................15 8.3設計策略..................................................................................................................................................15 8.4系統概要設計說明書..............................................................................................................................16 8.4.1圖例說明...........................................................................................................................................16 8.4.2系統總體結構圖...............................................................................................................................16 8.5系統詳細設計說明書..............................................................................................................................17 8.5.1系統模塊匯總...................................................................................................................................17 8.5.2系統核心模塊詳解...........................................................................................................................18 8.5.3系統模塊詳解...................................................................................................................................28
九、用戶界面設計報告·································································································42 9.1界面設計規范..........................................................................................................................................42 9.2系統窗體匯總..........................................................................................................................................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系統登陸..........................................................................................................................................45 11.2.2系統退出..........................................................................................................................................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
一、序言
圖書管理系統的設計與推出是多方面原因促成的，比如學校的圖書管理，日常管理工作 1 都是人工操作，歷史數據很難保存和利用。而其他的小型圖書館大多如此。針對這種狀況，我計劃開發一個面向小型圖書館的圖書管理系統，實現對人員、物流的全面管理，以幫助這些圖書館早日實現書店管理信息化。
為了系統的順利開發和維護，特編制如下技術文檔：
想要全部 請加QQ：76536415 專業設計 畢業論文
第三篇：車輛管理系統
交警大隊涉案車輛管理系統 系統概述
隨著我國機動車保有量及道路里程的迅速增長，基層公安機關交通管理部門在維護道路交通安全秩序的同時，面對日益增多的各類道路交通違法行為以及交通事故，依法應當采取行政強制措施扣留或拖移涉案車輛的具體行政行為也在不斷增多。如何在基層公安機關交通管理部門警力不足、資源有限的現實情況下應對這些突如其來的工作量，保證初始信息采集完備，依照法律法規明確辦案民警、保管人員及單位領導等環節的職責分工，促使涉案車輛管理流程規范透明，維護當事人合法權益，成為擺在基層公安機關交通管理部門面前的一個課題。為此，北京萬政通達科技有限公司針對基層公安機關交通管理部門涉案車輛管理工作方面存在的問題和難點，積極創新工作思路，充分利用科技手段，依據《公安機關涉案車輛管理若干規定》（公通字〔2015〕21號）、《中華人民共和國行政強制法》（主席令第四十九號）等相關法律規定設計研發了《交警大隊涉案車輛管理系統》，將涉案車輛的日常管理工作納入信息化、流程化、規范化的軌道。
本系統分為電腦版和手機APP兩個版本。電腦版由待辦任務、扣留登記、處置登記、涉案車輛查詢、涉案車輛統計、現場執法文書、系統管理等功能模塊組成，可在Windows臺式機或筆記本電腦上運行；手機APP版由首頁、涉案車輛管理、現場執法文書等功能模塊組成，可在搭載安卓4.0以上操作系統的智能手機、PDA或警務通上運行。
系統對涉案車輛的查扣登記、審批、接收、存放等流程均是按照現行的法律法規所規定的流程而設計，既可供交警大隊和停車場聯網使用，也可供停車場單獨使用。
每天民警現場執法扣留的車輛、處理道路交通事故扣留的車輛，都要進入停車場保管，同時將車輛信息錄入本系統進行管理。民警依法扣留車輛后，扣車信息首先由停車場工作人員登記錄入系統，電腦版和手機APP上錄入均可，包括扣車時間、地點、民警、車輛情況、存放的停車場等必要信息，同時可將現場扣車的相片、法律文書掃描進系統，幫助民警辦案標準化、流程規范化。扣車信息實時同步到交警大隊，經交警大隊內勤民警審批確認后正式成為已進場車輛。駕駛員來交警隊接受處理后，內勤民警可在系統內調出扣車信息進行返還登記，生成放車通知單，返還車輛信息實時同步到停車場，停車場保管人員根據車輛返還信息做車輛出場確認后，該車即成為已返還狀態。內勤民警在涉案車輛查詢模塊中可隨時查詢并導出“涉案車輛管理臺賬”。
系統能夠統計每天的待辦數據，包括待進場車輛數（停車場已經錄入扣車信息但交警大隊內勤民警尚未審批確認的）、待返還車輛數（交警大隊內勤民警已經登記返還信息但停車場尚未做出場確認的）、待歸還車輛數（交警大隊出于鑒定或檢驗等需求將車輛調出停車場但尚未歸還的）、待處理車輛數（交警大隊內勤民警已經登記將要報廢或拆解等處理信息但停車場尚未做出場確認的）；能夠分類統計已辦車輛數據，包括已進場車輛數（停車場已經錄入扣車信息且交警大隊內勤民警已審批確認的）、已返還車輛數（交警大隊內勤民警已經登記返還信息且停車場已做出場確認的）、已公告車輛數（自扣車之日起超過30日駕駛員未前來交警大隊接受處理且交警大隊已登報公告的）、已處理車輛數（交警大隊內勤民警已經登報公告超過三個月駕駛員仍不來接受處理，交警部門依法對車輛進行報廢或拆解等處理措施完畢的）；系統可對逾期未處理的超時車輛進行提醒，包括車輛已進場3個月以上的，民警可在系統內統計出相關車輛，然后在當地報紙或政府網站等媒體上發布公告；經公告3個月以上仍未處理的，交警部門可依法將這些車輛送到報廢回收公司進行報廢或拆解等處理，并將相關信息錄入系統。系統可為涉案車輛制作帶有二維碼的不干膠標簽。打印出來的不干膠標簽共三聯，裁開后，一聯粘貼在涉案車輛上、一聯貼在涉案車輛的鑰匙上、一聯交給當事人，當事人可以掃描標簽上的二維碼，查閱自己被扣留車輛處于何種狀態。另外，本系統還附帶了現場文書制作模塊，民警可在當事人違法現場使用手機APP直接連接便攜式打印機，無需配備筆記本電腦，在手機上即可制作并打印《違法停車告知單》、《公安交通管理簡易程序處罰決定書》、《道路交通安全違法行為處理通知書》等現場法律文書。
本系統的投入使用，可有效解決基層公安機關交通管理部門涉案車輛底數不清、情況不明和對涉案車輛清理、公告、處置難等問題，有效堵塞漏洞，實現對涉案車輛管理工作的信息化、制度化、規范化管理，為提升執法質量、規范執法行為奠定了良好基礎。系統用戶
本系統面向以下用戶提供服務：
1、交警大隊內勤民警。使用本系統可以做到規范登記、方便管理、數目清晰準確、加強監督。具有數據增刪改查所有權限，能夠訪問所有停車場數據。
2、停車場保管人員。承接交警大隊的停車業務，由交警大隊通過政府采購服務等方式支付停車業務管理費。只能訪問自己停車場的數據。
3、涉案車輛所有人或駕駛人。通過微信公眾號可以查詢自己車輛所在位置以及停車費等相關信息。工作流程
本系統所能處理的涉案車輛相關的工作流程共有4個。明細如下：
1、扣留車輛流程
2、返還車輛流程
3、調取歸還流程
4、公告處理流程
本系統對上述4個工作流程的操作步驟設計如下：
1、扣留車輛流程
停車場保管人員執行扣車登記 →交警大隊內勤民警執行扣車審批
2、返還車輛流程
交警大隊內勤民警執行車輛返還登記 → 停車場保管人員執行車輛出場
3、調取歸還流程
交警大隊內勤民警執行車輛調取登記 → 停車場保管人員執行車輛出場 →交警大隊內勤民警執行車輛歸還登記 → 停車場保管人員執行車輛進場
4、公告處理流程
交警大隊內勤民警執行公告登記 → 交警大隊內勤民警執行處理登記 → 停車場保管人員車輛出場 → 交警大隊內勤民警執行處理結果登記
第四篇：vb圖書管理系統源代碼
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(”借書總數“))
Text2(2).Text = str(rs.Fields(”借書總數“)rs.Fields(”已借書數“))
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(”借書總數“)
Text1(3).Text = edlev.Adodc1.Recordset.Fields(”借書天數“)
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 ”數據項不全,請重新設置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edlev.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于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(”借書總數“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借書天數“)= 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(”借書總數“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借書天數“)= 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 ”數據項不能為空,請重新設置“, vbOKOnly, ”信息提示“
Text1.SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edrec.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于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 = ”系統管理員“ 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(”本功能要清除系統中所有數據,真的初始化嗎?“, 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 ”系統初始化完畢,下次只能以1234/1234(用戶名/口令)進入本系統“, 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 ”沒有這個用戶,繼續登錄“, vbOKOnly + vbExclamation, ”信息提示“
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(0).SetFocus
Else
MsgBox ”已登錄失敗三次,退出系統“, 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保存登錄的次數 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(”已借書數“)= rs.Fields(”已借書數“)rs.Fields(”已借書數“)
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 ”數據項不全,請重新設置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If setuser.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于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
'保存記錄集中記錄個數
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表添加一個系統用戶
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','系統管理員')“
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學生管理系統主要代碼
主要代碼如下：
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(“業務能力”))* 0.5 If rst1.Fields(“綜合評分”)>= 6 Then
rst1.Fields(“初選狀態”)= “通過”
Else
rst1.Fields(“初選狀態”)= “未通過”
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 初選狀態='通過'”, 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");
……
}
點擊咨詢 