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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
frm4.frm
资源名称：zkemsdk.zip　[点击查看]
上传用户：lzd18710
上传日期：2009-11-26
资源大小：3595k
文件大小：48k
源码类别：

通讯编程

开发平台：

Visual Basic

frm4.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frm4 
  3.    Caption         =   "AccessControl"
  4.    ClientHeight    =   6135
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   11610
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   9.75
  11.       Charset         =   0
  12.       Weight          =   400
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    ScaleHeight     =   6135
  20.    ScaleWidth      =   11610
  21.    StartUpPosition =   3  'Windows Default
  22.    Begin VB.CommandButton cmdOpenDoor 
  23.       Caption         =   "OpenTheDoor"
  24.       BeginProperty Font 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   8.25
  27.          Charset         =   0
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       Height          =   375
  34.       Left            =   6000
  35.       TabIndex        =   76
  36.       Top             =   2040
  37.       Width           =   1455
  38.    End
  39.    Begin VB.ListBox lsUnlockGrp 
  40.       Height          =   1260
  41.       Left            =   9240
  42.       TabIndex        =   75
  43.       Top             =   4680
  44.       Width           =   2295
  45.    End
  46.    Begin VB.CommandButton cmdGetUnlockGrp 
  47.       Caption         =   "GetUnlockGrp"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   375
  58.       Left            =   9720
  59.       TabIndex        =   74
  60.       Top             =   4200
  61.       Width           =   1455
  62.    End
  63.    Begin VB.TextBox txtGrp10 
  64.       BeginProperty Font 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   8.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       Height          =   375
  74.       Left            =   9840
  75.       TabIndex        =   73
  76.       Top             =   3840
  77.       Width           =   1575
  78.    End
  79.    Begin VB.TextBox txtGrp9 
  80.       BeginProperty Font 
  81.          Name            =   "MS Sans Serif"
  82.          Size            =   8.25
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       Height          =   375
  90.       Left            =   9840
  91.       TabIndex        =   72
  92.       Top             =   3480
  93.       Width           =   1575
  94.    End
  95.    Begin VB.TextBox txtGrp8 
  96.       BeginProperty Font 
  97.          Name            =   "MS Sans Serif"
  98.          Size            =   8.25
  99.          Charset         =   0
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   375
  106.       Left            =   9840
  107.       TabIndex        =   71
  108.       Top             =   3120
  109.       Width           =   1575
  110.    End
  111.    Begin VB.TextBox txtGrp7 
  112.       BeginProperty Font 
  113.          Name            =   "MS Sans Serif"
  114.          Size            =   8.25
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   375
  122.       Left            =   9840
  123.       TabIndex        =   70
  124.       Top             =   2760
  125.       Width           =   1575
  126.    End
  127.    Begin VB.TextBox txtGrp6 
  128.       BeginProperty Font 
  129.          Name            =   "MS Sans Serif"
  130.          Size            =   8.25
  131.          Charset         =   0
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       Height          =   375
  138.       Left            =   9840
  139.       TabIndex        =   69
  140.       Text            =   "24"
  141.       Top             =   2400
  142.       Width           =   1575
  143.    End
  144.    Begin VB.TextBox txtGrp5 
  145.       BeginProperty Font 
  146.          Name            =   "MS Sans Serif"
  147.          Size            =   8.25
  148.          Charset         =   0
  149.          Weight          =   400
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       Height          =   360
  155.       Left            =   9840
  156.       TabIndex        =   68
  157.       Text            =   "23"
  158.       Top             =   2040
  159.       Width           =   1575
  160.    End
  161.    Begin VB.TextBox txtGrp4 
  162.       BeginProperty Font 
  163.          Name            =   "MS Sans Serif"
  164.          Size            =   8.25
  165.          Charset         =   0
  166.          Weight          =   400
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       Height          =   360
  172.       Left            =   9840
  173.       TabIndex        =   67
  174.       Text            =   "15"
  175.       Top             =   1680
  176.       Width           =   1575
  177.    End
  178.    Begin VB.TextBox txtGrp3 
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   400
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   375
  189.       Left            =   9840
  190.       TabIndex        =   66
  191.       Text            =   "14"
  192.       Top             =   1320
  193.       Width           =   1575
  194.    End
  195.    Begin VB.TextBox txtGrp2 
  196.       BeginProperty Font 
  197.          Name            =   "MS Sans Serif"
  198.          Size            =   8.25
  199.          Charset         =   0
  200.          Weight          =   400
  201.          Underline       =   0   'False
  202.          Italic          =   0   'False
  203.          Strikethrough   =   0   'False
  204.       EndProperty
  205.       Height          =   360
  206.       Left            =   9840
  207.       TabIndex        =   65
  208.       Text            =   "13"
  209.       Top             =   960
  210.       Width           =   1575
  211.    End
  212.    Begin VB.TextBox txtGrp1 
  213.       BeginProperty Font 
  214.          Name            =   "MS Sans Serif"
  215.          Size            =   8.25
  216.          Charset         =   0
  217.          Weight          =   400
  218.          Underline       =   0   'False
  219.          Italic          =   0   'False
  220.          Strikethrough   =   0   'False
  221.       EndProperty
  222.       Height          =   345
  223.       Left            =   9840
  224.       TabIndex        =   64
  225.       Text            =   "12"
  226.       Top             =   600
  227.       Width           =   1575
  228.    End
  229.    Begin VB.CommandButton cmdSetUnlockGroups 
  230.       Caption         =   "SetUnlockGroups"
  231.       BeginProperty Font 
  232.          Name            =   "MS Sans Serif"
  233.          Size            =   8.25
  234.          Charset         =   0
  235.          Weight          =   400
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       Height          =   375
  241.       Left            =   9720
  242.       TabIndex        =   53
  243.       Top             =   240
  244.       Width           =   1455
  245.    End
  246.    Begin VB.ListBox lsGrpTZ 
  247.       Height          =   2700
  248.       Left            =   7200
  249.       TabIndex        =   52
  250.       Top             =   3120
  251.       Width           =   1815
  252.    End
  253.    Begin VB.CommandButton cmdGetGrpTZ 
  254.       Caption         =   "GetGoupTZStr"
  255.       BeginProperty Font 
  256.          Name            =   "MS Sans Serif"
  257.          Size            =   8.25
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       Height          =   375
  265.       Left            =   7200
  266.       TabIndex        =   51
  267.       Top             =   2520
  268.       Width           =   1455
  269.    End
  270.    Begin VB.TextBox txtGrpTZ3 
  271.       BeginProperty Font 
  272.          Name            =   "MS Sans Serif"
  273.          Size            =   8.25
  274.          Charset         =   0
  275.          Weight          =   400
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       Height          =   375
  281.       Left            =   5520
  282.       TabIndex        =   48
  283.       Text            =   "3"
  284.       Top             =   5400
  285.       Width           =   1335
  286.    End
  287.    Begin VB.TextBox txtGrpTZ2 
  288.       BeginProperty Font 
  289.          Name            =   "MS Sans Serif"
  290.          Size            =   8.25
  291.          Charset         =   0
  292.          Weight          =   400
  293.          Underline       =   0   'False
  294.          Italic          =   0   'False
  295.          Strikethrough   =   0   'False
  296.       EndProperty
  297.       Height          =   375
  298.       Left            =   5520
  299.       TabIndex        =   47
  300.       Text            =   "2"
  301.       Top             =   4560
  302.       Width           =   1335
  303.    End
  304.    Begin VB.TextBox txtGrpTZ1 
  305.       BeginProperty Font 
  306.          Name            =   "MS Sans Serif"
  307.          Size            =   8.25
  308.          Charset         =   0
  309.          Weight          =   400
  310.          Underline       =   0   'False
  311.          Italic          =   0   'False
  312.          Strikethrough   =   0   'False
  313.       EndProperty
  314.       Height          =   360
  315.       Left            =   5520
  316.       TabIndex        =   46
  317.       Text            =   "1"
  318.       Top             =   3720
  319.       Width           =   1335
  320.    End
  321.    Begin VB.ComboBox cmbSGroupID 
  322.       BeginProperty Font 
  323.          Name            =   "MS Sans Serif"
  324.          Size            =   8.25
  325.          Charset         =   0
  326.          Weight          =   400
  327.          Underline       =   0   'False
  328.          Italic          =   0   'False
  329.          Strikethrough   =   0   'False
  330.       EndProperty
  331.       Height          =   315
  332.       ItemData        =   "frm4.frx":0000
  333.       Left            =   5520
  334.       List            =   "frm4.frx":0022
  335.       TabIndex        =   44
  336.       Text            =   "1"
  337.       Top             =   3120
  338.       Width           =   1335
  339.    End
  340.    Begin VB.CommandButton cmdSetGroupStr 
  341.       Caption         =   "SetGroupTZStr"
  342.       BeginProperty Font 
  343.          Name            =   "MS Sans Serif"
  344.          Size            =   8.25
  345.          Charset         =   0
  346.          Weight          =   400
  347.          Underline       =   0   'False
  348.          Italic          =   0   'False
  349.          Strikethrough   =   0   'False
  350.       EndProperty
  351.       Height          =   375
  352.       Left            =   5040
  353.       TabIndex        =   42
  354.       Top             =   2520
  355.       Width           =   1455
  356.    End
  357.    Begin VB.ListBox lsUserGroup 
  358.       BeginProperty Font 
  359.          Name            =   "MS Sans Serif"
  360.          Size            =   8.25
  361.          Charset         =   0
  362.          Weight          =   400
  363.          Underline       =   0   'False
  364.          Italic          =   0   'False
  365.          Strikethrough   =   0   'False
  366.       EndProperty
  367.       Height          =   1230
  368.       Left            =   7080
  369.       TabIndex        =   41
  370.       Top             =   720
  371.       Width           =   1935
  372.    End
  373.    Begin VB.CommandButton cdmGUGroup 
  374.       Caption         =   "GetUserGrop"
  375.       BeginProperty Font 
  376.          Name            =   "MS Sans Serif"
  377.          Size            =   8.25
  378.          Charset         =   0
  379.          Weight          =   400
  380.          Underline       =   0   'False
  381.          Italic          =   0   'False
  382.          Strikethrough   =   0   'False
  383.       EndProperty
  384.       Height          =   375
  385.       Left            =   7080
  386.       TabIndex        =   40
  387.       Top             =   240
  388.       Width           =   1455
  389.    End
  390.    Begin VB.ComboBox cmbGroupID 
  391.       Height          =   360
  392.       ItemData        =   "frm4.frx":0045
  393.       Left            =   5400
  394.       List            =   "frm4.frx":0058
  395.       TabIndex        =   38
  396.       Text            =   "1"
  397.       Top             =   1560
  398.       Width           =   1455
  399.    End
  400.    Begin VB.TextBox txtSUGID 
  401.       BeginProperty Font 
  402.          Name            =   "MS Sans Serif"
  403.          Size            =   8.25
  404.          Charset         =   0
  405.          Weight          =   400
  406.          Underline       =   0   'False
  407.          Italic          =   0   'False
  408.          Strikethrough   =   0   'False
  409.       EndProperty
  410.       Height          =   375
  411.       Left            =   5400
  412.       TabIndex        =   36
  413.       Text            =   "1"
  414.       Top             =   720
  415.       Width           =   1335
  416.    End
  417.    Begin VB.CommandButton cmdSetUserGroup 
  418.       Caption         =   "SetUserGroup"
  419.       BeginProperty Font 
  420.          Name            =   "MS Sans Serif"
  421.          Size            =   8.25
  422.          Charset         =   0
  423.          Weight          =   400
  424.          Underline       =   0   'False
  425.          Italic          =   0   'False
  426.          Strikethrough   =   0   'False
  427.       EndProperty
  428.       Height          =   375
  429.       Left            =   4920
  430.       TabIndex        =   35
  431.       Top             =   240
  432.       Width           =   1455
  433.    End
  434.    Begin VB.TextBox txtTZ3 
  435.       Height          =   360
  436.       Left            =   2760
  437.       TabIndex        =   34
  438.       Text            =   "3"
  439.       Top             =   5400
  440.       Width           =   1335
  441.    End
  442.    Begin VB.TextBox txtTZ2 
  443.       Height          =   375
  444.       Left            =   2760
  445.       TabIndex        =   32
  446.       Text            =   "2"
  447.       Top             =   4560
  448.       Width           =   1335
  449.    End
  450.    Begin VB.TextBox txtTZ1 
  451.       Height          =   375
  452.       Left            =   2760
  453.       TabIndex        =   30
  454.       Text            =   "1"
  455.       Top             =   3720
  456.       Width           =   1335
  457.    End
  458.    Begin VB.CommandButton cmdSeuUserTzInfo 
  459.       Caption         =   "SetUserTZInfo"
  460.       BeginProperty Font 
  461.          Name            =   "MS Sans Serif"
  462.          Size            =   8.25
  463.          Charset         =   0
  464.          Weight          =   400
  465.          Underline       =   0   'False
  466.          Italic          =   0   'False
  467.          Strikethrough   =   0   'False
  468.       EndProperty
  469.       Height          =   375
  470.       Left            =   2640
  471.       TabIndex        =   28
  472.       Top             =   3240
  473.       Width           =   1455
  474.    End
  475.    Begin VB.ListBox lsUserTZ 
  476.       Height          =   1740
  477.       Left            =   120
  478.       TabIndex        =   27
  479.       Top             =   4200
  480.       Width           =   1455
  481.    End
  482.    Begin VB.TextBox txtUserID 
  483.       BeginProperty Font 
  484.          Name            =   "MS Sans Serif"
  485.          Size            =   8.25
  486.          Charset         =   0
  487.          Weight          =   400
  488.          Underline       =   0   'False
  489.          Italic          =   0   'False
  490.          Strikethrough   =   0   'False
  491.       EndProperty
  492.       Height          =   375
  493.       Left            =   120
  494.       TabIndex        =   26
  495.       Text            =   "User ID"
  496.       Top             =   3720
  497.       Width           =   1455
  498.    End
  499.    Begin VB.CommandButton cmdGetUserTzInfo 
  500.       Caption         =   "GetUserTzInfo"
  501.       BeginProperty Font 
  502.          Name            =   "MS Sans Serif"
  503.          Size            =   8.25
  504.          Charset         =   0
  505.          Weight          =   400
  506.          Underline       =   0   'False
  507.          Italic          =   0   'False
  508.          Strikethrough   =   0   'False
  509.       EndProperty
  510.       Height          =   375
  511.       Left            =   120
  512.       TabIndex        =   25
  513.       Top             =   3240
  514.       Width           =   1455
  515.    End
  516.    Begin VB.CommandButton cmdTzInfo 
  517.       Caption         =   "SetTzInfo"
  518.       BeginProperty Font 
  519.          Name            =   "MS Sans Serif"
  520.          Size            =   8.25
  521.          Charset         =   0
  522.          Weight          =   400
  523.          Underline       =   0   'False
  524.          Italic          =   0   'False
  525.          Strikethrough   =   0   'False
  526.       EndProperty
  527.       Height          =   375
  528.       Left            =   2640
  529.       TabIndex        =   24
  530.       Top             =   240
  531.       Width           =   1455
  532.    End
  533.    Begin VB.TextBox txt77 
  534.       BeginProperty Font 
  535.          Name            =   "MS Sans Serif"
  536.          Size            =   8.25
  537.          Charset         =   0
  538.          Weight          =   400
  539.          Underline       =   0   'False
  540.          Italic          =   0   'False
  541.          Strikethrough   =   0   'False
  542.       EndProperty
  543.       Height          =   285
  544.       Left            =   3720
  545.       TabIndex        =   23
  546.       Text            =   "1818"
  547.       Top             =   720
  548.       Width           =   735
  549.    End
  550.    Begin VB.TextBox txt7 
  551.       BeginProperty Font 
  552.          Name            =   "MS Sans Serif"
  553.          Size            =   8.25
  554.          Charset         =   0
  555.          Weight          =   400
  556.          Underline       =   0   'False
  557.          Italic          =   0   'False
  558.          Strikethrough   =   0   'False
  559.       EndProperty
  560.       Height          =   285
  561.       Left            =   2400
  562.       TabIndex        =   22
  563.       Text            =   "0808"
  564.       Top             =   720
  565.       Width           =   735
  566.    End
  567.    Begin VB.TextBox txt66 
  568.       BeginProperty Font 
  569.          Name            =   "MS Sans Serif"
  570.          Size            =   8.25
  571.          Charset         =   0
  572.          Weight          =   400
  573.          Underline       =   0   'False
  574.          Italic          =   0   'False
  575.          Strikethrough   =   0   'False
  576.       EndProperty
  577.       Height          =   285
  578.       Left            =   3720
  579.       TabIndex        =   21
  580.       Text            =   "1818"
  581.       Top             =   2880
  582.       Width           =   735
  583.    End
  584.    Begin VB.TextBox txt6 
  585.       BeginProperty Font 
  586.          Name            =   "MS Sans Serif"
  587.          Size            =   8.25
  588.          Charset         =   0
  589.          Weight          =   400
  590.          Underline       =   0   'False
  591.          Italic          =   0   'False
  592.          Strikethrough   =   0   'False
  593.       EndProperty
  594.       Height          =   285
  595.       Left            =   2400
  596.       TabIndex        =   20
  597.       Text            =   "0808"
  598.       Top             =   2880
  599.       Width           =   735
  600.    End
  601.    Begin VB.TextBox txt55 
  602.       BeginProperty Font 
  603.          Name            =   "MS Sans Serif"
  604.          Size            =   8.25
  605.          Charset         =   0
  606.          Weight          =   400
  607.          Underline       =   0   'False
  608.          Italic          =   0   'False
  609.          Strikethrough   =   0   'False
  610.       EndProperty
  611.       Height          =   285
  612.       Left            =   3720
  613.       TabIndex        =   19
  614.       Text            =   "1818"
  615.       Top             =   2520
  616.       Width           =   735
  617.    End
  618.    Begin VB.TextBox txt5 
  619.       BeginProperty Font 
  620.          Name            =   "MS Sans Serif"
  621.          Size            =   8.25
  622.          Charset         =   0
  623.          Weight          =   400
  624.          Underline       =   0   'False
  625.          Italic          =   0   'False
  626.          Strikethrough   =   0   'False
  627.       EndProperty
  628.       Height          =   285
  629.       Left            =   2400
  630.       TabIndex        =   18
  631.       Text            =   "0808"
  632.       Top             =   2520
  633.       Width           =   735
  634.    End
  635.    Begin VB.TextBox txt44 
  636.       BeginProperty Font 
  637.          Name            =   "MS Sans Serif"
  638.          Size            =   8.25
  639.          Charset         =   0
  640.          Weight          =   400
  641.          Underline       =   0   'False
  642.          Italic          =   0   'False
  643.          Strikethrough   =   0   'False
  644.       EndProperty
  645.       Height          =   285
  646.       Left            =   3720
  647.       TabIndex        =   17
  648.       Text            =   "1818"
  649.       Top             =   2160
  650.       Width           =   735
  651.    End
  652.    Begin VB.TextBox txt4 
  653.       BeginProperty Font 
  654.          Name            =   "MS Sans Serif"
  655.          Size            =   8.25
  656.          Charset         =   0
  657.          Weight          =   400
  658.          Underline       =   0   'False
  659.          Italic          =   0   'False
  660.          Strikethrough   =   0   'False
  661.       EndProperty
  662.       Height          =   285
  663.       Left            =   2400
  664.       TabIndex        =   16
  665.       Text            =   "0808"
  666.       Top             =   2160
  667.       Width           =   735
  668.    End
  669.    Begin VB.TextBox txt33 
  670.       BeginProperty Font 
  671.          Name            =   "MS Sans Serif"
  672.          Size            =   8.25
  673.          Charset         =   0
  674.          Weight          =   400
  675.          Underline       =   0   'False
  676.          Italic          =   0   'False
  677.          Strikethrough   =   0   'False
  678.       EndProperty
  679.       Height          =   285
  680.       Left            =   3720
  681.       TabIndex        =   15
  682.       Text            =   "2359"
  683.       Top             =   1800
  684.       Width           =   735
  685.    End
  686.    Begin VB.TextBox txt3 
  687.       BeginProperty Font 
  688.          Name            =   "MS Sans Serif"
  689.          Size            =   8.25
  690.          Charset         =   0
  691.          Weight          =   400
  692.          Underline       =   0   'False
  693.          Italic          =   0   'False
  694.          Strikethrough   =   0   'False
  695.       EndProperty
  696.       Height          =   285
  697.       Left            =   2400
  698.       TabIndex        =   14
  699.       Text            =   "0808"
  700.       Top             =   1800
  701.       Width           =   735
  702.    End
  703.    Begin VB.TextBox txt22 
  704.       BeginProperty Font 
  705.          Name            =   "MS Sans Serif"
  706.          Size            =   8.25
  707.          Charset         =   0
  708.          Weight          =   400
  709.          Underline       =   0   'False
  710.          Italic          =   0   'False
  711.          Strikethrough   =   0   'False
  712.       EndProperty
  713.       Height          =   285
  714.       Left            =   3720
  715.       TabIndex        =   13
  716.       Text            =   "1818"
  717.       Top             =   1440
  718.       Width           =   735
  719.    End
  720.    Begin VB.TextBox txt2 
  721.       BeginProperty Font 
  722.          Name            =   "MS Sans Serif"
  723.          Size            =   8.25
  724.          Charset         =   0
  725.          Weight          =   400
  726.          Underline       =   0   'False
  727.          Italic          =   0   'False
  728.          Strikethrough   =   0   'False
  729.       EndProperty
  730.       Height          =   285
  731.       Left            =   2400
  732.       TabIndex        =   12
  733.       Text            =   "0808"
  734.       Top             =   1440
  735.       Width           =   735
  736.    End
  737.    Begin VB.TextBox txt11 
  738.       BeginProperty Font 
  739.          Name            =   "MS Sans Serif"
  740.          Size            =   8.25
  741.          Charset         =   0
  742.          Weight          =   400
  743.          Underline       =   0   'False
  744.          Italic          =   0   'False
  745.          Strikethrough   =   0   'False
  746.       EndProperty
  747.       Height          =   285
  748.       Left            =   3720
  749.       TabIndex        =   11
  750.       Text            =   "1818"
  751.       Top             =   1080
  752.       Width           =   735
  753.    End
  754.    Begin VB.TextBox txt1 
  755.       BeginProperty Font 
  756.          Name            =   "MS Sans Serif"
  757.          Size            =   8.25
  758.          Charset         =   0
  759.          Weight          =   400
  760.          Underline       =   0   'False
  761.          Italic          =   0   'False
  762.          Strikethrough   =   0   'False
  763.       EndProperty
  764.       Height          =   285
  765.       Left            =   2400
  766.       TabIndex        =   3
  767.       Text            =   "0808"
  768.       Top             =   1080
  769.       Width           =   735
  770.    End
  771.    Begin VB.ListBox lstTz 
  772.       Appearance      =   0  'Flat
  773.       BeginProperty Font 
  774.          Name            =   "MS Sans Serif"
  775.          Size            =   8.25
  776.          Charset         =   0
  777.          Weight          =   400
  778.          Underline       =   0   'False
  779.          Italic          =   0   'False
  780.          Strikethrough   =   0   'False
  781.       EndProperty
  782.       Height          =   1785
  783.       Left            =   120
  784.       TabIndex        =   2
  785.       Top             =   1200
  786.       Width           =   1455
  787.    End
  788.    Begin VB.TextBox txtTzIndex 
  789.       BeginProperty Font 
  790.          Name            =   "MS Sans Serif"
  791.          Size            =   8.25
  792.          Charset         =   0
  793.          Weight          =   400
  794.          Underline       =   0   'False
  795.          Italic          =   0   'False
  796.          Strikethrough   =   0   'False
  797.       EndProperty
  798.       Height          =   375
  799.       Left            =   120
  800.       TabIndex        =   1
  801.       Text            =   "1"
  802.       Top             =   720
  803.       Width           =   1455
  804.    End
  805.    Begin VB.CommandButton cmdGetTzInfo 
  806.       Caption         =   "GetTzInfo"
  807.       BeginProperty Font 
  808.          Name            =   "MS Sans Serif"
  809.          Size            =   8.25
  810.          Charset         =   0
  811.          Weight          =   400
  812.          Underline       =   0   'False
  813.          Italic          =   0   'False
  814.          Strikethrough   =   0   'False
  815.       EndProperty
  816.       Height          =   375
  817.       Left            =   120
  818.       TabIndex        =   0
  819.       Top             =   240
  820.       Width           =   1455
  821.    End
  822.    Begin VB.Label Label26 
  823.       Caption         =   "Group10"
  824.       BeginProperty Font 
  825.          Name            =   "MS Sans Serif"
  826.          Size            =   8.25
  827.          Charset         =   0
  828.          Weight          =   400
  829.          Underline       =   0   'False
  830.          Italic          =   0   'False
  831.          Strikethrough   =   0   'False
  832.       EndProperty
  833.       Height          =   255
  834.       Left            =   9120
  835.       TabIndex        =   63
  836.       Top             =   3960
  837.       Width           =   735
  838.    End
  839.    Begin VB.Label Label25 
  840.       Caption         =   "Group9"
  841.       BeginProperty Font 
  842.          Name            =   "MS Sans Serif"
  843.          Size            =   8.25
  844.          Charset         =   0
  845.          Weight          =   400
  846.          Underline       =   0   'False
  847.          Italic          =   0   'False
  848.          Strikethrough   =   0   'False
  849.       EndProperty
  850.       Height          =   255
  851.       Left            =   9120
  852.       TabIndex        =   62
  853.       Top             =   3600
  854.       Width           =   855
  855.    End
  856.    Begin VB.Label Label24 
  857.       Caption         =   "Group8"
  858.       BeginProperty Font 
  859.          Name            =   "MS Sans Serif"
  860.          Size            =   8.25
  861.          Charset         =   0
  862.          Weight          =   400
  863.          Underline       =   0   'False
  864.          Italic          =   0   'False
  865.          Strikethrough   =   0   'False
  866.       EndProperty
  867.       Height          =   375
  868.       Left            =   9120
  869.       TabIndex        =   61
  870.       Top             =   3240
  871.       Width           =   735
  872.    End
  873.    Begin VB.Label Label23 
  874.       Caption         =   "Group7"
  875.       BeginProperty Font 
  876.          Name            =   "MS Sans Serif"
  877.          Size            =   8.25
  878.          Charset         =   0
  879.          Weight          =   400
  880.          Underline       =   0   'False
  881.          Italic          =   0   'False
  882.          Strikethrough   =   0   'False
  883.       EndProperty
  884.       Height          =   375
  885.       Left            =   9120
  886.       TabIndex        =   60
  887.       Top             =   2880
  888.       Width           =   735
  889.    End
  890.    Begin VB.Label Label22 
  891.       Caption         =   "Group6"
  892.       BeginProperty Font 
  893.          Name            =   "MS Sans Serif"
  894.          Size            =   8.25
  895.          Charset         =   0
  896.          Weight          =   400
  897.          Underline       =   0   'False
  898.          Italic          =   0   'False
  899.          Strikethrough   =   0   'False
  900.       EndProperty
  901.       Height          =   375
  902.       Left            =   9120
  903.       TabIndex        =   59
  904.       Top             =   2520
  905.       Width           =   735
  906.    End
  907.    Begin VB.Label Label21 
  908.       Caption         =   "Group5"
  909.       BeginProperty Font 
  910.          Name            =   "MS Sans Serif"
  911.          Size            =   8.25
  912.          Charset         =   0
  913.          Weight          =   400
  914.          Underline       =   0   'False
  915.          Italic          =   0   'False
  916.          Strikethrough   =   0   'False
  917.       EndProperty
  918.       Height          =   375
  919.       Left            =   9120
  920.       TabIndex        =   58
  921.       Top             =   2160
  922.       Width           =   615
  923.    End
  924.    Begin VB.Label Label20 
  925.       Caption         =   "Group4"
  926.       BeginProperty Font 
  927.          Name            =   "MS Sans Serif"
  928.          Size            =   8.25
  929.          Charset         =   0
  930.          Weight          =   400
  931.          Underline       =   0   'False
  932.          Italic          =   0   'False
  933.          Strikethrough   =   0   'False
  934.       EndProperty
  935.       Height          =   255
  936.       Left            =   9120
  937.       TabIndex        =   57
  938.       Top             =   1800
  939.       Width           =   615
  940.    End
  941.    Begin VB.Label Label19 
  942.       Caption         =   "Group3"
  943.       BeginProperty Font 
  944.          Name            =   "MS Sans Serif"
  945.          Size            =   8.25
  946.          Charset         =   0
  947.          Weight          =   400
  948.          Underline       =   0   'False
  949.          Italic          =   0   'False
  950.          Strikethrough   =   0   'False
  951.       EndProperty
  952.       Height          =   375
  953.       Left            =   9120
  954.       TabIndex        =   56
  955.       Top             =   1440
  956.       Width           =   615
  957.    End
  958.    Begin VB.Label Label18 
  959.       Caption         =   "Group2"
  960.       BeginProperty Font 
  961.          Name            =   "MS Sans Serif"
  962.          Size            =   8.25
  963.          Charset         =   0
  964.          Weight          =   400
  965.          Underline       =   0   'False
  966.          Italic          =   0   'False
  967.          Strikethrough   =   0   'False
  968.       EndProperty
  969.       Height          =   255
  970.       Left            =   9120
  971.       TabIndex        =   55
  972.       Top             =   1080
  973.       Width           =   615
  974.    End
  975.    Begin VB.Label Label17 
  976.       Caption         =   "Group1"
  977.       BeginProperty Font 
  978.          Name            =   "MS Sans Serif"
  979.          Size            =   8.25
  980.          Charset         =   0
  981.          Weight          =   400
  982.          Underline       =   0   'False
  983.          Italic          =   0   'False
  984.          Strikethrough   =   0   'False
  985.       EndProperty
  986.       Height          =   255
  987.       Left            =   9120
  988.       TabIndex        =   54
  989.       Top             =   720
  990.       Width           =   615
  991.    End
  992.    Begin VB.Label Label16 
  993.       Caption         =   "TZ3"
  994.       BeginProperty Font 
  995.          Name            =   "MS Sans Serif"
  996.          Size            =   8.25
  997.          Charset         =   0
  998.          Weight          =   400
  999.          Underline       =   0   'False
  1000.          Italic          =   0   'False
  1001.          Strikethrough   =   0   'False
  1002.       EndProperty
  1003.       Height          =   375
  1004.       Left            =   4560
  1005.       TabIndex        =   50
  1006.       Top             =   5400
  1007.       Width           =   735
  1008.    End
  1009.    Begin VB.Label Label15 
  1010.       Caption         =   "TZ2"
  1011.       BeginProperty Font 
  1012.          Name            =   "MS Sans Serif"
  1013.          Size            =   8.25
  1014.          Charset         =   0
  1015.          Weight          =   400
  1016.          Underline       =   0   'False
  1017.          Italic          =   0   'False
  1018.          Strikethrough   =   0   'False
  1019.       EndProperty
  1020.       Height          =   375
  1021.       Left            =   4560
  1022.       TabIndex        =   49
  1023.       Top             =   4560
  1024.       Width           =   855
  1025.    End
  1026.    Begin VB.Label Label14 
  1027.       Caption         =   "TZ1"
  1028.       BeginProperty Font 
  1029.          Name            =   "MS Sans Serif"
  1030.          Size            =   8.25
  1031.          Charset         =   0
  1032.          Weight          =   400
  1033.          Underline       =   0   'False
  1034.          Italic          =   0   'False
  1035.          Strikethrough   =   0   'False
  1036.       EndProperty
  1037.       Height          =   255
  1038.       Left            =   4560
  1039.       TabIndex        =   45
  1040.       Top             =   3720
  1041.       Width           =   615
  1042.    End
  1043.    Begin VB.Label Label13 
  1044.       Caption         =   "GroupID"
  1045.       BeginProperty Font 
  1046.          Name            =   "MS Sans Serif"
  1047.          Size            =   8.25
  1048.          Charset         =   0
  1049.          Weight          =   400
  1050.          Underline       =   0   'False
  1051.          Italic          =   0   'False
  1052.          Strikethrough   =   0   'False
  1053.       EndProperty
  1054.       Height          =   255
  1055.       Left            =   4560
  1056.       TabIndex        =   43
  1057.       Top             =   3240
  1058.       Width           =   615
  1059.    End
  1060.    Begin VB.Label Label12 
  1061.       Caption         =   "GroupID"
  1062.       BeginProperty Font 
  1063.          Name            =   "MS Sans Serif"
  1064.          Size            =   8.25
  1065.          Charset         =   0
  1066.          Weight          =   400
  1067.          Underline       =   0   'False
  1068.          Italic          =   0   'False
  1069.          Strikethrough   =   0   'False
  1070.       EndProperty
  1071.       Height          =   375
  1072.       Left            =   4560
  1073.       TabIndex        =   39
  1074.       Top             =   1560
  1075.       Width           =   735
  1076.    End
  1077.    Begin VB.Label Label11 
  1078.       Caption         =   "UserID"
  1079.       BeginProperty Font 
  1080.          Name            =   "MS Sans Serif"
  1081.          Size            =   8.25
  1082.          Charset         =   0
  1083.          Weight          =   400
  1084.          Underline       =   0   'False
  1085.          Italic          =   0   'False
  1086.          Strikethrough   =   0   'False
  1087.       EndProperty
  1088.       Height          =   255
  1089.       Left            =   4560
  1090.       TabIndex        =   37
  1091.       Top             =   840
  1092.       Width           =   615
  1093.    End
  1094.    Begin VB.Label Label10 
  1095.       Caption         =   "TZ Three"
  1096.       BeginProperty Font 
  1097.          Name            =   "MS Sans Serif"
  1098.          Size            =   8.25
  1099.          Charset         =   0
  1100.          Weight          =   400
  1101.          Underline       =   0   'False
  1102.          Italic          =   0   'False
  1103.          Strikethrough   =   0   'False
  1104.       EndProperty
  1105.       Height          =   255
  1106.       Left            =   1920
  1107.       TabIndex        =   33
  1108.       Top             =   5520
  1109.       Width           =   735
  1110.    End
  1111.    Begin VB.Label Label9 
  1112.       Caption         =   "TZ Two"
  1113.       BeginProperty Font 
  1114.          Name            =   "MS Sans Serif"
  1115.          Size            =   8.25
  1116.          Charset         =   0
  1117.          Weight          =   400
  1118.          Underline       =   0   'False
  1119.          Italic          =   0   'False
  1120.          Strikethrough   =   0   'False
  1121.       EndProperty
  1122.       Height          =   255
  1123.       Left            =   1920
  1124.       TabIndex        =   31
  1125.       Top             =   4680
  1126.       Width           =   735
  1127.    End
  1128.    Begin VB.Label Label8 
  1129.       Caption         =   "TZ One"
  1130.       BeginProperty Font 
  1131.          Name            =   "MS Sans Serif"
  1132.          Size            =   8.25
  1133.          Charset         =   0
  1134.          Weight          =   400
  1135.          Underline       =   0   'False
  1136.          Italic          =   0   'False
  1137.          Strikethrough   =   0   'False
  1138.       EndProperty
  1139.       Height          =   255
  1140.       Left            =   1920
  1141.       TabIndex        =   29
  1142.       Top             =   3840
  1143.       Width           =   615
  1144.    End
  1145.    Begin VB.Line Line21 
  1146.       X1              =   3120
  1147.       X2              =   3600
  1148.       Y1              =   840
  1149.       Y2              =   840
  1150.    End
  1151.    Begin VB.Line Line20 
  1152.       X1              =   3600
  1153.       X2              =   3480
  1154.       Y1              =   840
  1155.       Y2              =   720
  1156.    End
  1157.    Begin VB.Line Line19 
  1158.       X1              =   3600
  1159.       X2              =   3480
  1160.       Y1              =   840
  1161.       Y2              =   960
  1162.    End
  1163.    Begin VB.Line Line18 
  1164.       X1              =   3120
  1165.       X2              =   3600
  1166.       Y1              =   3000
  1167.       Y2              =   3000
  1168.    End
  1169.    Begin VB.Line Line17 
  1170.       X1              =   3600
  1171.       X2              =   3480
  1172.       Y1              =   3000
  1173.       Y2              =   2880
  1174.    End
  1175.    Begin VB.Line Line16 
  1176.       X1              =   3600
  1177.       X2              =   3480
  1178.       Y1              =   3000
  1179.       Y2              =   3120
  1180.    End
  1181.    Begin VB.Line Line15 
  1182.       X1              =   3120
  1183.       X2              =   3600
  1184.       Y1              =   2640
  1185.       Y2              =   2640
  1186.    End
  1187.    Begin VB.Line Line14 
  1188.       X1              =   3600
  1189.       X2              =   3480
  1190.       Y1              =   2640
  1191.       Y2              =   2520
  1192.    End
  1193.    Begin VB.Line Line13 
  1194.       X1              =   3600
  1195.       X2              =   3480
  1196.       Y1              =   2640
  1197.       Y2              =   2760
  1198.    End
  1199.    Begin VB.Line Line12 
  1200.       X1              =   3120
  1201.       X2              =   3600
  1202.       Y1              =   2280
  1203.       Y2              =   2280
  1204.    End
  1205.    Begin VB.Line Line11 
  1206.       X1              =   3600
  1207.       X2              =   3480
  1208.       Y1              =   2280
  1209.       Y2              =   2160
  1210.    End
  1211.    Begin VB.Line Line10 
  1212.       X1              =   3600
  1213.       X2              =   3480
  1214.       Y1              =   2280
  1215.       Y2              =   2400
  1216.    End
  1217.    Begin VB.Line Line9 
  1218.       X1              =   3120
  1219.       X2              =   3600
  1220.       Y1              =   1920
  1221.       Y2              =   1920
  1222.    End
  1223.    Begin VB.Line Line8 
  1224.       X1              =   3600
  1225.       X2              =   3480
  1226.       Y1              =   1920
  1227.       Y2              =   1800
  1228.    End
  1229.    Begin VB.Line Line7 
  1230.       X1              =   3600
  1231.       X2              =   3480
  1232.       Y1              =   1920
  1233.       Y2              =   2040
  1234.    End
  1235.    Begin VB.Line Line6 
  1236.       X1              =   3600
  1237.       X2              =   3480
  1238.       Y1              =   1560
  1239.       Y2              =   1680
  1240.    End
  1241.    Begin VB.Line Line5 
  1242.       X1              =   3600
  1243.       X2              =   3480
  1244.       Y1              =   1560
  1245.       Y2              =   1440
  1246.    End
  1247.    Begin VB.Line Line4 
  1248.       X1              =   3120
  1249.       X2              =   3600
  1250.       Y1              =   1560
  1251.       Y2              =   1560
  1252.    End
  1253.    Begin VB.Line Line3 
  1254.       X1              =   3600
  1255.       X2              =   3480
  1256.       Y1              =   1200
  1257.       Y2              =   1320
  1258.    End
  1259.    Begin VB.Line Line2 
  1260.       X1              =   3480
  1261.       X2              =   3600
  1262.       Y1              =   1080
  1263.       Y2              =   1200
  1264.    End
  1265.    Begin VB.Line Line1 
  1266.       X1              =   3120
  1267.       X2              =   3600
  1268.       Y1              =   1200
  1269.       Y2              =   1200
  1270.    End
  1271.    Begin VB.Label Label7 
  1272.       Caption         =   "Sun."
  1273.       BeginProperty Font 
  1274.          Name            =   "MS Sans Serif"
  1275.          Size            =   8.25
  1276.          Charset         =   0
  1277.          Weight          =   400
  1278.          Underline       =   0   'False
  1279.          Italic          =   0   'False
  1280.          Strikethrough   =   0   'False
  1281.       EndProperty
  1282.       Height          =   255
  1283.       Left            =   1680
  1284.       TabIndex        =   10
  1285.       Top             =   720
  1286.       Width           =   615
  1287.    End
  1288.    Begin VB.Label Label6 
  1289.       Caption         =   "Sat."
  1290.       BeginProperty Font 
  1291.          Name            =   "MS Sans Serif"
  1292.          Size            =   8.25
  1293.          Charset         =   0
  1294.          Weight          =   400
  1295.          Underline       =   0   'False
  1296.          Italic          =   0   'False
  1297.          Strikethrough   =   0   'False
  1298.       EndProperty
  1299.       Height          =   255
  1300.       Left            =   1680
  1301.       TabIndex        =   9
  1302.       Top             =   2880
  1303.       Width           =   495
  1304.    End
  1305.    Begin VB.Label Label5 
  1306.       Caption         =   "Friday"
  1307.       BeginProperty Font 
  1308.          Name            =   "MS Sans Serif"
  1309.          Size            =   8.25
  1310.          Charset         =   0
  1311.          Weight          =   400
  1312.          Underline       =   0   'False
  1313.          Italic          =   0   'False
  1314.          Strikethrough   =   0   'False
  1315.       EndProperty
  1316.       Height          =   255
  1317.       Left            =   1680
  1318.       TabIndex        =   8
  1319.       Top             =   2520
  1320.       Width           =   615
  1321.    End
  1322.    Begin VB.Label Label4 
  1323.       Caption         =   "Thurs."
  1324.       BeginProperty Font 
  1325.          Name            =   "MS Sans Serif"
  1326.          Size            =   8.25
  1327.          Charset         =   0
  1328.          Weight          =   400
  1329.          Underline       =   0   'False
  1330.          Italic          =   0   'False
  1331.          Strikethrough   =   0   'False
  1332.       EndProperty
  1333.       Height          =   255
  1334.       Left            =   1680
  1335.       TabIndex        =   7
  1336.       Top             =   2160
  1337.       Width           =   615
  1338.    End
  1339.    Begin VB.Label Label3 
  1340.       Caption         =   "Wed."
  1341.       BeginProperty Font 
  1342.          Name            =   "MS Sans Serif"
  1343.          Size            =   8.25
  1344.          Charset         =   0
  1345.          Weight          =   400
  1346.          Underline       =   0   'False
  1347.          Italic          =   0   'False
  1348.          Strikethrough   =   0   'False
  1349.       EndProperty
  1350.       Height          =   255
  1351.       Left            =   1680
  1352.       TabIndex        =   6
  1353.       Top             =   1800
  1354.       Width           =   495
  1355.    End
  1356.    Begin VB.Label Label2 
  1357.       Caption         =   "Tues."
  1358.       BeginProperty Font 
  1359.          Name            =   "MS Sans Serif"
  1360.          Size            =   8.25
  1361.          Charset         =   0
  1362.          Weight          =   400
  1363.          Underline       =   0   'False
  1364.          Italic          =   0   'False
  1365.          Strikethrough   =   0   'False
  1366.       EndProperty
  1367.       Height          =   255
  1368.       Left            =   1680
  1369.       TabIndex        =   5
  1370.       Top             =   1440
  1371.       Width           =   615
  1372.    End
  1373.    Begin VB.Label Label1 
  1374.       Caption         =   "Mon."
  1375.       BeginProperty Font 
  1376.          Name            =   "MS Sans Serif"
  1377.          Size            =   8.25
  1378.          Charset         =   0
  1379.          Weight          =   400
  1380.          Underline       =   0   'False
  1381.          Italic          =   0   'False
  1382.          Strikethrough   =   0   'False
  1383.       EndProperty
  1384.       Height          =   255
  1385.       Left            =   1680
  1386.       TabIndex        =   4
  1387.       Top             =   1080
  1388.       Width           =   615
  1389.    End
  1390. End
  1391. Attribute VB_Name = "frm4"
  1392. Attribute VB_GlobalNameSpace = False
  1393. Attribute VB_Creatable = False
  1394. Attribute VB_PredeclaredId = True
  1395. Attribute VB_Exposed = False
  1396. '**********************************************
  1397. 'Time:2005-7-30                               *
  1398. 'purpose:Demo for access control              *
  1399. 'author:YongHong Pei,work for zksoftware      *
  1400. 'contact:pyhppp@hotmail.com                   *
  1401. '**********************************************
  1402. 'follow code get access testing by zkemsdk 5.10.90
  1403. ' a user pertain to a group(default 1),Group has TZ(3,tz1 or tz2 tz3),user has TZ(tz1 or tz2 or tz3).
  1404. ' one tz is hebdomad(1-99).
  1406. Private Sub cdmGUGroup_Click()
  1407.     Dim userGrp As Long
  1408.     Dim bGUG As Boolean
  1409.     
  1410.     bGUG = frm2.CZKEM1.GetUserGroup(frm2.txtMachNum.Text, txtSUGID.Text, userGrp)
  1411.     If bGUG Then
  1412.         lsUserGroup.AddItem "user" & txtSUGID.Text & "'s" & " group is " & CStr(userGrp)
  1413.     End If
  1414. End Sub
  1416. Private Sub cmdGetGrpTZ_Click()
  1417.     Dim TZS As String
  1418.     Dim bGetGrpTz As Boolean
  1419.     'One group has three TZs,mesns tz1 or tz2 or tz3,not and
  1420.     bGetGrpTz = frm2.CZKEM1.GetGroupTZStr(CLng(frm2.txtMachNum.Text), CLng(cmbSGroupID.Text), TZS)
  1421.     If bGetGrpTz Then
  1422.         lsGrpTZ.AddItem "Group" & CStr(cmbSGroupID.Text) & "TZs-" & TZS
  1423.     End If
  1424. End Sub
  1426. Private Sub cmdGetTzInfo_Click()
  1427.     Dim bGTz As Boolean
  1428.     Dim tz As String
  1429.     Dim strTemp As String
  1430.     
  1431.     lstTz.Clear
  1432.     
  1433.     bGTz = frm2.CZKEM1.GetTZInfo(CLng(frm2.txtMachNum.Text), CLng(txtTzIndex.Text), tz)
  1434.     If bGTz Then
  1435.         'hebdomad
  1436.         For i = 0 To 6
  1437.             strTemp = week(i) & Mid(tz, i * 8 + 1, 4) & "-" & Mid(tz, i * 8 + 5, 4)
  1438.             lstTz.AddItem strTemp
  1439.         Next
  1440.     End If
  1441. End Sub
  1443. Private Sub cmdGetUnlockGrp_Click()
  1444.     Dim grps As String
  1445.     Dim bGetUnlocdGrp As Boolean
  1446.     Dim stemp As String
  1447.     Dim stemp1 As String
  1448.     Dim i As Long
  1449.     Dim j As Long
  1450.     
  1451.     bGetUnlocdGrp = frm2.CZKEM1.GetUnlockGroups(CLng(frm2.txtMachNum.Text), grps)
  1452.     
  1453.     If bGetUnlocdGrp Then
  1454.         j = 1
  1455.         '10 groups,partition by ':'
  1456.         For i = 1 To Len(grps)
  1457.             stemp1 = Mid(grps, i, 1)
  1458.             If stemp1 <> ":" Then
  1459.                 stemp = stemp & stemp1
  1460.                 If i = Len(grps) And j = 10 Then
  1461.                     lsUnlockGrp.AddItem "Groups 10" & " - " & stemp
  1462.                 End If
  1463.             ElseIf stemp1 = ":" Then
  1464.                 lsUnlockGrp.AddItem "Groups " & j & "" & " - " & stemp
  1465.                 lsUnlockGrp.Refresh
  1466.                 j = j + 1
  1467.                 stemp = ""
  1468.                 If i = Len(grps) Then
  1469.                     lsUnlockGrp.AddItem "Groups 10" & " - " & "  "
  1470.                 End If
  1471.             End If
  1472.         Next
  1473.     End If
  1474. End Sub
  1476. Private Sub cmdGetUserTzInfo_Click()
  1477.     Dim TZS As String
  1478.     Dim bGetTZ As Boolean
  1479.     
  1480.     If IsNumeric(txtUserID) Then
  1481.         bGetTZ = frm2.CZKEM1.GetUserTZStr(CLng(frm2.txtMachNum.Text), CLng(txtUserID.Text), TZS)
  1482.         If bGetTZ Then
  1483.             lsUserTZ.AddItem "User  " & txtUserID.Text & " - " & TZS
  1484.         End If
  1485.     End If
  1486. End Sub
  1488. Private Sub cmdOpenDoor_Click()
  1489.     'Open a door controling by machine, the number is frm2.txtMachiNum.text
  1490.     frm2.CZKEM1.ACUnlock CLng(frm2.txtMachNum.Text), 100
  1491. End Sub
  1493. Private Sub cmdSetGroupStr_Click()
  1494.     Dim TZS
  1495.     Dim bSGrpTZ As Boolean
  1496.     
  1497.     TZS = txtGrpTZ1.Text & ":" & txtGrpTZ2.Text & ":" & txtGrpTZ3.Text
  1498.     
  1499.     bSGrpTZ = frm2.CZKEM1.SetGroupTZStr(CLng(frm2.txtMachNum.Text), CLng(cmbSGroupID.Text), TZS)
  1500.     If bSGrpTZ Then
  1501.         MsgBox "set group TZ successful", vbOKOnly, "Info"
  1502.     Else
  1503.         MsgBox "set group TZ fail", vbOKOnly, "Info"
  1504.     End If
  1505. End Sub
  1507. Private Sub cmdSetUnlockGroups_Click()
  1508.     Dim grps
  1509.     Dim bSetUnlockGrp As Boolean
  1510.     
  1511.     grps = txtGrp1.Text & ":" & txtGrp2.Text & ":" & txtGrp3.Text & ":" & txtGrp4.Text & ":" & txtGrp5.Text & ":"
  1512.     grps = grps & txtGrp6.Text & ":" & txtGrp7.Text & ":" & txtGrp8.Text & ":" & txtGrp9 & ":" & txtGrp10.Text
  1513.     
  1514.     bSetUnlockGrp = frm2.CZKEM1.SetUnlockGroups(CLng(frm2.txtMachNum.Text), grps)
  1515.     If bSetUnlockGrp Then
  1516.         MsgBox "Set unlock groups successful", vbOKOnly, "Info"
  1517.     Else
  1518.         MsgBox "Set unlock groups fail", vbOKOnly, "Info"
  1519.     End If
  1520. End Sub
  1522. Private Sub cmdSetUserGroup_Click()
  1523.     Dim bsetGp As Boolean
  1524.     
  1525.     bsetGp = frm2.CZKEM1.SetUserGroup(CLng(frm2.txtMachNum.Text), CLng(txtSUGID.Text), CLng(cmbGroupID.Text))
  1526.     If bsetGp Then
  1527.         MsgBox "set user group successful", vbOKOnly, "Info"
  1528.     Else
  1529.         MsgBox "set user group fail", vbOKOnly, "Info"
  1530.     End If
  1531. End Sub
  1533. Private Sub cmdSeuUserTzInfo_Click()
  1534.     Dim TZS
  1535.     Dim bSetTZ As Boolean
  1536.     
  1537.     If txtUserID.Text = "" Then Exit Sub
  1538.     If IsNumeric(txtUserID.Text) Then
  1539.         TZS = txtTZ1.Text & ":" & txtTZ2.Text & ":" & txtTZ3.Text
  1540.         bSetTZ = frm2.CZKEM1.SetUserTZStr(CLng(frm2.txtMachNum.Text), CLng(txtUserID.Text), TZS)
  1541.         If bSetTZ Then
  1542.             MsgBox "set user tz successful", vbOKOnly, "Info"
  1543.         Else
  1544.             MsgBox "set user tz fail", vbOKOnly, "info"
  1545.         End If
  1546.     End If
  1547. End Sub
  1549. Private Sub cmdTzInfo_Click()
  1550.     Dim strTime
  1551.     Dim bSetTZ As Boolean
  1552.     
  1553.     If txtTzIndex.Text = "" Then Exit Sub
  1554.     
  1555.     strTime = txt7.Text & txt77.Text & txt1.Text & txt11.Text & txt2.Text & txt22.Text & txt3.Text & txt33.Text & txt4.Text & txt44.Text
  1556.     strTime = strTime & txt5.Text & txt55.Text & txt6.Text & txt66.Text
  1557.     
  1558.     bSetTZ = frm2.CZKEM1.SetTZInfo(CLng(frm2.txtMachNum.Text), CLng(txtTzIndex.Text), strTime)
  1559.     If bSetTZ Then
  1560.         MsgBox "set TZ info successful!", vbOKOnly, "successful"
  1561.     Else
  1562.         MsgBox "set TZ info fail!", vbOKOnly, "fail"
  1563.     End If
  1564. End Sub