frm_mmxg.frm

美容院管理系统

            SubItemIndex    =   4
            Text            =   "金额"
            Object.Width           =   1764
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   5
            Text            =   "备注"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   6
            Text            =   "包全年"
            Object.Width           =   1764
         EndProperty
         BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   7
            Text            =   "类型"
            Object.Width           =   2540
         EndProperty
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "确认密码："
         Height          =   180
         Index           =   5
         Left            =   -74880
         TabIndex        =   16
         Top             =   3360
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "新密码："
         Height          =   180
         Index           =   4
         Left            =   -74880
         TabIndex        =   15
         Top             =   3060
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "旧密码："
         Height          =   180
         Index           =   3
         Left            =   -74880
         TabIndex        =   14
         Top             =   2748
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "确认密码："
         Height          =   180
         Index           =   2
         Left            =   120
         TabIndex        =   13
         Top             =   3360
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "新密码："
         Height          =   180
         Index           =   1
         Left            =   120
         TabIndex        =   12
         Top             =   3060
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "旧密码："
         Height          =   180
         Index           =   0
         Left            =   120
         TabIndex        =   11
         Top             =   2748
         Width           =   720
      End
   End
   Begin VB.CommandButton Command1 
      Height          =   390
      Index           =   2
      Left            =   5736
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frm_mmxg.frx":0044
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   120
      UseMaskColor    =   -1  'True
      Width           =   1212
   End
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Height          =   390
      Index           =   1
      Left            =   5736
      MaskColor       =   &H00FFFFFF&
      Picture         =   "frm_mmxg.frx":17A2
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   552
      UseMaskColor    =   -1  'True
      Width           =   1212
   End
End
Attribute VB_Name = "frm_mmxg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rec As Recordset
Dim itmx As ListItem

Private Sub OKButton_Click()

End Sub

Private Sub Command1_Click(Index As Integer)
If Index = 1 Then
    Unload Me
Else
    If SSTab1.Tab = 0 Then
        If Text1(1) <> Text1(2) Then
            MsgBox "您输入的密码不能确认", vbOKOnly + vbCritical, "错误"
            Text1(2).SetFocus
            Exit Sub
        End If
    Else
        If Text1(4) <> Text1(5) Then
            MsgBox "您输入的密码不能确认", vbOKOnly + vbCritical, "错误"
            Text1(5).SetFocus
            Exit Sub
        End If
    End If
    If SSTab1.Tab = 0 Then
        sqlstr = "update 美容师人员表 set 密码='" + Text1(1) + "' where 姓名='" + ListView1(0).SelectedItem.Text + "' and 性别='" + ListView1(0).SelectedItem.SubItems(1) + "'"
    Else
        sqlstr = "update 包月卡 set 密码='" + Text1(4) + "' where 编号=" + ListView1(1).SelectedItem.Text + " and 类型='" + ListView1(1).SelectedItem.SubItems(7) + "'"
    End If
    db.Execute sqlstr
    MsgBox "修改密码成功", vbOKOnly + vbInformation, "错误"
    For i = 0 To 5
        Text1(i) = ""
    Next i
End If

End Sub

Private Sub Form_Load()
sqlstr = "select * from 美容师人员表"
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    Set itmx = ListView1(0).ListItems.Add(, , "" & rec.Fields(0))
    For i = 1 To rec.Fields.Count - 2
        itmx.SubItems(i) = "" & rec.Fields(i)
    Next i
    rec.MoveNext
Loop
If ListView1(0).ListItems.Count = 0 Then Text1(0).Enabled = False
sqlstr = "select * from 包月卡"
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    Set itmx = ListView1(1).ListItems.Add(, , "" & rec.Fields(0))
    For i = 1 To rec.Fields.Count - 2
        itmx.SubItems(i) = "" & rec.Fields(i)
    Next i
    rec.MoveNext
Loop
If ListView1(1).ListItems.Count = 0 Then Text1(3).Enabled = False
End Sub

Private Sub ListView1_ItemClick(Index As Integer, ByVal Item As MSComctlLib.ListItem)
Text1(Index * 3).SetFocus
Text1(1).Enabled = False
Text1(2).Enabled = False
Text1(4).Enabled = False
Text1(5).Enabled = False
End Sub

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index))
'Text1(Index).IMEMode = 2
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = 0 Then
    If KeyAscii = 13 Then
        sqlstr = "select * from 美容师人员表 where 姓名='" + ListView1(0).SelectedItem.Text + "' and 性别='" + ListView1(0).SelectedItem.SubItems(1) + "' and 密码='" + Text1(0) + "'"
        Set rec = db.OpenRecordset(sqlstr)
        If rec.EOF And rec.BOF Then
            MsgBox "您输入的旧密码有误", vbOKOnly + vbCritical, "错误"
            Text1(0).SetFocus
            Exit Sub
        Else
            
            Text1(1).Enabled = True
            Text1(2).Enabled = True
            Text1(1).SetFocus
        End If
    End If
End If
If Index = 2 And KeyAscii = 13 Then
    Command1_Click 2
End If
If Index = 5 And KeyAscii = 13 Then
    Command1_Click 2
End If

If Index = 3 Then

    If KeyAscii = 13 Then
        sqlstr = "select * from 包月卡 where 编号=" + ListView1(1).SelectedItem.Text + " and 类型='" + ListView1(1).SelectedItem.SubItems(7) + "' and 密码='" + Text1(3) + "'"
        Set rec = db.OpenRecordset(sqlstr)
        If rec.EOF And rec.BOF Then
            MsgBox "您输入的旧密码有误", vbOKOnly + vbCritical, "错误"
            Text1(3).SetFocus
            Exit Sub
        Else
            Text1(4).Enabled = True
            Text1(5).Enabled = True
            Text1(4).SetFocus
        End If
    End If
End If
End Sub