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

VB+access实验室设备管理系统 第10页

更新时间:2008-6-21:  来源:毕业论文

VB+access实验室设备管理系统 第10页

 If Not rs1.EOF Then rs1.MoveLast     '如记录没到头,那么移到最后一条记录

        If rs1.Fields("单位编号") <> "" Then     '假如编号不等于空

        dm = Trim(rs1.Fields("单位编号")) + 1     '赋值给dm变量

        Text1(0).Text = Format(dm, "0000")     '赋值给text1(0).text

     End If

  Else     '否则

     Text1(0).Text = "0001"     'text1(0).text设初值

  End If

  '清空数据

  For i = 1 To 2

      Text1(i).Text = ""

  Next i

End Sub

Private Sub ComModify_Click()     '允许修改数据

  If Adodc1.Recordset.RecordCount > 0 Then     '当记录大于零时

     Frame1.Visible = True      'frame1可见

     '赋值给Text1(i)

      If Adodc1.Recordset.Fields(1) <> "" Then Text1(1).Text = Trim(Adodc1.Recordset.Fields(i))

     If Adodc1.Recordset.Fields(2) <> "" Then Text1(2).Text = Trim(Adodc1.Recordset.Fields(i))

  Else

     MsgBox "没有要修改的记录,请核对!"

  End If

End Sub

Private Sub ComDelete_Click()     '删除包房信息

 Frame1.Visible = False     'frame1不可见

 On Error Resume Next

 Adodc1.Recordset.Delete     '删除记录

 Adodc1.Refresh     '刷新记录

End Sub

Private Sub ComSave_Click()

 txtSQL = "select * from 使用单位信息 where 单位编号='" & Trim(Text1(0).Text) & "'order by 单位编号"

 Set rs1 = ESQL(txtSQL)

 If rs1.RecordCount > 0 Then     '当记录大于零时

    Dim a As String     '定义字符串变量

    a = MsgBox("您确实要修改这条数据吗?", vbYesNo)

    If a = vbYes Then

    If Text1(1).Text = "" Then

       MsgBox ("请输入单位编号!")

       Exit Sub

     End If

     '赋值给数据库字段

     rs1.Fields("单位编号") = Text1(0).Text: rs1.Fields("单位名称") = Text1(1).Text

     rs1.Fields("设备编号") = Text1(2).Text: rs1.Fields("借入日期") = Format(Date, "long date") & "    " & Time

     rs1.Update     '更新记录集

     Adodc1.Refresh

    End If

  Else

   If Text1(0).Text = "" Then

      MsgBox ("请输入单位编号!")

      Exit Sub

   End If

   If Text1(1).Text = "" Then

      MsgBox ("请输入单位名称!")

      Exit Sub

   End If

   If Text1(2).Text = "" Then

      MsgBox ("请输入设备编号!")

      Exit Sub

   End If

   rs1.AddNew

   '赋值给数据库字段

   rs1.Fields("单位编号") = Text1(0).Text: rs1.Fields("单位名称") = Text1(1).Text

     rs1.Fields("设备编号") = Text1(2).Text: rs1.Fields("借入日期") = Format(Date, "long date") & "    " & Time

     rs1.Update     '更新记录集

     Adodc1.Refresh

   MsgBox "单位信息已成功保存!"

 End If

 Frame1.Visible = False     '设置Frame1不可见

End Sub

Private Sub Comfind_Click()     '查询

 Select Case Combo4.Text

  Case Is = "like"

    Adodc1.RecordSource = "select * from 使用单位信息 where (使用单位信息." & Combo3.Text & " like +'%'+ '" + Text2.Text + "'+'%') order by 单位编号"

    Adodc1.Refresh

  Case Is = "="

    Adodc1.RecordSource = "select * from 使用单位信息 where (使用单位信息." & Combo3.Text & " = '" + Text2.Text + "') order by 单位编号"

    Adodc1.Refresh

 End Select

End Sub

Private Sub ComEsc_Click()     '取消操作

  Frame1.Visible = False

End Sub

Private Sub ComExit_Click()

 Unload Me

 Form1.Enabled = True

End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

  If Index = 12 Then KeyAscii = valiText(KeyAscii, "0123456789." & Chr(13), True)

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

  If KeyAscii = vbKeyReturn Then ComFind.SetFocus

End Sub

6.6密码设置

6.14   口令设置窗体

'定义数据集对象

Dim rs1 As New ADODB.Recordset

Dim txtSQL As String     '定义字符串变量

Private Sub Form_Activate()

 '清空文本框数据

 Text1.Text = ""

 Text2.Text = ""

End Sub

Private Sub Form_Unload(Cancel As Integer)

 Form1.Enabled = True

End Sub

Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)

 If KeyCode = vbKeyReturn Then Text2.SetFocus     '按回车键text2获得焦点

End Sub

Private Sub DataCombo1_Change()

 '按操作员名称查询权限信息

 txtSQL = "select * from 权限信息表 where 操作员名称='" & DataCombo1.BoundText & "'"

 Set rs1 = ESQL(txtSQL)

 If rs1.RecordCount > 0 Then     '当记录大于零时

  Text1.Text = Trim(rs1.Fields("密码"))     '赋值给text1.text

 Else

  Text1.Text = ""

 End If

End Sub

Private Sub Command1_Click()     '保存操作员信息

 '按操作员名称查询权限信息

 '按操作员名称查询权限信息

 txtSQL = "select * from 权限信息表 where 操作员名称='" & DataCombo1.BoundText & "'"

 Set rs1 = ESQL(txtSQL)

 If Text2.Text <> "" Then

  rs1.Fields("密码") = Trim(Text2.Text)     '赋值给rs1.Fields("密码")

  rs1.Update     '更新记录

  '清空文本框内的数据

  Text1.Text = ""

  Text2.Text = ""

  MsgBox "密码设置成功!", , "系统提示"

  Unload Me

 End If

End Sub

Private Sub Command3_Click()

  Form1.Enabled = True

  Unload Me

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

  If KeyAscii = vbKeyReturn Then Command1.SetFocus

End Sub

6.7密码设置

6.15 实验室设备管理系统登陆身份窗体

If czy.Caption <> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("密码")) Then

  '调入frm_main主窗体

  Load Form1

  Form1.Show

  Form1.St1.Panels(3).Text = czy.Caption

 Unload Me

 Else

  '输入三次错误的密码,系统自动退出

  If TIM = 3 Then

   MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "系统提示")

   If MESSAGE = vbOK Then End

  End If

  If czy.Caption = "" Then

    MsgBox "请选择操作员!", , "系统提示"

    ListView1.SetFocus     'ListView1获得焦点

   Else

    If Text1.Text <> Adodc1.Recordset.Fields("密码") Then

     MsgBox "密码错误,请重新输入密码!", , "系统提示"

     TIM = TIM + 1     '记录输入次数

     Text1.SetFocus    'text1获得焦点

    End If

  End If

 End If

End Sub

Private Sub comend_Click()

  End

End Sub

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

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

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