【文章內(nèi)容簡介】 Command4_Click()Dim ret As IntegerIf = 查 詢 Then = 確 定Else If = False And = False And = False And = False Then = True = 請選擇查詢項! Exit Sub End If If = Then = True = 請輸入查詢內(nèi)容！ Exit Sub End If seachtext = Trim() ret = open_seach(tablename, sfield, seachtext) If ret = 0 Then = True = 對不起，沒有你要的記錄! = False = False = Set rst = Nothing Set = rst = False 39。上一條,下一條按鈕為灰 = False = 查 詢 Exit Sub End If = True = True Set = rst = = False = False = 查 詢End If End SubPrivate Sub DataGrid1_Click()Call connect_dbopen_connection (book) 39。連接book表 tablename = book If privilege = 1 Then 39。如果只是普通用戶,無法查詢員工信息 = True = 對不起，您沒有查閱的權(quán)限！ Exit Sub End If open_connection (worker) 39。連接worker表 tablename = worker open_connection (record) 39。連接record表 tablename = record Set = rstEnd SubPrivate Sub Form_Load() = 書號 = 書名 = 出版社 = 作者 = = 1000tablename = bookCall connect_dbopen_connection (book)Set = rst(1) = 圖書信息瀏覽(2) = 員工信息瀏覽(3) = 圖書借閱情況瀏覽 = open_connection (book)Set = rstEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Option1_Click()Select Case Case 圖書信息瀏覽: sfield = [圖書編碼] Case 員工信息瀏覽: sfield = [工號] Case 圖書借閱情況瀏覽: sfield = [圖書編碼]End SelectEnd SubPrivate Sub Option2_Click()39。選擇查詢的字段Select Case Case 圖書信息瀏覽: sfield = [圖書名稱] Case 員工信息瀏覽: sfield = [姓名] Case 圖書借閱情況瀏覽: sfield = [工號]End SelectEnd SubPrivate Sub Option3_Click()39。選擇查詢的字段Select Case Case 圖書信息瀏覽: sfield = [出版社]End SelectEnd SubPrivate Sub Option4_Click()39。選擇查詢的字段Select Case Case 圖書信息瀏覽: sfield = [作者]End SelectEnd SubPrivate Sub Text2_Change() = TimeEnd SubPrivate Sub TabStrip1_Click()Call connect_dbSelect Case Case 圖書信息瀏覽: open_connection (book) 39。連接book表 tablename = book = 書號 = 書名 Set = rst Case 員工信息瀏覽: If privilege = 1 Then 39。如果只是普通用戶,無法查詢員工信息 = True = 對不起，您沒有查閱的權(quán)限！ Exit Sub End If open_connection (worker) 39。連接worker表 = 工號 = 姓名 tablename = worker Set = rst Case 圖書借閱情況瀏覽: open_connection (record) 39。連接record表 = 書號 = 工號 tablename = record Set = rstEnd SelectEnd SubPrivate Sub Timer1_Timer() = NowEnd SubPrivate Sub xpcmdbutton1_Click()End SubPrivate Sub xpcmdbutton12_Click()End SubPrivate Sub xpcmdbutton13_Click()End SubPrivate Sub xpcmdbutton14_Click()Unload MeEnd SubPrivate Sub xpcmdbutton15_Click()open_connection readertablename = readerSet = rstEnd SubPrivate Sub xpcmdbutton2_Click()End SubPrivate Sub xpcmdbutton3_Click()End SubPrivate Sub xpcmdbutton4_Click()End SubPrivate Sub xpcmdbutton5_Click()open_connection (book)tablename = recordSet = rstEnd SubPrivate Sub xpcmdbutton6_Click()open_connection (record)tablename = recordSet = rstEnd SubPrivate Sub xpcmdbutton7_Click()open_connection (worker)tablename = workerSet = rstEnd SubPrivate Sub xpcmdbutton8_Click()End SubPrivate Sub xpmin_Click() = 1End SubPrivate Sub xpclose_Click()Unload MeEnd SubPrivate Sub xptopbuttons1_Click()Unload MeEnd SubPrivate Sub xptopbuttons2_Click() = 1End Sub1. 用戶登陸 該窗體主要完成用戶管理登陸功能，也是進入系統(tǒng)的一個重要的門檻，該門檻是有權(quán)限限制，根據(jù)不同的用戶帳號，功能也截然不同，這就是本系統(tǒng)的一個關(guān)鍵點。（默然讀者帳號；reader 密碼；008）代碼見code目錄下:Private Sub Form_Load() 39。連接用戶表Call open_connection(user_table) = 登陸 = 注銷End SubPrivate Sub Image1_Click()End SubPrivate Sub xpcmdbutton1_Click() 39。登錄系統(tǒng)Dim sql As StringIf Trim() = Then 39。如果文本框為空，則給出提示 = True = 請輸入用戶登錄賬號! Exit SubElse sql = select * from user_table where [登錄名]=39。 amp。 Trim() amp。 39。 39。查找用戶登錄名 sql, con, adOpenDynamic, adLockOptimistic If = 0 Then = True = 用戶名不存在！ Exit Sub End If 39。用戶合法性檢測并賦予一定的權(quán)限級別 If L