pass.frm

小区巡逻管理靠请系统。需要硬件支持才可以工作

VERSION 5.00
Begin VB.Form pass 
   Caption         =   "感应式巡检记录系统"
   ClientHeight    =   1770
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4095
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1770
   ScaleWidth      =   4095
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton txtn 
      Caption         =   "取 消"
      Height          =   390
      Left            =   2325
      TabIndex        =   3
      Top             =   1125
      Width           =   1215
   End
   Begin VB.CommandButton txty 
      Caption         =   "确 定"
      Height          =   390
      Left            =   675
      TabIndex        =   1
      Top             =   1125
      Width           =   1215
   End
   Begin VB.TextBox txtp 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      IMEMode         =   3  'DISABLE
      Left            =   900
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   375
      Width           =   2415
   End
   Begin VB.Label Label1 
      Caption         =   "密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   315
      Left            =   75
      TabIndex        =   2
      Top             =   375
      Width           =   915
   End
End
Attribute VB_Name = "pass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public permit As Boolean
Private Sub txtn_Click()
main1.cmodify.Enabled = True
Unload Me
End Sub

Private Sub right()
Dim ch As Integer
Dim i As Integer
Dim passw, sh
Dim deletepass As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase(App.Path & "\data.mdb")
Set rs = db.OpenRecordset("杂项") '("select * from 杂项 where 用户='" & DBCombolog.Text & "'")
passw = rs.Fields("修改密码")
pp = txtp.Text
If markdelete = False Then
    If pp = passw Then
       main1.txtchange.Enabled = True
       main1.txtchange.SetFocus
       main1.cdecide.Enabled = True
       Unload Me
    Else
       sh = MsgBox("密码错误,您无权修改次项！", vbDefaultButton1 + vbExclamation, "警告")
       txtp.SetFocus
       SendKeys "{Home}+{End}"
    End If
Else
    permit = False
    deletepass = Date
    deletepass = Format(deletepass, "yyyymmdd")
    deletepass = Mid(deletepass, 5, 4)
    'If pp = passw Then
    If pp = deletepass Then
       permit = True
       If pass.permit = True Then
   If main1.Datainfq.Recordset.BOF = True And main1.Datainfq.Recordset.EOF = True Then
      ch = MsgBox("没有任何资料可删除", vbOKOnly + vbExclamation, "警告")
      If ch = vbOK Then
         Exit Sub
      End If
   Else
      main1.Datainfq.Recordset.MoveLast
      For i = 1 To main1.Datainfq.Recordset.RecordCount
          main1.Datainfq.Recordset.Delete
          main1.Datainfq.Refresh
          main1.DBGridinf.ClearFields
      Next i
      db.Execute "delete * from 巡逻资料 where 日期= cdate('" & main1.dtstartcx.Value & "')or  日期=cdate( '" & main1.dtendcx.Value & "') or  区域 ='" & main1.txtareax.Text & "' or 安置地点 ='" & main1.txtpax.Text & "' or 巡逻人员='" & main1.txtxlman.Text & "' or 系统卡号 ='" & main1.txtxlkh.Text & "' "
      'If main1.Datainfq.Recordset.BOF = True Then
       '  main1.Datainfq.Recordset.MoveFirst
      'Else
       '  main1.Datainfq.Recordset.MoveFirst
      'End If
   End If
'If Datainf.Recordset.EOF = True And Datainf.Recordset.BOF = True Then
'   ch = MsgBox("没有任何资料可删除", vbOKOnly + vbExclamation, "警告")
'   If ch = vbOK Then
'      Exit Sub
'   End If
'Else
'   mydb.Execute "delete * from 巡逻资料 where 日期= cdate('" & dtstartcx.Value & "')or  日期=cdate( '" & dtendcx.Value & "') or  区域 ='" & txtareax.Text & "' or 安置地点 ='" & txtpax.Text & "' or 巡逻人员='" & txtxlman.Text & "' or 系统卡号 ='" & txtxlkh.Text & "' "
'End If
   If main1.Datainf.Recordset.EOF = True And main1.Datainf.Recordset.BOF = True Then
      Exit Sub
      If main1.Datainf.Recordset.EOF = True Then
         main1.Datainf.Recordset.MoveLast
      Else
         main1.Datainf.Recordset.MoveNext
      End If
   End If
   
End If
       Unload Me
    Else
       sh = MsgBox("密码错误,您无权删除！", vbDefaultButton1 + vbExclamation, "警告")
       txtp.SetFocus
       SendKeys "{Home}+{End}"
    End If
End If
rs.Close

End Sub

Private Sub txtp_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
   Call right
End If
End Sub

Private Sub txty_Click()
Call right
End Sub