1、圖書管理信息系統摘要這篇論文主要講述關于圖書館管理信息系統的信息,特別是討論了關于設計該系統時的思想、方法和過程,以及在細節上分析函數和方法的實現思想。在本論文中講述的圖書館管理信息系統擁有一個交互式的界面、邏輯的數據庫結構。并且在設計數據庫時還考慮到了實體完整性約束、參照完整性約束、及盡量減少數據的冗余,在數據庫里有包括表、過程、函數、觸發器等5個數據庫對象。許多涉及到圖書、讀者的信息的功能在本系統中都有實現。例如,你可以將新書的信息插入到數據庫的圖書基本情況表里;還可以對已經插入的關于圖書的信息進行修改;更重要的是,讀者可以從圖書館里借閱書籍。經過多次的測試和運行,本系統能實現其在設計時的

2、所有功能。【關鍵字】圖書、讀者、管理系統、數據庫BOOKS Management Information SystemAbstractThis dissertation mainly talk about information about the system of library, particularly discusses the design thinking ,method and process of creating a library Management Information System and analyses the function and method of r

3、ealization in detail. This system , which is implemented in our project talked about in this dissertation has a very interactive interface , a very logical database architecture. What has been taken into account most are entity integrity , reference integrity and reduction of data redundancy. There

4、are 5 database objects in total, including tables , procedure , trigger and so on. Many kinds of functions related to book or reader closely have been implemented in our system .For example: you can insert the information of a new book into database, you can also alter the information which has been

5、 inserted , more important ,the reader can borrow book from the library.After being tested many times ,the system can be run well ! 【Keywords】Book、Reader、Management System、Database目錄第一章系統概述 (11.1 系統開發背景和意義 (11.2 開發環境 (1第二章系統需求分析 (12.1 任務概述 (12.2 數據描述(數據流圖+數據字典 (22.3 功能需求 (62.4性能需求 (6第三章系統總體設計 (73.1

6、新的業務流程 (73.2 系統功能模塊圖 (73.3 系統的流程圖 (8第四章詳細設計 (104.1 程序流程圖 (104.2 程序輸入輸出描述 (114.3 程序接口描述 (124.4 數據庫的設計 (13第五章編碼實現 (145.1 程序編碼 (14第六章測試分析報告 (316.1 測試計劃和要點 (316.2 測試用例 (336.3 測試結果及結論 (35總結 (37參考文獻 (38第一章系統概述1.1 系統開發背景和意義圖書管理是高校內每一個系部或院部都必須切實面對的工作,但一直以來人們使用傳統的人工方式管理圖書資料。這種方式存在著許多缺點,如效率低、保密性差且較為繁瑣。另外,隨著圖書

7、資料數量的增加,其工作量也將大大增加,這必將增加圖書資料管理者的工作量和勞動強度,這將給圖書資料信息的查找、更新和維護都帶來了很多困難。經過詳細的調查,目前我國各類高等學校中有相當一部分單位圖書資料管理還停留在人工管理的基礎上。這樣的管理機制已經不能適應時代的發展,其管理方法將浪費許多人力和物力。隨著科學技術的不斷提高,這種傳統的手工管理方法必然被以計算機為基礎的信息管理方法所取代。圖書管理作為計算機應用的一個分支,有著手工管理無法比擬的優點,如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高圖書管理的效率。因此,開發一套能夠為用戶提供充足的信息和快捷

8、的查詢手段的圖書管理系統,將是非常必要的,也是十分及時的。1.2 開發環境開發環境的選擇會影響到數據庫的設計,所以在這里給出圖書管理系統開發與運行環境的選擇如下:開發環境:Windows XP開發工具:Visual Basic 6.0數據庫管理系統:SQL Server 2000數據庫服務器:SQL Server 2000 桌面引擎第二章系統需求分析2.1 任務概述經過對我校詳細調查,并多次與負責圖書管理的老師進行研討后,加深了對現行圖書管理業務的深刻了解,與此同時,將整個圖書管理的業務流程抽象描述如下:1.新的圖書購進后,分門別類地進行歸并并匯總,加以編號。2.新書編號后,上到書架以備學生借

9、閱。3.如某學生需要借閱圖書,則在其本人的借閱登記表上進行登記,記錄相關借閱信息與借閱日期。4.學生借閱圖書后,應及時歸還圖書,并在本人的借閱登記表上注明還書日期和時間。根據以上調查分析,可以給出其現行業務流程圖如圖2.1所示。 圖2.1 現行圖書管理業務流程圖2.2 數據描述(數據流圖+數據字典經過詳細的調查,我們已經清楚了解了現行的業務流程,接下來給出系統的邏輯模型。構造系統邏輯模型的工具是數據流圖和數據字典。根據現行圖書管理的業務流程,首先把數據流圖中的源點和終點都選定為學生,因此可以得到圖書管理系統的基本系統模型,如圖2.2所示。 圖2.2 圖書管理系統的基本系統模型根據基本系統模型,

10、對其逐步細化,得到描述邏輯系統細化后的數據流圖,如圖2.3所示。 圖2.3 圖書管理系統數據流圖(頂層DFD圖對頂層DFD圖中的一個加工“學生管理”進行展開,如圖2.4。 圖2.4 細化后數據流圖對頂層DFD圖中的一個加工“圖書管理”進行展開,如圖2.5。 圖2.5 “圖書管理”展開對第1層DFD圖中的加工進一步進行展開,如圖2.6。 (1 (2圖2.6 進一步細化數據流圖有了系統的數據流圖后,還有相當多的數據信息如圖書、借閱、歸還等信息需要進一步描述,這就是需要定義數據字典,才能把現有的系統描述清楚。圖 2.7列出了系統的主要數據字典。 圖2.7 系統主要數據字典2.3 功能需求經過以上詳細

11、的用戶調查,在現行業務流程和數據分析的基礎上,基本可以確定系統設計必須達到的目標。以下是圖書管理系統必須具備的功能:1.新進圖書的登記功能:對于購進的新書,系統必須具備圖書信息資料的錄入功能。2.圖書的查詢修改功能:當圖書資料發生變化,如圖書丟失或有錯誤信息輸入時,則應能夠及時對數據進行修改和補充。3.借閱的登記,歸還的登記功能:系統的主要功能之一,供本校學生借閱圖書、歸還圖書,并進行登記。4.學生信息的增加、刪除和修改功能:系統主要功能之一,建立學生信息,并對其進行維護。2.4性能需求為了保證系統能夠長期、安全、穩定、可靠、高效的運行,圖書管理系統應該滿足以下的性能需求:1、系統處理的準確性

12、和及時性系統處理的準確性和及時性是系統的必要性能。在系統設計和開發過程中,要充分考慮系統當前和將來可能承受的工作量,使系統的處理能力和響應時間能夠滿足學校對信息處理的需求。2、系統的開放性和系統的可擴充性圖書管理系統在開發過程中,應該充分考慮以后的可擴充性。例如用戶查詢的需求也會不斷的更新和完善。3、系統的易用性和易維護性圖書管理系統是直接面對使用人員的,而使用人員往往對計算機并不時非常熟悉。這就要求系統能夠提供良好的用戶接口,易用的人機交互界面。要實現這一點,就要求系統應該盡量使用用戶熟悉的術語和中文信息的界面;針對用戶可能出現的使用問題,要提供足夠的在線幫助,縮短用戶對系統熟悉的過程。4、

13、系統的標準性系統在設計開發使用過程中都要涉及到很多計算機硬件、軟件。所有這些都要符合主流國際、國家和行業標準。5、系統的先進性目前計算系統的技術發展相當快,做為圖書管理系統工程,在系統的生命周期盡量做到系統的先進,充分完成企業信息處理的要求而不至于落后。這一方面通過系統的開放性和可擴充性,不斷改善系統的功能完成。另一方面,在系統設計和開發的過程中,應在考慮成本的基礎上盡量采用當前主流并先進且有良好發展前途的產品。6、系統的響應速度圖書管理系統系統在日常處理中的響應速度為秒級,達到實時要求,以及時反饋信息。在進行統計分析時,根據所需數據量的不同而從秒級到分鐘級,原則是保證操作人員不會因為速度問題

14、而影響工作效率。第三章系統總體設計3.1 新的業務流程根據需求分析的得到的現行業務處理流程,在用戶反復研究后,首先確定目標系統的業務流程,其處理流程如圖3.1。 圖書圖3.1 圖書管理系統的業務流程針對新的業務流程,現具體描述其功能如下:1.用戶登錄:系統對用戶合法性進行檢查。2.圖書入庫:對新購進的圖書分類進行編號,并把圖書基本信息錄入計算機。3.圖書借閱:對已入庫的圖書,學生可以借閱,并進行登記。4.圖書歸還:對學生已歸還的圖書進行歸還登記。5.信息查詢:即對所有圖書的借閱情況,或學生的基本情況和借閱情況進行查詢。6.管理措施:定義系統規定的借閱圖書超期時間、超期處罰辦法和丟失賠償辦法。3

15、.2 系統功能模塊圖依據需求分析階段得到的數據流圖,采用軟件工程中軟件設計的概念和原理,與用戶成分協商后,在保證系統基本功能要求的前提下,結合系統新的業務流程確定系統必須具備的所有功能,由此給出圖書管理系統的系統功能模塊圖如圖3.2所示。 圖3.2 圖書管理系統功能模塊圖3.3 系統的流程圖依據軟件工程的基本原理,綜合以上分析給出系統流程圖如圖3.4所示。 圖3.4 系統流程圖第四章詳細設計4.1 程序流程圖依據軟件工程的基本原理,詳細設計階段的根本任務是確定應該怎樣具體實現所要求的系統,也就是說,經過這個階段的設計工作,應該得出對目標系統的精確描述,從而在系統實現階段可以把這個描述直接翻譯成

16、用某種程序設計語言書寫的程序。具體來說就是把經過總體設計得到的各個模塊詳細的加以描述。由于本系統采用支持面向對象的Visual Basic 6.0作為開發工具,而Visual Basic 6.0采用事件驅動的編程機制,所以在此給出軟件系統的主程序流程圖,如圖4.1所示。 圖4.1 主程序流程圖根據以上主程序的流程圖,我們可以得出下面的關于各個模塊的程序流程圖,如圖4.2所示。 圖4.2 程序流程圖4.2 程序輸入輸出描述1.輸入項目:操作系統傳遞至的各種消息以及用戶的輸入數據。2.輸出項目:用戶界面顯示。1.輸入項目:與學生管理操作子對話框有關的用戶輸入及系統消息。2.輸出項目:操作結果顯示。

17、1.輸入項目:用戶口令。2.輸出項目:相應的界面。1.輸入項目:學生學號、圖書編號。2.輸出項目:學生信息、相關借書信息。1.輸入項目:圖書編號。2.輸出項目:相關學生信息。1.輸入項目:用戶的輸入。2.輸出項目:根據用戶的輸入顯示相應的對話框。4.3 程序接口描述按Windows應用軟件用戶界面的規范來設計,使用以對話框為主的用戶界面,便于用戶使用。模塊間接口采用數據耦合方式,通過參數表傳送數據,交換信息。4.4 數據庫的設計在需求分析階段已完成該系統所有的數據分析。根據該階段所建立的概念模型,已經得出滿足系統設計要求的幾個關系描述,該階段的主要工作就是把前一階段的成果轉化為具體的數據庫。下

18、面給出概念結構設計得E-R圖如圖4.3所示。 (1 分E-R圖 (2 總E-R圖圖4.3 概念結構設計E-R圖實體:圖書(圖書編號,書名,作者,出版社,定價,圖書類別,圖書ISBN號,圖書數量學生(學生學號,學生姓名,性別,入校時間,畢業時間管理員(編號,名字,密碼,加入時間聯系:學生管理(圖書管理員,學生姓名,學生密碼圖書管理(圖書管理員,借閱號,歸還號查詢(圖書編號,借閱證號,圖書管理員,學生第五章編碼實現5.1 程序編碼登陸界面如圖5.1所示。 圖5.1 登陸界面程序代碼如下:Function Check_Password(ByVal UserName As String, ByVal

19、UserPassword As String As Integer On Error GoTo ER2:If ConnectToServer = True ThenSet objRs = New RecordsetStrSql = select cOperatorPassword from tOperators where cOperatorName= & Trim(cboName.Text & GetData StrSql Reference function to get dataIf objRs.EOF ThenCheck_Password = 0 This Operator not e

20、xistElseIf txtPassword.Text Trim(objRs.Fields(cOperatorPassword.Value ThenCheck_Password = 1 password errorElseCheck_Password = 2 password okCurrentOpname = Trim(cboName.TextCurrentOppassword = objRs.Fields(cOperatorPassword.ValueHere can save a operator grade for expandEnd IfEnd IfobjCon.CloseExit

21、FunctionER2:MsgBox Err.DescriptionCheck_Password = 255End IfEnd FunctionPrivate Sub cmdCancel_Click(Unload MeEndEnd SubPrivate Sub cmdOK_Click(Dim intCheck As IntegerStatic intLogTimes to save user login timesStatic intLogTimes As IntegerintLogTimes = intLogTimes + 1 Save login timesIf intLogTimes M

22、axLogTimes ThenOver allowed login times then list informationMsgBox You have over allowed loghin times,login failure !, vbCritical, LoginErrorUnload MeElseintCheck = Check_Password(Trim(txtPassword, Trim(cboNameSelect Case intCheckCase 0MsgBox Your are not a system user !, vbInformation + vbOKOnly,

23、LoginErrorCase 1MsgBox Password error ,please check your password !, vbInformation + vbOKOnly, LoginErrorCase 2Unload MeIf CurrentOpname = Admin And CurrentOppassword = 1 ThenElseEnd IfLoad MainWinMainWin.ShowEnd SelectEnd IfEnd Sub主界面如圖5.2所示。 圖5.2 程序主界面程序代碼如下:Option ExplicitPrivate Sub MDIForm_Acti

24、vate(If CurrentOpname = Admin ThenStatusBar2.Panels(1.Text = 管理員: & CurrentOpnameToolbar1.Buttons(1.Visible = TrueToolbar1.Buttons(2.Visible = TrueElseStatusBar2.Panels(1.Text = 操作員: & CurrentOpnameToolbar1.Buttons(1.Visible = FalseToolbar1.Buttons(2.Visible = FalseEnd IfEnd SubPrivate Sub MDIForm_M

25、ouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single If Button = vbRightButton ThenPopupMenu mnuOperation Design popup menuEnd IfEnd SubPrivate Sub MDIForm_Unload(Cancel As IntegerCheckConnect Reference function to make objcon break if connection is openEnd SubPrivate Sub mnuAbout_

26、Click(frmAbout.ShowEnd SubPrivate Sub mnuBookQuery_Click(CheckConnect Reference function to make objcon break if connection is open Load frmBookQueryfrmBookQuery.ShowEnd SubPrivate Sub mnuBookRegist_Click(CheckConnect Reference function to make objcon break if connection is open Load frmBookRegfrmBo

27、okReg.ShowEnd SubPrivate Sub mnuBorrowQuery_Click(CheckConnect Reference function to make objcon break if connection is open Load frmReadQueryfrmReadQuery.ShowEnd SubPrivate Sub mnuExit_Click(CheckConnect Reference function to make objcon break if connection is open Unload MeEndEnd SubPrivate Sub mn

28、uReLogin_Click(CheckConnect Reference function to make objcon break if connection is openUnload MeLoad frmLoginfrmLogin.ShowEnd SubPrivate Sub mnuVipQuery_Click(CheckConnect Reference function to make objcon break if connection is openLoad frmVipQueryfrmVipQuery.ShowEnd SubPrivate Sub mnuVipRegist_C

29、lick(CheckConnect Reference function to make objcon break if connection is openLoad frmVipRegfrmVipReg.ShowEnd SubPrivate Sub munReadRegist_Click(CheckConnect Reference function to make objcon break if connection is openLoad frmReadRegistfrmReadRegist.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVa

30、l Button As MSComctlLib.ButtonSelect Case Button.KeyCase operatorRegCheckConnect Reference function to make objcon break if connection is openLoad frmAdminfrmAdmin.ShowCase vipRegCheckConnect Reference function to make objcon break if connection is openLoad frmVipRegfrmVipReg.ShowCase vipQueryCheckC

31、onnect Reference function to make objcon break if connection is openLoad frmVipQueryfrmVipQuery.ShowCase BookRegCheckConnect Reference function to make objcon break if connection is openLoad frmBookRegfrmBookReg.ShowCase bookQueryCheckConnect Reference function to make objcon break if connection is

32、openLoad frmBookQueryfrmBookQuery.ShowCase readRegCheckConnect Reference function to make objcon break if connection is openLoad frmReadRegistfrmReadRegist.ShowCase readQueryCheckConnect Reference function to make objcon break if connection is openLoad frmReadQueryfrmReadQuery.ShowEnd SelectEnd Sub操

33、作員管理界面如圖5.3所示。 圖5.3 操作員管理界面代碼如下:Option ExplicitSub SetTextEmpty(This function is set all text to emptytxtOpID.Text = txtOpName.Text = txtOpPwd.Text = cboOpGrade.Text = txtOpAddTime.Text = End SubSub RefreshOperator(This function is to Refresh texttxtOpID.Text = objRs.Fields(0.ValuetxtOpName.Text = o

34、bjRs.Fields(1.ValuetxtOpPwd.Text = objRs.Fields(2.ValuecboOpGrade.Text = objRs.Fields(3.Value txtOpAddTime.Text = objRs.Fields(4.ValueEnd SubPrivate Sub cmdAdd_Click(txtOpID.Enabled = True You dont change datagrid untill you add data finishdgdOp.Enabled = FalseIf cmdAdd.Caption = 添加 ThencmdAdd.Capti

35、on = 確定SetTextEmpty reference settextempty founction to set emptycmdDel.Enabled = FalsecmdModify.Enabled = FalsecmdRefresh.Enabled = FalsetxtOpID.SetFocusElseIf Trim(txtOpName.Text = ThenMsgBox Operator name must not null ,please input operator name !, vbInformation + vbOKOnlytxtOpName.SetFocusExit

36、SubElseIf Trim(txtOpID.Text = ThenMsgBox Operator ID must not null ,please input operator ID !, vbInformation + vbOKOnlytxtOpID.SetFocusExit SubElseIf Trim(txtOpPwd.Text = ThenMsgBox Operator password must not null ,please input operator password !, vbInformation + vbOKOnlytxtOpPwd.SetFocusExit SubE

37、lseWith objRscheckAddNew = True.Filter = cOperatorID= & Trim(txtOpID.Text & If .RecordCount 0 ThenMsgBox This operator has been exist !txtOpID.Text = txtOpID.SetFocus.Filter = cOperatorIDcmdRefresh.Value = True To executer refresh oncecheckAddNew = FalsecmdDel.Enabled = TruecmdModify.Enabled = Truec

38、mdAdd.Caption = 添加(&AtxtOpID.Enabled = FalsecmdRefresh.Enabled = TruedgdOp.Enabled = TruecheckAddNew = FalseExit SubEnd IfcheckAddNew = True.AddNew.Fields(0.Value = Trim(txtOpID.Text.Fields(1.Value = Trim(txtOpName.Text.Fields(2.Value = Trim(txtOpPwd.Text.Fields(3.Value = Trim(cboOpGrade.Text.Fields

39、(4.Value = Trim(txtOpAddTime.Text.UpdateMsgBox Operator add success !, vbInformation + vbOKOnly.Filter = cOperatorIDcmdRefresh.Value = True To executer refresh onceEnd WithcheckAddNew = False-There will reference a founction to set emptytxtOpID.Enabled = FalsecmdDel.Enabled = TruecmdModify.Enabled =

40、 TruecmdRefresh.Enabled = TruecmdAdd.Caption = 添加dgdOp.Enabled = True You can use datagrid after add finishEnd IfEnd IfEnd SubPrivate Sub cmdDel_Click(If Empty_Check = True Then Exit Sub Reference function to check if your database is nullIf Not objRs.EOF And objRs.RecordCount 0 ThenIf MsgBox(The :

41、& txtOpName & s data will delete continue ?, vbYesNo + vbInformation = vbYes ThenobjRs.DeleteEnd IfEnd IfEnd SubPrivate Sub cmdModify_Click(If Empty_Check = True Then Exit Sub Reference function to check if your database is null dgdOp.Enabled = FalseIf txtOpID.Text objRs.Fields(0.Value Then Exit Sub

42、 To check operator IDIf cmdModify.Caption = 修改 ThencmdModify.Caption = 確定cmdDel.Enabled = FalsecmdAdd.Enabled = FalseElseWith objRs.Fields(0.Value = Trim(txtOpID.Text.Fields(1.Value = Trim(txtOpName.Text.Fields(2.Value = Trim(txtOpPwd.Text.Fields(3.Value = Trim(cboOpGrade.Text.UpdateEnd WithcmdModif

43、y.Caption = 修改cmdDel.Enabled = TruecmdAdd.Enabled = TruedgdOp.Enabled = TrueEnd IfEnd SubPrivate Sub cmdExit_Click(Unload MeEnd SubPrivate Sub cmdRefresh_Click(RefreshOperator Reference function is to Refresh textEnd SubPrivate Sub dgdOp_RowColChange(LastRow As Variant, ByVal LastCol As Integer If c

44、heckAddNew = True Then Exit SubcmdRefresh.Value = TrueEnd SubPrivate Sub Form_Activate(FormMiddle frmAdmin Reference function to make form in MDIFormmddile cboOpGrade.ListIndex = 1If ConnectToServer = True ThenSet objRs = New ADODB.RecordsetStrSql = select * from tOperatorsGetData StrSql Reference f

45、unction to get dataSet dgdOp.DataSource = objRscmdRefresh.Value = TrueEnd IfEnd SubPrivate Sub txtOpAddTime_KeyPress(KeyAscii As IntegerCheckInputNum Reference function to check inputIf Not (KeyAscii = vbKey0 And KeyAscii = vbKey0 And KeyAscii 0 ThenMsgBox This vip has been exist !txtVipID.Text = tx

46、tVipID.SetFocus.Filter = cVipIDcmdRefresh.V alue = TruecheckAddNew = FalsecmdDel.Enabled = TruecmdModify.Enabled = TruecmdAdd.Caption = 添加(&AtxtVipID.Enabled = FalsecmdRefresh.Enabled = TruedgdVip.Enabled = TruecheckAddNew = FalseExit SubEnd IfcheckAddNew = True.AddNew.Fields(0.Value = Trim(txtVipID

47、.Fields(1.Value = Trim(txtVipName.Fields(2 = vipsex.Fields(3 = Trim(txtVipID_card.Text.Fields(4 = Trim(txtVipPhone.Text.Fields(5 = Trim(txtVipAddress.Text.Fields(6 = Trim(txtVipAddTime.Text.Fields(7 = Trim(txtVipEndTime.Text.UpdateMsgBox Vip add success !, vbInformation + vbOKOnly.Filter = cVipIDcmd

48、Refresh.Value = TrueEnd WithcheckAddNew = FalsecmdDel.Enabled = TruecmdModify.Enabled = TruecmdAdd.Caption = 添加(&AtxtVipID.Enabled = FalsecmdRefresh.Enabled = TruedgdVip.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub cmdClose_Click(Unload MeEnd SubPrivate Sub cmdDel_Click(If Empty_Check = True Then Ex

49、it Sub Reference function to check if your database is emptyCheckConnect To break objrs if it is openedIf ConnectToServer = True ThenSet objRs = New ADODB.RecordsetStrSql = select * from tBorrow where cVipID = & Trim(txtVipID.Text & and cReturnTime= GetData StrSql Reference function to get dataIf ob

50、jRs.RecordCount 0 ThenMsgBox He borrowed books you dont delete this vip !, vbInformation + vbOKOnlyCheckConnect To break objrs if it is openedIf ConnectToServer = True ThenSet objRs = New ADODB.RecordsetStrSql = select * from tvipGetData StrSql Reference fuction to get dataSet dgdVip.DataSource = ob

51、jRscmdRefresh.Value = True Exectue refresh in order to list data when form loadColNamechange Reference fuction to change columns name to chineseEnd IfElseIf MsgBox(txtVipName & s data will delete are you sure to continue ?, vbYesNo + vbInformation = vbYes ThenStrSql = delete from tVip where cVipID=

52、& Trim(txtVipID.Text & objCon.Execute StrSqlCheckConnect To break objrs if it is openedIf ConnectToServer = True ThenSet objRs = New ADODB.RecordsetStrSql = select * from tvipGetData StrSql Reference function in order to get dataSet dgdVip.DataSource = objRscmdRefresh.Value = True Exectue refresh in order to list data when form loadColNamechange Reference fuction to change columns name to