⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_bykgl.frm

📁 美容院管理系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    Case 2
    If ListView1.ListItems.Count >= 4 Then
            yn = MsgBox("该客户美容已经超过 4 次，建议不能退卡" + Chr(13) + "真的要退卡吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
            If yn = vbNo Then
                Exit Sub
            End If
        End If
    End Select
ttt:        fyp = InputBox("请输入退卡的金额（￥）：", "退卡")
        If IsNumeric(fyp) = False Then
            yn = MsgBox("您输入的退卡金额有误，要重新输入吗？", vbYesNo + vbInformation, "提示")
            If yn = vbYes Then
                GoTo ttt
            End If
            Exit Sub
        End If
        If Val(fyp) > Val(Text1(2)) Then
            yn = MsgBox("您输入的退卡金额超过了原金额", vbOKOnly + vbCritical, "错误")
            Exit Sub
        End If
    
        sqlrec.Edit
            sqlrec.Fields("备注") = "已退卡"
        sqlrec.Update
        Text1(5) = "已退卡"
        Set sqlrec = db.OpenRecordset("收入表")
        sqlrec.AddNew
            sqlrec.Fields("日期") = Date
            sqlrec.Fields("卡号") = Val(Text1(0))
            sqlrec.Fields("项目") = Text1(3)
            Set rec = db.OpenRecordset("收入表", dbOpenDynaset)
            rec.FindFirst "日期=#" & CDate(Text1(4)) & "# and 卡号=" + Text1(0) + " and 项目='" + Text1(3) + "' and 收入=" + Text1(2)
            
            sqlrec.Fields("介绍人") = rec.Fields("介绍人")
            sqlrec.Fields("客人姓名") = Text1(1)
            sqlrec.Fields("收入") = -Abs(Val(fyp))
            sqlrec.Fields("支付方式") = "现金"
            sqlrec.Fields("备注") = "退卡"
        sqlrec.Update
        MsgBox "退卡成功", vbOKOnly + vbInformation, "提示"
    
    

Case 3 '查询
    enab
Case 4 '打印
Printer.ScaleMode = 6 '毫米
    Printer.FontItalic = False
    Printer.FontUnderline = False
    Printer.ForeColor = vbRed
    
    Printer.CurrentX = 28
    Printer.CurrentY = 4
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 20
    Printer.FontBold = True
Select Case jjj
    Case 0 '包月卡
       ca = "包 月 卡"
       mn = 6
       skl = 5
       dynjj = 4
       yxq = "注：三个月内有效"
    Case 1 '疗程卡
       ca = "疗 程 卡"
       mn = 7
       skl = 3
       yxq = "注：一个月内有效"
       dynjj = 5
    Case 2 '美发包月卡
    ca = "美发包月卡"
    mn = 6
    skl = 3
    yxq = "注：三个月内有效"
    dynjj = 4
End Select
Printer.Print ca

    Printer.CurrentX = 6
    Printer.CurrentY = 4
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print "NO.："
           
    Printer.CurrentX = 15
    Printer.CurrentY = 4
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print Text1(0)
    
    Printer.CurrentX = 6
    Printer.CurrentY = 8
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print "姓名："
    
     Printer.CurrentX = 15
    Printer.CurrentY = 8
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print Text1(1)
    
     Printer.CurrentX = 65
    Printer.CurrentY = 4
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print "诊断："
    
     Printer.CurrentX = 74
    Printer.CurrentY = 4
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print Text1(3)
    
     Printer.CurrentX = 65
    Printer.CurrentY = 8
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print "金额："
    
    Printer.CurrentX = 74
    Printer.CurrentY = 8
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print Text1(2)
    '画线
    Printer.DrawWidth = 1
    For i = 0 To mn - 1
               Printer.Line (4, 15 + i * 6)-(87, 15 + i * 6), vbRed
    Next i
    If mn = 6 Then
            kjh = 45
    Else
            kjh = 51
    End If
    If skl = 3 Then '疗程卡或美发包月卡
                Printer.CurrentX = 12
                Printer.CurrentY = 16
                Printer.Print "日期"
                Printer.Line (26, 15)-(26, kjh), vbRed
                Printer.CurrentX = 28
                Printer.CurrentY = 16
                Printer.Print "美容师"
                Printer.Line (41, 15)-(41, kjh), vbRed
                Printer.CurrentX = 50
                Printer.CurrentY = 16
                Printer.Print "项目"
                Printer.Line (66, 15)-(66, kjh), vbRed
                Printer.CurrentX = 73
                Printer.CurrentY = 16
                Printer.Print "备注"
        
    Else '包月卡
                Printer.CurrentX = 11
                Printer.CurrentY = 16
                Printer.Print "日期"
                Printer.Line (22, 15)-(22, kjh), vbRed
                Printer.CurrentX = 23
                Printer.CurrentY = 16
                Printer.Print "美容师"
                Printer.Line (34, 15)-(34, kjh), vbRed
                Printer.CurrentX = 40
                Printer.CurrentY = 16
                Printer.Print "项目"
                Printer.Line (56, 15)-(56, kjh), vbRed
                Printer.CurrentX = 57
                Printer.CurrentY = 16
                Printer.Print "赠送"
                Printer.Line (64, 15)-(64, kjh), vbRed
                Printer.CurrentX = 65
                Printer.CurrentY = 16
                Printer.Print "美发"
                Printer.Line (72, 15)-(72, kjh), vbRed
                Printer.CurrentX = 75
                Printer.CurrentY = 16
                Printer.Print "备注"
    End If
    '注意
    Printer.CurrentX = 4
    If mn = 6 Then
        Printer.CurrentY = 48
    Else
        Printer.CurrentY = 48 + 6
    End If
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print yxq
    '备注
    Printer.CurrentX = 60
    If mn = 6 Then
        Printer.CurrentY = 48
    Else
        Printer.CurrentY = 48 + 6
    End If
    Printer.FontName = "楷体_GB2312"
    Printer.FontSize = 9
    Printer.FontBold = False
    Printer.Print "备注：" + Text1(5)
   
   
    '打印表格内容
    If dynjj = 4 Then '包月卡或美发包月卡
       
           If ListView1.ListItems.Count <= 4 Then
              mkll = ListView1.ListItems.Count
           Else
           
              mkll = 4
              End If
              For i = 1 To mkll
                    If skl = 3 Then '美发包月卡
                        
                            Printer.CurrentX = 8
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(1)
                            Printer.CurrentX = 28
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(2)
                            Printer.CurrentX = 42
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(3)
                            Printer.CurrentX = 67
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(4)
                    Else '包月卡
                            Printer.CurrentX = 4
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(1)
                            Printer.CurrentX = 23
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(2)
                            Printer.CurrentX = 35
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(3)
                            Printer.CurrentX = 57
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(4)
                            Printer.CurrentX = 65
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(5)
                            Printer.CurrentX = 73
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(6)
                    End If
              Next i
           
       
    
    Else '疗程卡
        If ListView1.ListItems.Count <= 5 Then
              mkll = ListView1.ListItems.Count
        Else
           
              mkll = 5
        End If
              For i = 1 To mkll
                    
                        
                            Printer.CurrentX = 8
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(1)
                            Printer.CurrentX = 28
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(2)
                            Printer.CurrentX = 42
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(3)
                            Printer.CurrentX = 67
                            Printer.CurrentY = 22 + (i - 1) * 6
                            Printer.Print ListView1.ListItems(i).SubItems(4)
                    
              Next i
           
       
    
    End If
    
    Printer.EndDoc
Case 5 '原料支配
If Text1(5) = "已退卡" Then
    MsgBox "该客户已经退卡，不能再进行原料分配", vbOKOnly + vbCritical, "错误"
    Exit Sub
End If

If ListView1.ListItems.Count <> 0 Then
    If jjj = 0 Then
        k = 7
    Else
        k = 5
    End If
    If ListView1.SelectedItem.SubItems(k) = "否" Then
        ttt = True
        sqlstr = "select 所需原料 from 项目收费表 where 项目='" + ListView1.SelectedItem.SubItems(3) + "'"
        Set sqlrec = db.OpenRecordset(sqlstr)
        If sqlrec.EOF And sqlrec.BOF Then
        Else
            frm_ylzp.Combo1 = "" & sqlrec.Fields(0)
        End If
        
        frm_ylzp.Caption = frm_ylzp.Caption + "--" + Me.Caption
        frm_ylzp.Show 1
    Else
        MsgBox "已经进行了原料支配", vbOKOnly + vbCritical, "错误"
    End If
Else
    MsgBox "您不能进行原料支配", vbOKOnly + vbCritical, "错误"
End If
Case 6 '增加单次登记
If Text1(5) = "已退卡" Then
    MsgBox "该客户已经退卡，不能再进行单次登记", vbOKOnly + vbCritical, "错误"
    Exit Sub
End If
If Date - CDate(Text1(4)) < 0 Then
        MsgBox "发卡日期超过了当前日期", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
Select Case jjj
Case 0
    If Date - CDate(Text1(4)) > 90 Then
       yn = MsgBox("可能已经过期（三个月），建议您不要再登记" + Chr(13) + "真的要登记吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
       If yn = vbNo Then
            Exit Sub
       End If
    End If
    
    
    If ListView1.ListItems.Count >= 4 Then
        yn = MsgBox("该用户已经登记了 " & ListView1.ListItems.Count & " 次" + Chr(13) + "建议您不要在登记，真的要登记吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
        If yn = vbNo Then
            Exit Sub
        End If
    End If
Case 1
If Date - CDate(Text1(4)) > 30 Then
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -