main_xtgl_czy.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:5k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Begin VB.Form main_xtgl_czy 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "操作员设置"
  5.    ClientHeight    =   3045
  6.    ClientLeft      =   2715
  7.    ClientTop       =   3690
  8.    ClientWidth     =   5940
  9.    Icon            =   "main_xtgl_czy.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3045
  14.    ScaleWidth      =   5940
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  '所有者中心
  17.    Begin VB.CommandButton Command2 
  18.       Caption         =   "取消"
  19.       Height          =   390
  20.       Left            =   3150
  21.       Picture         =   "main_xtgl_czy.frx":000C
  22.       TabIndex        =   1
  23.       Top             =   2565
  24.       Width           =   1575
  25.    End
  26.    Begin VB.CommandButton Command1 
  27.       Caption         =   "确定"
  28.       Height          =   390
  29.       Left            =   1395
  30.       Picture         =   "main_xtgl_czy.frx":19C6
  31.       TabIndex        =   0
  32.       Tag             =   "设置操作员"
  33.       Top             =   2565
  34.       Width           =   1575
  35.    End
  36.    Begin VB.Frame Frame1 
  37.       Height          =   2535
  38.       Left            =   30
  39.       TabIndex        =   2
  40.       Top             =   -60
  41.       Width           =   5895
  42.       Begin VB.TextBox Text1 
  43.          BackColor       =   &H00FFFFFF&
  44.          Height          =   315
  45.          Index           =   2
  46.          Left            =   1800
  47.          TabIndex        =   7
  48.          Top             =   1845
  49.          Width           =   2880
  50.       End
  51.       Begin VB.TextBox Text1 
  52.          BackColor       =   &H00FFFFFF&
  53.          Height          =   315
  54.          IMEMode         =   3  'DISABLE
  55.          Index           =   1
  56.          Left            =   1800
  57.          PasswordChar    =   "*"
  58.          TabIndex        =   6
  59.          Top             =   1305
  60.          Width           =   2880
  61.       End
  62.       Begin VB.TextBox Text1 
  63.          BackColor       =   &H00FFFFFF&
  64.          Height          =   315
  65.          Index           =   0
  66.          Left            =   1800
  67.          TabIndex        =   3
  68.          Top             =   765
  69.          Width           =   2880
  70.       End
  71.       Begin VB.Label Label1 
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "请输入操作员及密码"
  74.          ForeColor       =   &H000000FF&
  75.          Height          =   225
  76.          Left            =   180
  77.          TabIndex        =   5
  78.          Top             =   315
  79.          Width           =   4290
  80.       End
  81.       Begin VB.Label Label2 
  82.          BackStyle       =   0  'Transparent
  83.          Caption         =   "操作员                   密  码                     确认密码"
  84.          Height          =   1365
  85.          Left            =   945
  86.          TabIndex        =   4
  87.          Top             =   840
  88.          Width           =   765
  89.       End
  90.    End
  91. End
  92. Attribute VB_Name = "main_xtgl_czy"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Private Sub Form_Activate()
  98.   Text1(0).SetFocus
  99. End Sub
  100. Private Sub Text1_GotFocus(index As Integer)
  101.   Text1(index).BackColor = &HFFFF80
  102.   Text1(index).SelStart = 0
  103.   Text1(index).SelLength = Len(Text1(index))
  104. End Sub
  105. Private Sub Text1_LostFocus(index As Integer)
  106.   Text1(index).BackColor = &HFFFFFF
  107. End Sub
  108. Private Sub Text1_KeyDown(index As Integer, KeyCode As Integer, Shift As Integer)
  109.   If KeyCode = vbKeyReturn And index < 2 Then Text1(index + 1).SetFocus
  110.   If KeyCode = vbKeyReturn And index = 2 Then Command1.SetFocus
  111.   If KeyCode = vbKeyUp And index > 0 Then Text1(index - 1).SetFocus
  112. End Sub
  113. Private Sub Command1_Click()     '确认修改操作员信息
  114.   Dim rs1 As New ADODB.Recordset
  115.   If Len(Text1(0)) = 0 Then
  116.      MsgBox "请输入操作员!", , "提示窗口"
  117.      Exit Sub
  118.   End If
  119.   If Len(Text1(1)) = 0 Then
  120.      MsgBox "请输入密码!", , "提示窗口"
  121.      Exit Sub
  122.   End If
  123.   If Len(Text1(2)) = 0 Then
  124.      MsgBox "请输入确认密码!", , "提示窗口"
  125.      Exit Sub
  126.   End If
  127.   If Text1(1) <> Text1(2) Then
  128.      MsgBox "输入的密码与确认密码不一致!", , "提示窗口"
  129.      Exit Sub
  130.   End If
  131.   On Error GoTo SaveErr
  132.   rs1.Open "权限信息表", Cnn, adOpenKeyset, adLockOptimistic  '查询操作员信息
  133.   rs1.AddNew
  134.   rs1.Fields("操作员") = Text1(0)
  135.   rs1.Fields("密码") = Text1(1)
  136.   rs1.Update
  137.   main_xtgl_czqx.ado1.Refresh
  138.   Unload Me
  139.   Exit Sub
  140. SaveErr:
  141.        MsgBox Err.Description
  142. End Sub
  143. Private Sub Command2_Click()
  144.   Unload Me
  145. End Sub