數(shù)據(jù)庫設計畢業(yè)論文

1、<p>　　第一章、 數(shù)據(jù)庫設計( mdb )</p><p><b>　　1.1 數(shù)據(jù)的概念</b></p><p>　　辦公軟件Office套件中，最為廣大用戶熟悉的是Word和Excel，因為它們功能強大且方便易用，更因為它們不僅可用于辦公，還可用于個人寫作和家庭記帳理財?shù)?。同為Office套件中一部分的Access，雖然有著同樣強大的功能，但使用的人

2、卻相對少些，不像Word和Excel那樣廣泛。事實上，真正用過Access的用戶，對其強大功能和靈活應用均稱贊有加。 Access 數(shù)據(jù)庫管理系統(tǒng)是Microsoft Office 套件的重要組成部分，適用于小型商務活動，用以存貯和管理商務活動所需要的數(shù)據(jù)。Access不僅是一個數(shù)據(jù)庫，而且它具有強大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報表和應用程序等。 有結構的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同，(其中的

3、數(shù)據(jù)是無結構的)是一串文字或數(shù)字流。數(shù)據(jù)庫中的數(shù)據(jù)可以是文字、圖象、聲音等。 Access一種關系式數(shù)據(jù)庫，關系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個記錄，每一列是一個字段，每個字段有一個字段名，字段名在一個表中不能重復。圖1是一個“產(chǎn)品”表的例子?！爱a(chǎn)品”表由10個記錄組成，一個記錄占一</p><p>　　表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他5種對象的基礎。表由記錄組成，記錄由字

4、段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。 </p><p>　　2. 數(shù)據(jù)查詢(Query)</p><p>　　查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。 </p><p>　　3. 數(shù)據(jù)窗體(Form)</p><p>　　窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯

5、示相關聯(lián)的表的內容。窗體也稱表單。 </p><p>　　數(shù)據(jù)報表(Report)</p><p>　　報表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。</p><p>　　5. 數(shù)據(jù)宏(Macro)</p><p>　　宏相當于DOS中的批處理，用來自動執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分

6、方便。 </p><p>　　6. 數(shù)據(jù)模塊(Module)</p><p>　　模塊的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程</p><p>　　1.2計算機管圖書管理系統(tǒng)數(shù)據(jù)庫</p><p>　　計算機管理系統(tǒng)圖書管理系統(tǒng)數(shù)據(jù)庫模式定義了數(shù)據(jù)庫的結構、表、關系

7、、域和業(yè)務規(guī)則。 數(shù)據(jù)庫模式是一種設計，數(shù)據(jù)庫和應用正是建立在此基礎上的。域是一列可能擁有的值的集合。必須為每一個表的每一列確定域。除了數(shù)據(jù)的物理必填字段外，還需要確定是否有些域對表來說是唯一的。</p><p>　　計算機管理系統(tǒng)圖書管理系統(tǒng)數(shù)據(jù)庫模式的最后一個要素是業(yè)務規(guī)則，它是對需要反映在數(shù)據(jù)庫和數(shù)據(jù)庫應用程序中的業(yè)務活動的允許空字符串。業(yè)務規(guī)則是模式的一個重要部分，因為他們指定了無論什么數(shù)據(jù)變化到達DB

8、MS引擎，允許的數(shù)據(jù)值必須滿足的允許空字符串。不管無效的數(shù)據(jù)變化請求是來自窗體的用戶、查詢/修改請求還是應用程序DBMS都應該拒絕。遺憾的是，不同的DBMS產(chǎn)品用不同的方法實施業(yè)務規(guī)則。在某些情況下，DBMS產(chǎn)品不具備實施必要業(yè)務規(guī)則的能力，必須以代碼形式把它們編入應用程序</p><p>　　1.3利用DATA控件訪問數(shù)據(jù)庫</p><p>　　該軟件是利用ACCESS數(shù)據(jù)庫，操作方便，

9、簡單。在ACCESS數(shù)據(jù)庫中不需要創(chuàng)建數(shù)據(jù)連接，因為它是VB中默認的數(shù)據(jù)庫形式。這里的數(shù)據(jù)庫采用Access，用ADO作為連接數(shù)據(jù)對象。</p><p><b>　　以歸納為以下幾步：</b></p><p>　　1. 建立Access 數(shù)據(jù)庫</p><p>　　啟動Access，建立一個空的數(shù)據(jù)庫ComputerBookmanage，如圖8

10、所示。</p><p>　　使用程序設計器建立系統(tǒng)需要的表</p><p><b>　　圖書表:</b></p><p><b>　　讀者表</b></p><p><b>　　用戶</b></p><p><b>　　借書表:</b&g

11、t;</p><p><b>　　用戶表:</b></p><p><b>　　2、連接數(shù)據(jù)</b></p><p>　　在Visual Basic環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對話框中選擇“Microsoft ActiveX Data Objects 2.0 Library”，然后單擊“確定”按鈕，如圖

12、:</p><p>　　3.0引用ADO連接數(shù)據(jù)庫在程序設計的公共模塊中，先定義ADO連接對象。語句如下:Public conn As New ADODB.Connection ' 標記連接對象然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫:Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.ole

13、db.4.0;" &_"data source= ComputerBookmanage .mdb"conn.Open connectionstring</p><p>　　4.0 設置ODBC</p><p>　　VB的ADO對象是通過ODBC來訪問數(shù)據(jù)庫，所以還要建立ODBC數(shù)據(jù)引擎接口。打開</p><p>　　控制面板

14、中的“管理工具”→“數(shù)據(jù)源”(ODBC)，出現(xiàn)如圖所示的對話框。</p><p>　　圖17 ODBC對話框</p><p>　　單擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源”對話框，如圖18所示。</p><p>　　5.0創(chuàng)建新數(shù)據(jù)源”對話框選擇Microsoft Access Driver(*.mdb)，單擊“完成”按鈕，出現(xiàn)如圖19所示對話框。</p&g

15、t;<p>　　設置連接數(shù)據(jù)源 在“數(shù)據(jù)源名”文本框中添加一個名字，單擊“確定”按鈕完成系統(tǒng)默認連接設置。然后在ODBC對話框中單擊“確定”按鈕完成ODBC設置。</p><p>　?。?）MDB數(shù)據(jù)流程圖以及數(shù)據(jù)表</p><p>　　1.基本表：[書籍 ] book</p><p>　　2.基本表：[用戶表 ] user_table<

16、;/p><p>　　3.基本表：[讀者表]</p><p>　　4.基本表：[職工信息] worker</p><p>　　5.基本表：[借閱信息] reader</p><p>　　ADO中的數(shù)據(jù)對象通常保存的是查詢結果。Record Set是ADO中最復雜的對象，有許多屬性和方法。Record Set保存的是一行行的記錄，并標有一個當前記錄。

17、以下是創(chuàng)建方法：</p><p>　　可以直接利用DATA控件直接綁定，在DATA控件的屬性中的RECORDSOURCE對數(shù)據(jù)表進行連接。</p><p>　　Set Record Set=DB.Openrecordset(sqtStr)</p><p>　　這條語句創(chuàng)建并打開了對象Record Set，其中db是先前創(chuàng)建的鏈接對象，sqtStr是一個字串，代表一條

18、標準的SQL語句。例如： sqlStr=“SELECT * FROM table1”Set Record Set=DB.Openrecordset(sqtStr)，執(zhí)行后，對象Record Set中就保存了表table1中的所有記錄。</p><p>　　第二章、 計算機圖書管理系統(tǒng)數(shù)據(jù)</p><p>　　2.1 數(shù)據(jù)庫與VB的連接</p><p>　　當數(shù)據(jù)設置

19、好后就應用VB當中去，步驟:新建一個模塊命名“ Database “在Database </p><p>　　添加代碼, 數(shù)據(jù)庫與VB的連接代碼(由于代碼很長見光盤code目錄下 “ database.txt”)</p><p>　　2.2關閉數(shù)據(jù)對象和鏈接對象</p><p>　　在使用了ADO對象之后要關閉它，因為它使用了一定的服務器資源。通過調用方法close

20、實現(xiàn)關閉，然后再釋放它。</p><p>　　Record Set.close</p><p>　　Set Record Set=Nothing</p><p>　　/關閉創(chuàng)建的數(shù)據(jù)對象</p><p>　　mConn.close</p><p>　　Set mConn=Nothing</p><p

21、>　　/關閉創(chuàng)建的鏈接對象</p><p>　　2.3顯示數(shù)據(jù)庫中的內容</p><p>　　利用MSFLEGRID控件來顯示數(shù)據(jù)庫中的內容，可以直接通過DATA控件來實現(xiàn)操作，也可以利用代碼來完成相關的操作。</p><p>　　sql = "select * from book where 圖書信息 ='" & Tex

22、t1(0).Text & "'"</p><p>　　If sql <> "" Then</p><p>　　Set rs = db.OpenRecordset(sql)</p><p>　　2.4計算機圖書管理系統(tǒng)數(shù)據(jù)流程圖</p><p>　　第三章、開發(fā)圖書管理系統(tǒng)20

23、08</p><p>　　3.1開發(fā)計算機圖書管理系統(tǒng)的目的</p><p>　　計算機圖書館管理系統(tǒng)是我國大部分院?；蚱渌块T不可缺少的部分,書籍是人類精神食糧，尤其對一些學校，圖書館來說，非常重要。圖書館管理系統(tǒng)能夠為用戶實現(xiàn)借閱圖書、期刊、試卷合訂本等，隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。作為計

24、算機應用的一部分,使用計算機對圖書資源信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:查閱迅速、安全性高、可靠性高、存儲量大、保密性好、成本低等。這些優(yōu)點能夠極大地提高圖書館管理的效率,也是企業(yè)、學校的科學化、正規(guī)化管理,與世界接軌的重要條件，因此，開發(fā)這樣一套管理軟件是很有必要。 </p><p>　　3.2開發(fā)計算機圖書管理系統(tǒng)的思路</p><p>　　單從這一方面，開發(fā)圖書管理

25、系統(tǒng)需要從以下幾個構思方面著手。</p><p><b>　　遐想</b></p><p>　　遐想。即大膽地思維想象，在腦海形成一個框架，怎樣去開發(fā)，如何去開發(fā)，開發(fā)有什么好處即影響。開發(fā)會遇到什么問題，怎樣去解決.</p><p><b>　　繪圖</b></p><p>　　即將遐想的，用圖象

26、勾畫出來，呈現(xiàn)模擬系統(tǒng)的功能.</p><p><b>　　3．準備材料</b></p><p>　　準備事先制作好材料。如軟件中所需要的圖片。代碼，軟件圖標（Ico）頁面圖片(bmp,jpg).</p><p><b>　　4. 開發(fā)</b></p><p>　　“糧草好了，就動兵馬” 意思是現(xiàn)實

27、開發(fā)系統(tǒng)（如新建窗體，模塊等）.</p><p>　　第四章、計算機圖書管理系統(tǒng)模塊設計</p><p>　　4.1界面設計規(guī)范以及流程圖(詳細見頁面)</p><p>　　主界面：菜單欄、工具條、工作區(qū)（本系統(tǒng)采用SSTab頁框）、狀態(tài)欄等。</p><p>　　4.2系統(tǒng)窗體匯總 </p><p>　　4.3主窗體

28、界面設計 </p><p>　　主界面的設計采用標準無標題主窗口樣式，自上而下依次為：菜單欄、工具條、工作區(qū)（本系統(tǒng)采用SSTab頁框）、狀態(tài)欄等。所有系統(tǒng)用戶擁有相似的主界面。主界面包含基本的或共享的功能，如書目瀏覽與檢索，基本統(tǒng)計等。代碼見code目錄下:main.txt</p><p><b>　　主界面如代碼所示：</b></p><p&g

29、t;　　Option Explicit</p><p>　　'定義查詢字段的窗體級變量</p><p>　　'定義查詢的字段窗體變量</p><p>　　Dim sfield As String '查詢的關鍵詞</p><p>　　Dim seachtext As String</p>&l

30、t;p><b>　　'查詢函數(shù)定義</b></p><p>　　'1、桉書號查詢則采用具體查詢辦法</p><p>　　'2、按書名查詢則采用模糊查詢辦法</p><p>　　Function open_seach(table_name As String, sfield As String, seachtext

31、As String) As Integer</p><p>　　Dim sqlstr As String</p><p>　　Dim str As String</p><p><b>　　'建立數(shù)據(jù)庫連接</b></p><p>　　Set con = New ADODB.Connection</p>

32、;<p>　　Set rst = New ADODB.Recordset</p><p>　　con.CursorLocation = adUseClient</p><p>　　sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + &quo

33、t;\data\ComputerBookmanage.mdb" + ";Persist Security Info=False"</p><p>　　con.Open sqlstr</p><p><b>　　' 查詢辦法選擇</b></p><p>　　If Option1.Value = True Th

34、en</p><p>　　str = "select * from " & table_name & " where " & sfield & "='" & seachtext & "'"</p><p><b>　　Else</b

35、></p><p>　　str = "select * from " & table_name & " where " & sfield & " like '" & Trim(" %" & Text1.Text & "%") & &quo

36、t;'"</p><p><b>　　End If</b></p><p>　　If Option3.Value = True Then</p><p>　　str = "select * from " & table_name & " where " & sfi

37、eld & "='" & seachtext & "'"</p><p><b>　　Else</b></p><p>　　str = "select * from " & table_name & " where " & s

38、field & " like '" & Trim(" %" & Text1.Text & "%") & "'"</p><p><b>　　End If</b></p><p>　　rst.Open str, con, adOpenD

39、ynamic, adLockOptimistic</p><p>　　rst.Requery</p><p>　　If rst.RecordCount > 0 Then</p><p>　　open_seach = 1 '返回一個值1,代表有查詢結果</p><p><b>　　Else</b&

40、gt;</p><p>　　open_seach = 0 '返回一個值0,代表沒有查詢結果</p><p><b>　　End If</b></p><p>　　End Function</p><p>　　Private Sub Check4_Click()</p><p&

41、gt;<b>　　'選擇查詢的字段</b></p><p>　　Select Case TabStrip1.SelectedItem</p><p>　　Case "圖書信息瀏覽":</p><p>　　sfield = "[出版社]"</p><p>　　End Sele

42、ct</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If rst.BOF = True Then</p><p>　　frmMsg.Show</p><p>　　frmMsg.info.Visi

43、ble = True</p><p>　　frmMsg.Text1.Text = "已經(jīng)到達第一條記錄了！"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　rst.MovePrevious</p>

44、;<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click() '后一記錄</p><p>　　If rst.EOF = True Then</p><p>　

45、　frmMsg.Show</p><p>　　frmMsg.info.Visible = True</p><p>　　frmMsg.Text1.Text = "已經(jīng)到達最后一條記錄了！"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b

46、></p><p>　　rst.MoveNext</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid2_Click()</p><p>　　Call conn

47、ect_db</p><p>　　open_connection ("book") '連接book表</p><p>　　tablename = "book"</p><p>　　If privilege = 1 Then '如果只是普通用戶,無法查詢員工信

48、息</p><p>　　frmMsg.Show</p><p>　　frmMsg.error.Visible = True</p><p>　　frmMsg.Text1.Text = "對不起，您沒有查閱的權限！"</p><p><b>　　Exit Sub</b></p><p

49、><b>　　End If</b></p><p>　　open_connection ("worker") '連接worker表</p><p>　　tablename = "worker"</p><p>　　open_connection ("record&

50、quot;) '連接record表</p><p>　　tablename = "record"</p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b></p><p>　　Private Su

51、b Command4_Click()</p><p>　　Dim ret As Integer</p><p>　　If Command4.Caption = "查 詢" Then</p><p>　　Command4.Caption = "確 定"</p><p><b>　　Else&

52、lt;/b></p><p>　　If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then</p><p>　　frmMsg.Show</p><p>　　frmMsg.notice.Visible =

53、True</p><p>　　frmMsg.Text1.Text = "請選擇查詢項!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text1.Text = "" Then

