【導(dǎo)讀】為了提高日常的圖書管理效率，本文針對通常的圖書管理流程，以C/S模式設(shè)計了一個圖書管理系統(tǒng)，可滿足大多數(shù)中小型的圖書管理要求。本論文是從湖南建材高等?？茖W(xué)校校圖書館的實(shí)際操作流程程出發(fā)，針對圖書館手工管理的現(xiàn)狀，經(jīng)過詳細(xì)的系統(tǒng)調(diào)查，為我校圖書館開發(fā)出的一個實(shí)用的單機(jī)版圖書館管理信息系統(tǒng)。本論文對圖書館管理信息系統(tǒng)進(jìn)行了詳細(xì)的分析和設(shè)計，而且還對系統(tǒng)的安全性、數(shù)據(jù)共享性、可移植性，以及從單機(jī)版升級到網(wǎng)絡(luò)版的可行性等內(nèi)容進(jìn)行了詳細(xì)的論述。VB在原有BASIC語言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和WindowsGUI有直接關(guān)系。通過對公司狀況的初步調(diào)研得出現(xiàn)狀分析的結(jié)果，然后提出可行性方案并進(jìn)行論證。

　　

【正文】 If = amp。 修改 End If mblChange = False End SubPrivate Sub Form_Unload(Cancel As Integer) gintBmode = 0End SubPrivate Sub txtItem_Change(Index As Integer) 39。有變化設(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。 Int((99 10 + 1) * Rnd + 10)End Function書籍查詢信息：Option Explicit39。用于傳遞查詢塊Private Sub chkItem_Click(Index As Integer) If Index = 0 Then txtItem(0).SetFocus ElseIf Index = 1 Then txtItem(1).SetFocus ElseIf Index = 3 Then txtItem(2).SetFocus Else cboItem(0).SetFocus End IfEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim sQSql As String If chkItem(0).Value = vbChecked Then sQSql = bookname = 39。 amp。 Trim(txtItem(0) amp。 ) amp。 39。 End If If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 ) = Then sQSql = booktype =39。 amp。 Trim(cboItem(0) amp。 ) amp。 39。 Else sQSql = sQSql amp。 and booktype =39。 amp。 Trim(cboItem(0) amp。 ) amp。 39。 End If End If If chkItem(2).Value = vbChecked Then If Trim(sQSql amp。 ) = Then sQSql = bookauthor =39。 amp。 Trim(txtItem(1) amp。 ) amp。 39。 Else sQSql = sQSql amp。 and bookauthor =39。 amp。 Trim(txtItem(1) amp。 ) amp。 39。 End If End If If chkItem(3).Value = vbChecked Then If Trim(sQSql amp。 ) = Then sQSql = bookpub =39。 amp。 Trim(txtItem(2) amp。 ) amp。 39。 Else sQSql = sQSql amp。 and bookpub =39。 amp。 Trim(txtItem(2) amp。 ) amp。 39。 End If End If If Trim(sQSql) = Then MsgBox 請設(shè)置查詢條件！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagBedit Then Unload frmBook End If = select * from books where amp。 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。初始化物資名稱 txtSQL = select DISTINCT typename from booktype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex = 0 Else MsgBox 請先進(jìn)行書籍類別設(shè)置！, vbOKOnly + vbExclamation, 警告 Exit Sub End If End SubPrivate Sub lblitem_Click(Index As Integer) chkItem(Index).Value = vbChecked End SubPrivate Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index))End Sub書籍類別列表：Option ExplicitDim mrc As Dim MsgText As StringPublic txtSQL As StringPrivate Sub Form_Load() ShowTitle ShowData flagBTedit = TrueEnd SubPrivate Sub Form_Resize() If vbMinimized And vbMinimized Then 39。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39?？刂瓶丶奈恢? = = ( ) / 2 = + + / 2 = 200 = + 100 = 200 End IfEnd SubPublic Sub FormClose() Unload MeEnd Sub39。刪除記錄Private Sub Form_Unload(Cancel As Integer) flagBTedit = False gintBTmode = 0End Sub39。顯示Grid的內(nèi)容Private Sub ShowData() Dim i As Integer Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 End Select Next i Loop End With End Sub39。顯示Grid表頭Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 5 .TextMatrix(0, 1) = 類別編號 .TextMatrix(0, 2) = 類別名稱 .TextMatrix(0, 3) = 關(guān)鍵詞 .TextMatrix(0, 4) = 備注信息 39。固定表頭 .FixedRows = 1 39。設(shè)置各列的對齊方式 For i = 0 To 4 .ColAlignment(i) = 0 Next i 39。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設(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。右鍵彈出 If Button = 2 And Shift = 0 Then PopupMenu End If End Sub書籍類別：Option Explicit39。是否改動過記錄，ture為改過Dim mblChange As BooleanDim mrc As Public txtSQL As StringPrivate Sub cmdExit_Click() If mblChange And Then If MsgBox(保存當(dāng)前記錄