进入界面.frm

可以帮助交通部门管理车辆肇事后的相关事宜

VERSION 5.00
Begin VB.Form 进入界面 
   AutoRedraw      =   -1  'True
   Caption         =   "交警大队扣证扣车管理系统-小凡工作室"
   ClientHeight    =   7950
   ClientLeft      =   3570
   ClientTop       =   2415
   ClientWidth     =   12930
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "进入界面.frx":0000
   ScaleHeight     =   7950
   ScaleWidth      =   12930
   WindowState     =   2  'Maximized
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "D:\交通大队扣车\jjdd.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   1800
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "KeyID"
      Top             =   2160
      Visible         =   0   'False
      Width           =   2415
   End
   Begin VB.Menu Done 
      Caption         =   "业务操作"
      Index           =   1
      NegotiatePosition=   1  'Left
      Begin VB.Menu WriteFile 
         Caption         =   "资料录入"
         HelpContextID   =   2
         Index           =   2
         Shortcut        =   ^W
      End
      Begin VB.Menu ReadFile 
         Caption         =   "业务受理"
         Index           =   3
         Shortcut        =   ^R
      End
      Begin VB.Menu FindInfo 
         Caption         =   "信息查询"
         Index           =   10
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu KeyMag 
      Caption         =   "密码管理"
      Index           =   4
      Begin VB.Menu ChangeKey 
         Caption         =   "更改密码"
         Index           =   5
         Shortcut        =   ^A
      End
      Begin VB.Menu AddUser 
         Caption         =   "帐户管理"
         Index           =   6
         Shortcut        =   ^C
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Index           =   7
      Begin VB.Menu Quit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
      Begin VB.Menu AboutUs 
         Caption         =   "关于我们"
         Index           =   8
         Shortcut        =   ^U
      End
   End
End
Attribute VB_Name = "进入界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub Command4_Click()
密码更改.Show
密码更改.Text1.SetFocus
Unload Me
End Sub



Private Sub AddUser_Click(Index As Integer)
Data1.Recordset.FindFirst "State=1"
If Data1.Recordset.NoMatch Then
Else
    S = Data1.Recordset.Fields("VIP").Value
    If S = "管理人员" Then
        添加用户.Show
    Else
         MsgBox "你没有该权限！", vbOKOnly, "提示框"
    End If
End If
End Sub

Private Sub ChangeKey_Click(Index As Integer)
密码更改.Show
密码更改.Text1.SetFocus
End Sub

Private Sub FindInfo_Click(Index As Integer)
信息查询.Show
End Sub


Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\" + "jjdd.mdb"
Data1.Refresh

Static S As String



End Sub

Private Sub Quit_Click()
Unload Me
End Sub

Private Sub ReadFile_Click(Index As Integer)
Data1.Recordset.FindFirst "State=1"
If Data1.Recordset.NoMatch Then
Else
    S = Data1.Recordset.Fields("VIP").Value
    If S = "一般工作人员" Then
        MsgBox "你没有该权限！", vbOKOnly, "提示框"
    Else
        业务受理.Show
        业务受理.Text4.SetFocus
    End If
End If
End Sub

Private Sub User_Click()
Form2.Show
End Sub

Private Sub WriteFile_Click(Index As Integer)
Data1.Recordset.FindFirst "State=1"
If Data1.Recordset.NoMatch Then
Else
    S = Data1.Recordset.Fields("VIP").Value
    If S = "一般工作人员" Then
        MsgBox "你没有该权限！", vbOKOnly, "提示框"
    Else
        资料录入.Show
    End If
End If
End Sub