54、</p><p>　　frmMsg.Show</p><p>　　frmMsg.notice.Visible = True</p><p>　　frmMsg.Text1.Text = "請輸入查詢內容！"</p><p>　　Text1.SetFocus</p><p><b>　　Exi

55、t Sub</b></p><p><b>　　End If</b></p><p>　　seachtext = Trim(Text1.Text)</p><p>　　ret = open_seach(tablename, sfield, seachtext)</p><p>　　If ret = 0 The

56、n</p><p>　　frmMsg.Show</p><p>　　frmMsg.error.Visible = True</p><p>　　frmMsg.Text1.Text = "對不起，沒有你要的記錄!"</p><p>　　Option1.Value = False</p><p>　　O

57、ption2.Value = False</p><p>　　Text1.Text = ""</p><p><b>　　rst.Close</b></p><p>　　Set rst = Nothing</p><p>　　Set DataGrid1.DataSource = rst</p&g

58、t;<p>　　Command1.Enabled = False '上一條,下一條按鈕為灰</p><p>　　Command2.Enabled = False</p><p>　　Command4.Caption = "查 詢"</p><p><b>　　Exit Sub</b>

59、;</p><p><b>　　End If</b></p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Set DataGrid1.DataSource = rst</p><p>　　Tex

60、t1.Text = ""</p><p>　　Option1.Value = False</p><p>　　Option2.Value = False</p><p>　　Command4.Caption = "查 詢"</p><p><b>　　End If</b><

61、/p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p>　　Call connect_db</p><p>　　open_connection ("book") '連接book表<

62、;/p><p>　　tablename = "book"</p><p>　　If privilege = 1 Then '如果只是普通用戶,無法查詢員工信息</p><p>　　frmMsg.Show</p><p>　　frmMsg.error.Visible = True</p

63、><p>　　frmMsg.Text1.Text = "對不起，您沒有查閱的權限！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　open_connection ("worker")

64、 '連接worker表</p><p>　　tablename = "worker"</p><p>　　open_connection ("record") '連接record表</p><p>　　tablename = "record"</p

65、><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Option1.Caption = "書號"</p><p>　　

66、Option2.Caption = "書名"</p><p>　　Option3.Caption = "出版社"</p><p>　　Option4.Caption = "作者"</p><p>　　Label2.Caption = frmLogin.Text1.Text</p><p&

67、gt;　　Timer1.Interval = 1000</p><p>　　tablename = "book"</p><p>　　Call connect_db</p><p>　　open_connection ("book")</p><p>　　Set DataGrid1.DataSource

68、 = rst</p><p>　　TabStrip1.Tabs.Item(1) = "圖書信息瀏覽"</p><p>　　TabStrip1.Tabs.Item(2) = "員工信息瀏覽"</p><p>　　TabStrip1.Tabs.Item(3) = "圖書借閱情況瀏覽"</p>&l

69、t;p>　　Text1.Text = ""</p><p>　　open_connection ("book")</p><p>　　Set DataGrid1.DataSource = rst</p><p>　　frmLogin.Show</p><p><b>　　End Sub&

70、lt;/b></p><p>　　Private Sub Image1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub Option1_Click()</p><p>　　Select Case TabStrip1.SelectedItem</p

71、><p>　　Case "圖書信息瀏覽":</p><p>　　sfield = "[圖書編碼]"</p><p>　　Case "員工信息瀏覽":</p><p>　　sfield = "[工號]"</p><p>　　Case "

72、圖書借閱情況瀏覽":</p><p>　　sfield = "[圖書編碼]"</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Option2_Click()</p><p>&l

73、t;b>　　'選擇查詢的字段</b></p><p>　　Select Case TabStrip1.SelectedItem</p><p>　　Case "圖書信息瀏覽":</p><p>　　sfield = "[圖書名稱]"</p><p>　　Case "員

74、工信息瀏覽":</p><p>　　sfield = "[姓名]"</p><p>　　Case "圖書借閱情況瀏覽":</p><p>　　sfield = "[工號]"</p><p>　　End Select</p><p><b>

