📄 frm_ylzp.frm
字号:
VERSION 5.00
Begin VB.Form frm_ylzp
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "原料支配"
ClientHeight = 1785
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5490
Icon = "frm_ylzp.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1785
ScaleWidth = 5490
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 288
IMEMode = 3 'DISABLE
Left = 3756
MaxLength = 8
PasswordChar = "*"
TabIndex = 2
Top = 1344
Width = 1608
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 288
Left = 996
MaxLength = 15
TabIndex = 1
Top = 1356
Width = 1668
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Left = 996
Sorted = -1 'True
TabIndex = 0
Top = 720
Width = 3060
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Default = -1 'True
Height = 390
Index = 0
Left = 4188
MaskColor = &H00FFFFFF&
Picture = "frm_ylzp.frx":000C
Style = 1 'Graphical
TabIndex = 3
Top = 84
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 390
Index = 1
Left = 4188
MaskColor = &H00FFFFFF&
Picture = "frm_ylzp.frx":176A
Style = 1 'Graphical
TabIndex = 4
Top = 516
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "美容师密码："
Height = 180
Index = 8
Left = 2760
TabIndex = 19
Top = 1404
Width = 1080
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
Height = 180
Index = 7
Left = 456
TabIndex = 18
Top = 1416
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H00C00000&
Height = 180
Index = 5
Left = 3468
TabIndex = 17
Top = 1092
Width = 576
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H00C00000&
Height = 180
Index = 4
Left = 996
TabIndex = 16
Top = 1092
Width = 576
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H00C00000&
Height = 180
Index = 3
Left = 3468
TabIndex = 15
Top = 396
Width = 576
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H00C00000&
Height = 180
Index = 2
Left = 996
TabIndex = 14
Top = 396
Width = 576
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "美容师："
Height = 180
Index = 6
Left = 2712
TabIndex = 13
Top = 1092
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保管员："
Height = 180
Index = 4
Left = 276
TabIndex = 12
Top = 1092
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "美容材料："
Height = 180
Index = 5
Left = 96
TabIndex = 11
Top = 744
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "美容师："
Height = 180
Index = 3
Left = 2712
TabIndex = 10
Top = 408
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
ForeColor = &H00C00000&
Height = 180
Index = 1
Left = 3468
TabIndex = 9
Top = 84
Width = 576
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "客人姓名："
Height = 180
Index = 2
Left = 2532
TabIndex = 8
Top = 96
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "保管员："
Height = 180
Index = 1
Left = 276
TabIndex = 7
Top = 408
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 228
Index = 0
Left = 996
TabIndex = 6
Top = 84
Width = 576
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期："
Height = 180
Index = 0
Left = 456
TabIndex = 5
Top = 96
Width = 540
End
End
Attribute VB_Name = "frm_ylzp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rec As Recordset
Private Sub OKButton_Click()
End Sub
Private Sub Combo1_GotFocus()
Combo1.SelStart = 0
Combo1.SelLength = Len(Combo1)
'Combo1.IMEMode = 1
End Sub
Private Sub Command1_Click(Index As Integer)
'On Error GoTo jgqerr
'检验
If Index = 0 Then '确定
If Trim(Combo1.Text) = "" Then
MsgBox "美容材料不能为空", vbOKOnly + vbCritical, "错误"
Combo1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入美容师密码", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
sqlstr = "select * from 美容师人员表 where 姓名='" + Label2(3) + "' and 密码='" + Text2 + "'"
Set rec = db.OpenRecordset(sqlstr)
If rec.EOF And rec.BOF Then
MsgBox "您输入的密码错误", vbOKOnly + vbCritical, "错误"
Text2.SetFocus
Exit Sub
End If
l0 = Label2(0)
l2 = Label2(2)
l1 = Label2(1)
l3 = Label2(3)
c1 = Trim(Combo1.Text)
l4 = Label2(4)
l5 = Label2(5)
t1 = Trim(Text1)
sqlstr = "insert into 材料支配表 (日期,保管员前,客人姓名,美容师前,美容材料,保管员后,美容师后,备注) values (#" + l0 + "#,'" + l2 + "','" + l1 + "','" + l3 + "','" + c1 + "','" + l4 + "','" + l5 + "','" + t1 + "')"
db.Execute sqlstr
If ttt Then '包月卡
Select Case jjj
Case 0
kl = "包月卡"
frm_bykgl.ListView1.SelectedItem.SubItems(7) = "是"
Case 1
kl = "疗程卡"
frm_bykgl.ListView1.SelectedItem.SubItems(5) = "是"
Case 2
kl = "美发包月卡"
frm_bykgl.ListView1.SelectedItem.SubItems(5) = "是"
End Select
sqlstr = "update 包月明细卡 set 原料支配='是' where 编号=" + frm_bykgl.Text1(0) + " and 次数=" + frm_bykgl.ListView1.SelectedItem.Text + " and 类型='" + kl + "'"
db.Execute sqlstr
Else
frm_dcczgl.Label3(11) = "是"
sqlstr = "update 单次处置表 set 原料支配='是' where 编号='" + frm_dcczgl.Label3(1) + "' and 类别='" + frm_dcczgl.Label3(9) + "'"
db.Execute sqlstr
End If
Unload Me
MsgBox "原料分配成功", vbOKOnly + vbInformation, "提示"
Else '取消
Unload Me
End If
Exit Sub
jgqerr:
MsgBox Err.Description, vbOKOnly + vbCritical, "错误"
End Sub
Private Sub Form_Load()
On Error GoTo jjjerr
Label2(0) = Format(Date, "yyyy-mm-dd")
Label2(2) = Pczy
Label2(4) = Pczy
If ttt Then '包月卡
Label2(1) = frm_bykgl.Text1(1)
Label2(3) = frm_bykgl.ListView1.SelectedItem.SubItems(2)
Label2(5) = Label2(3)
Text1 = frm_bykgl.ListView1.SelectedItem.SubItems(3)
Else
Label2(1) = frm_dcczgl.Label3(2) '客人姓名
Label2(3) = frm_dcczgl.Label3(8)
Label2(5) = Label2(3)
Text1 = frm_dcczgl.Label3(5)
End If
Set rec = db.OpenRecordset("select distinct 美容材料 from 材料支配表")
Do While Not rec.EOF
Combo1.AddItem rec.Fields(0)
rec.MoveNext
Loop
Exit Sub
jjjerr:
MsgBox Err.Description, vbOKOnly + vbCritical, "错误"
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
'Text1.IMEMode = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -