VB用户登录管理系统

第一篇：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