75、　　End Sub</b></p><p>　　Private Sub Option3_Click()</p><p><b>　　'選擇查詢的字段</b></p><p>　　Select Case TabStrip1.SelectedItem</p><p>　　Case "圖書信息瀏覽

76、":</p><p>　　sfield = "[出版社]"</p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　　Private Sub Option4_Click()</p><p><b>　　

77、'選擇查詢的字段</b></p><p>　　Select Case TabStrip1.SelectedItem</p><p>　　Case "圖書信息瀏覽":</p><p>　　sfield = "[作者]"</p><p>　　End Select</p>&

78、lt;p><b>　　End Sub</b></p><p>　　Private Sub Text2_Change()</p><p>　　Text1.Text = Time</p><p><b>　　End Sub</b></p><p>　　Private Sub TabStrip1_C

79、lick()</p><p>　　Call connect_db</p><p>　　Select Case TabStrip1.SelectedItem</p><p>　　Case "圖書信息瀏覽":</p><p>　　open_connection ("book") &#

80、39;連接book表</p><p>　　tablename = "book"</p><p>　　Option1.Caption = "書號"</p><p>　　Option2.Caption = "書名"</p><p>　　Set DataGrid1.DataSource =

81、 rst</p><p>　　Case "員工信息瀏覽":</p><p>　　If privilege = 1 Then '如果只是普通用戶,無法查詢員工信息</p><p>　　frmMsg.Show</p><p>　　frmMsg.error.Visible = True<

82、;/p><p>　　frmMsg.Text1.Text = "對不起，您沒有查閱的權限！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　open_connection ("worker"

83、;) '連接worker表</p><p>　　Option1.Caption = "工號"</p><p>　　Option2.Caption = "姓名"</p><p>　　tablename = "worker"</p><p>　　Set Data

84、Grid1.DataSource = rst</p><p>　　Case "圖書借閱情況瀏覽":</p><p>　　open_connection ("record") '連接record表</p><p>　　Option1.Caption = "書號"</p>

85、;<p>　　Option2.Caption = "工號"</p><p>　　tablename = "record"</p><p>　　Set DataGrid1.DataSource = rst</p><p>　　End Select</p><p><b>　　End

86、 Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　Label3.Caption = Now</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton1_Click()</p>

87、<p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton12_Click()</p><p>　　Form6.Show</p><p><b>　　End Sub</b></p>

88、<p>　　Private Sub xpcmdbutton13_Click()</p><p>　　frmAbout.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton14_Click()</p><p><b>　　U

89、nload Me</b></p><p>　　frmLogin.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton15_Click()</p><p>　　open_connection "reader"<

90、/p><p>　　tablename = "reader"</p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton2_Click()</p>&l

91、t;p>　　Form5.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton3_Click()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><

