【正文】 4．細(xì)節(jié) 包含報(bào)表的最內(nèi)部的“重復(fù)”部分（記錄）。2．頁(yè)標(biāo)頭 包含在每一頁(yè)頂部出現(xiàn)的信息，例如報(bào)表的標(biāo)題。Adodc的使用方法：添加新記錄：修改記錄：刪除記錄：3．3．8 報(bào)表功能模塊報(bào)表設(shè)計(jì)在實(shí)踐應(yīng)用中很有實(shí)用性，同樣，它也是一項(xiàng)細(xì)致的工作，沒(méi)有太難的算法；當(dāng)然要使其統(tǒng)計(jì)功能做得強(qiáng)大，還要有統(tǒng)計(jì)學(xué)的理論知識(shí)作指導(dǎo)。 + \=select * from Result where Name=39。在該模塊中，我使用了Adodc控件和MSFlexGrid控件來(lái)實(shí)現(xiàn)其功能。 的員工資料成功！是否繼續(xù)？, vbYesNo) = vbYes Then For i = 0 To 8 EditStu(i).Text = Next EditStu(0).SetFocus Else Call (classid) Unload Me End If……如果是修改員工資料，則提示用戶修改成功，然后退出該窗體，并更新frmstu窗體中Listview的數(shù)據(jù)。 39。 sqlstr = sqlstr amp。,SRemark=39。,SDormitory=39。,STel=39。 SCode=39。 amp。 amp。 amp。 amp。 amp。 EditStu(2).Text amp。 EditStu(1).Text amp。)Else 39。,39。,39。,39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 EditStu(1).Text amp。 EditStu(0).Text amp。 EditStu(0).Text amp。 amp。號(hào)）！, vbInformation Exit Sub EditStu(i).SetFocus End IfNext檢測(cè)數(shù)據(jù)完畢后，就開(kāi)始對(duì)輸入的數(shù)據(jù)進(jìn)行操作，如果是添加新資料則判斷是否存在該員工的資料，如果該員工信息已經(jīng)存在則提醒用戶該員工資料已經(jīng)存在，反之則將該員工的資料添加到數(shù)據(jù)庫(kù)中；如果是修改員工資料則在數(shù)據(jù)庫(kù)中以身份證號(hào)為關(guān)鍵字搜索該員工的資料，然后將該員工的資料更新。 sqlstr, con 39。M） Dim rs As New , sqlstr As String sqlstr = select * from StuInfo where SID=39。 ） = 添加（amp。如果為添加新的員工資料，則將身份證號(hào)的前6位置為該部門(mén)的ID，并將身份證號(hào)輸入框的SelStart屬性設(shè)為6。 StuNum amp。顯示詳細(xì)資料 Call End SubPublic Sub ListView_DblClick()On Error Resume NextIf Then SelectNum = If SelectNum Then 39。在Listview中列出了各員工檔案信息的身份證號(hào)和姓名以供用戶進(jìn)行導(dǎo)航，但是在實(shí)際管理中，還需要顯示出某一條員工信息的詳細(xì)列表。 amp。Private Sub pop5_Click() 39。修改員工資料 Call End SubPublic Sub ModifyStu()39。O）”。 order by SID sqlstr, con, 1, 1 Do While Not Set Listit = (, , (SID)) (1) = (SName) (2) = (SGender) (3) = (SMinzu) (4) = (SZhengzhi) (5) = (SDormitory) (6) = (SAddress) Loop: Set ef = NothingEnd Sub在顯示該部門(mén)下面所有員工信息的同時(shí)，用戶可以對(duì)記錄進(jìn)行管理：添加新記錄、編輯或者刪除當(dāng)前記錄，為此在Listview中創(chuàng)建右鍵菜單，用來(lái)對(duì)記錄進(jìn)行操作。開(kāi)始在ListView中顯示數(shù)據(jù) classid = Left(, 6) Call ListviewLoad(classid)ElseIf = S Then Call SqlListview(SqlSearch)Else End IfEnd SubPublic Sub ListviewLoad(ByVal classid As String)Dim Listit As ListItem = lvwManual = 3Dim ef As New classid = Left(classid, 6)sqlstr = select * from StuInfo where SID like 39。Private Sub Form_Resize()If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000End SubSub SizeControls(X As Single) On Error Resume Next 39。在該窗體中，用戶可以查看/修改員工的信息，還可以添加/刪除員工信息，所以用一個(gè)Treeview和一個(gè)Listview分別顯示部門(mén)列表和該部門(mén)下面的員工列表，用Image和PictureBox來(lái)調(diào)整控件的大小。 LoginUser amp。 pwd amp。 LoginUser amp。這時(shí)，先檢查兩次輸入的密碼是否一致，如果不一致，則提示用戶，將焦點(diǎn)設(shè)置到第二個(gè)Text2控件，后面兩個(gè)文本框清空，代碼如下：Private Sub Command1_Click() Dim Oldpwd As String, pwd As String, confirmpwd As StringOldpwd = Trim()pwd = Trim()confirmpwd = Trim()……If Trim(pwd) Trim(confirmpwd) Then MsgBox 兩次輸入的密碼不相同！, vbInformation = = Exit SubEnd IfEnd Sub如果密碼一致，則判斷輸入的原密碼是否正確，如果正確則將新密碼寫(xiě)入數(shù)據(jù)庫(kù)，這時(shí)需要一個(gè)字符串變量表達(dá)SQL語(yǔ)句，一個(gè)Recordset對(duì)象變量打開(kāi)系統(tǒng)信息數(shù)據(jù)表。添加用戶 End SubPrivate Sub menuDel_Click() 39。 amp。 amp。根據(jù)以上的設(shè)計(jì)，DeleteRecord()的代碼如下：Private Sub DeleteRecord()39。) sqlstr MsgBox 添加用戶 amp。,39。 39。 amp。 amp。 的用戶帳號(hào), vbInformation Exit Sub End If Loop: Set rs = NothingEnd Sub如果沒(méi)有重復(fù)，再檢查兩次輸入的密碼是否一致，如果不一致，則提示“兩次密碼不一致”。 39。,請(qǐng)刪除。在該窗體的通用部分寫(xiě)如下代碼： Dim DelNO As Integer2．窗體加載時(shí)，初始化Listview用以顯示系統(tǒng)用戶列表，代碼如下Private Sub Form_Load()39。Private Sub filemenu45_Click() 39。Private Sub filemenu15_Click()If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？, vbYesNo + vbQuestion, 重新登陸) = vbYes Then Unload Me End IfEnd Sub5．“幫助主題”子菜單的代碼調(diào)用Windows API函數(shù)。在這兩個(gè)事件中，均可將Cancel設(shè)置為任何非零的值來(lái)防止窗體被刪除。QueryUnload事件中詢問(wèn)用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將Cancel置為1，取消整個(gè)退出過(guò)程。 LoginUser amp。Private Declare Function ShellExecuteamp。它有一個(gè)父窗口，在典型情況下，父窗口用來(lái)顯示程序菜單以及包含子窗口。, vbInformation Unload Me Exit Sub End If …… Else LoginUser = Userid 39。 39。利用SQL語(yǔ)句，在數(shù)據(jù)庫(kù)中查詢，如果查到相應(yīng)的記錄，則調(diào)用Case 0事件，用戶的登陸獲得通過(guò)，此時(shí)可以退出登陸窗口，并進(jìn)入MDI主窗口，同時(shí)將用戶類型和用戶名分別傳遞到MDI主窗口和frmmanage中；如果沒(méi)有相應(yīng)的記錄，則給出提示錯(cuò)誤信息，同時(shí)將用戶輸入錯(cuò)誤密碼次數(shù)增加1，如果錯(cuò)誤超過(guò)3次，則退出整個(gè)系統(tǒng)；若次數(shù)還沒(méi)有超過(guò)3次，則提示用戶重新輸入。+\ End IfEnd Sub 在module2中添加代碼(MD5算法) 3．3 用戶界面實(shí)現(xiàn)3．3．1 登陸界面(frmlogin)因?yàn)楸鞠到y(tǒng)是按員工檔案管理的思想設(shè)計(jì)的，故而登陸部分主要完成密碼校驗(yàn)、確定管理員等功能，對(duì)于密碼本系統(tǒng)采用的是MD5算法。3．1 準(zhǔn)備工作1． 添加引用：?jiǎn)螕艄こ滩藛沃械囊眠x項(xiàng)，添加Microsoft ActiveX Data Objects Library和Microsoft Excel Object Library兩個(gè)引用。本數(shù)據(jù)庫(kù)采用SQL Server 2000來(lái)構(gòu)造，共使用了7個(gè)表，它們分別是用戶信息表（UserInfo）、員工信息表（StuInfo）、部門(mén)信息表（Class）、職業(yè)信息表（Major）、公司信息表（Depart）、職位信息表（Lesson）、員工業(yè)績(jī)表（Result）。database=student。1．2．4 Visual Basic ①定義數(shù)據(jù)庫(kù)組建Dim con As New ②打開(kāi)數(shù)據(jù)庫(kù)對(duì)于SQL數(shù)據(jù)庫(kù)， driver={sql server}。 用來(lái)操縱數(shù)據(jù)的SQL命令SQL命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專門(mén)為數(shù)據(jù)庫(kù)設(shè)計(jì)的語(yǔ)言，比一般的計(jì)算機(jī)程序語(yǔ)言簡(jiǎn)單的多。Fields對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段Parametes對(duì)象：表示Command對(duì)象的參數(shù)。adLockOptimistic3開(kāi)放式記錄鎖定（逐條）。Recordset對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。⑹ 允許在程序中使用多個(gè)Recordset對(duì)象或者多個(gè)分批修改區(qū)塊傳送。⑵ 內(nèi)部有多個(gè)互相獨(dú)立的對(duì)象模型。 利用ADO開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序ADO（Active Date Objects,即ActiveX數(shù)據(jù)對(duì)象）是一個(gè)ASP內(nèi)置的ActiveX服務(wù)器組件（ActiveX Server Component）。1．3．3 ADO對(duì)象概述ADO對(duì)象是針對(duì)當(dāng)前微軟的軟件所支持的數(shù)據(jù)進(jìn)行操作的最為有效、簡(jiǎn)單并且功能強(qiáng)大的方法。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。SQL Server提供了TransactSQL、DBLibrary for C、嵌入式SQL（ESQL）等開(kāi)發(fā)工具，TransactSQL與工業(yè)標(biāo)準(zhǔn)SQL語(yǔ)言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。即使SQL Server數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQL Server也能夠在運(yùn)行過(guò)程中根據(jù)環(huán)境配置和用戶訪問(wèn)情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。1．豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。這其實(shí)對(duì)于開(kāi)發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒(méi)有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。記得在以前各種關(guān)于SQL Server的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺(jué)被大家自然的延續(xù)到了2000版之中。通過(guò)對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。ADO更易于使用。RDO是處理遠(yuǎn)程數(shù)據(jù)庫(kù)的一些專門(mén)需要的對(duì)象集合。它使得設(shè)計(jì)者省下一堆程序代碼編寫(xiě)的工作，能夠輕松的設(shè)計(jì)及維護(hù)數(shù)據(jù)庫(kù)內(nèi)容。Jet還具備在數(shù)據(jù)庫(kù)開(kāi)發(fā)工作中所需的其他功能，這些功能包括：數(shù)據(jù)庫(kù)修復(fù)，數(shù)據(jù)庫(kù)壓縮（以使消除不同的空間）和重新索引。這種功能讓開(kāi)發(fā)者指定用戶標(biāo)識(shí)符和口令，他們必須在用戶訪問(wèn)數(shù)據(jù)庫(kù)之前給出。Jet以主鍵標(biāo)和表間引用完整性的形式支持?jǐn)?shù)據(jù)完整性。VB對(duì)多種數(shù)據(jù)庫(kù)格式的支持，大大的增強(qiáng)了開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的能力。l 支持動(dòng)態(tài)鏈接庫(kù)；l 應(yīng)用程序之間的資源共享。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)才會(huì)調(diào)用過(guò)程。2． 強(qiáng)大的數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)功能隨著Visual Basic 語(yǔ)言的向前發(fā)展，它在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用Visual Basic 中的ODBC——開(kāi)放式的數(shù)據(jù)庫(kù)訪問(wèn)