开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 其他游戏 > 查看源码
mainForm.frm
资源名称：七八个vb游戏.rar　[点击查看]
上传用户：tashmp
上传日期：2010-04-03
资源大小：882k
文件大小：20k
源码类别：

其他游戏

开发平台：

Visual Basic

mainForm.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form mainForm 
  4.    BackColor       =   &H8000000A&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "驾照年审管理系统"
  7.    ClientHeight    =   7410
  8.    ClientLeft      =   150
  9.    ClientTop       =   780
  10.    ClientWidth     =   12675
  11.    Icon            =   "mainForm.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   7410
  16.    ScaleWidth      =   12675
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSComctlLib.ImageList ImageList2 
  19.       Left            =   3120
  20.       Top             =   7080
  21.       _ExtentX        =   1005
  22.       _ExtentY        =   1005
  23.       BackColor       =   -2147483643
  24.       ImageWidth      =   16
  25.       ImageHeight     =   16
  26.       MaskColor       =   12632256
  27.       _Version        =   393216
  28.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  29.          NumListImages   =   23
  30.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  31.             Picture         =   "mainForm.frx":0CCA
  32.             Key             =   ""
  33.          EndProperty
  34.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  35.             Picture         =   "mainForm.frx":1F4C
  36.             Key             =   ""
  37.          EndProperty
  38.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  39.             Picture         =   "mainForm.frx":2E26
  40.             Key             =   ""
  41.          EndProperty
  42.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  43.             Picture         =   "mainForm.frx":3700
  44.             Key             =   ""
  45.          EndProperty
  46.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  47.             Picture         =   "mainForm.frx":3A1A
  48.             Key             =   ""
  49.          EndProperty
  50.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  51.             Picture         =   "mainForm.frx":42F4
  52.             Key             =   ""
  53.          EndProperty
  54.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  55.             Picture         =   "mainForm.frx":460E
  56.             Key             =   ""
  57.          EndProperty
  58.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  59.             Picture         =   "mainForm.frx":51E0
  60.             Key             =   ""
  61.          EndProperty
  62.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  63.             Picture         =   "mainForm.frx":60BA
  64.             Key             =   ""
  65.          EndProperty
  66.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  67.             Picture         =   "mainForm.frx":787C
  68.             Key             =   ""
  69.          EndProperty
  70.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  71.             Picture         =   "mainForm.frx":9586
  72.             Key             =   ""
  73.          EndProperty
  74.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  75.             Picture         =   "mainForm.frx":98A0
  76.             Key             =   ""
  77.          EndProperty
  78.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  79.             Picture         =   "mainForm.frx":9BBA
  80.             Key             =   ""
  81.          EndProperty
  82.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "mainForm.frx":9ED4
  84.             Key             =   ""
  85.          EndProperty
  86.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "mainForm.frx":ABAE
  88.             Key             =   ""
  89.          EndProperty
  90.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.             Picture         =   "mainForm.frx":BA00
  92.             Key             =   ""
  93.          EndProperty
  94.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.             Picture         =   "mainForm.frx":C2DA
  96.             Key             =   ""
  97.          EndProperty
  98.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.             Picture         =   "mainForm.frx":C5F4
  100.             Key             =   ""
  101.          EndProperty
  102.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "mainForm.frx":C90E
  104.             Key             =   ""
  105.          EndProperty
  106.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "mainForm.frx":D1E8
  108.             Key             =   ""
  109.          EndProperty
  110.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "mainForm.frx":D502
  112.             Key             =   ""
  113.          EndProperty
  114.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "mainForm.frx":E1DC
  116.             Key             =   ""
  117.          EndProperty
  118.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "mainForm.frx":FEE6
  120.             Key             =   ""
  121.          EndProperty
  122.       EndProperty
  123.    End
  124.    Begin MSComctlLib.ListView ListView2 
  125.       Height          =   5895
  126.       Left            =   3120
  127.       TabIndex        =   4
  128.       Top             =   1560
  129.       Width           =   9615
  130.       _ExtentX        =   16960
  131.       _ExtentY        =   10398
  132.       LabelWrap       =   -1  'True
  133.       HideSelection   =   -1  'True
  134.       _Version        =   393217
  135.       Icons           =   "ImageList2"
  136.       ForeColor       =   32768
  137.       BackColor       =   16761024
  138.       BorderStyle     =   1
  139.       Appearance      =   1
  140.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   12
  143.          Charset         =   0
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       NumItems        =   0
  150.    End
  151.    Begin MSComctlLib.ListView ListView1 
  152.       Height          =   5895
  153.       Left            =   0
  154.       TabIndex        =   3
  155.       Top             =   1560
  156.       Width           =   3135
  157.       _ExtentX        =   5530
  158.       _ExtentY        =   10398
  159.       LabelWrap       =   -1  'True
  160.       HideSelection   =   -1  'True
  161.       _Version        =   393217
  162.       Icons           =   "ImageList2"
  163.       ForeColor       =   32768
  164.       BackColor       =   16761024
  165.       BorderStyle     =   1
  166.       Appearance      =   1
  167.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  168.          Name            =   "MS Sans Serif"
  169.          Size            =   9.75
  170.          Charset         =   0
  171.          Weight          =   400
  172.          Underline       =   0   'False
  173.          Italic          =   0   'False
  174.          Strikethrough   =   0   'False
  175.       EndProperty
  176.       NumItems        =   0
  177.    End
  178.    Begin VB.Frame Frame1 
  179.       Appearance      =   0  'Flat
  180.       BackColor       =   &H80000008&
  181.       ForeColor       =   &H80000008&
  182.       Height          =   735
  183.       Left            =   -360
  184.       TabIndex        =   1
  185.       Top             =   840
  186.       Width           =   13335
  187.       Begin VB.Label Label1 
  188.          BackStyle       =   0  'Transparent
  189.          Caption         =   "欢迎使用驾照年审管理系统"
  190.          BeginProperty Font 
  191.             Name            =   "MS Sans Serif"
  192.             Size            =   13.5
  193.             Charset         =   0
  194.             Weight          =   700
  195.             Underline       =   0   'False
  196.             Italic          =   0   'False
  197.             Strikethrough   =   0   'False
  198.          EndProperty
  199.          ForeColor       =   &H0080FF80&
  200.          Height          =   375
  201.          Left            =   4440
  202.          TabIndex        =   2
  203.          Top             =   240
  204.          Width           =   3855
  205.       End
  206.    End
  207.    Begin MSComctlLib.Toolbar Toolbar1 
  208.       Align           =   1  'Align Top
  209.       Height          =   840
  210.       Left            =   0
  211.       TabIndex        =   0
  212.       Top             =   0
  213.       Width           =   12675
  214.       _ExtentX        =   22357
  215.       _ExtentY        =   1482
  216.       ButtonWidth     =   2223
  217.       ButtonHeight    =   1323
  218.       Appearance      =   1
  219.       ImageList       =   "ImageList1"
  220.       _Version        =   393216
  221.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  222.          NumButtons      =   7
  223.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  224.             Caption         =   "驾驶员资料查询"
  225.             Key             =   "ry_query"
  226.             Object.ToolTipText     =   "驾驶员资料查询"
  227.             ImageIndex      =   1
  228.          EndProperty
  229.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  230.             Caption         =   "驾驶员表现查询"
  231.             Key             =   "bx_query"
  232.             Object.ToolTipText     =   "驾驶员表现查询"
  233.             ImageIndex      =   2
  234.          EndProperty
  235.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  236.             Caption         =   "驾驶员积分查询"
  237.             Key             =   "jf_query"
  238.             Object.ToolTipText     =   "驾驶员积分查询"
  239.             ImageIndex      =   3
  240.          EndProperty
  241.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  242.             Caption         =   "年审评定查询"
  243.             Key             =   "pd_query"
  244.             Object.ToolTipText     =   "年审评定查询"
  245.             ImageIndex      =   4
  246.          EndProperty
  247.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  248.             Caption         =   "权限管理"
  249.             Key             =   "tqx_gl"
  250.             Object.ToolTipText     =   "权限管理"
  251.             ImageIndex      =   5
  252.          EndProperty
  253.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  254.             Caption         =   "帮助信息"
  255.             Key             =   "Thelp"
  256.             Object.ToolTipText     =   "帮助信息"
  257.             ImageIndex      =   6
  258.          EndProperty
  259.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  260.             Caption         =   "退出系统"
  261.             Key             =   "exit"
  262.             Object.ToolTipText     =   "退出系统"
  263.             ImageIndex      =   7
  264.          EndProperty
  265.       EndProperty
  266.    End
  267.    Begin MSComctlLib.ImageList ImageList1 
  268.       Left            =   12000
  269.       Top             =   6840
  270.       _ExtentX        =   1005
  271.       _ExtentY        =   1005
  272.       BackColor       =   -2147483643
  273.       ImageWidth      =   32
  274.       ImageHeight     =   32
  275.       MaskColor       =   12632256
  276.       _Version        =   393216
  277.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  278.          NumListImages   =   7
  279.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.             Picture         =   "mainForm.frx":11678
  281.             Key             =   ""
  282.          EndProperty
  283.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.             Picture         =   "mainForm.frx":12352
  285.             Key             =   ""
  286.          EndProperty
  287.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.             Picture         =   "mainForm.frx":1266C
  289.             Key             =   ""
  290.          EndProperty
  291.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.             Picture         =   "mainForm.frx":13346
  293.             Key             =   ""
  294.          EndProperty
  295.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.             Picture         =   "mainForm.frx":14020
  297.             Key             =   ""
  298.          EndProperty
  299.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.             Picture         =   "mainForm.frx":14CFA
  301.             Key             =   ""
  302.          EndProperty
  303.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.             Picture         =   "mainForm.frx":15014
  305.             Key             =   ""
  306.          EndProperty
  307.       EndProperty
  308.    End
  309.    Begin VB.Menu mainzy 
  310.       Caption         =   "驾驶员资料管理"
  311.       Begin VB.Menu zl_addry 
  312.          Caption         =   "添加人员"
  313.       End
  314.       Begin VB.Menu zl_queryry 
  315.          Caption         =   "查询人员"
  316.       End
  317.       Begin VB.Menu zl_midry 
  318.          Caption         =   "修改人员"
  319.       End
  320.       Begin VB.Menu zl_delry 
  321.          Caption         =   "删除人员"
  322.       End
  323.    End
  324.    Begin VB.Menu bx_gl 
  325.       Caption         =   "驾驶员表现管理"
  326.       Begin VB.Menu bx_addry 
  327.          Caption         =   "添加人员"
  328.       End
  329.       Begin VB.Menu bx_queryry 
  330.          Caption         =   "查询人员"
  331.       End
  332.       Begin VB.Menu bx_mdiry 
  333.          Caption         =   "修改人员"
  334.       End
  335.       Begin VB.Menu bx_delry 
  336.          Caption         =   "删除人员"
  337.       End
  338.    End
  339.    Begin VB.Menu jf_gl 
  340.       Caption         =   "驾驶员积分管理"
  341.       Begin VB.Menu jf_addru 
  342.          Caption         =   "添加人员"
  343.       End
  344.       Begin VB.Menu jf_queryry 
  345.          Caption         =   "查询人员"
  346.       End
  347.       Begin VB.Menu jf_midry 
  348.          Caption         =   "修改人员"
  349.       End
  350.       Begin VB.Menu fj_delry 
  351.          Caption         =   "删除人员"
  352.       End
  353.    End
  354.    Begin VB.Menu ns_pd 
  355.       Caption         =   "驾驶员年审评定"
  356.       Begin VB.Menu ns_query 
  357.          Caption         =   "查询年审评定"
  358.       End
  359.       Begin VB.Menu ns_addry 
  360.          Caption         =   "添加年审评定"
  361.       End
  362.    End
  363.    Begin VB.Menu xtgl 
  364.       Caption         =   "权限管理"
  365.       Begin VB.Menu gly_gl 
  366.          Caption         =   "管理员权限管理"
  367.       End
  368.       Begin VB.Menu yhgx_gl 
  369.          Caption         =   "用户权限管理"
  370.       End
  371.    End
  372.    Begin VB.Menu help 
  373.       Caption         =   "帮助信息"
  374.       Begin VB.Menu about 
  375.          Caption         =   "关于........"
  376.       End
  377.    End
  378. End
  379. Attribute VB_Name = "mainForm"
  380. Attribute VB_GlobalNameSpace = False
  381. Attribute VB_Creatable = False
  382. Attribute VB_PredeclaredId = True
  383. Attribute VB_Exposed = False
  384. Option Explicit
  386. Private Sub about_Click()
  387. aboutForm.Show
  389. End Sub
  391. Private Sub bx_addry_Click()
  392. bx_Form.Show
  393. End Sub
  395. Private Sub bx_delry_Click()
  396. bx_Form.Show
  397. End Sub
  399. Private Sub bx_mdiry_Click()
  400. bx_Form.Show
  401. End Sub
  403. Private Sub bx_queryry_Click()
  404. bx_Form.Show
  406. End Sub
  408. Private Sub fj_delry_Click()
  409. jf_xgForm.Show
  410. End Sub
  412. Private Sub Form_Load()
  413. 'Frame1.Left = Me.Width - Frame1.Width
  414. 'Listview的设置
  416. Me.Left = (Screen.Width - Me.Width) / 2 - 150
  417. Me.Top = (Screen.Height - Me.Height) / 2 - 200
  418. Dim Item As ListItem
  419. Set Item = ListView1.ListItems.Add(, , "驾驶员资料管理")
  420. Item.Icon = 1
  421. Set Item = ListView1.ListItems.Add(, , "驾驶员表现管理")
  422. Item.Icon = 2
  423. Set Item = ListView1.ListItems.Add(, , "驾驶员积分管理")
  424. Item.Icon = 3
  425. Set Item = ListView1.ListItems.Add(, , "驾驶员年审评定")
  426. Item.Icon = 4
  427. Set Item = ListView1.ListItems.Add(, , "年审系统管理")
  428. Item.Icon = 5
  429. Set Item = ListView1.ListItems.Add(, , "年审帮助信息")
  430. Item.Icon = 6
  431. Set Item = ListView2.ListItems.Add(, , "人员资料添加")
  432. Item.Icon = 7
  433. Set Item = ListView2.ListItems.Add(, , "人员资料查询")
  434. Item.Icon = 8
  435. Set Item = ListView2.ListItems.Add(, , "人员资料修改")
  436. Item.Icon = 9
  437. Set Item = ListView2.ListItems.Add(, , "人员资料删除")
  438. Item.Icon = 10
  439. End Sub
  441. Private Sub gly_gl_Click()
  442. If priview = "admini" Then
  443.  gly_qxForm.Show
  444.  Else
  445.  MsgBox "你没有权限使用!!", 48, "友情提示!!"
  446.  
  447. End If
  448. End Sub
  450. Private Sub jf_addru_Click()
  451. jf_xgForm.Show
  453. End Sub
  455. Private Sub jf_midry_Click()
  456. jf_xgForm.Show
  457. End Sub
  459. '积分查询
  460. Private Sub jf_queryry_Click()
  461. jfForm.Show
  462. End Sub
  464. 'Listview事件
  465. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  466.  ListView2.ListItems.Clear '清空
  467. ' Dim item As ListItem
  468.  Select Case Item.Text
  469.   Case "驾驶员资料管理"
  470.  Set Item = ListView2.ListItems.Add(, , "人员资料添加")
  471.  Item.Icon = 7
  472.  Set Item = ListView2.ListItems.Add(, , "人员资料查询")
  473.  Item.Icon = 8
  474.  Set Item = ListView2.ListItems.Add(, , "人员资料修改")
  475.  Item.Icon = 9
  476.  Set Item = ListView2.ListItems.Add(, , "人员资料删除")
  477.  Item.Icon = 10
  478.  Case "驾驶员表现管理"
  479.   Set Item = ListView2.ListItems.Add(, , "人员表现添加")
  480.  Item.Icon = 11
  481.  Set Item = ListView2.ListItems.Add(, , "人员表现删除")
  482.  Item.Icon = 12
  483.  Set Item = ListView2.ListItems.Add(, , "人员表现修改")
  484.  Item.Icon = 13
  485.  Set Item = ListView2.ListItems.Add(, , "人员表现查询")
  486.  Item.Icon = 14
  487.  Case "驾驶员积分管理"
  488.   Set Item = ListView2.ListItems.Add(, , "人员积分添加")
  489.  Item.Icon = 15
  490.  Set Item = ListView2.ListItems.Add(, , "人员积分删除")
  491.  Item.Icon = 16
  492.  Set Item = ListView2.ListItems.Add(, , "人员积分修改")
  493.  Item.Icon = 17
  494.  Set Item = ListView2.ListItems.Add(, , "人员积分查询")
  495.  Item.Icon = 18
  496.  Case "驾驶员年审评定"
  497.  Set Item = ListView2.ListItems.Add(, , "年审评定查询")
  498.  Item.Icon = 19
  499.  Set Item = ListView2.ListItems.Add(, , "年审评定添加")
  500.  Item.Icon = 20
  501.  Case "年审系统管理"
  502.  Set Item = ListView2.ListItems.Add(, , "系统权限管理1")
  503.  Item.Icon = 21
  505.  Set Item = ListView2.ListItems.Add(, , "系统权限管理2")
  506.  Item.Icon = 23
  507.  Case "年审帮助信息"
  508.  Set Item = ListView2.ListItems.Add(, , "系统帮助信息")
  509.  Item.Icon = 22
  511.  End Select
  512.  
  513.  
  514.  
  515. End Sub
  519. Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
  520. Select Case Item.Text
  521.  Case "人员资料添加"
  522.   If priview = "admini" Then
  523.   zl_tjForm.Show
  524.   Else
  525.   MsgBox "你没有权限使用!", 16, "友情提示!"
  526.   End If
  527.  Case "人员资料查询"
  528.  
  529.  zlqueryForm.Show
  530.  zlqueryForm.SetFocus
  531.  Case "人员资料修改"
  532.   If priview = "admini" Then
  533.   zl_midForm.Show
  534.   Else
  535.   MsgBox "你没有权限使用!", 16, "友情提示!"
  536.   End If
  537.   Case "人员资料删除"
  538.    If priview = "admini" Then
  539.   zl_midForm.Show
  540.   Else
  541.   MsgBox "你没有权限使用!", 16, "友情提示!"
  542.   End If
  543.   Case "人员表现查询"
  544.   bx_Form.Show
  545.   Case "人员表现删除"
  547.    If priview = "admini" Then
  548.      bx_Form.Show
  549.   
  550.    End If
  551.    Case "人员表现修改"
  552.   
  553.     If priview = "admini" Then
  554.       bx_Form.Show
  555.   
  556.    End If
  557.    Case "人员表现添加"
  558.     
  559.     If priview = "admini" Then
  560.     bx_Form.Show
  561.   
  562.    End If
  563.    Case "人员积分查询"
  564.    jfForm.Show
  565.    Case "人员积分删除"
  566.     If priview = "admini" Then
  567.     jf_xgForm.Show
  568.      Else
  569.      MsgBox "你没有权限使用!", 48, "友情提示!"
  570.      
  571.     End If
  572.     Case "人员积分添加"
  573.      If priview = "admini" Then
  574.     jf_xgForm.Show
  575.      Else
  576.      MsgBox "你没有权限使用!", 48, "友情提示!"
  577.      
  578.     End If
  579.     Case "人员积分修改"
  580.      If priview = "admini" Then
  581.     jf_xgForm.Show
  582.      Else
  583.      MsgBox "你没有权限使用!", 48, "友情提示!"
  584.      End If
  585.      Case "年审评定查询"
  586.      ns_queryForm.Show
  587.      Case "年审评定添加"
  588.       If priview = "admini" Then
  589.       ns_tjForm.Show
  590.      Else
  591.      MsgBox "你没有权限使用!", 48, "友情提示!"
  592.      End If
  593.      Case "系统权限管理1"
  594.      If priview = "admini" Then
  595.    yh_qxForm.Show
  596.    Else
  597.    MsgBox "你没有权限使用!!", 48, "友情提示!!"
  598.  
  599. End If
  600. Case "系统权限管理2"
  601.  If priview = "admini" Then
  602.  gly_qxForm.Show
  603.  Else
  604.  MsgBox "你没有权限使用!!", 48, "友情提示!!"
  605.  
  606. End If
  607. End Select
  608. End Sub
  610. Private Sub ns_addry_Click()
  611. ns_tjForm.Show
  612. End Sub
  614. '查询年审评定
  615. Private Sub ns_query_Click()
  616. ns_queryForm.Show
  617. End Sub
  619. '工具拦事件
  620. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  621.  Select Case Button.Index
  622.   Case 1
  623.    '资料查询
  624.    
  625.    zlqueryForm.Show
  626.   Case 2
  627.   '表现查询
  628.   bx_Form.Show
  629.   
  630.   Case 3
  631.    '积分查询
  632.    jfForm.Show
  633.    
  634.   Case 4
  635.    '年审查询
  636.    ns_queryForm.Show
  637.    
  638.   Case 5
  639.    gly_qxForm.Show
  640.    '权限管理
  641.   Case 6
  642.    '帮助信息
  643.    aboutForm.Show
  644.    
  645.    Case 7
  646.     '退出系统
  647.    
  648.     End
  649.    End
  650.  End Select
  652. End Sub
  655. Private Sub yhgx_gl_Click()
  656. If priview = "admini" Then
  657.  yh_qxForm.Show
  658.  Else
  659.  MsgBox "你没有权限使用!!", 48, "友情提示!!"
  660.  
  661. End If
  662. End Sub
  664. Private Sub zl_addry_Click()
  665. If priview = "admini" Then
  667. zl_tjForm.Show
  668. Else
  669. MsgBox "你没有添加的权限", 16, "查询提示"
  670. End If
  671. End Sub
  672. '删除记录
  673. Private Sub zl_delry_Click()
  674. If priview = "admini" Then
  676. zl_midForm.Show
  677. Else
  678. MsgBox "你没有添加的权限", 16, "查询提示"
  679. End If
  680. End Sub
  682. '驾驶员资料修改
  683. Private Sub zl_midry_Click()
  684. If priview = "admini" Then
  686. zl_midForm.Show
  687. Else
  688. MsgBox "你没有添加的权限", 16, "查询提示"
  689. End If
  690. End Sub
  692. Private Sub zl_queryry_Click()
  694. zlqueryForm.Show
  695. End Sub