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

VB图书管理系统 第8页

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

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] 下一页

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

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