【聚杰网VB】VB+Access设计图书管理系统

　　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所示。

　　

　　图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



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

　　显示目录

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

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

　　

　　图40 库房管理子窗体

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

　　检查代码如下:

　　Option Explicit

　　Dim rs_data2 As New ADODB.Recordset

　　Dim select_row As String

　　Dim showgrid2 As Boolean

　　Dim rs_custom As New ADODB.Recordset

　　Dim jinchu As String ' 进出库标志

　　Dim modify As Boolean ' 修改状态标志

　　Private Sub cmdexit_Click()

　　Unload Me

　　End Sub

　　Private Sub Form_Load()

　　On Error GoTo loaderror

　　Dim sql As String

　　sql = "select * from 图书资料"

　　rs_custom.CursorLocation = adUseClient

　　rs_custom.Open sql, conn, adOpenKeyset, adLockPessimistic

　　While Not rs_custom.EOF

　　Combo1.AddItem rs_custom.Fields(0)

　　rs_custom.MoveNext

　　Wend

　　findok = True

　　modify = False ' 非修改状态

　　showgrid2 = False

　　displaygrid1 ' 调用显示Datagrid1子程序

　　loaderror:

　　If Err.Number <> 0 Then

　　MsgBox Err.Description

　　End If

　　End Sub

　　'显示msflexgrid1子程序

　　Public Sub displaygrid1()

　　Dim i As Integer

　　On Error GoTo displayerror

　　setgrid

　　setgridhead

　　MSFlexGrid1.Row = 0

　　If Not rs_data1.EOF Then

　　rs_data1.MoveFirst

　　Do While Not rs_data1.EOF

　　MSFlexGrid1.Row = MSFlexGrid1.Row + 1

　　MSFlexGrid1.Col = 0

　　If Not IsNull(rs_data1.Fields(0)) Then MSFlexGrid1.Text = rs_data1.Fields(0) Else

　　MSFlexGrid1.Text = ""

　　MSFlexGrid1.Col = 1

　　If Not IsNull(rs_data1.Fields(1)) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else

　　MSFlexGrid1.Text = ""

　　MSFlexGrid1.Col = 2

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