frm_kxk.frm

美容院管理系统

    rec.Fields("密码") = Text3(0)
    rec.Fields("收款员") = Pczy
    Select Case jjj
    Case 0
        re = "包月卡"
        byk_maxno = Trim(Str(Val(byk_maxno) + 1))
        
    Case 1
        re = "疗程卡"
        lck_maxno = Trim(Str(Val(lck_maxno) + 1))
       
    Case 2
        re = "美发包月卡"
        mfbyk_maxno = Trim(Str(Val(mfbyk_maxno) + 1))
        
    End Select
    rec.Fields("类型") = re
    rec.Fields("备注") = Text1(5)
    rec.Update
     Set rec = db.OpenRecordset("收入表")
     rec.AddNew
        rec.Fields("日期") = Date
        rec.Fields("卡号") = Val(Text1(0))
        rec.Fields("项目") = Text1(3)
        rec.Fields("介绍人") = Combo1.Text
        rec.Fields("客人姓名") = Text1(1)
        rec.Fields("收入") = CCur(Val(Text1(7)))
        rec.Fields("支付方式") = IIf(Check3.Value, "支票", "现金")
        rec.Fields("备注") = Text1(5)
     rec.Update
    Case 1 '包一季度
    For j = 0 To 2
      Set rec = db.OpenRecordset("包月卡")
        rec.AddNew
        rec.Fields("编号") = Val(Text1(0)) + j
        rec.Fields("姓名") = Text1(1)
        rec.Fields("诊断") = Text1(3)
        rec.Fields("金额") = CCur(Val(Text1(7)))
        rec.Fields("日期") = Date + j * 30
        rec.Fields("是否包全年") = IIf(Combo2.ListIndex = 3, "是", "否")
        rec.Fields("密码") = Text3(0)
        rec.Fields("收款员") = Pczy
        Select Case jjj
        Case 0
            re = "包月卡"
            byk_maxno = Trim(Str(Val(byk_maxno) + 1))
        Case 1
            re = "疗程卡"
            lck_maxno = Trim(Str(Val(lck_maxno) + 1))
       Case 2
            re = "美发包月卡"
            mfbyk_maxno = Trim(Str(Val(mfbyk_maxno) + 1))
        End Select
        rec.Fields("类型") = re
        rec.Fields("备注") = Text1(5)
        rec.Update
        
        Set rec = db.OpenRecordset("收入表")
     rec.AddNew
        rec.Fields("日期") = Date + j * 30
        rec.Fields("卡号") = Val(Text1(0)) + j
        rec.Fields("项目") = Text1(3)
        rec.Fields("介绍人") = Combo1.Text
        rec.Fields("客人姓名") = Text1(1)
        rec.Fields("收入") = CCur(Val(Text1(7)))
        rec.Fields("支付方式") = IIf(Check3.Value, "支票", "现金")
        rec.Fields("备注") = Text1(5)
     rec.Update
    Next j
    Case 2 '包半月
    For j = 0 To 5
      Set rec = db.OpenRecordset("包月卡")
        rec.AddNew
        rec.Fields("编号") = Val(Text1(0)) + j
        rec.Fields("姓名") = Text1(1)
        rec.Fields("诊断") = Text1(3)
        rec.Fields("金额") = CCur(Val(Text1(7)))
        rec.Fields("日期") = Date + j * 30
        rec.Fields("是否包全年") = IIf(Combo2.ListIndex = 3, "是", "否")
        rec.Fields("密码") = Text3(0)
        rec.Fields("收款员") = Pczy
        Select Case jjj
        Case 0
            re = "包月卡"
            byk_maxno = Trim(Str(Val(byk_maxno) + 1))
        Case 1
            re = "疗程卡"
            lck_maxno = Trim(Str(Val(lck_maxno) + 1))
       Case 2
            re = "美发包月卡"
            mfbyk_maxno = Trim(Str(Val(mfbyk_maxno) + 1))
        End Select
        rec.Fields("类型") = re
        rec.Fields("备注") = Text1(5)
        rec.Update
        
        Set rec = db.OpenRecordset("收入表")
     rec.AddNew
        rec.Fields("日期") = Date + j * 30
        rec.Fields("卡号") = Val(Text1(0)) + j
        rec.Fields("项目") = Text1(3)
        rec.Fields("介绍人") = Combo1.Text
        rec.Fields("客人姓名") = Text1(1)
        rec.Fields("收入") = CCur(Val(Text1(7)))
        rec.Fields("支付方式") = IIf(Check3.Value, "支票", "现金")
        rec.Fields("备注") = Text1(5)
     rec.Update
    Next j
    Case 3 '包全年
    
    For j = 0 To 11
      Set rec = db.OpenRecordset("包月卡")
        rec.AddNew
        rec.Fields("编号") = Val(Text1(0)) + j
        rec.Fields("姓名") = Text1(1)
        rec.Fields("诊断") = Text1(3)
        rec.Fields("金额") = CCur(Val(Text1(7)))
        rec.Fields("日期") = Date + j * 30
        rec.Fields("是否包全年") = IIf(Combo2.ListIndex = 3, "是", "否")
        rec.Fields("密码") = Text3(0)
        rec.Fields("收款员") = Pczy
        Select Case jjj
        Case 0
            re = "包月卡"
            byk_maxno = Trim(Str(Val(byk_maxno) + 1))
        Case 1
            re = "疗程卡"
            lck_maxno = Trim(Str(Val(lck_maxno) + 1))
       Case 2
            re = "美发包月卡"
            mfbyk_maxno = Trim(Str(Val(mfbyk_maxno) + 1))
        End Select
        rec.Fields("类型") = re
        rec.Fields("备注") = Text1(5)
        rec.Update
        
        Set rec = db.OpenRecordset("收入表")
     rec.AddNew
        rec.Fields("日期") = Date + j * 30
        rec.Fields("卡号") = Val(Text1(0)) + j
        rec.Fields("项目") = Text1(3)
        rec.Fields("介绍人") = Combo1.Text
        rec.Fields("客人姓名") = Text1(1)
        rec.Fields("收入") = CCur(Val(Text1(7)))
        rec.Fields("支付方式") = IIf(Check3.Value, "支票", "现金")
        rec.Fields("备注") = Text1(5)
     rec.Update
    Next j
    End Select
    If Combo2.ListIndex = 3 And Check2.Value Then
        Set rec = db.OpenRecordset("客户表")
        rec.AddNew
            rec.Fields("姓名") = Text2(0)
            rec.Fields("性别") = IIf(Option1(0).Value, "男", "女")
            rec.Fields("生日") = DTPicker1.Value
            rec.Fields("电话") = MaskEdBox1(1).Text
            rec.Fields("地址") = Text2(1)
            rec.Fields("是否已送花") = "否"
            Select Case jjj
            Case 0
               
                rec.Fields("对应编号") = Val(byk_maxno)
            Case 1
               
                rec.Fields("对应编号") = Val(lck_maxno)
            Case 2
              
                 rec.Fields("对应编号") = Val(mfbyk_maxno)
            End Select
              rec.Fields("类型") = re
        rec.Update
    End If
 
    Select Case jjj
Case 0
   kg = Len(byk_maxno)
Case 1
    kg = Len(lck_maxno)
Case 2
    kg = Len(mfbyk_maxno)
End Select
yy = False
For i = 0 To frm_bykgl.List1.ListCount - 1
     If Text1(3) = frm_bykgl.List1.List(i) Then
        yy = True
        Exit For
     End If
Next i
    If yy = False Then
        frm_bykgl.List1.AddItem Text1(3)
    End If
    For i = 0 To frm_bykgl.List1.ListCount - 1
        If frm_bykgl.List1.List(i) = Text1(3) Then
            frm_bykgl.List1.ListIndex = i
            Exit For
        End If
    Next i
    For i = 0 To frm_bykgl.List2.ListCount - 1
          If Val(frm_bykgl.List2.List(i)) = Val(Text1(0)) Then
                frm_bykgl.List2.ListIndex = i
                Exit For
          End If
    Next i
    frm_bykgl.List2.ListIndex = frm_bykgl.List2.ListCount - 1
    Unload Me
         MsgBox "开新卡已经成功", vbOKOnly + vbInformation, "提示"
Else
   
    Unload Me
End If
 
Exit Sub
jgqerr:
    MsgBox Err.Description, vbOKOnly + vbCritical, "错误"

End Sub

Private Sub Command2_Click()
'Me.Hide
Load frm_zdxz
frm_zdxz.Caption = frm_zdxz.Caption + "(开卡)"
frm_zdxz.Show 1
End Sub

Private Sub Form_Load()
DTPicker1.Value = Date
 Set db = OpenDatabase(AppPath + "datas\mry.mdb")
Me.Height = 2340
n = 0
Select Case jjj
Case 0
    n = byk_maxno
Case 1
    n = lck_maxno
Case 2
    n = mfbyk_maxno
End Select
'Text1(0) = Trim(Str(n + 1))

Text1(4) = Format(Date, "yyyy-mm-dd")
Combo1.AddItem Pczy
Set rec = db.OpenRecordset("美容师人员表")
Do While Not rec.EOF
    Combo1.AddItem rec.Fields("姓名")
    rec.MoveNext
Loop

    Combo1.ListIndex = 0

Combo2.ListIndex = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)

'db.Close
'Set db = Nothing
End Sub

Private Sub Text1_Change(Index As Integer)
If Index = 1 Then
    Text2(0) = Text1(1)
End If
If IsNumeric(Text1(6)) Then
If Index = 2 Or Index = 6 Then
     Text1(7) = Round(Val(Text1(2)) * Val(Text1(6)) / 10, 2)
End If
End If

End Sub

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index))
Select Case Index
Case 4, 6, 0
      '  Text1(Index).IMEMode = 2
Case Else
     '       Text1(Index).IMEMode = 1
End Select

End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = 0 Then
    Select Case KeyAscii
    Case 59, 63
        KeyAscii = 0
    End Select
    If KeyAscii = 13 Then
        KeyAscii = 0
        Text1(1).SetFocus
    End If
End If

End Sub

Private Sub Text1_LostFocus(Index As Integer)

If IsNumeric(Text1(2)) And IsNumeric(Text1(6)) Then
Else
    MsgBox "您输入的金额或打折数有误", vbOKOnly + vbCritical, "错误"
    Text1(2).SetFocus
    Exit Sub
End If
If Index = 2 Then
    Text1(7) = Round(Val(Text1(2)) * Val(Text1(6)) / 10)
End If
If Index = 6 Then
    Text1(7) = Round(Val(Text1(2)) * Val(Text1(6)) / 10)
    If Round(Val(Text1(6)), 0) = 10 Then
    Else
    If Round(Val(Text1(6)), 0) = 7 Then
        Text1(5) = "本院七折"
    Else
    Text1(5) = "打" + Text1(6) + "折"
    End If
    End If
Else
End If

End Sub

Private Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)
If Index = 1 And KeyAscii = 13 Then
    Command1_Click 0
End If
End Sub