VB图书管理系统 第8页

txtuser.SetFocus

　　Else ' 检验密码是否正确

　　用户名和密码通过后，要关闭本窗体并打开主窗体。

　　If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then

　　userID = txtuser.Text

　　userpow = rs_login.Fields(2)

　　rs_login.Close

　　Unload Me

　　MDIForm1.Show

　　Else

　　MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

　　txtpwd.SetFocus

　　End If

　　End If

　　End If

　　' 只能输入3次

　　cnt = cnt + 1

　　If cnt = 3 Then

　　Unload Me

　　End If

　　Exit Sub

　　End Sub

(7) 值班管理子窗体代码

　　值班管理子窗体的作用是把值班人员的时间安排形成列表。运行的值班管理子窗体如图44所示。

　　
　　图44 运行的值班管理子窗体

　　先定义连接数据库的变量:

　　Option Explicit

　　Dim rs_zhiban As New ADODB.Recordset

　　然后列出窗体部分的代码。

　　Private Sub cmdadd_Click()

　　On Error GoTo adderror

　　If cmdadd.Caption = "新增记录" Then ' 当此按钮的状态为为“增加记录”时

　　cmdadd.Caption = "确定" ' 按钮名称改“确定”

　　cmddel.Enabled = False

　　DataGrid1.AllowAddNew = True

　　DataGrid1.AllowUpdate = True ' 设定DataGrid可以增加记录

　　Else

　　If Not IsNull(DataGrid1.Bookmark) Then

　　If Not IsDate(Trim(DataGrid1.Columns("值班开始日期").CellText(DataGrid1.Bookmark))) Then

　　MsgBox "请按照格式yyyy-mm-dd输入值班开始日期", vbOKOnly + vbExclamation, ""

　　Exit Sub

　　End If

　　If Not IsDate(Trim(DataGrid1.Columns("值班开始时间").CellText(DataGrid1.Bookmark))) Then

　　MsgBox "请按照格式hh-mm输入值班开始时间", vbOKOnly + vbExclamation, ""

　　Exit Sub

　　End If

　　If Not IsDate(Trim(DataGrid1.Columns("值班截止日期").CellText(DataGrid1.Bookmark))) Then

　　MsgBox "请按照格式yyyy-mm-dd输入值班截止日期", vbOKOnly + vbExclamation, ""

　　Exit Sub

　　End If

　　If Not IsDate(Trim(DataGrid1.Columns("值班截止时间").CellText(DataGrid1.Bookmark))) Then

　　MsgBox "请按照格式hh-mm输入值班截止时间", vbOKOnly + vbExclamation, ""

　　Exit Sub

　　End If

　　If Trim(DataGrid1.Columns("值班人").CellText(DataGrid1.Bookmark)) = "" Then

　　MsgBox "值班人不能为空!", vbOKOnly + vbExclamation, ""

　　Exit Sub

　　End If

　　rs_zhiban.Update

　　MsgBox "添加信息成功!", vbOKOnly + vbExclamation, ""

　　DataGrid1.AllowAddNew = False

　　DataGrid1.AllowUpdate = False

　　Else

　　MsgBox "没有添加信息!", vbOKOnly + vbExclamation, ""

　　End If

　　cmdadd.Caption = "新增记录"

　　cmddel.Enabled = True

　　End If

　　adderror:

　　If Err.Number <> 0 Then

　　MsgBox Err.Description

　　End If

　　End Sub

　　Private Sub cmdcancel_Click()

　　Unload Me

　　MDIForm1.Show

　　End Sub

　　Private Sub cmddel_Click()

　　Dim answer As String

　　On Error GoTo delerror

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