企業(yè)客戶(hù)信息管理系統(tǒng)

第一章前言目前市場(chǎng)上流行的專(zhuān)門(mén)針對(duì)中小型企業(yè)開(kāi)發(fā)的客戶(hù)營(yíng)銷(xiāo)關(guān)系管理系統(tǒng)，實(shí)現(xiàn)”以客戶(hù)為中心”的信息化管理的經(jīng)營(yíng)理念。它們輔助企業(yè)建立規(guī)范、高效的營(yíng)銷(xiāo)體系，提高企業(yè)整體營(yíng)銷(xiāo)競(jìng)爭(zhēng)力；及時(shí)、準(zhǔn)確、全面地把握營(yíng)銷(xiāo)動(dòng)態(tài)，降低企業(yè)營(yíng)銷(xiāo)管理成本，提高企業(yè)的綜合競(jìng)爭(zhēng)力，適用于所有從事產(chǎn)品營(yíng)銷(xiāo)和服務(wù)營(yíng)銷(xiāo)的企業(yè)。企業(yè)的外部資源：客戶(hù)資源、代理商資源、分銷(xiāo)商資源，供應(yīng)商資源和其他合作伙伴資源本質(zhì)上與企業(yè)內(nèi)部的其他資源一樣需要人們的悉心經(jīng)營(yíng)?？蛻?hù)是企業(yè)的利潤(rùn)資源，怎么樣讓公司的員工能對(duì)客戶(hù)的各類(lèi)請(qǐng)求和服務(wù)給出及時(shí)和完美的解決方案？能不能讓企業(yè)的客戶(hù)資源有自動(dòng)更新機(jī)制，去掉沒(méi)有價(jià)值的客戶(hù)，增加能帶來(lái)利潤(rùn)的客戶(hù)？作為管理層能不能知道每一個(gè)銷(xiāo)售人員管理的客戶(hù)的狀態(tài)？能不能隨時(shí)都能知道公司下個(gè)月潛在的銷(xiāo)售額？客戶(hù)的增長(zhǎng)率情況如何？每個(gè)銷(xiāo)售人員的表現(xiàn)如何？所有這些都需要有一套系統(tǒng)來(lái)解決。通過(guò)客戶(hù)關(guān)系管理（CRM）可以將企業(yè)的客戶(hù)集成到企業(yè)的服務(wù)組織、生產(chǎn)級(jí)織和銷(xiāo)售組織中來(lái)。通過(guò)這個(gè)CRM解決方案，企業(yè)可以管理關(guān)于客戶(hù)、潛在客戶(hù)、合伙伙伴、合同、通信、文檔和需求的相關(guān)信息。并為每一個(gè)客戶(hù)，每一個(gè)代理商，每一個(gè)分銷(xiāo)商和每一個(gè)供應(yīng)商開(kāi)放一個(gè)門(mén)戶(hù)，通過(guò)客戶(hù)門(mén)戶(hù)，客戶(hù)可以訪問(wèn)他們被允許訪問(wèn)的所有信息：訂單狀況、信用額度、企業(yè)最新產(chǎn)品資訊、最新產(chǎn)品報(bào)價(jià)。通過(guò)分銷(xiāo)商門(mén)戶(hù)，分銷(xiāo)商們可以被賦予權(quán)限，訪問(wèn)共同客戶(hù)的信息。通過(guò)使用這套系統(tǒng)，企業(yè)可以大大提升客戶(hù)管理的水平。第二章方案的選定2.1數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介數(shù)據(jù)庫(kù)系統(tǒng)提供了在某個(gè)集中的地方存儲(chǔ)和維護(hù)數(shù)據(jù)信息的方法。數(shù)據(jù)庫(kù)系統(tǒng)主要由三大部分組成：數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS:它是門(mén)負(fù)責(zé)組織和管理數(shù)據(jù)信息的程序）、數(shù)據(jù)庫(kù)應(yīng)用程序（它使我們能夠獲取、顯示和更新由DBMS存儲(chǔ)的數(shù)據(jù)）、數(shù)據(jù)庫(kù)（按一定結(jié)構(gòu)組織在一起的相關(guān)數(shù)據(jù)的集合）。一般來(lái)說(shuō)，DBMS和數(shù)據(jù)庫(kù)應(yīng)用程序駐留在同一臺(tái)計(jì)算機(jī)上并在同一臺(tái)計(jì)算機(jī)上運(yùn)行，稱(chēng)為單機(jī)型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。但是隨著DBMS技術(shù)的發(fā)展和信息網(wǎng)絡(luò)化、集成化的要求，目前的數(shù)據(jù)庫(kù)系統(tǒng)正向客戶(hù)/服務(wù)器模式和MIDAS（多層數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)）發(fā)展?？蛻?hù)/服務(wù)器數(shù)據(jù)庫(kù)將DBMS和數(shù)據(jù)庫(kù)應(yīng)用程序分開(kāi)，從而提高了數(shù)據(jù)庫(kù)系統(tǒng)的處理能力。數(shù)據(jù)庫(kù)應(yīng)用程序運(yùn)行在一個(gè)或多個(gè)用戶(hù)工作站上，并且通過(guò)網(wǎng)絡(luò)與運(yùn)行在其他客戶(hù)機(jī)或服務(wù)器上的一個(gè)或多個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行通信。VisualBasic6.0語(yǔ)言簡(jiǎn)介VisualBasicforWindows（以下簡(jiǎn)稱(chēng)VB）是Windows下的應(yīng)用程序開(kāi)發(fā)工具，它從根本上改變了傳統(tǒng)的程序設(shè)計(jì)模式，可以處理文本、圖像、動(dòng)畫(huà)、聲音等多媒體數(shù)據(jù)，因而被計(jì)算機(jī)界稱(chēng)為“最富有創(chuàng)新精神的編程工具之一”。Access簡(jiǎn)介在辦公軟件Office套件中，最為廣大用戶(hù)熟悉的是Word和Excel，因?yàn)樗鼈児δ軓?qiáng)大且方便易用，更因?yàn)樗鼈儾粌H可用于辦公，還可用于個(gè)人寫(xiě)作和家庭記帳理財(cái)?shù)?。同為Office套件中一部分的Access，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對(duì)少些，不像Word和Excel那樣廣泛。事實(shí)上，真正用過(guò)Access免責(zé)聲明：中國(guó)文檔網(wǎng)致力于為會(huì)員提供高質(zhì)量文檔2網(wǎng)站所有資料均來(lái)自internet和會(huì)員，中國(guó)文檔網(wǎng)不保證其內(nèi)容的合法性、準(zhǔn)確性或有效性，文檔版權(quán)屬于提供者所有。中國(guó)文檔網(wǎng)不承擔(dān)與此相關(guān)的任何法律責(zé)任。的用戶(hù)，對(duì)其強(qiáng)大功能和靈活應(yīng)用都有很好的口碑。第三章數(shù)據(jù)庫(kù)設(shè)計(jì)本課題選用Access2000作為后臺(tái)數(shù)據(jù)庫(kù)。3.1、數(shù)據(jù)庫(kù)需求分析針對(duì)企業(yè)客戶(hù)信息管理系統(tǒng)的需求，通過(guò)對(duì)客戶(hù)信息處理過(guò)程的內(nèi)容和數(shù)據(jù)流程的分析。為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：公司基本信息表：記錄編號(hào)、國(guó)家、城市、經(jīng)營(yíng)領(lǐng)域、與本公司合作領(lǐng)域、地址、電話、傳真、備注。個(gè)人信息表：記錄編號(hào)、客戶(hù)編號(hào)、客戶(hù)姓名、性別、年齡、出生年月、所屬單位、職務(wù)、住址、郵編、電話、手機(jī)、傳真、電子信箱。用戶(hù)信息表：用戶(hù)名名稱(chēng)、用戶(hù)密碼。3.2、數(shù)據(jù)庫(kù)的實(shí)現(xiàn)根據(jù)功能要求在Access2000里創(chuàng)建數(shù)據(jù)庫(kù)，客戶(hù)管理信息系統(tǒng)的數(shù)據(jù)庫(kù)中的各個(gè)表格的設(shè)計(jì)如下，這里的每個(gè)表格代表數(shù)據(jù)庫(kù)中的一個(gè)獨(dú)立的表。公司基本信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明ID數(shù)字記錄編號(hào)ComName文本國(guó)家Country文本城市DealDomain文本經(jīng)營(yíng)領(lǐng)域Symbiosis文本與本公司合作領(lǐng)域

Address文本地址Tel文本電話Fax文本傳真Remark備注備注個(gè)人信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明ID數(shù)字記錄編號(hào)ClientID文本客戶(hù)編號(hào)ClientName文本客戶(hù)姓名Gender文本性別Age數(shù)字年齡Brithday日期/時(shí)間生日Company文本所屬公司Cposition文本職務(wù)Address文本住址Code文本郵編Tel文本電話MobileTel文本手機(jī)FaxNumber文本傳真Email文本電子信箱用戶(hù)信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型說(shuō)明

UserID文本用戶(hù)名稱(chēng)UserPWD文本用戶(hù)密碼第四章系統(tǒng)設(shè)計(jì)（模塊圖）4.1、功能分析第四章系統(tǒng)設(shè)計(jì)（模塊圖）開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)提高工作效率以及確?？蛻?hù)信息的準(zhǔn)確性和實(shí)時(shí)性，實(shí)現(xiàn)企業(yè)客戶(hù)信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。根據(jù)這個(gè)系統(tǒng)所要實(shí)現(xiàn)的目的和任務(wù)，總結(jié)出這個(gè)系統(tǒng)最終實(shí)現(xiàn)的主要功能如下：系統(tǒng)管理部分：包括添加系統(tǒng)用戶(hù)和修改密碼。個(gè)人信息管理部分：包括添加個(gè)人信息，修改個(gè)人信息、查詢(xún)個(gè)人信息。企業(yè)信息管理部分：包括修改企業(yè)信息、查詢(xún)企業(yè)信息和刪除企業(yè)信息。工具部分：包括發(fā)送電子郵件、數(shù)據(jù)導(dǎo)出等。4.2、模塊設(shè)計(jì)（1）系統(tǒng)模塊系統(tǒng)啟動(dòng)的時(shí)候有一個(gè)管理員用戶(hù)，使用這個(gè)用戶(hù)登錄后，可以添加其他用戶(hù)，而且每一個(gè)用戶(hù)都可以更改自己的密碼。（2）個(gè)人信息管理A：添加個(gè)人信息：包括個(gè)人的編號(hào)、姓名、性別、年齡、生日、地址、電話、郵政編碼、傳真、手機(jī)、職務(wù)、Email。B：修改個(gè)人信息：修改所有的個(gè)人信息。C：查詢(xún)個(gè)人信息：按照公司名稱(chēng)、客戶(hù)名稱(chēng)查詢(xún)個(gè)人的信息。（3）企業(yè)信息管理A：修改企業(yè)信息：包括企業(yè)記錄編號(hào)、公司名稱(chēng)、所屬?lài)?guó)家、所在城市、經(jīng)營(yíng)領(lǐng)域、合作領(lǐng)域、地址、電話、傳真、備注。B：查詢(xún)企業(yè)信息：根據(jù)企業(yè)名稱(chēng)、經(jīng)營(yíng)領(lǐng)域查詢(xún)企業(yè)信息。C：刪除企業(yè)信息：刪除不作為客戶(hù)的企業(yè)信息。（4）工具A：發(fā)送電子郵件：發(fā)送電子郵件給客戶(hù)。B：導(dǎo)出客戶(hù)信息。根據(jù)系統(tǒng)需要實(shí)現(xiàn)的主要功能，可以得到企業(yè)客戶(hù)信息管理系統(tǒng)的功能模塊圖如下