92、;p>　　Private Sub xpcmdbutton4_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton5_Click()</p><p>　　open_connection (&qu

93、ot;book")</p><p>　　tablename = "record"</p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton6_Cli

94、ck()</p><p>　　open_connection ("record")</p><p>　　tablename = "record"</p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b>&l

95、t;/p><p>　　Private Sub xpcmdbutton7_Click()</p><p>　　open_connection ("worker")</p><p>　　tablename = "worker"</p><p>　　Set DataGrid1.DataSource = rst&l

96、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton8_Click()</p><p>　　Frm_sys_set.Show</p><p><b>　　End Sub</b></p><p>　　Private

97、 Sub xpmin_Click()</p><p>　　Me.WindowState = 1</p><p><b>　　End Sub</b></p><p>　　Private Sub xpclose_Click()</p><p><b>　　Unload Me</b></p>

98、<p>　　frmLogin.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xptopbuttons1_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub

99、</b></p><p>　　Private Sub xptopbuttons2_Click()</p><p>　　Me.WindowState = 1</p><p><b>　　End Sub</b></p><p><b>　　用戶登陸 </b></p><p

100、>　　該窗體主要完成用戶管理登陸功能，也是進入系統(tǒng)的一個重要的門檻，該門檻是有權限限制，根據(jù)不同的用戶帳號，功能也截然不同，這就是本系統(tǒng)的一個關鍵點。（默然讀者帳號；reader 密碼；008）代碼見code目錄下:login.txt</p><p>　　Private Sub Form_Load() '連接用戶表</p><p>　　Call ope

101、n_connection("user_table")</p><p>　　xpcmdbutton1.Caption = "登陸"</p><p>　　xpcmdbutton2.Caption = "注銷"</p><p><b>　　End Sub</b></p><

102、;p>　　Private Sub Image1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton1_Click() '登錄系統(tǒng)</p><p>　　Dim sql As String</p><p>　　If Tr

103、im(Text1.Text) = "" Then '如果文本框為空，則給出提示</p><p>　　frmMsg.Show</p><p>　　frmMsg.notice.Visible = True</p><p>　　frmMsg.Text1.Text = "請輸入用戶登錄賬號!"</p>

104、<p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　sql = "select * from user_table where [登錄名]='" & Trim(Text1.Text) & "'" &

105、#39;查找用戶登錄名</p><p><b>　　rst.Close</b></p><p>　　rst.Open sql, con, adOpenDynamic, adLockOptimistic</p><p>　　If rst.RecordCount <= 0 Then</p><p>　　frmMsg.S

106、how</p><p>　　frmMsg.error.Visible = True</p><p>　　frmMsg.Text1.Text = "用戶名不存在！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&

107、gt;<p>　　'用戶合法性檢測并賦予一定的權限級別</p><p>　　If LCase(Trim(rst![登錄名])) = LCase(Trim(Text1.Text)) Then</p><p>　　If Trim(rst![密碼]) = Trim(Text2.Text) Then</p><p>　　privilege = rst!

108、[權限]</p><p>　　Call check_privage(privilege) '權限分配</p><p><b>　　Else</b></p><p>　　frmMsg.Show</p><p>　　frmMsg.error.Visible = True</p><p>　

109、　frmMsg.Text1.Text = "密碼錯誤，請重新輸入！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>

110、　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub xpcmdbutton2_Click() '退出系統(tǒng)</p><p><b>　　End</b></p><p><b>　　End Sub&

111、lt;/b></p><p>　　Private Sub xptopbuttons1_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub xptopbuttons2_Click(Index

112、As Integer)</p><p>　　Me.WindowState = 1</p><p><b>　　End Sub</b></p><p>　　如果用戶名錯誤或者密碼錯誤” 友情提示”窗體就會響應，傳送信息給用戶</p><p><b>　　提示1</b></p><p

113、><b>　　提示2</b></p><p><b>　　2.借書 </b></p><p>　　該窗體主要完成讀者借閱功能，也是最重要的一項功能，讀者借閱圖書與職工人員，管理人員才能完成借閱功能，，借閱后系統(tǒng)信息將保存，以便管理員能核對一下，以免出錯，假如你已經(jīng)超過最大的借閱量，系統(tǒng)還會自動提醒管理員該讀者已經(jīng)不能繼續(xù)借書了。該閱子模塊簡

114、單，計算機圖書綜合信息以圖書編號歸攏在一起，方便借閱。代碼見code目錄下: borrow.txt</p><p><b>　　窗體代碼：</b></p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click() '借出圖書</p>

115、<p>　　Dim sql, sql1, sql2 As String</p><p>　　Dim num As Integer</p><p>　　sql = "select * from record"</p><p>　　sql1 = "select * from worker where [工號]=?"&l

116、t;/p><p>　　sql2 = "select * from book where [圖書編碼]=?"</p><p>　　Dim param1, param2, param3, param4 As ADODB.Parameter</p><p>　　Dim cmd1, cmd2, cmd3, cmd4 As ADODB.Command</

117、p><p>　　Set cmd1 = New ADODB.Command</p><p>　　Set cmd2 = New ADODB.Command</p><p>　　Set cmd3 = New ADODB.Command</p><p>　　Set cmd4 = New ADODB.Command</p><p>

118、　　Set param1 = New ADODB.Parameter</p><p>　　Set param2 = New ADODB.Parameter</p><p>　　Set param3 = New ADODB.Parameter</p><p>　　Set param4 = New ADODB.Parameter</p><p>

119、<b>　　'工號及書號檢測</b></p><p>　　'檢驗工號及書號的合法性</p><p>　　With param1</p><p>　　.Direction = adParamInput</p><p>　　.Type = adBSTR</p><p><b>

120、;　　.Size = 8</b></p><p>　　.Value = Text1.Text</p><p><b>　　End With</b></p><p>　　cmd1.Parameters.Append param1</p><p>　　cmd1.CommandText = sql1</p&g

121、t;<p>　　cmd1.CommandType = adCmdText</p><p>　　Set cmd1.ActiveConnection = con</p><p>　　Set rst = cmd1.Execute</p><p>　　If rst.RecordCount <= 0 Then</p><p>　　f

122、rmMsg.Show</p><p>　　frmMsg.notice.Visible = True</p><p>　　frmMsg.Text1.Text = "沒有此工號!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

123、</p><p>　　With param2</p><p>　　.Direction = adParamInput</p><p>　　.Type = adBSTR</p><p><b>　　.Size = 8</b></p><p>　　.Value = Text2.Text</p&g

124、t;<p><b>　　End With</b></p><p>　　cmd2.Parameters.Append param2</p><p>　　cmd2.CommandText = sql2</p><p>　　cmd2.CommandType = adCmdText</p><p>　　Set cm

125、d2.ActiveConnection = con</p><p>　　Set rst1 = cmd2.Execute</p><p>　　If rst1.RecordCount <= 0 Then</p><p>　　frmMsg.Show</p><p>　　frmMsg.notice.Visible = True</p>

126、;<p>　　frmMsg.Text1.Text = "沒有此圖書編號!"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　sql2 = "select * from record where [圖書編碼

127、]=?"</p><p>　　rst1.Close</p><p>　　With param3</p><p>　　.Direction = adParamInput</p><p>　　.Type = adBSTR</p><p><b>　　.Size = 8</b></p&g

