毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB图书管理系统 第4页

更新时间:2008-3-1:  来源:毕业论文

VB图书管理系统 第4页
 图34 图书借阅子窗体运行效果


   若图片无法显示请联系站长QQ752018766
  图35 图书赔偿子窗体运行效果


  (2) 增加用户子窗体代码

  增加用户子窗体是用来增加用户的用户名、密码和权限的。其运行效果如图36所示。

  单击确定按钮后,还要返回一个信息框,提示成功信息,如图37所示。

  若图片无法显示请联系站长QQ752018766
  图36 增加用户子窗体运行效果 37 成功信息框

  窗体部分代码的思路是,收集输入的表中的字符串,然后与数据库中的系统的用户数据比较,如果不存在,则允许添加。

  Private Sub Command1_Click()

  
Dim sql As String

  
Dim rs_add As New ADODB.Recordset

  
If Trim(Text1.Text) = "" Then

  MsgBox "用户名不能为空
", vbOKOnly + vbExclamation, ""

  
Exit Sub

  
Text1.SetFocus

  
Else

  sql = "select * from 系统管理
"

  
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic

  
While (rs_add.EOF = False)

  
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then

  MsgBox "已有这个用户
", vbOKOnly + vbExclamation, ""

  
Text1.SetFocus

  
Text1.Text = ""

  
Text2.Text = ""

  
Text3.Text = ""

  
Combo1.Text = ""

  
Exit Sub

  
Else

  
rs_add.MoveNext

  
End If

  
Wend

  
If Trim(Text2.Text) <> Trim(Text3.Text) Then

  MsgBox "两次密码不一致
", vbOKOnly + vbExclamation, ""

  
Text2.SetFocus

  
Text2.Text = ""

  
Text3.Text = ""

  
Exit Sub

  
ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then

  MsgBox "请选择正确的用户权限
", vbOKOnly + vbExclamation, ""

  
Combo1.SetFocus

  
Combo1.Text = ""

  
Exit Sub

  
Else

  
rs_add.AddNew

  
rs_add.Fields(0) = Text1.Text

  
rs_add.Fields(1) = Text2.Text

  
rs_add.Fields(2) = Combo1.Text

  
rs_add.Update

  
rs_add.Close

  下面是返回成功信息对话框的代码
:

  MsgBox "添加用户成功
", vbOKOnly + vbExclamation, ""

  
Unload Me

  
End If

  
End If

  
End Sub

  (3) 修改密码子窗体代码


  修改密码子窗体是用来修改用户密码的。其运行效果如图38所示。

  若图片无法显示请联系站长QQ752018766

  图38 修改密码子窗体运行效果

  在确定按钮的Click事件中添加如下代码:

  
Private Sub Command1_Click()

  
Dim rs_chang As New ADODB.Recordset

  
Dim sql As String

  
If Trim(Text1.Text) <> Trim(Text2.Text) Then

  MsgBox "密码不一致
!", vbOKOnly + vbExclamation, ""

  
Text1.SetFocus

  
Text1.Text = ""

  
Text2.Text = ""

  
Else

  sql = "select * from 系统管理 where 用户名
='" & userID & "'"

  
rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic

  
rs_chang.Fields(1) = Text1.Text

  
rs_chang.Update

  
rs_chang.Close

  MsgBox "密码修改成功
", vbOKOnly + vbExclamation, ""

  
Unload Me

  
End If

  
End Sub

若图片无法显示请联系站长QQ752018766

  在上述代码中,首先比较两个表中的数据是否一致,然后用rs_chang.Fields(1) = Text1.Text语句把代码输入到数据库中。最后,用MsgBox "密码修改成功", vbOKOnly + vbExclamation""语句弹出一个信息框,告诉修改成功,如图39所示。


  显示目录

  (4) 库房管理子窗体代码

  库房管理子窗体是用来管理图书资料的。其运行效果如图40所示。

  若图片无法显示请联系站长QQ752018766

  图40 库房管理子窗体

  实际上,设计库房管理子窗体的程序代码与增加用户子窗体的代码在思路上是完全相同的。就是在DataGrid的文本框中显示图书进出的清单,最后把填写的明细存储到数据库中。

  检查代码如下:

  
Option Explicit

  
Dim rs_data2 As New ADODB.Recordset

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

VB图书管理系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。