第五章程序設(shè)計(jì)運(yùn)行VisualBasic后，選擇“文件”一“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項(xiàng)，單擊“確定”按鈕。VisualBasic就會(huì)自動(dòng)生成一個(gè)窗體，這個(gè)窗體的屬性采用的都是默認(rèn)設(shè)置。在本課題中，先刪除這個(gè)窗體，然后選擇“文件”一“保存工程”菜單，在出現(xiàn)的“文件另存為”對(duì)話框中輸入這個(gè)工程項(xiàng)目的名稱(chēng)Client_MIS，并且選擇要保存這個(gè)工程的目錄，單擊“保存”按鈕，保存工程。為了提高代碼的效率方便維護(hù)，可以用共用模塊來(lái)存放工程中經(jīng)常使用的函數(shù)、過(guò)程和全局變量等。在這個(gè)系統(tǒng)中，每個(gè)功能模塊都要使用數(shù)據(jù)庫(kù)，因此可以使用一個(gè)共用的數(shù)據(jù)操作函數(shù)，執(zhí)行一系列的SQL語(yǔ)句。在項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，保存為Mclient.bas。添加的方法和添加窗體的方法一樣，只不過(guò)這里選擇的不是MDI窗體，而是選擇模塊。在這個(gè)模塊中添加如下代碼：首先定義幾個(gè)變量：OptionExplicit'用戶(hù)名稱(chēng)'是否連接成功標(biāo)'修改標(biāo)志'傳遞SQL字符串sqlAsString)_PublicstrUserNameAsStringPubliciflagAs'用戶(hù)名稱(chēng)'是否連接成功標(biāo)'修改標(biāo)志'傳遞SQL字符串sqlAsString)_PublicFunctiongetRS(ByValAsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'創(chuàng)建連接Setrs=NewADODB.Recordset'創(chuàng)建記錄集OnErrorGoTogetRS_ErrorstrConnection=〃Provider二Microsoft.jet.oledb.4.0;DataSource="&App.Path&〃\〃strConnection=strConnection&"Client.mdb"strArray=Split(sql)con.OpenstrConnection'打開(kāi)連接rs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSetgetRS=rs'返回記錄集iflag=1getRS_Exit:Setrs=NothingSetcon=NothingExitFunctiongetRS_Error:MsgBox〃查詢(xún)錯(cuò)誤：〃&Err.Descriptioniflag=2ResumegetRS_ExitEndFunction添加執(zhí)行SQL語(yǔ)句的函數(shù)：PublicSubTransactSQL(ByValsqlAsString)DimconAsADODB.ConnectionDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'創(chuàng)建連接OnErrorGoToTransactSQL_ErrorstrConnection="Provider二Microsoft.jet.oledb.4.0;DataSource="&App.Path&"\"strConnection=strConnection&"Client.mdb"strArray=Split(sql)con.OpenstrConnection'打開(kāi)連接con.Executesql'執(zhí)行命令iflag=1TransactSQL_Exit:Setcon=NothingExitSubTransactSQL_Error:MsgBox"查詢(xún)錯(cuò)誤："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndSub添加一個(gè)轉(zhuǎn)換回車(chē)鍵的函數(shù)：PublicSubTabToEnter(KeyAsInteger)IfKey=13Then'判斷是否為回車(chē)鍵SendKeys"{TAB}"'轉(zhuǎn)換為T(mén)ab鍵EndIfEndSub添加系統(tǒng)啟動(dòng)時(shí)，第一個(gè)出現(xiàn)的窗體的函數(shù)：Submain()

DimfLoginAsNewfrmLoginfLogin.ShowEndSub在企業(yè)信息列表中，填寫(xiě)好企業(yè)名稱(chēng)，按“查找”按鈕，就可以查找企業(yè)信息。PublicSubshowComTopic()DimiAsInteger'設(shè)置表頭.TextMatrix(0,0)〃記錄編號(hào)〃.TextMatrix(0,1)〃公司名稱(chēng)〃.TextMatrix(0,2)〃所屬?lài)?guó)家〃.TextMatrix(0,3)〃所在城市〃.TextMatrix(0,4)〃經(jīng)營(yíng)領(lǐng)域〃.TextMatrix(0,5)〃合作領(lǐng)域〃.TextMatrix(0,6)〃地址〃.TextMatrix(0,7)〃電話〃.TextMatrix(0,8)〃傳真〃.TextMatrix(0,9)注〃WithMe.MSFlexGrid1'設(shè)置表頭.TextMatrix(0,0)〃記錄編號(hào)〃.TextMatrix(0,1)〃公司名稱(chēng)〃.TextMatrix(0,2)〃所屬?lài)?guó)家〃.TextMatrix(0,3)〃所在城市〃.TextMatrix(0,4)〃經(jīng)營(yíng)領(lǐng)域〃.TextMatrix(0,5)〃合作領(lǐng)域〃.TextMatrix(0,6)〃地址〃.TextMatrix(0,7)〃電話〃.TextMatrix(0,8)〃傳真〃.TextMatrix(0,9)注〃'設(shè)置所有表格'設(shè)置每列寬9Fori=0To9對(duì)齊方式.ColAlignment(i)=4Nexti.ColWidth(0)=1000Fori=1To9.ColWidth(i)=1500NextiEndWithMe.MSFlexGridl.Width=15000EndSubPublicSubshowComData(strQueryAsString)'顯示數(shù)據(jù)DimrsAsNewADODB.RecordsetSetrs=getRS(strQuery)Ifrs.EOF=FalseThenWithMe.MSFlexGrid1.Rows=1WhileNotrs.EOF.Rows=.Rows+1.TextMatrix(.Rows-1,0)=rs(0).TextMatrix(.Rows-1,1)=rs(1).TextMatrix(.Rows-1,2)=rs(2).TextMatrix(.Rows-1,3)=rs(3).TextMatrix(.Rows-1,4)=rs(4).TextMatrix(.Rows-1,5)=rs(5).TextMatrix(.Rows-1,6)=rs(6).TextMatrix(.Rows-1,7)=rs(7).TextMatrix(.Rows-1,8)=rs(8).TextMatrix(.Rows-1,9)=rs(9)rs.MoveNextWendEndWithrs.CloseEndIfEnd'設(shè)置所有表格'設(shè)置每列寬9在修改企業(yè)信息時(shí)，填寫(xiě)好所要修改的資料，按“修改”按鈕，可以把新的資料保存在里面，代碼如下:ptionExplicit'記錄編號(hào)PrivateiNumAsIntegerPrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimsqlAsString'記錄編號(hào)sql="updateCompanysetComName='〃&Me.textComName&〃'，Country='〃&Me.textCountrysql=sql&"',City='"&Me.textCity&"',DealDomain='"&Me.textDomain&"',"sql=sql&"Symbiosis='〃&Me.textSymbiosis&〃'，Address='〃&Me.textComAddresssql=sql&〃'，Tel='"&Me.textComTel&〃'，F(xiàn)ax='"&Me.textComFaxsql=sql&〃'，Remark='〃&Me.textRemark&"'whereID="&iNumCallTransactSQL(sql)'修改記錄MsgBox〃已經(jīng)更改信息！",vbOKOnly+vbExclamation,〃提示〃sql="select*fromCompanywhereID="&iNumCallfrmComResult.showComTopic'顯示修改結(jié)果CallfrmComResult.showComData(sql)frmComResult.ShowfrmComResult.ZOrder0UnloadMeEndSubPrivateSubForm_Load()'初始化DimrsAsNewADODB.RecordsetSetrs=getRS(strPublicSQL)Ifrs.EOF=FalseTheniNum=rs(0)Me.textComName=rs(1)Me.textCountry=rs(2)Me.textCity=rs(3)Me.textDomain=rs(4)Me.textSymbiosis=rs(5)Me.textComAddress=rs(6)Me.textComTel=rs(7)Me.textComFax=rs(8)Me.textRemark=rs(9)EndIfrs.CloseEndSub在查詢(xún)企業(yè)信息時(shí)，填寫(xiě)好可以按企業(yè)名稱(chēng)和經(jīng)營(yíng)領(lǐng)域，兩種方面查找。代碼如下：PrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimsqlAsStringIfMe.checkComName.Value=vbCheckedAndMe.checkDomain.Value=vbCheckedThensql="select*fromCompanywhereComName='〃&Me.textComName&"'and"sql=sql&"DealDomain='〃&Me.textDomain&","ElselfMe.checkComName.Value=vbCheckedThensql="select*fromCompanywhereComName='"&Me.textComName&"'"ElselfMe.checkDomain.Value=vbCheckedThensql="select*fromCompanywhereDealDomainlike'%"&Me.textDomain&"%'"Elsesql="select*fromCompanyorderbyID"EndIfCallfrmComResult.showComTopic'顯示查詢(xún)結(jié)果CallfrmComResult.showComData(sql)frmComResult.ShowfrmComResult.ZOrder0UnloadMeEndSub發(fā)送電子郵件，數(shù)據(jù)導(dǎo)出代碼如下：OptionExplicitPublicstrFilepathAsStringPrivateSubcmdCancel_Click()UnloadMeExitSubEndSubPrivateSubcmdOK_Click()DimiAsIntegerDimrsobjAsNewADODB.RecordsetDimsqlAsStringDimfirstdayAsStringDimdaysAsIntegerDimlastdayAsStringDimoExcelAsObjectDimoBookAsObjectDimoSheetAsObjectOnErrorGoToCommand1_Click_Error.IfMe.textFilePath=""Then'判斷輸入MsgBox"請(qǐng)選擇文件保存位置！"，vbOKOnly+vbExclamation,〃提示！〃Elsesql="select*fromPersonalorderbyID"Setrsobj=getRS(sql)Ifrsobj.EOF=FalseThen'判斷是否有統(tǒng)計(jì)記錄SetoExcel=CreateObject(〃Excel.Application〃)SetoBook=oExcel.Workbooks.AddSetoSheet=oBook.Worksheets(1)SetoSheet=oExcel.Application.Workbooks(1).Worksheets(〃Sheet1〃)oSheet.Range(〃A1:L1〃).Select'設(shè)置單元格WithoExcel.Selection.HorizontalAlignment=xlCenter.VerticalAlignment=xlBottom.WrapText=False.Orientation=0.AddIndent=False.ShrinkToFit=False.MergeCells=FalseEndWithoExcel.Selection.Merge'設(shè)置標(biāo)題oSheet.Range(〃A1:L1〃).SelectoExcel.ActiveCell.FormulaR1C1=〃客戶(hù)信息列表〃WithoExcel.ActiveCell.Characters(Start:=1,Length:=26).Font.Name=〃宋體.FontStyle=〃加粗〃.Size=18.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.Underline=xlUnderlineStyleNone.ColorIndex=xlAutomaticEndWithSetoSheet=oExcel.Application.Workbooks(1).Worksheets(〃Sheet1〃)’設(shè)置表格oSheet.Cells(2,1).Value=〃編號(hào)〃oSheet.Cells(2,2).Value=〃姓名〃oSheet.Cells(2,3).Value=〃性別〃oSheet.Cells(2,4).Value=〃年齡〃oSheet.Cells(2,5).Value=〃生日〃oSheet.Cells(2,6).Value=〃公司〃oSheet.Cells(2,7).Value=〃職務(wù)〃oSheet.Cells(2,8).Value=〃住址〃oSheet.Cells(2,9).Value=〃郵編〃oSheet.Cells(2,10).Value=〃電話〃oSheet.Cells(2,11).Value=〃手機(jī)〃oSheet.Cells(2,12).Value=〃傳真〃oSheet.Cells(2,13).Value="EmailoSheet.Columns(〃A:A〃).ColumnWidth=8oSheet.Columns("B:B").ColumnWidth=6oSheet.Columns("C:C").ColumnWidth=2oSheet.Columns(〃D:D〃).ColumnWidth=2oSheet.Columns(〃E:E〃).ColumnWidth=8oSheet.Columns(〃F:F〃).ColumnWidth=4oSheet.Columns(〃G:G〃).ColumnWidth=4oSheet.Columns(〃H:H〃).ColumnWidth=4oSheet.Columns(〃I:I〃).ColumnWidth=6oSheet.Columns(〃J:J〃).ColumnWidth=6oSheet.Columns(〃K:K〃).ColumnWidth=4oSheet.Columns(〃L:L〃).ColumnWidth=6oSheet.Columns(〃M:M〃).ColumnWidth=6rsobj.MoveFirstFori=3Torsobj.RecordCount+2oSheet.Cells(i,1).Value=rsobj(1)oSheet.Cells(i,2).Value=rsobj(2)oSheet.Cells(i,3).Value=rsobj(3)oSheet.Cells(i,4).Value=rsobj(4)oSheet.Cells(i,5).Value=Format(rsobj(5),mm-dd")oSheet.Cells(i,6).Value=rsobj(6)oSheet.Cells(i,7).Value=rsobj(7)oSheet.Cells(i,8).Value=rsobj(8)

oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,rsobj.MoveNextNexti.Value=rsobj(9).Value=rsobj(10).Value=rsobj(11).Value=rsobj(12).Value=rsobj(13)WithoSheet'設(shè)置邊框.Range(.Cells(1,1),.Cells(rsobj.RecordCount+2,13)).Borders.LineStyle=xlContinuousEndWithoBook.SaveAsstrFilepath'保存文件IfMsgBox("是否轉(zhuǎn)到導(dǎo)出的Excel文件？",vbOKCancel)=vbOKThenUnloadMeoExcel.Visible=TrueElseMsgBox"已經(jīng)成功導(dǎo)出記錄！",vbOKOnly+oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,oSheet.Cells(i,rsobj.MoveNextNexti.Value=rsobj(9).Value=rsobj(10).Value=rsobj(11).Value=rsobj(12).Value=rsobj(13)EndIfCommand1_Click_Error:ExitSubEndSubPrivateSubcmdPath_Click()CommonDialog1.CancelError=TrueOnErrorGoToErrHandlerCommonDialog1.Flags=cdlOFNHideReadOnlyCommonDialog1.Filter="AllFiles(*.*)|*.*|ExcelFiles"&"(*.xls)|*.xls"CommonDialog1.FilterIndex=2CommonDialog1.ShowSaveMe.textFilePath=CommonDialog1.FileNamestrFilepath=CommonDialog1.FileName設(shè)置保存路徑ExitSubErrHandler:ExitSubEndSubPrivateSubForm_Load()Me.textFilePath=〃〃EndSub第六章系統(tǒng)的使用6.1、系統(tǒng)用戶(hù)登陸窗體系統(tǒng)用戶(hù)登錄窗體如圖6-1所示:安萬(wàn)曾理信應(yīng)系統(tǒng)圖6-1系統(tǒng)用戶(hù)登陸窗體在用戶(hù)名稱(chēng)框中輸入用戶(hù)名，并在密碼框中輸入正確的密碼（系統(tǒng)設(shè)定的初始用戶(hù)名和密碼都是Admin），單擊“確定”按鈕