【正文】 設(shè)置單元大小 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .Row = 1 End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 39。顯示Grid表頭Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 5 .TextMatrix(0, 1) = 類別編號(hào) .TextMatrix(0, 2) = 類別名稱 .TextMatrix(0, 3) = 關(guān)鍵詞 .TextMatrix(0, 4) = 備注信息 39。刪除記錄Private Sub Form_Unload(Cancel As Integer) flagBTedit = False gintBTmode = 0End Sub39。 sQSql End If Unload MeEnd SubPrivate Sub Form_Load() Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As 39。 Trim(txtItem(2) amp。 39。 ) = Then sQSql = bookpub =39。 Trim(txtItem(1) amp。 39。 ) = Then sQSql = bookauthor =39。 Trim(cboItem(0) amp。 39。 ) = Then sQSql = booktype =39。 Trim(txtItem(0) amp。有變化設(shè)置gblchange mblChange = True End SubPrivate Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)) End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Function GetRkno() As String GetRkno = Format(Now, yymmddhhmmss) Randomize GetRkno = GetRkno amp。 ) = Then (intCount) = Null Else (intCount) = Trim(txtItem(intCount 2)) End If Next intCount (9) = (10) = Trim(txtItem(7)) If gintBmode = 1 Then For intCount = 0 To 7 txtItem(intCount) = Next intCount mblChange = False If flagBedit Then Unload frmBook = select * from books End If ElseIf gintBmode = 2 Then Unload Me If flagBedit Then Unload frmBook End If = select * from books End If End SubPrivate Sub Form_Load() Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintBmode = 1 Then = amp。 Trim(txtNo) amp。 39。 39。 39。 )) Then Select Case intCount Case 3 sMeg = 出版日期 Case 6 sMeg = 登記日期 End Select sMeg = sMeg amp。有變化設(shè)置gblchange mblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer) Dim sSql As String Dim MsgText As String Dim mrcc As End SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End SubPrivate Sub cmdExit_Click() If mblChange And Then If MsgBox(保存當(dāng)前記錄的變化嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then 39。表頭項(xiàng)居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。 End Select Next i Loop End With End Sub39。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。ToDo: create test for correct password 39。 = vbNullString39。 Call GetUserName(sBuffer, lSize)39。 Dim lSize As Long39。經(jīng)過(guò)開(kāi)發(fā)這個(gè)系統(tǒng)，這不僅僅是一次畢業(yè)設(shè)計(jì)，不僅僅是學(xué)會(huì)了一門開(kāi)發(fā)語(yǔ)言，更重要的是在學(xué)習(xí)的過(guò)程中，所有的問(wèn)題要自已去面對(duì)，有問(wèn)題也只有靠自已去解決，這們，在學(xué)習(xí)和解決這些困難的過(guò)程中提高了我學(xué)習(xí)的能力、解決問(wèn)題的能力和實(shí)際工作的能力，學(xué)到了許多書(shū)本以外的知識(shí)，這讓我踏出這個(gè)校門給予自已最大的回報(bào)，同時(shí)我也相信會(huì)給我在以后的人生道路上帶來(lái)很多的幫助。所以在此篇畢業(yè)論文中不免會(huì)有些缺點(diǎn)。其次，在編程語(yǔ)言的熟悉程度也讓我對(duì)整個(gè)開(kāi)發(fā)過(guò)程受到了一定的阻礙。綜合起來(lái)，主要體現(xiàn)在以下幾個(gè)方面：首先，急于求成的心情給我?guī)?lái)了很大的困難。系統(tǒng)默認(rèn)的用戶名為AUQ，密碼為AUQ。5．3 系統(tǒng)運(yùn)行進(jìn)銷存服務(wù)管理系統(tǒng)在完成系統(tǒng)實(shí)施、投入正常運(yùn)行之后，就進(jìn)入了系統(tǒng)運(yùn)行與維護(hù)階段。4．系統(tǒng)測(cè)試系統(tǒng)測(cè)試主要是針對(duì)系統(tǒng)工程所進(jìn)行的。而在此系統(tǒng)中我采用的是自頂向下集成法，這種測(cè)試的優(yōu)點(diǎn)在于能盡早地對(duì)程序的主要控制進(jìn)行檢驗(yàn)，因此能較早地發(fā)現(xiàn)錯(cuò)誤。輸入一些不符合條件的數(shù)據(jù)，看能不能運(yùn)行。其重要性體現(xiàn)在它是保證系統(tǒng)質(zhì)量與可靠性的最后關(guān)口，是對(duì)整個(gè)系統(tǒng)開(kāi)發(fā)過(guò)程包括系統(tǒng)分析、系統(tǒng)設(shè)計(jì)的最終審查。經(jīng)過(guò)系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)幾個(gè)階段，系統(tǒng)的總體結(jié)構(gòu)設(shè)計(jì)已全部完成。硬件選擇“Inter PentiumⅢ，128M內(nèi)存，40G硬盤(pán)”等。因Visual 、效率高等特點(diǎn)，特別適合初學(xué)者使用。這階段的工作主要是集中在邏輯、功能和技術(shù)設(shè)計(jì)上，要繼承此前各階段的工作成果，將技術(shù)設(shè)計(jì)轉(zhuǎn)化成物理實(shí)現(xiàn)，可是說(shuō)系統(tǒng)實(shí)施的成果是系統(tǒng)分析和設(shè)計(jì)階段的結(jié)晶。本系統(tǒng)設(shè)計(jì)思想：“為用戶設(shè)計(jì)，而不是設(shè)計(jì)者”本系統(tǒng)設(shè)計(jì)原則：1 界面美觀、操作方便并能高效率地完成工作。 READERS讀者信息表格列名數(shù)據(jù)類型可否為空說(shuō)明ReadernoVarcharNOT NULL讀者編號(hào)ReadernameVarcharNOT NULL讀者姓名Reader5sexVarcharNULL讀者性別ReadertypeVarcharNULL讀者種類ReaderdepVarcharNULL工作單位AdderssVarcharNULL家庭地址ReadertelVarcharNULL電話號(hào)碼EmailVarcharNULL電子郵件地址CheckdateDatetimeNULL登記日期ReadermemoVarcharNULL備注表43為書(shū)籍類別信息表。圖書(shū)館管理信息系統(tǒng)數(shù)據(jù)庫(kù)中各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。書(shū)籍類別表（類別編號(hào)、類別名稱、關(guān)鍵詞、備注）。借閱信息實(shí)體借閱信息編號(hào)借書(shū)日期書(shū)籍讀者信息 ..….. ….實(shí)體之間相互關(guān)系的ER圖48所示。讀者類別信息實(shí)體借書(shū)數(shù)量種類編號(hào)借書(shū)期限種類名稱 ……….讀者信息實(shí)體ER圖如圖44所示。數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。● 書(shū)籍類別信息，包括的數(shù)據(jù)項(xiàng)有：類別編號(hào)、類別名稱、關(guān)鍵詞、備注信息等。數(shù)據(jù)庫(kù)需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入，收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后而后具體設(shè)計(jì)打下基礎(chǔ)。圖書(shū)館管理系統(tǒng)書(shū)籍信息管理讀者信息管理系統(tǒng)管理借閱信息管理 設(shè)置書(shū)籍種類設(shè)置書(shū)籍信息設(shè)置讀者信息設(shè)置讀者種類密碼管理用戶管理還書(shū)信息管理借書(shū)信息管理讀者種類添加讀者種類修改讀者信息添加讀者信息修改讀者信息查詢書(shū)籍類別添加書(shū)籍類別修改書(shū)籍信息添加書(shū)籍信息修改書(shū)籍信息查詢借書(shū)信息添加借書(shū)信息修改借書(shū)信息查詢還書(shū)信息添加還書(shū)信息修改還書(shū)信息查詢4．2 系統(tǒng)數(shù)據(jù)庫(kù)模塊設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì)設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來(lái)可能增加的需求。● 借書(shū)信息的查詢、修改，包括借書(shū)信息編號(hào)、讀者編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱、借書(shū)日期、備注信息等。● 讀者種類信息的修改、查詢等● 讀者基本信息的輸入，包括讀者編號(hào)、讀者姓名、讀者種類、讀者性別、工作單位、家庭住址、電話號(hào)碼、電子郵件地址、辦證日期、備注等。若讀者符合所有借書(shū)條件時(shí)，予以借出。①讀者所借閱圖書(shū)已超過(guò)該讀者容許的最多借