健身俱樂部人事查詢系統(tǒng)

畢業(yè)設(shè)計(jì)（論文、作業(yè)）畢業(yè)設(shè)計(jì)（論文、作業(yè)）題目：健身俱樂部人事查詢系統(tǒng)目錄內(nèi)容摘要和關(guān)鍵詞………………………Ⅰ一、畢業(yè)設(shè)計(jì)報(bào)告說明……………………1畢業(yè)設(shè)計(jì)題目…………1程序設(shè)計(jì)語言…………1畢業(yè)設(shè)計(jì)目的與要求…………………1軟件概述………………11、軟件描述………………12、系統(tǒng)運(yùn)行環(huán)境……………13、系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)………………………1二、總體設(shè)計(jì)框圖…………2(一)健身俱樂部人事會(huì)員管理系統(tǒng)總體設(shè)計(jì)框圖………2(二)錄入信息設(shè)計(jì)框圖……………………3(三)查詢和修改信息設(shè)計(jì)框圖……………3(四)職工信息維護(hù)設(shè)計(jì)框圖………………4(五)會(huì)員信息維護(hù)設(shè)計(jì)框圖………………4(六)打印信息設(shè)計(jì)框圖……………………5(七)退出系統(tǒng)設(shè)計(jì)框圖……………………5三、數(shù)據(jù)字典………………6(一)數(shù)據(jù)庫設(shè)計(jì)……………61、人事工資數(shù)據(jù)表的設(shè)計(jì)………………62、職工信息數(shù)據(jù)表的設(shè)計(jì)………………63、職工部門數(shù)據(jù)表的設(shè)計(jì)………………64、會(huì)員會(huì)費(fèi)數(shù)據(jù)表的設(shè)計(jì)………………75、會(huì)員信息數(shù)據(jù)表的設(shè)計(jì)………………76、會(huì)員部門數(shù)據(jù)表的設(shè)計(jì)………………7(二)規(guī)范化設(shè)計(jì)……………71、關(guān)鍵點(diǎn)…………………72、編寫main模塊…………83、主菜單與子窗體的連接………………8(三)系統(tǒng)特點(diǎn)………………81、模塊化…………………82、結(jié)構(gòu)化查詢SQL語言……………………83、安全性……………………84、課程設(shè)計(jì)體會(huì)……………8四、操作說明書……………8(一)打開程序………………8(二)進(jìn)入系統(tǒng)………………81、打開系統(tǒng)………………82、登陸界面………………9(三)進(jìn)入主菜單……………11(四)查詢和修改信息菜單…………………111、進(jìn)入系統(tǒng)打開“查詢和修改會(huì)員信息”按鈕………112、操作步驟………………11(五)會(huì)員信息維護(hù)菜單……………………121、添加會(huì)員信息…………122、修改會(huì)員信息…………143、刪除會(huì)員信息…………16(六)打印信息菜單…………181、設(shè)置“統(tǒng)計(jì)打印所有會(huì)員辦卡金額”的窗體界面和報(bào)表格…………182、編寫“統(tǒng)計(jì)打印所有會(huì)員辦卡金額”窗口的程序……19(七)退出本系統(tǒng)……………201、退出本管理系統(tǒng)………………………202、關(guān)于……………………20參考文獻(xiàn)……………………20致謝………………………21內(nèi)容摘要跨入21世紀(jì)，人們?cè)絹碓缴钋械馗杏X到了計(jì)算機(jī)在生活和工作中的作用越來越重要，越來越多的職業(yè)需要具有計(jì)算機(jī)的應(yīng)用技能。因?qū)∩砭銟凡康娜耸鹿芾肀容^感興趣，正逢這次畢業(yè)設(shè)計(jì)的需要，為此選擇了《健身俱樂部人事管理系統(tǒng)》這個(gè)課題。本系統(tǒng)要求的功能是信息儲(chǔ)存、查詢、修改、刪除、維護(hù)和打印，實(shí)現(xiàn)人事管理等。在此系統(tǒng)中主要包括了人事和會(huì)員兩大信息，共有六大模塊。在登陸界面中包括“超級(jí)用戶”和“普通用戶”，輸入用戶名和密碼登陸“超級(jí)用戶”進(jìn)入主表單后能進(jìn)行所有模塊的操作，而登陸“普通用戶”后對(duì)于“會(huì)員信息維護(hù)”模塊不能進(jìn)行相對(duì)應(yīng)的操作，只能對(duì)其他五個(gè)模塊進(jìn)行操作。主要研究?jī)?nèi)容：我作的是健身俱樂部人事查詢模塊，其中包括了查詢和修改會(huì)員信息模塊、會(huì)員信息維護(hù)模塊和統(tǒng)計(jì)打印所有會(huì)員辦卡金額模塊。主要對(duì)會(huì)員部門表、會(huì)員會(huì)費(fèi)表、會(huì)員信息表三個(gè)數(shù)據(jù)表和編號(hào)、姓名、部門、卡種、會(huì)費(fèi)等字段名進(jìn)行操作。基本要求：通過在查詢會(huì)員信息的過程中，能對(duì)會(huì)員信息進(jìn)行添加、修改、刪除、瀏覽和打印等一系列操作。關(guān)鍵詞：SQL模塊化數(shù)據(jù)庫畢業(yè)設(shè)計(jì)報(bào)告畢業(yè)設(shè)計(jì)報(bào)告說明畢業(yè)設(shè)計(jì)題目健身俱樂部人事查詢系統(tǒng)程序設(shè)計(jì)語言VisualBasic.NET畢業(yè)設(shè)計(jì)目的與要求了解使用VisualBasic.NET編寫應(yīng)用程序的基本步驟，熟悉Access操作環(huán)境，并且能夠設(shè)計(jì)出符合要求的數(shù)據(jù)庫和數(shù)據(jù)表，能夠熟練使用數(shù)據(jù)庫查詢語言SQL對(duì)數(shù)據(jù)庫進(jìn)行操作。要求全面、系統(tǒng)地掌握VisualBasic.NET軟件的相關(guān)內(nèi)容，從人事會(huì)員管理入手，使用VisualBasic.NET的數(shù)據(jù)庫技術(shù)，逐步實(shí)現(xiàn)該系統(tǒng)，主要的步驟是：需求分析、結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)及界面的設(shè)計(jì)和代碼的分析。軟件概述1．軟件描述此健身俱樂部人事會(huì)員管理系統(tǒng)分職工和會(huì)員兩部分，主要通過超級(jí)用戶和普通用戶來實(shí)現(xiàn)掌握職工和會(huì)員的信息，并記錄在數(shù)據(jù)庫中。我們可以按不同的方式對(duì)不同的信息進(jìn)行管理，可以對(duì)職工和會(huì)員的信息進(jìn)行查詢、添加、刪除和修改。并可以針對(duì)不同的要求，提供相關(guān)的報(bào)表打印功能。2．系統(tǒng)運(yùn)行環(huán)境(1)硬件要求PⅡ以上電腦，內(nèi)存不小于126MB，硬盤不小于1G，配有輸入、輸入設(shè)備(2)軟件要求VisualBasic.NET和Access2000平臺(tái)3．系統(tǒng)功能結(jié)構(gòu)設(shè)計(jì)(1)錄入信息功能是讓用戶把職工和會(huì)員的信息通過鍵盤錄入到數(shù)據(jù)表長(zhǎng)期保存，分別由“錄入職工基本信息”子菜單和“錄入會(huì)員基本信息”子菜單來實(shí)現(xiàn)，即對(duì)職工和會(huì)員信息進(jìn)行輸入和添加。(2)查詢和修改信息功能是對(duì)職工和會(huì)員的各類信息實(shí)現(xiàn)有效的管理，分別由：一種是按職工信息進(jìn)行管理，即對(duì)每位職工的職位，職稱和工資等信息進(jìn)行查詢和修改；一種是按會(huì)員信息進(jìn)行管理，即對(duì)每位會(huì)員的個(gè)人信息和辦卡的卡種和會(huì)費(fèi)等信息進(jìn)行查詢和修改。(3)職工信息維護(hù)職工信息維護(hù)是通過“添加職工信息”子菜單、“修改職工信息”子菜單和“刪除職工信息”子菜單三部分來進(jìn)行對(duì)每位職工信息進(jìn)行添加、查詢、修改和刪除，提供了一個(gè)電子化的管理平臺(tái)，從而達(dá)到人事的管理需求。(4)會(huì)員信息維護(hù)會(huì)員信息維護(hù)是通過“添加會(huì)員信息”子菜單、“修改會(huì)員信息”子菜單和“刪除會(huì)員信息”子菜單三部分來進(jìn)行對(duì)每位會(huì)員的入會(huì)信息進(jìn)行添加、查詢、修改和刪除，可以具體的了解會(huì)員的詳細(xì)情況，幫助公司員工能進(jìn)一步的做到優(yōu)質(zhì)的服務(wù)。(5)打印信息是讓用戶把職工和會(huì)員的信息直接輸出到打印機(jī)上，不需要用戶重新排版，從而減少了用戶的工作量。分別由“打印某個(gè)月所有職工的工資”子菜單、“統(tǒng)計(jì)打印所有職工工資金額”子菜單和“統(tǒng)計(jì)打印所有會(huì)員辦卡金額”子菜單來實(shí)現(xiàn)。(6)退出系統(tǒng)功能是退出管理系統(tǒng)，實(shí)際上就是關(guān)閉管理系統(tǒng)，釋放管理系統(tǒng)所占資源，這個(gè)功能由“退出本管理系統(tǒng)”菜單實(shí)現(xiàn)；顯示關(guān)于本管理系統(tǒng)的一些信息，這個(gè)功能是由“關(guān)于本系統(tǒng)”菜單實(shí)現(xiàn)。總體設(shè)計(jì)框圖健身俱樂部人事會(huì)員管理系統(tǒng)總體設(shè)計(jì)框圖健身俱樂部人事會(huì)員管理系統(tǒng)錄入信息健身俱樂部人事會(huì)員管理系統(tǒng)錄入信息查詢和修改信息職工信息維護(hù)會(huì)員信息維護(hù)打印信息退出系統(tǒng)圖2.1錄入信息錄入職工基本信息錄入會(huì)員基本信息錄入信息錄入職工基本信息錄入會(huì)員基本信息圖2.2查詢和修改信息設(shè)計(jì)框圖查詢和修改信息查詢和修改職工本月工資信查詢和修改信息查詢和修改職工本月工資信息查詢和修改會(huì)員信息圖2.3職工信息維護(hù)設(shè)計(jì)框圖職工信息維護(hù)職工信息維護(hù)添加職工信息刪除職工信息修改職工信息圖2.4會(huì)員信息維護(hù)設(shè)計(jì)框圖會(huì)員信息維護(hù)會(huì)員信息維護(hù)添加會(huì)員信息刪除會(huì)員信息修改會(huì)員信息圖2.5打印信息設(shè)計(jì)框圖打印信息打印信息打印某個(gè)月所有職工的工資統(tǒng)計(jì)打印所有會(huì)員辦卡金額統(tǒng)計(jì)打印所有職工工資金額圖2.6退出系統(tǒng)設(shè)計(jì)框圖退出系統(tǒng)退出系統(tǒng)退出本管理系統(tǒng)關(guān)于本系統(tǒng)圖2.7數(shù)據(jù)字典數(shù)據(jù)庫設(shè)計(jì)1．人事工資數(shù)據(jù)表（renshigongzi）的設(shè)計(jì)表3.1人事工資表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5xingming姓名文本10bumen部門文本20zhicheng職稱文本10yuefen月份文本2gongzi工資文本10idid號(hào)自動(dòng)編號(hào)長(zhǎng)整型2．職工信息數(shù)據(jù)表（zhigongxinxi）的設(shè)計(jì)表3.2職工信息表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5xingming姓名文本10xingbie性別文本2nianling年齡文本2shenfenzheng身份證文本20bumen部門文本20zhicheng職稱文本10gongzi工資文本10dianhua電話文本20zhuzhi住址文本503．職工部門數(shù)據(jù)表（zhigongbumen）的設(shè)計(jì)表3.3職工部門表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5bumen部門文本204．會(huì)員會(huì)費(fèi)數(shù)據(jù)表（huiyuanhuifei）的設(shè)計(jì)表3.4會(huì)員會(huì)費(fèi)表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5xingming姓名文本10bumen部門文本20kazhong卡種文本20huifei會(huì)費(fèi)文本20idid號(hào)自動(dòng)編號(hào)長(zhǎng)整型5．會(huì)員信息數(shù)據(jù)表(huiyuanxinxi)的設(shè)計(jì)表3.5會(huì)員信息表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5xingming姓名文本10xingbie性別文本2nianling年齡文本2shenfenzheng身份證文本20bumen部門文本20kazhong卡種文本20huifei會(huì)費(fèi)文本20dianhua電話文本20zhuzhi住址文本506．會(huì)員部門數(shù)據(jù)表（huiyuanbumen）的設(shè)計(jì)表3.6會(huì)員部門表字段結(jié)構(gòu)字段名字段說明類型字段大小bianhao編號(hào)文本5bumen部門文本20規(guī)范化設(shè)計(jì)1．關(guān)鍵點(diǎn)用Imports定義命名空間，由于我們使用的是數(shù)據(jù)訪問對(duì)象ADO.NET來訪問數(shù)據(jù)庫，因而在使用ADO.NET對(duì)象之前，首先要利用Imports定義System.Data命名空間System.Data.OleDb命名空間。代碼：ImportsSystem.DataImportsSystem.Data.OleDb2．編寫main模塊為了創(chuàng)建一個(gè)Submain，需要在當(dāng)前項(xiàng)目中增加一個(gè)模塊。模塊是一個(gè)項(xiàng)目中共享過程和函數(shù)的容器。Main模塊的構(gòu)成:main模塊→定義一些重要變量→整個(gè)程序的運(yùn)行起點(diǎn)：主過程SubMain()→運(yùn)行主菜單窗口MainMenu。代碼：PublicconstrAsString=“Provider=Microsoft.Jet.OLEDB.4.0；DataSource=c:\健身俱樂部人事會(huì)員管理系統(tǒng)\renshihuiyuan.mdb”PublicmyconAsNewOleDb.OleDbConnection(constr)3．主菜單與子窗體的連接對(duì)于主菜單與子窗體連接的基本思路是：創(chuàng)建一個(gè)新的窗體，修改新窗體的StartPosition屬性、Text屬性、Font屬性、IsMdiContainer屬性等窗體屬性，接著在主窗體Mainmenuform菜單控件的Click事件中添加關(guān)聯(lián)代碼。系統(tǒng)特點(diǎn)1．模塊化依據(jù)系統(tǒng)結(jié)構(gòu)化設(shè)計(jì)方法，把整個(gè)系統(tǒng)劃分為若干個(gè)功能模塊，某模塊可劃分為多個(gè)子模塊，某子模塊又可劃分為多個(gè)二級(jí)子模塊，經(jīng)層層分解后，最小的子模塊的功能便十分明確和簡(jiǎn)單了。這樣做，不僅展現(xiàn)了一個(gè)應(yīng)用軟件系統(tǒng)的整體性和層次性，而且通過屏幕對(duì)每個(gè)應(yīng)用模塊有明顯的提示，在這些提示下，用戶可以方便地進(jìn)入系統(tǒng)的每一層進(jìn)行操作，可以非常方便的使用這一數(shù)據(jù)庫應(yīng)用系統(tǒng)。2．結(jié)構(gòu)化查詢語言SQL本系統(tǒng)在實(shí)現(xiàn)多庫連接和查詢部分，大量采用了國(guó)際上廣為應(yīng)用的SQL結(jié)構(gòu)化查詢語言，語言簡(jiǎn)潔，方便實(shí)用，且有利于數(shù)據(jù)共享。3．安全性可以讓用戶方便的進(jìn)行職工和會(huì)員信息的查詢、檢索、添加，刪除和修改有關(guān)內(nèi)容，并能分別打印職工工資金額和會(huì)員會(huì)費(fèi)金額的信息。4．課程設(shè)計(jì)體會(huì)通過本次畢業(yè)設(shè)計(jì)，使我全方位的了解VB.NET開發(fā)應(yīng)用程序的步驟和方法，提高了應(yīng)用數(shù)據(jù)庫語言解決實(shí)際問題的能力，為以后使用數(shù)據(jù)庫進(jìn)行軟件設(shè)計(jì)打下了堅(jiān)實(shí)的基礎(chǔ)。隨著程序設(shè)計(jì)的進(jìn)程，我掌握了一些基本的編程方法，能開始把自己所想到的思路附諸于實(shí)現(xiàn)，就開始感到了程序設(shè)計(jì)的樂趣，系統(tǒng)程序調(diào)試成功后感到非常的開心，而且也更加加深了對(duì)書本知識(shí)的理解。操作說明書打開MicrosoftVisualStudio.NET2003程序。進(jìn)入系統(tǒng)1．打開系統(tǒng)在Windows系統(tǒng)，先開啟VisualBasic.NET，執(zhí)行c:\健身俱樂部人事會(huì)員管理系統(tǒng)\健身俱樂部人事會(huì)員管理系統(tǒng).sln應(yīng)用程序，運(yùn)行程序封面表單。系統(tǒng)主表單是進(jìn)入系統(tǒng)后用戶所見到的第一個(gè)界面，它將會(huì)給用戶留下較深的印象，所以應(yīng)盡可能設(shè)計(jì)得簡(jiǎn)單、大方。本系統(tǒng)的主表單（如圖4.1所示）就作到了這一點(diǎn)，其中它的動(dòng)態(tài)字模，由計(jì)時(shí)器控制。它的移動(dòng)速度，給人以明快的感覺。圖4.1健身俱樂部人事查詢系統(tǒng)的啟動(dòng)封面(1)顯示封面窗口的程序代碼應(yīng)添加在Submain中，代碼實(shí)現(xiàn)如下顯示：PublicSubmain()DimsplashAsNewfrmSplashSplash.Show()Application.DoEvents()AppStartup()Splash.Hide()Application.Run(Newloginform)EndSub(2)設(shè)定封面窗口的顯現(xiàn)時(shí)間，編寫代碼如下：PrivateSubAppStartup()System.Threading.Thread.Sleep(2000)EndSub2．登陸界面(1)包括“超級(jí)用戶”和“普通用戶”。輸入用戶名和密碼登陸“超級(jí)用戶”進(jìn)入主表單后能進(jìn)行所有模塊的操作，而登陸“普通用戶”后對(duì)于“會(huì)員信息維護(hù)”模塊不能進(jìn)行相對(duì)應(yīng)的操作，只能對(duì)其他五個(gè)模塊進(jìn)行操作（如圖4.2所示）。圖4.2登陸界面(2)登陸loginform窗體的全部代碼如下：IfMe.RadioButton1.Checked=TrueThenIfMe.TextBox1.Text="admin"AndMe.TextBox2.Text="admin"ThenDimf1AsNewmainmenuformf1.Show()Me.Hide()ElseMsgBox("超級(jí)用戶名或密碼出錯(cuò)！請(qǐng)重新輸入！")EndIfEndIfIfMe.RadioButton2.Checked=TrueThenIfMe.TextBox1.Text="user"AndMe.TextBox2.Text="user"ThenDimf1AsNewmainmenuformf1.MenuItem3.Enabled=Falsef1.MenuItem6.Enabled=Falsef1.MenuItem11.Enabled=Falsef1.Show()Me.Hide()ElseMsgBox("普通用戶名或密碼出錯(cuò)！請(qǐng)重新輸入！")EndIfEndIf進(jìn)入主菜單，該表單布局合理，結(jié)構(gòu)緊湊，設(shè)置快捷鍵更加方便用戶操作使用。設(shè)計(jì)主菜單（如圖4.3），設(shè)計(jì)完善的菜單系統(tǒng)是確保程序易于使用的關(guān)鍵，菜單系統(tǒng)設(shè)計(jì)的好壞，不但反映了程序中功能模塊組織的水平，同時(shí)也反映了應(yīng)用程序的擁護(hù)友善性。圖4.3主菜單查詢和修改信息菜單1．進(jìn)入系統(tǒng)打開“查詢和修改會(huì)員信息”按鈕先選擇“編號(hào)”，再選擇“卡種”，然后點(diǎn)擊“查詢”按鈕，我們可以查找自己想要查詢的信息，點(diǎn)擊“修改”按鈕還可以進(jìn)行修改內(nèi)容，最后關(guān)閉窗口如圖4.4所示。圖4.4查詢和修改會(huì)員信息窗體2．操作步驟：(1)將“編號(hào)”進(jìn)行數(shù)據(jù)綁定，將“編號(hào)”組合框與數(shù)據(jù)表huiyuanxinxi.db中的bianhao字段的數(shù)據(jù)綁定，再在代碼編輯器窗口中添加相應(yīng)代碼。在“解決方案資源管理器”中右擊chaxunxiugai.vb，在彈出的快捷菜單中選擇“查看代碼”，打開代碼編輯器窗口。在左邊的下拉菜單中選擇要操作的對(duì)象chaxunxiugaiEvents，在右邊的下拉菜單中選擇Load事件輸入相應(yīng)的代碼：OleDbDataAdapter1.fill(DataSet11)(2)編寫“查詢”按鈕下的全部代碼：grdScore.CaptionText="會(huì)員編號(hào)："&ComboBox1.Text&"會(huì)員會(huì)費(fèi)："DimstrAsStringstr="selecthuiyuanxinxi.xingmingas姓名,huiyuanxinxi.xingbieas性別,huiyuanxinxi.nianlingas年齡,huiyuanxinxi.bumenas部門,huiyuanxinxi.kazhongas卡種,huiyuanxinxi.huifeias會(huì)費(fèi),huiyuanxinxi.dianhuaas電話,huiyuanxinxi.zhuzhias住址fromhuiyuanxinxiwherehuiyuanxinxi.bianhao='"&ComboBox1.Text&"'andhuiyuanxinxi.kazhong='"&ComboBox2.Text&"'"DimmydcAsNewOleDbDataAdapter(str,constr)DimdbsetAsNewDataSetmydc.Fill(dbset,"huiyuanxinxi")grdScore.DataSource=dbset.Tables("huiyuanxinxi")(3)編寫“修改”按鈕的代碼：DimstrAsString="updatehuiyuanxinxisetxingming=@xingming,xingbie=@xingbie,nianling=@nianling,bumen=@bumen,kazhong=@kazhong,huifei=@huifei,dianhua=@dianhua,zhuzhi=@zhuzhiwherebianhao='"&ComboBox1.Text&"'"DimcomAsOleDbCommand=NewOleDbCommand(str,mycon)DimrowAsIntegerrow=grdScore.CurrentCell.RowNumbercom.Parameters.Add("@xingming",OleDbType.VarChar).Value=grdScore.Item(row,0)com.Parameters.Add("@xingbie",OleDbType.VarChar).Value=grdScore.Item(row,1)com.Parameters.Add("@nianling",OleDbType.VarChar).Value=grdScore.Item(row,2)com.Parameters.Add("@bumen",OleDbType.VarChar).Value=grdScore.Item(row,3)com.Parameters.Add("@kazhong",OleDbType.VarChar).Value=grdScore.Item(row,4)com.Parameters.Add("@huifei",OleDbType.VarChar).Value=grdScore.Item(row,5)com.Parameters.Add("@dianhua",OleDbType.VarChar).Value=grdScore.Item(row,6)com.Parameters.Add("@xingming",OleDbType.VarChar).Value=grdScore.Item(row,7)mycon.Open()com.ExecuteNonQuery()mycon.Close()MessageBox.Show("會(huì)員會(huì)費(fèi)信息已成功修改。","恭喜",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)(4)編輯“關(guān)閉”代碼：Close()會(huì)員信息維護(hù)菜單1．添加會(huì)員信息(1)首先在tianjiahuiyuan窗體上放置10個(gè)標(biāo)簽（Label），7個(gè)文本框（TextBox），3個(gè)組合框（ComboBox）和2個(gè)按鈕（Button）控件并設(shè)置修改各個(gè)控件的屬性，然后實(shí)現(xiàn)三個(gè)組合框的功能，這三個(gè)過程稍有不同之處。對(duì)于組合框ComboBox2來說，由于與會(huì)員部門有關(guān)，因而我們要做的是將huiyuanbumen表中的bumen字段與該控件實(shí)現(xiàn)數(shù)據(jù)綁定，具體步驟如下：(A)引入數(shù)據(jù)適配器OleDbDataAdapter1，按照系統(tǒng)的提示，建立與“renshihuiyuan”數(shù)據(jù)表中的表huiyuanbumen的連接。(B)生成數(shù)據(jù)集DataSet11，并將huiyuanbumen表添加到數(shù)據(jù)集中。(C)設(shè)定組合框ComboBox2的兩個(gè)屬性，DataSource值為DataSet11.huiyuanbumen,DisplayMember值為bumen，意思是在ComboBox2的列表中出現(xiàn)的是huiyuanbumen表中的bumen字段值。(D)在tianjiahuiyuan窗體的Load事件中添加代碼：OleDbDataAdapter1.Fill(DataSet11)(2)其次實(shí)現(xiàn)性別這一欄的設(shè)計(jì)。實(shí)際上，對(duì)于性別選項(xiàng)來說內(nèi)容比較固定：男和女。我們把比較固定的選項(xiàng)直接做到列表里面。在tianjiahuiyuan窗體單擊鼠標(biāo)選中組合框ComboBox1，在“屬性”窗口中找到Items屬性，單擊右邊一欄會(huì)出現(xiàn)一個(gè)帶有三個(gè)點(diǎn)的小按鈕，單擊這個(gè)按鈕，VB.NET會(huì)彈出“字符串集合編輯器”對(duì)話框，在此對(duì)話框里輸入“男”和“女”。組合框ComboBox3的屬性操作同組合框ComboBox1一樣，在“字符串集合編輯器”對(duì)話框中輸入相應(yīng)的字名，操作結(jié)束如圖4.5所示。(3)最后設(shè)計(jì)“添加”和“關(guān)閉”按鈕的程序?！疤砑印卑粹o的完整代碼如下：IfMsgBox("數(shù)據(jù)庫中未找到與此記錄重復(fù)的數(shù)據(jù)，可以存入！")ThenDimstrAsString="INSERTINTOhuiyuanxinxi(bianhao,xingming,xingbie,nianling,shenfenzheng,bumen,kazhong,huifei,dianhua,zhuzhi)Values(@bianhao,@xingming,@xingbie,@nianling,@shenfenzheng,@bumen,@kazhong,@huifei,@dianhua,@zhuzhi)"DimcomAsOleDbCommand=NewOleDbCommand(str,mycon)com.Parameters.Add("@bianhao",OleDbType.VarChar).Value=TextBox1.Textcom.Parameters.Add("@xingming",OleDbType.VarChar).Value=TextBox2.Textcom.Parameters.Add("@xingbie",OleDbType.VarChar).Value=ComboBox1.Textcom.Parameters.Add("@nianling",OleDbType.VarChar).Value=TextBox3.Textcom.Parameters.Add("@shenfenzheng",OleDbType.VarChar).Value=TextBox4.Textcom.Parameters.Add("@bumen",OleDbType.VarChar).Value=ComboBox2.Textcom.Parameters.Add("@kazhong",OleDbType.VarChar).Value=ComboBox3.Textcom.Parameters.Add("@huifei",OleDbType.VarChar).Value=TextBox5.Textcom.Parameters.Add("@dianhua",OleDbType.VarChar).Value=TextBox6.Textcom.Parameters.Add("@zhuzhi",OleDbType.VarChar).Value=TextBox7.Textmycon.Open()com.ExecuteNonQuery()mycon.Close()MessageBox.Show("信息已成功存入數(shù)據(jù)庫。","恭喜",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)ElseBeep()MsgBox("數(shù)據(jù)庫中此記錄已存在，請(qǐng)重新輸入")EndIfTextBox1.Clear()TextBox2.Clear()TextBox3.Clear()TextBox4.Clear()TextBox5.Clear()TextBox6.Clear()TextBox7.Clear()ComboBox1.ResetText()ComboBox2.ResetText()ComboBox3.ResetText()圖4.5添加會(huì)員信息窗體2．修改會(huì)員信息(1)先在xiugaihuiyuan窗體上放置10個(gè)標(biāo)簽（Label），10個(gè)文本框（TextBox），3個(gè)按鈕（Button）控件并設(shè)置修改各個(gè)控件的屬性,操作基本同上。(2)我們先單擊“查看”按鈕查看會(huì)員信息，設(shè)計(jì)編輯“查看”按鈕，代碼如下：dbset.Clear()DimstrAsStringstr="select*fromhuiyuanxinxiwherehuiyuanxinxi.bianhao='"&TextBox1.Text&"'"DimmydcAsNewOleDbDataAdapter(str,constr)mydc.Fill(dbset,"huiyuanxinxi")mytab=dbset.Tables("huiyuanxinxi")ForEachmyrowInmytab.RowsTextBox2.Text=TextBox2.Text&myrow(1)TextBox3.Text=TextBox3.Text&myrow(2)TextBox4.Text=TextBox4.Text&myrow(3)TextBox5.Text=TextBox5.Text&myrow(4)TextBox6.Text=TextBox6.Text&myrow(5)TextBox7.Text=TextBox7.Text&myrow(6)TextBox8.Text=TextBox8.Text&myrow(7)TextBox9.Text=TextBox9.Text&myrow(8)TextBox10.Text=TextBox10.Text&myrow(9)Next(3)會(huì)員信息查到后我們可以進(jìn)行修改了，設(shè)計(jì)編輯“修改”按鈕：DimstrAsString="updatehuiyuanxinxisetxingming=@xingming,xingbie=@xingbie,nianling=@nianling,shenfenzheng=@shenfenzheng,bumen=@bumen,kazhong=@kazhong,huifei=@huifei,dianhua=@dianhua,zhuzhi=@zhuzhiwherebianhao='"&TextBox1.Text&"'"DimcomAsOleDbCommand=NewOleDbCommand(str,mycon)com.Parameters.Add("@xingming",OleDbType.VarChar).Value=TextBox2.Textcom.Parameters.Add("@xingbie",OleDbType.VarChar).Value=TextBox3.Textcom.Parameters.Add("@nianling",OleDbType.VarChar).Value=TextBox4.Textcom.Parameters.Add("@shenfenzheng",OleDbType.VarChar).Value=TextBox5.Textcom.Parameters.Add("@bumen",OleDbType.VarChar).Value=TextBox6.Textcom.Parameters.Add("@kazhong",OleDbType.VarChar).Value=TextBox7.Textcom.Parameters.Add("@huifei",OleDbType.VarChar).Value=TextBox8.Textcom.Parameters.Add("@dianhua",OleDbType.VarChar).Value=TextBox9.Textcom.Parameters.Add("@zhuzhi",OleDbType.VarChar).Value=TextBox10.Textmycon.Open()com.ExecuteNonQuery()mycon.Close()MessageBox.Show("會(huì)員信息已成功修改。","恭喜",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)TextBox1.Clear()TextBox2.Clear()TextBox3.Clear()TextBox4.Clear()TextBox5.Clear()TextBox6.Clear()TextBox7.Clear()TextBox8.Clear()TextBox9.Clear()TextBox10.Clear()單擊“修改”按鈕運(yùn)行后如圖4.6所示：圖4.6修改會(huì)員信息窗體(4)編輯“關(guān)閉”按鈕：Close()3．刪除會(huì)員信息(1)在shanchuhuiyuan窗體上放置2個(gè)標(biāo)簽（Label），1個(gè)組合框（ComboBox），1個(gè)文本框（TextBox），3個(gè)按鈕（Button），1個(gè)DataGrid控件，并且設(shè)置各個(gè)控件的屬性。DataGrid控件是一個(gè)多列數(shù)據(jù)綁定網(wǎng)絡(luò)，它可以在這個(gè)網(wǎng)絡(luò)中對(duì)數(shù)據(jù)庫的記錄進(jìn)行瀏覽、刪除操作。當(dāng)為DataGrid控件設(shè)置有效的數(shù)據(jù)源之后，該控件將被自動(dòng)填充，同時(shí)根據(jù)數(shù)據(jù)的組織結(jié)構(gòu)創(chuàng)建行和列。(2)實(shí)現(xiàn)加載shanchuhuiyuan窗體的時(shí)候把所有會(huì)員編號(hào)添加到ComboBox1列表。把所有會(huì)員編號(hào)添加到ComboBox1列表的過程也就是實(shí)現(xiàn)數(shù)據(jù)表huiyuanxinxi.db中的bianhao字段與ComboBox1控件的數(shù)據(jù)綁定過程。同窗體“添加會(huì)員信息”中的數(shù)據(jù)綁定步驟一樣。(3)編寫代碼實(shí)現(xiàn)選中會(huì)員編號(hào)，在DataGrid控件中顯示會(huì)員的相關(guān)信息，并在文本框TextBox中顯示會(huì)員的姓名。此過程在查找按鈕中實(shí)現(xiàn)，Button1按鈕的SelectedIndexChanged事件的全部代碼如下所示：grdScore.CaptionText="編號(hào)為"&ComboBox1.Text&"的會(huì)員相關(guān)信息為："DimstrAsStringLabel2.Text="姓名："str="selectxingmingas姓名,xingbieas性別,nianlingas年齡,shenfenzhengas身份證,bumenas部門,kazhongas卡種,huifeias會(huì)費(fèi),dianhuaas電話,zhuzhias住址fromhuiyuanxinxiwherebianhao='"&ComboBox1.Text&"'"DimmydcAsNewOleDbDataAdapter(str,constr)mydc.Fill(DataSet11,"會(huì)員會(huì)員卡信息")grdScore.DataSource=DataSet11.Tables("會(huì)員會(huì)員卡信息")TextBox1.Text=""(4)為“刪除”按鈕編寫代碼。當(dāng)用戶單擊此按鈕時(shí)，系統(tǒng)便會(huì)將選中的某條記錄從數(shù)據(jù)庫中刪除，同時(shí)在DataGrid控件中的記錄也會(huì)被刪除。在DataGrid控件中刪除記錄的工作是在其數(shù)據(jù)源DataSet中進(jìn)行的，方法是獲取DataGrid控件中當(dāng)前選定的行，這可以用DataGrid控件的當(dāng)前行索引屬性CurrentRowIndex來獲得，CurrentRowIndex屬性返回用戶在DataGrid中選定的行號(hào)。在獲取了DataGrid控件中當(dāng)前選定的行后，使用數(shù)據(jù)集中指定表的行集合中的刪除方法Delete刪除選定行。實(shí)現(xiàn)代碼為：DimrownoAsIntegerrowno=grdScore.CurrentRowIndexTextBox1.Text=grdScore.Item(rowno,0)Delete方法僅對(duì)要?jiǎng)h除的記錄做一個(gè)刪除標(biāo)記，要真正實(shí)現(xiàn)記錄的刪除，還必修調(diào)用相應(yīng)數(shù)據(jù)適配器的Update方法。(5)最后，“刪除”按鈕的完整代碼為：IfMsgBox("確實(shí)要?jiǎng)h除此記錄？",MsgBoxStyle.OKCancel)=MsgBoxResult.OKThenTryDimrownoAsIntegerrowno=grdScore.CurrentRowIndexTextBox1.Text=grdScore.Item(rowno,0)DataSet11.Tables("會(huì)員會(huì)員卡信息").Rows(rowno).Delete()OleDbDataAdapter1.Update(DataSet11.GetChanges)DataSet11.Tables("會(huì)員會(huì)員卡信息").AcceptChanges()DimstrAsStringstr="deletefromhuiyuanxinxiwherexingming='"&TextBox1.Text&"'"DimmycomAsOleDbCommand=NewOleDbCommand(str,mycon)mycon.Open()mycom.ExecuteNonQuery()mycon.Close()MessageBox.Show("信息已成功從數(shù)據(jù)庫中刪除!","恭喜",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)Catchmycon.Close()MessageBox.Show(Err.Description,"警告",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning)EndTryEndIfEndSub(6)關(guān)閉窗口，如圖4.7所示：圖4.7刪除會(huì)員信息窗體打印各信息菜單本菜單主要任務(wù)就是使用CrystalReport報(bào)表專家來完成打印系統(tǒng)，CrystalReport報(bào)表專家提供了可視化報(bào)表設(shè)計(jì)功能，具有即時(shí)預(yù)覽、定制預(yù)覽、多線程、報(bào)表專家等功能，可以滿足不同用戶的需要。1．設(shè)置“統(tǒng)計(jì)打印所有會(huì)員辦卡金額”的窗體界面和報(bào)表格式(1)啟動(dòng)VB.NET，打開工程“俱樂部人事會(huì)員管理系統(tǒng).sln”，通過“解決方案資源管理器”找到“dayin3”(2)在dayin3窗體上放置2個(gè)標(biāo)簽（Label），1個(gè)組合框（ComboBox），1個(gè)按鈕（Button）,然后設(shè)置各個(gè)控件的屬性。其中Label2控件的

Text屬性在后面通過編寫代碼來設(shè)置，將用戶選擇的結(jié)果呈現(xiàn)在這里，由于在窗口出現(xiàn)時(shí)，此標(biāo)簽上沒有任何信息，為了醒目起見，將表示邊界樣式的屬性BorderStyle設(shè)置為Fixed3D,這樣窗口加載時(shí)，標(biāo)簽的外形具有立體的感覺，比較明顯。(3)生成CrystalReport報(bào)表，即在創(chuàng)建新CrystalReport文檔中選擇“使用報(bào)表專家”，在“選擇專家”中選擇“標(biāo)準(zhǔn)”。在添加字段時(shí)，順序可以根據(jù)需要任意組合，并不一定要按表中的字段順序。默認(rèn)的報(bào)表設(shè)計(jì)界面由報(bào)表頁眉，頁眉，詳細(xì)資料，報(bào)表頁腳和頁腳5個(gè)部分組成，引入報(bào)表之后，可以調(diào)整Crystal