第一篇：VB用戶登錄管理系統

軟件開發環境與工具

實驗報告

實驗二

實驗題目：用戶登錄及管理系統 實驗地點：軟件實驗室一 指導老師：王琦 實驗類型：設計型

系 班：計算機科學與技術系1103班 姓 名：秦芳芳（2011100316）

2013年11月22日

一．實驗項目名稱：用戶登錄及管理系統 二.實驗目的和任務：

1、掌握系統登錄界面設計基本流程

2、了解用戶管理所要實現的基本功能

3、要求利用三層架構思想機ado.Net相關技術實現程序

三.實驗內容及要求：

1、能夠進行登錄驗證

2、能夠實現對用戶的基本管理,管理員能夠進行查詢添加修改刪除

3、利用ado.net數據庫連接訪問數據庫,提高安全性

四．實驗步驟：

1、class1.vb的代碼：

Imports System.Data.SqlClient Public Class Class1

Dim strconn As String = Me.getstrconn()Public Function yanzheng(ByVal str1 As String)As Integer

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname ='” & str1 & “'” cmd.Connection = conn 'cmd.CommandType = CommandType.Text

Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close()conn.Close()Return 1 Else

dr.Close()conn.Close()Return 0 End If

End Function

Public Function pwdyanzheng(ByVal str As String)As SqlDataReader

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()

Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname = '” & str & “'” cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function

Public Function getstrconn()As String

Dim str As String str = “server=” & System.Configuration.ConfigurationManager.AppSettings(“server”)& “;” str &= “uid=” & System.Configuration.ConfigurationManager.AppSettings(“uid”)& “;” str &= “pwd=” & System.Configuration.ConfigurationManager.AppSettings(“pwd”)& “;” str &= “database=” & System.Configuration.ConfigurationManager.AppSettings(“database”)Return str End Function

Public Function getalldata()As DataSet

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim da As New SqlDataAdapter(“select * from student”, conn)Dim ds As New DataSet da.Fill(ds, “student”)conn.Close()Return ds End Function

