Version 5.00
Begin VB.Form FrmRegister
    BorderStyle = 1 'Fixed Single
    Caption = "用戶注冊"
    ClientHeight = 2835
    ClientLeft = 45
    ClientTop = 495
    ClientWidth = 4590
    Icon = "FrmRegister.frx":0000
    LinkTopic = "Form1"
    MaxButton = 0 'False
    MinButton = 0 'False
    ScaleHeight = 2835
    ScaleWidth = 4590
    StartUpPosition = 2 'CenterScreen
    Begin VB.TextBox TxtName
        Height = 375
        Left = 1800
        TabIndex = 2
        Top = 120
        Width = 2295
    End
    Begin VB.TextBox TxtPassword
        Height = 375
        IMEMode = 3 'DISABLE
        Left = 1800
        PasswordChar = "*"
        TabIndex = 1
        Top = 840
        Width = 2295
    End
    Begin VB.TextBox TxtPassword2
        Height = 375
        IMEMode = 3 'DISABLE
        Left = 1800
        PasswordChar = "*"
        TabIndex = 0
        Top = 1560
        Width = 2295
    End
    Begin VB.Label LblBuyerID
        BackStyle = 0 'Transparent
        Caption = "用 戶 名"
        BeginProperty Font
        Name = "宋體"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 360
        MouseIcon = "FrmRegister.frx":0CCA
        TabIndex = 7
        Top = 120
        Width = 1335
    End
    Begin VB.Label LblSalesmanName
        BackStyle = 0 'Transparent
        Caption = "密    碼"
        BeginProperty Font
        Name = "宋體"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 360
        MouseIcon = "FrmRegister.frx":0FD4
        TabIndex = 6
        Top = 840
        Width = 1335
    End
    Begin VB.Label LblDepartment
        BackStyle = 0 'Transparent
        Caption = "確認(rèn)密碼"
        BeginProperty Font
        Name = "宋體"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 360
        MouseIcon = "FrmRegister.frx":12DE
        TabIndex = 5
        Top = 1560
        Width = 1335
    End
    Begin VB.Image Image4
        Height = 300
        Left = 2520
        Picture = "FrmRegister.frx":15E8
        Top = 2280
        Width = 300
    End
    Begin VB.Label LblCancel
        BackStyle = 0 'Transparent
        Caption = "取 消"
        BeginProperty Font
        Name = "宋體"
        Size = 12
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 255
        Left = 3120
        MouseIcon = "FrmRegister.frx":1A04
        MousePointer = 99 'Custom
        TabIndex = 4
        Top = 2280
        Width = 855
    End
    Begin VB.Image Image3
        Height = 300
        Left = 600
        Picture = "FrmRegister.frx":1D0E
        Top = 2280
        Width = 300
    End
    Begin VB.Label LblOK
        BackStyle = 0 'Transparent
        Caption = "確 定"
        BeginProperty Font
        Name = "宋體"
        Size = 12
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 255
        Left = 1200
        MouseIcon = "FrmRegister.frx":212A
        MousePointer = 99 'Custom
        TabIndex = 3
        Top = 2280
        Width = 735
    End
End
Attribute VB_Name = "FrmRegister"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub LblCancel_Click()
    Unload Me
End Sub

Private Sub LblOK_Click()
    
    '判斷要編輯信息是否完整
    If Check = False Then
        Exit Sub
    End If
    
    With MyUsers
        .Name = TxtName.Text
        .Password = TxtPassword.Text
        
        
        '判斷采購員ID是否已經(jīng)存在
        If .In_DB(TxtName.Text) = True Then
            MsgBox "用戶名已經(jīng)存在，請(qǐng)重新設(shè)置"
            TxtName.SetFocus
            TxtName.SelStart = 0
            TxtName.SelLength = Len(TxtName)
            Exit Sub
        Else
            .Insert '添加
            MsgBox "添加成功,請(qǐng)等待管理員給您分配權(quán)限"
        End If
        
    End With
    Unload Me
End Sub


Private Function Check() As Boolean
    If Trim(TxtName) = "" Then
        MsgBox "請(qǐng)輸入用戶名"
        TxtName.SetFocus
        Check = False
        Exit Function
    End If
    If Trim(TxtPassword) = "" Then
        MsgBox "請(qǐng)輸入密碼"
        TxtPassword.SetFocus
        Check = False
        Exit Function
    End If
    If Trim(TxtPassword2) = "" Then
        MsgBox "請(qǐng)輸入確認(rèn)密碼"
        TxtPassword2.SetFocus
        Check = False
        Exit Function
    End If
    If Trim(TxtPassword2) <> Trim(TxtPassword) Then
        MsgBox "兩次輸入密碼不合，請(qǐng)重新輸入"
        TxtPassword.Text = ""
        TxtPassword2.Text = ""
        TxtPassword.SetFocus
        Check = False
        Exit Function
    End If
    If Len(Trim(TxtPassword2)) < 6 Then
        MsgBox "密碼小于6位,請(qǐng)重新設(shè)置"
        TxtPassword.Text = ""
        TxtPassword2.Text = ""
        TxtPassword.SetFocus
        Check = False
        Exit Function
    End If
    Check = True
End Function