form_user.frm

仓库扫描管理系统

VERSION 5.00
Begin VB.Form form_user 
   BackColor       =   &H00C0FFFF&
   Caption         =   "用户管理"
   ClientHeight    =   3240
   ClientLeft      =   1110
   ClientTop       =   345
   ClientWidth     =   3900
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3240
   ScaleWidth      =   3900
   Begin VB.CommandButton cmdClose 
      Caption         =   "&B返回"
      Height          =   300
      Left            =   2400
      TabIndex        =   7
      Top             =   2160
      Width           =   975
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&P设置"
      Height          =   300
      Left            =   360
      TabIndex        =   6
      Top             =   2160
      Width           =   975
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Connect         =   "Access 2000;"
      DatabaseName    =   "E:\work\广州友联\src\warehouse\DB-Access\hunterPOS.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "hp_users"
      Top             =   2895
      Width           =   3900
   End
   Begin VB.TextBox txtFields 
      DataField       =   "password"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   2
      Left            =   1080
      MaxLength       =   50
      TabIndex        =   5
      Top             =   1515
      Width           =   2535
   End
   Begin VB.TextBox txtFields 
      BackColor       =   &H8000000A&
      DataField       =   "username"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   1
      Left            =   1080
      Locked          =   -1  'True
      MaxLength       =   50
      TabIndex        =   3
      Top             =   840
      Width           =   2535
   End
   Begin VB.TextBox txtFields 
      BackColor       =   &H8000000A&
      DataField       =   "usercode"
      DataSource      =   "Data1"
      Height          =   285
      Index           =   0
      Left            =   1080
      Locked          =   -1  'True
      MaxLength       =   50
      TabIndex        =   1
      Top             =   165
      Width           =   2535
   End
   Begin VB.Label lblLabels 
      BackColor       =   &H00C0FFFF&
      Caption         =   "密        码:"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   4
      Top             =   1545
      Width           =   975
   End
   Begin VB.Label lblLabels 
      BackColor       =   &H00C0FFFF&
      Caption         =   "用户名称:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   855
      Width           =   975
   End
   Begin VB.Label lblLabels 
      BackColor       =   &H00C0FFFF&
      Caption         =   "用户编号:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   180
      Width           =   975
   End
End
Attribute VB_Name = "form_user"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private sqlData As String
Private Sub cmdAdd_Click()
  Data1.Recordset.AddNew
  txtFieldGetFocus (0)
End Sub

Private Sub cmdDelete_Click()
  'this may produce an error if you delete the last
  'record or the only record in the recordset
    If MsgBox("真的要删除吗？", vbYesNo + vbDefaultButton2, "提示") = vbYes Then
      Data1.Recordset.Delete
      Data1.Recordset.MoveNext
'      If Data1.Recordset.RecordCount > 0 Then
'        Data1.Recordset.Move (0)
'      End If
    End If
End Sub

Private Sub cmdRefresh_Click()
  'this is really only needed for multi user apps
  Data1.Refresh
End Sub


Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdSave_Click()
  Data1.UpdateRecord
  Data1.Recordset.Bookmark = Data1.Recordset.LastModified
  MsgBox "设置成功!", vbInformation, "提示"
End Sub

Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  'This is where you would put error handling code
  'If you want to ignore errors, comment out the next line
  'If you want to trap them, add code here to handle them
  MsgBox "Data error event hit err:" & Error$(DataErr)
  Response = 0  'throw away the error
End Sub

Private Sub Data1_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  'This will display the current record position
  'for dynasets and snapshots
    Data1.Caption = "第 " & (Data1.Recordset.AbsolutePosition + 1) & " 条记录！"
  'for the table object you must set the index property when
  'the recordset gets created and use the following line
  'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)
  'This is where you put validation code
  'This event gets called when the following actions occur
  Select Case Action
    Case vbDataActionMoveFirst
    Case vbDataActionMovePrevious
    Case vbDataActionMoveNext
    Case vbDataActionMoveLast
    Case vbDataActionAddNew
    Case vbDataActionUpdate
    Case vbDataActionDelete
    Case vbDataActionFind
    Case vbDataActionBookmark
    Case vbDataActionClose
  End Select
  Screen.MousePointer = vbHourglass
End Sub

Private Sub Form_Load()
  Data1.DatabaseName = g_dbPath
  sqlData = "select * from hp_users where 1=1 order by usercode"
  Data1.RecordSource = sqlData
  Me.Left = (Screen.Width - Me.Width) / 2
  Me.Top = (Screen.Height - Me.Height) / 2
'txtFieldGetFocus (1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
  Screen.MousePointer = vbDefault
End Sub

Private Sub txtFieldGetFocus(i As Integer)
        txtFields(i).SelStart = 0
        txtFields(i).SelLength = Len(txtFields(i).Text)
        txtFields(i).SetFocus
End Sub

Private Sub txtFields_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 Dim maxIndex As Integer
 maxIndex = 2
 If KeyCode = vbKeyReturn Then     '按回车键
   If (Index < maxIndex) Then
      txtFieldGetFocus (Index + 1)
    End If
    If (Index = maxIndex) Then
      cmdSave.SetFocus
    End If
 End If
End Sub