Public Function insdata(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “insert into student(sname,sno)values('” & str1 & “','” & str2 & “')”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()

End Function

Public Function upd(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “update student set sno ='” & str2 & “'where sname ='” & str1 & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function deldata(ByVal str As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “delete from student where sname ='” & str & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function search(ByVal str1 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “select * from student”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

End Class

2、進入界面功能的代碼：

Imports System.Data.SqlClient Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim f As Integer

f = o.yanzheng(Me.TextBox1.Text)If f = 0 Then

MsgBox(“不存在該用戶，請重新輸入！”)Me.TextBox1.Text = “"

Me.TextBox1.Focus()Else

If f = 1 Then

Dim dr As SqlDataReader

dr = o.pwdyanzheng(Me.TextBox1.Text)dr.Read()If RTrim(dr!sno)<> Me.TextBox2.Text Then MsgBox(”密碼錯誤，請重新輸入！“)Me.TextBox2.Text = ”“

Me.TextBox2.Focus()Else

Dim strpwd As String

strpwd = Me.TextBox2.Text strpwd = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strpwd, ”md5“)Dim frm As New Form2

frm.loginname = Me.TextBox1.Text frm.logintime = TimeOfDay frm.Show()Me.Hide()End If

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click MyBase.Dispose()

End Sub End Class

3、用戶管理和瀏覽信息界面的代碼： Public Class Form2

Public loginname As String

Public logintime As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()Form3.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()Form4.Show()End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load Me.loginstatusname.Text = ”用戶名：“ & loginname Me.loginstatustime.Text = ”登錄時間：“ & logintime End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick Me.ToolStripStatusLabel1.Text = Now End Sub End Class

4、增，刪，改，查功能頁面的代碼： Public Class Form3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click Me.Hide()del.Show()End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()ins.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()upda.Show()End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button4.Click Me.Close()search.Show()End Sub End Class

5、顯示信息界面的代碼： Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Close()Form2.Show()End Sub

Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load Dim o As New Class

1Dim ds As New DataSet ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student“)End Sub End Class

6、插入信息界面的代碼： Public Class ins

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.insdata(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

7、查詢信息界面的代碼： Public Class search

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim ds As New DataSet

o.search(Me.TextBox1.Text)ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student")End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button2.Click

Me.Close()Form2.Show()End Sub

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellClick Me.TextBox1.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString Me.TextBox2.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString Me.TextBox3.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString Me.TextBox4.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString Me.TextBox5.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString End Sub End Class

8、修改信息界面的代碼： Public Class upda

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.upd(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

9、刪除信息界面的代碼： Public Class del

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class1

'o.deldata(Me.TextBox1.Text)o.deldata(Me.TextBox1.Text)Me.Close()Form2.Show()End Sub

End Class

五、運行結果及截圖：

（1）建立數據庫

（2）運行截圖

六、實驗總結：

通過本次實驗，我大致掌握了一個登錄系統界面設計的基本流程，同時了解了用戶管理所要實現的基本功能，而且能夠利用三層架構思想機ado.Net相關技術實現程序，能夠進行登錄驗證，實現了對用戶的基本管理,在系統中實現了增刪查改的功能，利用ado.net數據庫連接訪問數據庫,提高了安全性，為以后的學習打下了很好的基礎。

第二篇：VB圖書管理系統

圖書管理系統的設計與實現

目錄

一、序言······················································································································4

二、需求分析說明書 ····································································································4 2.1系統介紹..................................................................................................................................................4 2.2系統面向的用戶群體..............................................................................................................................4 2.3系統的功能性需求..................................................................................................................................4 2.4系統的非功能性需求..............................................................................................................................5 2.4.1用戶界面需求...................................................................................................................................5 2.4.2軟硬件環境需求...............................................................................................................................5 2.4.3軟件質量需求...................................................................................................................................5

三、可行性分析報告 ····································································································5 3.1技術可行性..............................................................................................................................................5 3.2人員可能性..............................................................................................................................................5 3.3時間、設備可能性..................................................................................................................................5 3.4系統工作量..............................................................................................................................................5 3.5代碼工作量..............................................................................................................................................5 3.6文檔要求..................................................................................................................................................5

四、開發環境與項目規劃 ·····························································································5 4.1開發環境..................................................................................................................................................5 4.2項目規劃與管理......................................................................................................................................5 4.2.1開發人員安排...................................................................................................................................5 4.2.2開發進度安排...................................................................................................................................6

五、軟件界面設計標準與規范 ······················································································6 5.1編寫目的..................................................................................................................................................6 5.2界面設計思想..........................................................................................................................................6 5.3界面設計原則..........................................................................................................................................6 5.4界面設計樣式..........................................................................................................................................6 5.5常見提示信息樣式..................................................................................................................................6 5.6常見錯誤信息樣式..................................................................................................................................7 5.7其他界面約定..........................................................................................................................................7

六、軟件編碼設計標準與規范 ······················································································7 6.1對象命名約定..........................................................................................................................................7 6.2常量和變量命名約定..............................................................................................................................8 6.3結構化編碼約定......................................................................................................................................8 6.4數據源的約定..........................................................................................................................................9 6.5數據庫訪問約定......................................................................................................................................9 6.6其他約定..................................................................................................................................................9

七、數據庫分析與設計·································································································10 7.1數據庫環境說明.......................................................................................................................................10 7.2數據庫命名標準與規范...........................................................................................................................10 7.3數據庫邏輯設計.......................................................................................................................................10 7.4數據庫物理設計.......................................................................................................................................10 7.4.1表、視圖匯總...................................................................................................................................10 7.4.2各表、視圖設計詳解.......................................................................................................................11

八、軟件體系結構設計說明書 ······················································································15 8.1系統概述..................................................................................................................................................15 8.2設計約束..................................................................................................................................................15 8.3設計策略..................................................................................................................................................15 8.4系統概要設計說明書..............................................................................................................................16 8.4.1圖例說明...........................................................................................................................................16 8.4.2系統總體結構圖...............................................................................................................................16 8.5系統詳細設計說明書..............................................................................................................................17 8.5.1系統模塊匯總...................................................................................................................................17 8.5.2系統核心模塊詳解...........................................................................................................................18 8.5.3系統模塊詳解...................................................................................................................................28

九、用戶界面設計報告·································································································42 9.1界面設計規范..........................................................................................................................................42 9.2系統窗體匯總..........................................................................................................................................42 9.3主界面設計..............................................................................................................................................43 9.4子界面設計..............................................................................................................................................43 9.5界面資源設計..........................................................................................................................................44

十、軟件測試分析報告·································································································44 10.1測試范圍與主要內容............................................................................................................................44 10.2測試方法................................................................................................................................................44 10.3測試報告................................................................................................................................................44 10.4改進建議與措施....................................................................................................................................45

十一、軟件使用說明書·································································································45 11.1軟件概述.................................................................................................................................................45 11.2使用說明.................................................................................................................................................45 11.2.1系統登陸..........................................................................................................................................45 11.2.2系統退出..........................................................................................................................................46 11.2.3圖書類別管理..................................................................................................................................46 11.2.4圖書信息管理..................................................................................................................................48 11.2.5查詢圖書信息..................................................................................................................................48 11.2.6讀者類別管理..................................................................................................................................49 11.2.7讀者信息管理..................................................................................................................................49 11.2.8查詢讀者信息..................................................................................................................................50 11.2.9借書管理..........................................................................................................................................50 11.2.10還書管理........................................................................................................................................50 參考資料······················································································································51

一、序言

圖書管理系統的設計與推出是多方面原因促成的，比如學校的圖書管理，日常管理工作 1 都是人工操作，歷史數據很難保存和利用。而其他的小型圖書館大多如此。針對這種狀況，我計劃開發一個面向小型圖書館的圖書管理系統，實現對人員、物流的全面管理，以幫助這些圖書館早日實現書店管理信息化。

為了系統的順利開發和維護，特編制如下技術文檔：

想要全部 請加QQ：76536415 專業設計 畢業論文

第三篇：網站用戶管理系統

網站用戶管理系統V1.0 1

網站用戶管理系統

1.1 系統簡介

網站需要用戶互動來促進網站發展。當用戶在網站中注冊為注冊會員，則相當于在網站中有了一個通行證，會員可用以辨別屬于自己的信息、訪問或發布權限允許內的信息。站長可用以對會員設定各種優惠方案、積分活動和統計相關情況，以提高網站運營成功率。

網站用戶分成管理員、注冊會員和游客三大類，其中管理員和注冊會員都有獨立的管理界面。管理員擁有網站管理后臺管理權限。注冊會員可以瀏覽相關權限范圍內的網頁信息，并可在會員中心發表相關信息。

注冊會員可自由劃分成不同的會員組，以設置本類會員組所擁有的權限。在網站正式運營前，需要先設置網站中用戶的權限，如是否允許會員在網站中注冊、是否可以在網站中發表信息等權限。1.2 軟件安裝

1.將“用戶管理系統”文件夾拷貝到計算機D盤或E盤里。

2.打開“用戶管理系統”文件夾，將config文件打開，把里面“server=?”改為“server=數據庫服務器名（機子本身的服務器名或（LOCAL））”并將該文件保存。

3.雙擊“用戶管理系統”里的“UserServers”文件（以快捷方式發送至桌面），就可以運行軟件了。

1.21安裝環境

軟件環境

操作系統：Windows XP/Windows 2000/Windows2003 運行環境：MS Visaul Studio 2005 MS SQL Server 2000

硬件環境 網站用戶管理系統V1.0 2 CPU ：2GHZ以上

內存：1024M以上 硬盤：80G以上

2.1用戶管理系統使用說明

2.11功能

提供軟件的一般用戶管理系統

2.22配置用戶參數

配置用戶參數

依次點擊“系統設置”->“網站配置”->“用戶參數配置”，在“用戶參數配置”中只有開啟了會

員注冊功能，才需要進一步設置相關注冊參數。設置好相關參數后，單擊頁面底部“保存設置”按鈕保存 相應配置。

建立的表:以下表在建立時應該先加密碼，程序打開時才由程序傳 網站用戶管理系統V1.0 3 遞密碼。以避免直接用工具可打開DB文件。

用戶資料表

用戶ID： 用戶登錄時輸入的用戶名。

用戶姓名： 用戶的真實姓名。

密碼： 用戶密碼（在存入前應該進行必要的加密）

權限： 用戶級別。

有效期開始：該帳號從何時開始有效（下面程序沒利用該功能）

有效期截止：何時該帳號不能用。

是否有效： 可以讓該用戶暫時為不可用。

出錯次數： 用戶連續輸錯密碼次數（當有正確輸入時復位）

出錯限度： 允許輸錯密碼次數，如果超過該限度，該用戶置為不可用，必須找管理員為其復位。

備注： 必要的說明。

活動表：

用戶ID： 記錄進入系統的用戶ID.活動狀態： 該用戶是否是當前活動用戶。（程序允許A用戶進入后，不必 退出系統而讓B用戶進入，A用戶被置為非活動用戶，當B退出后A被變為活動用戶，只有第一個用戶才能退出系統，同時清空活動表）

進入系統的驗證

供用戶進入系統的密碼輸入窗口。

當用戶輸入完成后，首先打開用戶資料表，檢查該用戶是否存在，若不存在，清空用戶輸入，提示不存在該用戶，讓用戶從新輸入，用戶名輸入錯誤這里將不作次數限制。

網站用戶管理系統V1.0 4 若存在該用戶，接著驗證密碼，如果正確，根據用戶的使用期限，是否有效作判斷，并根據結果作出是否允許用戶進入系統。如果不允許，給出相應的提示后關閉系統。否則，根據用戶的級別置某些功能不能使用，同時在活動表中記錄該用戶已進入，并復位出錯次數字段。

如果存在該用戶，但密碼錯誤，用戶資料表中的出錯次數加一。讓用戶從新輸入。

實現部分功能的程序

密碼修改

一般用戶只能修改自己的密碼，當用戶選擇該功能時，提示用戶輸入一次舊密碼，兩次新密碼。用戶可以按清除鍵重新輸入。當用戶輸入完成后，先從活動表找出

該用戶ID,再按ID尋找用戶資料表找到該用戶，先比較舊密碼，錯誤提示從新修改，正

確則完成修改。

超級用戶可以設置/修改用戶資料表中的所有資料及密碼初始化。網站用戶管理系統V1.0 5 2.3.1 用戶管理 2.3.1.1 用戶系統管理

注冊前臺會員

在網站首頁的“用戶登錄”中，單擊“注冊”功能鏈接，在出現的“用戶冊”頁面單擊“我同意”按鈕同意服務條款和聲明后，在顯示的信息頁中填寫用戶名、密碼等相關內容，單擊“下一步”按鈕，系統出現注冊成功提示信息。返回在網站首頁，在“用戶登錄”中填寫剛才注冊的用戶名與密碼后，單擊“登錄”按鈕登錄，在登錄成功后，“用戶登錄”中顯示登錄信息，若單擊“會員中心”功能鏈接即可進入會員中心操作相關信息，若單擊“退出登錄”功能鏈接即可退出登錄。

2.3.1.2 管理會員組

依次點擊“用戶管理”->“會員管理”->“會員組管理”，在出現的管理界面中顯示了系統默認內置的

會員組信息。在“注冊會員”會員組的“操作”列中單擊“修改”功能鏈接，在出現的“修改會員組”界面中，修改會員組名稱、會員組說明，點選會員組類型后，單擊“保存會員組并進行權限設置”功能按鈕，系統自動轉到“設置會員組權限”管理界面中，可進一步修改本會員組中的所有會員的發布權限、評論權限、短消息權限、收藏夾權限、計費方式、扣點券方式、自助充值等相關選項及參數，同時也可以設置本會員組中的會員的

節點權限、專題權限和字段權限。修改好相關信息后，單擊頁面底部的“保存”功能按鈕，系統出現成功提示信息，單擊“<< 返回上一頁”功能鏈接返回會員組管理界面。網站用戶管理系統V1.0 6

2.3.1.3 更改密碼

在控制臺主界面的工具欄上，點擊“更改密碼”按鈕，會彈出更改密碼的對話框，可以更改超級管理員密碼。

2.3.1.3 退出控制臺

在控制臺主界面的工具欄上，點擊“退出系統”按鈕，即退出控制臺。

2.3.1.4 鎖定控制臺

在控制臺主界面的工具欄上，點擊“鎖定系統”，會彈出鎖定系統的對話框，必須輸入正確的超級管理員密碼，才能夠解除控制臺的鎖定狀態。

2.4 基本操作

2.4.1 新增管理員

在管理員列表空白處單擊鼠標右鍵，在彈出的菜單中選擇“新增管理員”； 網站用戶管理系統V1.0 7

點擊“新增管理員”后，在彈出的對話框中填入用戶名稱（如：Admin），并且選定操作權限（如：操作員），然后在“登錄密碼”框中輸入密碼，再在“確認密碼”框中再次輸入剛才鍵入的密碼，最后點擊對話框上的“確認”。

此時用戶可以退出系統，然后用新建的管理員帳號登錄，以驗證此帳號的成功建立。

2.5

留言板管理

留言列表中顯示留言的發布者、發布時間、所在IP地址、留言內容、聯系方式及留言所屬分類等信息，便于進行管理（修改或刪除）操作。

[回復/修改回復]：選中需回復/修改的留言，單擊[回復/修改回復]按 網站用戶管理系統V1.0 8 鈕，進入回復修改留言界面，操作完畢單擊“提交”按鈕。

[刪除]：選中需刪除的留言，單擊[刪除]按鈕，確定刪除留言。注意：刪除后不可恢復，操作需謹慎。

：勾選或多選需審核的留言，單擊審核留言按鈕，進行審核。審核過的留言方可在前臺顯示。

：勾選或多選需刪除的留言，單擊刪除留言按鈕，進行批量刪除。注意：刪除后不可恢復，操作需謹慎。

相關內容： 網站用戶管理系統V1.0 9 重復留言時間限制：對重復留言的時間間隔做出限制，可在一定程度上防止營銷軟件的惡意留言。

操作步驟：單擊菜單“系統設置”》“系統參數設置”子菜單，進入參數設置界面，選擇“信息屬性”，進行“重復留言時間限制”設置。

2.6

用戶反饋系統

單擊“插件管理”菜單 》信息反饋管理“管理信息反饋”子菜單，進入管理信息反饋界面：

信息反饋列表中顯示反饋的ID、標題、反饋所屬分類、發布時間等信息，便于進行管理（刪除）操作。

管理反饋：

[刪除]：選中需刪除的信息反饋，單擊[刪除]按鈕，確定刪除反饋。注意：刪除后不可恢復，操作需謹慎。

：勾選或多選需刪除的信息反饋，單擊批量刪除按鈕，確定刪除反饋。注意：刪除后不可恢復，操作需謹慎。

：管理信息反饋界面到管理反饋分類界面的轉換按鈕。

：管理信息反饋界面到管理反饋字段界面的轉換按鈕。網站用戶管理系統V1.0 10

自定義信息反饋表單制作步驟：

1、分析反饋表單需要的字段；

2、增加反饋表單所需字段(如果原本的字段足夠，這步可跳過)；

3、增加信息反饋分類(每個信息反饋分類都可有不同的反饋表單)；

4、完成。

下面舉例說明： 制作“作品提交”表單

1、分析反饋表單需要的字段：

經過分析我們需要的字段如下：(字段標識：字段名)姓名：name 聯系郵箱：email 聯系電話：call 名：title 簡介：saytext

2.7 好友列表

在網站中，會員可以將其他會員添加為好友，以方便隨時快捷地給好友發送站內短消息。單擊導航區“好

友列表”書簽式面板，出現好友列表、添加好友、創建新組、分組管理等功能鏈接。

單擊導航區“好友列表”導航鏈接，出現好友列表、添加好友、創建新組、分組管理等功能鏈接，在 網站用戶管理系統V1.0 11 下方界面中系統以分頁列表的方式顯示本會員的成員組及相關好友信息。

添加好友

在界面中填寫成員用戶名，選擇成員組（默認可選擇黑名單或我的好友）后，單擊“添加成員”按

鈕以添加好友。在好友列表界面中即可點擊操作列中“發短消息”功能鏈接，對本好友發送站內短消息。

2.8 快捷管理信息

在管理界面頂部，將鼠標移至“選擇欄目”功能鏈接上，系統以樹型結構顯示站內的節點列表（若有

多級節點分類，鼠標點擊節點樹前面的“+”圖標即可展開下級節點）。單擊相應欄目節點名可以快速管理

欄目中的信息。在相應節點名上單擊鼠標右鍵，即可出現相應的管理菜單項。

在相應節點上單擊鼠標右鍵，在彈出的右鍵菜單中選擇“添加信息”（系統根據不同的內容模型而顯示

不同的項目名，如添加文章、添加圖片、添加軟件等）功能鏈接則可快捷添加信息，系統將直接進入“內 容添加”管理界面。

2.9 短消息管理

系統提供站內短消息互動功能，注冊會員既可以對網站中的注冊會員發送短消息、管理站內短消息，也

可以回復其他會員發送來的站內短消息。網站用戶管理系統V1.0 12 單擊導航區“短消息管理”導航鏈接，在出現的管理界面中顯示本會員收到的短消息信息。撰寫短消息

單擊導航區“短消息管理”書簽式面板中“撰寫短消息”功能鏈接，在出現的界面填寫收件人、短消

息主題和短消息內容后，單擊“發送”按鈕即可向指定的收件人發送短消息，同時收件人打開會員中心時系

統將自動彈出短消息；單擊“保存”按鈕出現保存成功信息，短消息保存在您的“草稿箱”里；單擊“清

除”按鈕即清除所撰寫的短消息內容。重要參數說明：

收件人：指定要收本條短消息的站內注冊會員。在收件人內容框中，可以用英文狀態下的逗號將用戶名

隔開實現群發，最多2 0 0 0 個用戶。若會員在“好友列表”中添加了好友，則可在“請選擇”下拉選擇框 中快捷選擇加為好友注冊的會員名。

草稿箱

在此界面中顯示短消息的收件人、主題、發送短消息的日期、大小、已讀及刪除操作等信息。單擊短

消息主題可具體查看此短消息。您可以單擊操作列中的“刪除”，將對應的短消息刪除；也可以選定多個

或者本頁所有短消息，單擊“刪除選定的短消息”或者“清空草稿箱”進行批量刪除。

收件箱

在此界面中顯示短消息的收件人、主題、發送短消息的日期、大小、已讀及刪除操作等信息。單擊短

消息主題可具體查看此短消息。您可以單擊操作列中的“刪除”，將對 網站用戶管理系統V1.0 13 應的短消息刪除；也可以選定多個或

者本頁所有短消息，單擊“刪除選定的短消息”或者“清空已發送”進行批量刪除。發件箱

此界面顯示短消息的收件人、主題、發送短消息的日期、大小、已讀及刪除操作等信息。單擊短消息

主題可具體查看此短消息。您可以單擊操作列中的“刪除”，將對應的短消息刪除；也可以選定多個或者

本頁所有短消息，單擊“刪除選定的短消息”或者“清空已發送”進行批量刪除。

廢件箱

此界面顯示短消息的收件人、主題、發送短消息的日期、大小、已讀及刪除操作等信息。單擊短消息

主題可具體查看此短消息。您可以單擊操作列中的“刪除”，將對應的短消息刪除；也可以選定多個或者

本頁所有短消息，單擊“刪除選定的短消息”或者“清空已發送”進行批量刪除。

2.10 資金管理

當會員在網站中消費行為而產生的相關訂單與資金消費情況，都將記錄在會員中心相關明

細記錄里。在資金管理中，會員可以查閱收入、支出、在線支付及點券、積分、有效期兌換等明細記錄。

單擊導航區“資金管理”書簽式面板，出現所有明細記錄、所有收入記錄、所有支出記錄、在線支 付記錄等功能鏈接。所有明細記錄

單擊“所有明細記錄”功能鏈接，在界面系統以分頁列表的方式顯示會員在網站中所有收入和支出信息，包括交易時間、交易方式、幣種、收入金額、支出金額、銀行名稱和備注/ 說明等信息。所有收入記錄

單擊“所有收入記錄”功能鏈接，在界面系統以分頁列表的方式顯示會 網站用戶管理系統V1.0 14 員在網站中所有收入信息，包

括交易時間、交易方式、幣種、收入金額、支出金額、銀行名稱和備注/ 說明等信息。所有支出記錄

單擊“所有支出記錄”功能鏈接，在界面系統以分頁列表的方式顯示會員在網站中所有支出信息，包

括交易時間、交易方式、幣種、收入金額、支出金額、銀行名稱和備注/ 說明等。在線支付記錄

單擊“在線支付記錄”功能鏈接，在界面系統以分頁列表的方式顯示會員在網站中所有在線支付信息，包括支付序號、支付平臺、交易時間、匯款金額、實際轉賬金額、交易狀態、銀行信息和備注等信息。

第四篇：管理員登錄系統

第一！！！1，（index.asp 用戶登陸頁面）

第五篇：vb圖書管理系統源代碼

Borbook：

Public sqltxt As String Public rno As String

'保存讀者借書證號 Public bno As String

'保存讀者圖書編號 Public xm As String

'保存讀者姓名 Public dw As String

'保存讀者單位 Public rs As ADODB.Recordset

Private Sub Comm1_Click()

rno = Trim(Text1(0).Text)

If rno = “" Then

MsgBox ”借書證號不能為空,請輸入“, vbOKOnly, ”信息提示“

Comm2.Enabled = False

Else

sqltxt = ”select * from reader where 借書證號='“ + rno + ”'“

Set rs = exesql(sqltxt)

If rs.RecordCount = 0 Then

MsgBox ”該讀者未登記,不能借書“, vbOKOnly, ”信息提示“

Comm2.Enabled = False

Else

Text2(0).Text = rs.Fields(”姓名“)

Text2(1).Text = str(rs.Fields(”借書總數“))

Text2(2).Text = str(rs.Fields(”借書總數“)rs.Fields(”已借書數“))

End If

End If

End If End Sub

Private Sub retCom_Click()

Unload Me End Sub

Private Sub Form_Load()

Comm2.Enabled = False End Sub

Edbook：

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load()

'說明:為什么使用recs,而不直接使用adodc1.recordset.recordcount?在調用edbook1窗體添加一個記錄(確定)后,再

'返回到本表單,若不在Form_Activate()事件過程中調用adodc1.refresh進行刷新,adodc1.recordset.recordcount值

'仍未增1,這樣調用encomm過程時出錯;若在Form_Activate()事件過程中調用adodc1.refresh進行刷新，'adodc1.recordset.recordcount值增1了,調用encomm過程時也正確,但返回本窗體時,當前行總是第一行,顯然也不行，'因為用戶在添加或修改后希望在datagrid1中顯示當前操作的那條記錄.recs = Adodc1.Recordset.RecordCount End Sub

Private Sub Form_Activate()

DataGrid1.SetFocus

Call encomm End Sub

Private Sub Comm1_Click()

flag = 1

edbook1.Show vbModal End Sub

Private Sub Comm2_Click()

flag = 2

edbook1.Show vbModal End Sub

Private Sub Comm3_Click()

If MsgBox(”真的要刪除[“ + Trim(Adodc1.Recordset.Fields(”書名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Then

Adodc1.Recordset.Delete

recs = recs1

Call encomm

End If End Sub

Private Sub Comm4_Click()

Unload Me End Sub

Private Sub encomm()

If recs = 0 Then

Comm2.Enabled = False

Comm3.Enabled = False

Else

Comm2.Enabled = True

Comm3.Enabled = True

End If End Sub

Edlev1：

Dim cond As String

Private Sub Form_Load()

If flag = 2 Then

Text1(0).Text = edlev.Adodc1.Recordset.Fields(”級別“)

Text1(1).Text = edlev.Adodc1.Recordset.Fields(”過期罰款“)

Text1(2).Text = edlev.Adodc1.Recordset.Fields(”借書總數“)

Text1(3).Text = edlev.Adodc1.Recordset.Fields(”借書天數“)

End If End Sub

Private Sub Comm1_Click()

If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _

Trim(Text1(3).Text)= ”“ Then

MsgBox ”數據項不全,請重新設置“, vbOKOnly, ”信息提示“

Text1(0).SetFocus

Exit Sub

End If

If flag = 1 Then '添加操作

If edlev.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于0

cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“

edlev.Adodc1.Recordset.MoveFirst

'每次從頭開始查找

edlev.Adodc1.Recordset.Find(cond)

If Not edlev.Adodc1.Recordset.EOF()Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

Text1(0).SetFocus

Exit Sub

End If

End If

edlev.Adodc1.Recordset.AddNew

edlev.Adodc1.Recordset.Fields(”級別“)= Trim(Text1(0).Text)

edlev.Adodc1.Recordset.Fields(”過期罰款“)= Val(Trim(Text1(1).Text))

edlev.Adodc1.Recordset.Fields(”借書總數“)= Val(Trim(Text1(2).Text))

edlev.Adodc1.Recordset.Fields(”借書天數“)= Val(Trim(Text1(3).Text))

edlev.Adodc1.Recordset.Update

recs = recs + 1

Else

'修改操作

n = edlev.Adodc1.Recordset.AbsolutePosition

cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“

edlev.Adodc1.Recordset.MoveFirst '每次從頭開始查找

edlev.Adodc1.Recordset.Find(cond)

If Not edlev.Adodc1.Recordset.EOF()And edlev.Adodc1.Recordset.AbsolutePosition <> n Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

edlev.Adodc1.Recordset.MoveFirst

'這兩個語句恢復原記錄位置

edlev.Adodc1.Recordset.Move(n1)

edlev.Adodc1.Recordset.Fields(”級別“)= Trim(Text1(0).Text)

edlev.Adodc1.Recordset.Fields(”過期罰款“)= Val(Trim(Text1(1).Text))

edlev.Adodc1.Recordset.Fields(”借書總數“)= Val(Trim(Text1(2).Text))

edlev.Adodc1.Recordset.Fields(”借書天數“)= Val(Trim(Text1(3).Text))

edlev.Adodc1.Recordset.Update

End If

Unload Me End Sub

Private Sub Comm2_Click()

Unload Me End Sub

Edreader：

Private Sub DataGrid1_Click()

End Sub

Private Sub Form_Load()

recs = Adodc1.Recordset.RecordCount End Sub

Private Sub Form_Activate()

DataGrid1.SetFocus

Call encomm End Sub

Private Sub Comm1_Click()

flag = 1

edreader1.Show vbModal End Sub

Private Sub Comm2_Click()

flag = 2

edreader1.Show vbModal End Sub

Private Sub Comm3_Click()

If MsgBox(”真的要刪除[“ + Trim(Adodc1.Recordset.Fields(”姓名“))+ ”]嗎?“, vbYesNo, ”信息提示“)= vbYes Then

Adodc1.Recordset.Delete

recs = recs1

Call encomm

End If End Sub Private Sub Comm4_Click()

Adodc1.Recordset.UpdateBatch

Adodc1.Recordset.Close

Unload Me End Sub Private Sub encomm()

If recs = 0 Then

Comm2.Enabled = False

Comm3.Enabled = False

Else

Comm2.Enabled = True

Comm3.Enabled = True

End If End Sub

Edrec1：

Dim cond As String

Private Sub Form_Load()

Label1.Caption = cap

If flag = 1 Then

Text1.Text = ”“

Else

Text1.Text = edrec.Adodc1.Recordset.Fields(”fn“)

End If End Sub

Private Sub Comm1_Click()

If Trim(Text1.Text)= ”“ Then

MsgBox ”數據項不能為空,請重新設置“, vbOKOnly, ”信息提示“

Text1.SetFocus

Exit Sub

End If

If flag = 1 Then '添加操作

If edrec.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于0

cond = ”fn='“ + Trim(Text1.Text)+ ”'“

edrec.Adodc1.Recordset.MoveFirst

'每次從頭開始查找

edrec.Adodc1.Recordset.Find(cond)

If Not edrec.Adodc1.Recordset.EOF()Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

Text1.SetFocus

Exit Sub

End If

End If

edrec.Adodc1.Recordset.AddNew

edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)

edrec.Adodc1.Recordset.Update

recs = recs + 1

Else

'修改操作

n = edrec.Adodc1.Recordset.AbsolutePosition

cond = ”fn='“ + Trim(Text1.Text)+ ”'“

edrec.Adodc1.Recordset.MoveFirst '每次從頭開始查找

edrec.Adodc1.Recordset.Find(cond)

If Not edrec.Adodc1.Recordset.EOF()And edrec.Adodc1.Recordset.AbsolutePosition <> n Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

edrec.Adodc1.Recordset.MoveFirst

'這兩個語句恢復原記錄位置

edrec.Adodc1.Recordset.Move(n1)

edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)

edrec.Adodc1.Recordset.Update

End If

Unload Me End Sub

Private Sub Comm2_Click()

Unload Me End Sub

Menu：

Private Sub MDIForm_Load()

If Not userlevel = ”系統管理員“ Then

menu21.Enabled = False

menu31.Enabled = False

menu41.Enabled = False

menu42.Enabled = False

End If End Sub

Private Sub menu11_Click()

borbook.Show vbModal End Sub

Private Sub menu12_Click()

retbook.Show vbModal End Sub

Private Sub menu13_Click()

End End Sub

Private Sub menu21_Click()

edbook.Show vbModal End Sub

Private Sub menu22_Click()

qubook.Show vbModal End Sub

Private Sub menu31_Click()

edreader.Show vbModal End Sub

Private Sub menu32_Click()

qureader.Show vbModal End Sub

Private Sub menu41_Click()

setuser.Show vbModal End Sub

Private Sub menu42_Click()

If MsgBox(”本功能要清除系統中所有數據,真的初始化嗎?“, vbYesNo, ”確認初始化操作“)

= vbYes Then

Call deldata(”book“)Call deldata(”reader“)Call deldata(”borrow“)Call deldata(”rlevel“)

Call deldata(”depart“)

Call deldata(”press“)

Call deldata(”oper“)

MsgBox ”系統初始化完畢,下次只能以1234/1234(用戶名/口令)進入本系統“, vbOKOnly, ”信息提示“

End If End Sub

Pass：

Public n As Integer

Private Sub Command1_Click()

Dim mrc As ADODB.Recordset

txtsql = ”select * from oper where 用戶名='“ & _

Trim$(Text1(0).Text)& ”'“ & ” And 口令 = '“ & Trim$(Text1(1).Text)+ ”'“

Set mrc = exesql(txtsql)

If mrc.RecordCount = 0 Then '未找到用戶記錄

n = n + 1

If n < 3 Then

MsgBox ”沒有這個用戶,繼續登錄“, vbOKOnly + vbExclamation, ”信息提示“

Text1(0).Text = ”“

Text1(1).Text = ”“

Text1(0).SetFocus

Else

MsgBox ”已登錄失敗三次,退出系統“, vbOKOnly + vbExclamation, ”信息提示“

mrc.Close

Unload Me

End If

Else

'找到合法用戶記錄

userlevel = Trim(mrc.Fields(”級別“))

mrc.Close

Unload Me

menu.Show '調用menu窗體

End If End Sub

Private Sub Command2_Click()

Unload Me End Sub

Private Sub Form_Load()

n = 0

'n保存登錄的次數 End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

Call endata(KeyAscii)End Sub

Qubook：

Private Sub Comm1_Click()

Dim sqltxt As String

If Adodc1.Recordset.Fields(”借否“)= ”借“ Then

no = Trim(Adodc1.Recordset.Fields(”圖書編號“))

sqltxt = ”select * from borrow where 圖書編號='“ + no + ”'“

Set rs = exesql(sqltxt)

If rs.RecordCount = 0 Then

MsgBox ”該圖書沒有借書記錄“, vbOKOnly, ”信息提示“

Else

MsgBox ”圖書編號:“ + no + Chr(10)+ Chr(13)+ _

”書

名:“ + Trim(rs.Fields(”書名“))+ Chr(10)+ Chr(13)+ _

”借 書 人:“ + Trim(rs.Fields(”姓名“))+ Chr(10)+ Chr(13)+ _

”單

位:“ + Trim(rs.Fields(”單位“))+ Chr(10)+ Chr(13)+ _

”借書日期:“ + Format(rs.Fields(”借書日期“), ”yyyy.mm.dd“), vbOKOnly, ”查找結果“

End If

rs.Close

Else

MsgBox ”該書沒有外借,不能顯示借書人“, vbOKOnly, ”信息提示“

End If End Sub

Private Sub Comm2_Click()

Unload Me End Sub

Private Sub Form_Activate()

Adodc1.Refresh

DataGrid1.Refresh

DataGrid1.SetFocus

Call encomm End Sub

Private Sub selcmd1_Click()'設置條件確定

Dim str As String

str = ”“

'條件表達式

If Trim(Text1(0).Text)<> ”“ Then

If str = ”“ Then

str = ”圖書編號='“ + Trim(Text1(0).Text)+ ”'“

Else

str = str + ” and 圖書編號='“ + Trim(Text1(0).Text)+ ”'“

End If

End If

If Trim(Text1(1).Text)<> ”“ Then

If str = ”“ Then

str = ”書名='“ + Trim(Text1(1).Text)+ ”'“

Else

str = str + ” and 書名='“ + Trim(Text1(1).Text)+ ”'“

End If

End If

If Trim(Text1(2).Text)<> ”“ Then

If str = ”“ Then

str = ”作者='“ + Trim(Text1(2).Text)+ ”'“

Else

str = str + ” and 作者='“ + Trim(Text1(2).Text)+ ”'“

End If

End If

If Trim(Text1(3).Text)<> ”“ Then

If str = ”“ Then

str = ”出版社='“ + Trim(Text1(3).Text)+ ”'“

Else

str = str + ” and 出版社='“ + Trim(Text1(3).Text)+ ”'“

End If

End If

If Trim(Text1(4).Text)<> ”“ Then

If str = ”“ Then

str = ”借否='“ + Trim(Text1(4).Text)+ ”'“

Else

str = str + ” and 借否='“ + Trim(Text1(4).Text)+ ”'“

End If

End If

If Trim(Text1(5).Text)<> ”“ Then

If str = ”“ Then

str = ”定價=“ + Trim(Text1(5).Text)

Else

str = str + ” and 定價=“ + Trim(Text1(5).Text)

End If

End If

If str <> ”“ Then

Adodc1.RecordSource = ”select * from book where “ + str

Adodc1.Refresh

Else

Adodc1.RecordSource = ”select * from book“

Adodc1.Refresh

End If

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“

End If

Call encomm End Sub

Private Sub selcmd2_Click()'設置條件重置

Text1(0).Text = ”“

Text1(1).Text = ”“

Text1(2).Text = ”“

Text1(3).Text = ”“

Text1(4).Text = ”“

Text1(5).Text = ”“ End Sub

Private Sub encomm()'自定義子過程:判斷Adodc1中是否存在記錄

If Adodc1.Recordset.RecordCount = 0 Then

Comm1.Enabled = False

Else

Comm1.Enabled = True

End If End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

Call endata(KeyAscii)End Sub

Qureader：

Private Sub Comm1_Click()

Dim strn As String

Dim sqltxt As String

no = Trim(Adodc1.Recordset.Fields(”借書證號“))

sqltxt = ”select * from borrow where 借書證號='“ + no + ”'“

Set rs = exesql(sqltxt)

If rs.RecordCount = 0 Then

MsgBox ”該讀者沒有借任何圖書“, vbOKOnly, ”信息提示“

Else

rs.MoveFirst

strn = ”書

名(借書日期)“ + Chr(10)+ Chr(13)

Do While Not rs.EOF()

strn = strn & Trim(rs.Fields(”書名“))& ”(“ & Format(rs.Fields(”借書日期“), ”yyyy.mm.dd“)& ”)“ + Chr(10)+ Chr(13)

rs.MoveNext

Loop

MsgBox strn, vbOKOnly, ”列所借圖書清單“

rs.Close

End If End Sub

Private Sub Comm2_Click()

Unload Me End Sub

Private Sub Form_Activate()

Adodc1.Refresh

DataGrid1.Refresh

DataGrid1.SetFocus

Call encomm End Sub

Private Sub selcmd1_Click()'設置條件確定

Dim str As String

str = ”“

'條件表達式

If Trim(Text1(0).Text)<> ”“ Then

If str = ”“ Then

str = ”借書證號='“ + Trim(Text1(0).Text)+ ”'“

Else

str = str + ” and 借書證號='“ + Trim(Text1(0).Text)+ ”'“

End If

End If

If Trim(Text1(1).Text)<> ”“ Then

If str = ”“ Then

str = ”姓名='“ + Trim(Text1(1).Text)+ ”'“

Else

str = str + ” and 姓名='“ + Trim(Text1(1).Text)+ ”'“

End If

End If

If Trim(Text1(2).Text)<> ”“ Then

If str = ”“ Then

str = ”單位='“ + Trim(Text1(2).Text)+ ”'“

Else

str = str + ” and 單位='“ + Trim(Text1(2).Text)+ ”'“

End If

End If

If Trim(Text1(3).Text)<> ”“ Then

If str = ”“ Then

str = ”級別='“ + Trim(Text1(3).Text)+ ”'“

Else

str = str + ” and 級別='“ + Trim(Text1(3).Text)+ ”'“

End If

End If

If Trim(Text1(4).Text)<> ”“ Then

If str = ”“ Then

str = ”性別='“ + Trim(Text1(4).Text)+ ”'“

Else

str = str + ” and 性別='“ + Trim(Text1(4).Text)+ ”'“

End If

End If

If str <> ”“ Then

Adodc1.RecordSource = ”select * from reader where “ + str

Adodc1.Refresh

Else

Adodc1.RecordSource = ”select * from reader“

Adodc1.Refresh

End If

If Adodc1.Recordset.RecordCount = 0 Then

MsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“

End If

Call encomm End Sub

Private Sub selcmd2_Click()'設置條件重置

Text1(0).Text = ”“

Text1(1).Text = ”“

Text1(2).Text = ”“

Text1(3).Text = ”“

Text1(4).Text = ”“ End Sub

Private Sub encomm()'自定義子過程:判斷Adodc1中是否存在記錄

If Adodc1.Recordset.RecordCount = 0 Then

Comm1.Enabled = False

Else

Comm1.Enabled = True

End If End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

Call endata(KeyAscii)End Sub

Retbook：

Public rno As String Public bno As String

Private Sub Comm1_Click()

bno = Trim(Text1.Text)

If bno <> ”“ Then

Dim sqltxt As String

sqltxt = ”select * from borrow where 圖書編號='“ + bno + ”'“

Set brs = exesql(sqltxt)

If brs.RecordCount = 0 Then

MsgBox ”該書不是從本圖書館所借的,不能歸還!“, vbOKOnly, ”信息提示“

Else

If Trim(brs.Fields(”借書證號“))<> rno Then

If rno <> ”“ Then

'另一讀者還書,自動列出上一個還書人的罰款單

dstr = ”罰款單“ + Chr(10)+ Chr(13)

dstr = dstr & ”姓名:“ & Trim(Text2(1).Text)+ ”(“ + rno + ”)罰款總額:“ & str(Text2(4).Text)& ”元“

MsgBox dstr, vbOKOnly, ”列罰款單“

End If

rno = Trim(brs.Fields(”借書證號“))

sqltxt = ”select * from book where 圖書編號='“ + bno + ”'“ '處理圖書記錄

Set bs = exesql(sqltxt)

bs.Fields(”借否“)= ”否“

bs.Update

sqltxt = ”select * from reader where 借書證號='“ + rno + ”'“ '處理讀者記錄

Set rs = exesql(sqltxt)

rs.Fields(”已借書數“)= rs.Fields(”已借書數“)rs.Fields(”已借書數“)

If(Datebrs.Fields(”借書日期“)1

rs.Update

If(Datebrs.Fields(”借書日期“)1

Call encomm

End If End Sub

Private Sub Comm4_Click()

Unload Me End Sub

Private Sub encomm()

If recs = 0 Then

Comm2.Enabled = False

Comm3.Enabled = False

Else

Comm2.Enabled = True

Comm3.Enabled = True

End If End Sub

Setuser1：

Dim cond As String

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys ”{TAB}“

End If End Sub

Private Sub Form_Load()

If flag = 2 Then

Text1(0).Text = setuser.Adodc1.Recordset.Fields(”用戶名“)

Text1(1).Text = setuser.Adodc1.Recordset.Fields(”口令“)

Combo1.Text = setuser.Adodc1.Recordset.Fields(”級別“)

End If End Sub

Private Sub Comm1_Click()

If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Combo1.Text)= ”“ Then

MsgBox ”數據項不全,請重新設置“, vbOKOnly, ”信息提示“

Text1(0).SetFocus

Exit Sub

End If

If flag = 1 Then '添加操作

If setuser.Adodc1.Recordset.RecordCount > 0 Then '原記錄個數大于0

cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“

setuser.Adodc1.Recordset.MoveFirst

'每次從頭開始查找

setuser.Adodc1.Recordset.Find(cond)

If Not setuser.Adodc1.Recordset.EOF()Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

Text1(0).SetFocus

Exit Sub

End If

End If

setuser.Adodc1.Recordset.AddNew

setuser.Adodc1.Recordset.Fields(”用戶名“)= Trim(Text1(0).Text)

setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))

setuser.Adodc1.Recordset.Fields(”級別“)= Trim(Combo1.Text)

setuser.Adodc1.Recordset.Update

recs = recs + 1

Else

'修改操作

n = setuser.Adodc1.Recordset.AbsolutePosition

cond = ”級別='“ + Trim(Text1(0).Text)+ ”'“

setuser.Adodc1.Recordset.MoveFirst '每次從頭開始查找

setuser.Adodc1.Recordset.Find(cond)

If Not setuser.Adodc1.Recordset.EOF()And setuser.Adodc1.Recordset.AbsolutePosition <> n Then

MsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“

setuser.Adodc1.Recordset.MoveFirst

'這兩個語句恢復原記錄位置

setuser.Adodc1.Recordset.Move(n1)

setuser.Adodc1.Recordset.Fields(”用戶名“)= Trim(Text1(0).Text)

setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))

setuser.Adodc1.Recordset.Fields(”級別“)= Trim(Combo1.Text)

setuser.Adodc1.Recordset.Update

End If

Unload Me End Sub

Private Sub Comm2_Click()

Unload Me End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

Call endata(KeyAscii)End Sub

模塊：

Public userlevel As String '保存用戶級別

Public flag As Integer

'用作記錄操作標記

Public tna As String

'保存表名:用于調用edrec1窗體 Public cap As String

'保存標題名:用于調用edrec1窗體 Public recs As Integer

'保存記錄集中記錄個數

Sub main()

pass.Show vbModal End Sub

Public Function exesql(ByVal sql As String)As ADODB.Recordset

sql = Trim$(sql)

Set conn = New ADODB.Connection

Set rst = New ADODB.Recordset

conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“

conn.Open

Set rst.ActiveConnection = conn

rst.LockType = adLockOptimistic

rst.CursorType = adOpenKeyset

rst.Open sql

Set exesql = rst

Set rst = Nothing

Set conn = Nothing End Function

Public Sub deldata(ByVal tn As String)刪除指定表中所有記錄,對于oper表添加一個系統用戶

Dim sql As String

sql = ”delete “ & Trim$(tn)

Set conn = New ADODB.Connection

conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“

conn.Open

conn.Execute sql

If Trim(tn)= ”oper“ Then

sql = ”insert oper values('1234','1234','系統管理員')“

conn.Execute sql

End If

conn.Close End Sub Public Sub endata(Keyasc As Integer)

If Keyasc = 13 Then

SendKeys ”{TAB}" '將回車鍵轉換成Tab鍵

End If End Sub