128、t;<p>　　.Value = Text2.Text</p><p><b>　　End With</b></p><p>　　cmd3.Parameters.Append param3</p><p>　　cmd3.CommandText = sql2</p><p>　　cmd3.CommandTyp

129、e = adCmdText</p><p>　　Set cmd3.ActiveConnection = con</p><p>　　Set rst1 = cmd3.Execute</p><p><b>　　'圖書狀態(tài)檢測</b></p><p>　　If rst1.RecordCount > 0 Then

130、</p><p>　　frmMsg.Show</p><p>　　frmMsg.notice.Visible = True</p><p>　　frmMsg.Text1.Text = "此圖書已經(jīng)被借閱！"</p><p><b>　　Exit Sub</b></p><p>

131、<b>　　End If</b></p><p>　　sql1 = "select * from record where [工號]=?"</p><p><b>　　rst.Close</b></p><p>　　With param4</p><p>　　.Direction

132、 = adParamInput</p><p>　　.Type = adBSTR</p><p><b>　　.Size = 8</b></p><p>　　.Value = Text1.Text</p><p><b>　　End With</b></p><p>　　cm

133、d4.Parameters.Append param4</p><p>　　cmd4.CommandText = sql1</p><p>　　cmd4.CommandType = adCmdText</p><p>　　Set cmd4.ActiveConnection = con</p><p>　　Set rst = cmd4.Exec

134、ute</p><p>　　'規(guī)定可借閱圖書數(shù)目檢測</p><p>　　If rst.RecordCount = 0 Then</p><p>　　num = rst.RecordCount + 1</p><p>　　Label3.Caption = str(num)</p><p>　　ElseIf rs

135、t.RecordCount <= 3 Then</p><p>　　num = rst.RecordCount + 1</p><p>　　Label3.Caption = str(num)</p><p>　　ElseIf rst.RecordCount > 3 Then</p><p>　　frmMsg.Show</p&

136、gt;<p>　　frmMsg.notice.Visible = True</p><p>　　frmMsg.Text1.Text = "借閱圖書已超限（>4）!"</p><p>　　Label3.Caption = str(rst.RecordCount)</p><p><b>　　Exit Sub</b