frm_hzp.frm

美容院管理系统

      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "单位"
         Object.Width           =   1058
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   1
         SubItemIndex    =   3
         Text            =   "单价"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   4
         Text            =   "类型"
         Object.Width           =   2540
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   5
         Text            =   "库存"
         Object.Width           =   2540
      EndProperty
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "类型："
      Height          =   180
      Index           =   1
      Left            =   150
      TabIndex        =   23
      Top             =   180
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "名称|型号："
      Height          =   180
      Index           =   0
      Left            =   120
      TabIndex        =   22
      Top             =   735
      Width           =   990
   End
End
Attribute VB_Name = "frm_hzp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'Dim db As Database
Dim rec As Recordset
Dim sqlrec As Recordset
Dim trrec As Recordset
Dim sta As Boolean
Dim ylx As String
Dim ymc As String
Dim yxh As String


Private Sub OKButton_Click()

End Sub

Private Sub Combo1_Click(Index As Integer)
If Index = 1 Then
sqlstr = "select distinct 单位 from 化妆品表 where 类型='" + Combo1(1).Text + "'"
Combo1(0).Clear
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    Combo1(0).AddItem rec.Fields("单位")
    rec.MoveNext
Loop
End If
End Sub

Private Sub Combo2_Click()
If Combo2.Text = "（所有类型）" Then
    sqlstr = "select * from 化妆品表"
Else
    sqlstr = "select * from 化妆品表 where 类型='" + Combo2.Text + "'"
End If
List1.Clear
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    List1.AddItem rec.Fields("名称") + "|" + rec.Fields("型号")
    rec.MoveNext
Loop
If List1.ListCount = 0 Then
    For i = 1 To 3
        Command1(i).Enabled = False
    Next i
    Command1(0).Enabled = True
    Command1(4).Enabled = True
Else
    List1.ListIndex = 0
    For i = 0 To 4
        Command1(i).Enabled = True
    Next i
End If



End Sub

Private Sub Command1_Click(Index As Integer)
On Error GoTo myerr
Select Case Index
Case 0
   
    Combo2.Enabled = False
    List1.Enabled = False
    For i = 0 To Text1.Count - 1
        Text1(i) = ""
    Next i
    Picture1.Visible = False
    Picture2.Visible = True
    Command1(5).Default = True
    Command1(6).Cancel = True
    Text1(0).SetFocus
    sqlrec.AddNew
    sta = True
Case 1 '删除
    yn = MsgBox("真的想删除『" + List1.Text + "』的资料吗？", vbYesNo + vbQuestion, "提示")
    If yn = vbYes Then
       rec.Delete
       
      
    Else
       
    End If
    ss
    
Case 2 '修改
ylx = Combo1(1).Text
yxh = Trim(Text1(1))
ymc = Trim(Text1(0))
   
    Combo2.Enabled = False
    List1.Enabled = False
    Picture1.Visible = False
    Picture2.Visible = True
    Command1(5).Default = True
    Command1(6).Cancel = True
    Text1(0).SetFocus
    sqlrec.Edit
    sta = False
Case 3 '查询
  If Trim(Text1(2)) = "" Then
    sqlstr = "select * from 化妆品表 where 单位 like '*" + Trim(Combo1(0).Text) + "*' and 类型 like '*" + Trim(Combo1(1).Text) + "*' and 型号 like '*" + Trim(Text1(1)) + "*' and 名称 like '*" + Trim(Text1(0)) + "*'"
 Else
    sqlstr = "select * from 化妆品表 where 单位 like '*" + Trim(Combo1(0).Text) + "*' and 类型 like '*" + Trim(Combo1(1).Text) + "*' and 型号 like '*" + Trim(Text1(1)) + "*' and 名称 like '*" + Trim(Text1(0)) + "*' and 单价=" + Trim(Text1(2))
 End If
    Set trrec = db.OpenRecordset(sqlstr)
    If trrec.EOF And trrec.BOF Then
        MsgBox "没有您要查找的化妆品资料", vbOKOnly + vbCritical, "错误"
        Exit Sub
    Else
        Me.Height = 5640
        frmcen Me
        ListView1.ListItems.Clear
        Do While Not trrec.EOF
               Set itmx = ListView1.ListItems.Add(, , trrec.Fields(0))
               For i = 1 To trrec.Fields.Count - 1
                   itmx.SubItems(i) = IIf(IsNull(trrec.Fields(i)), "", trrec.Fields(i))
       
               Next i
             trrec.MoveNext
       Loop
       
    End If

Case 4 '退出
    Unload Me
Case 5 '确定
    If Trim(Text1(0)) = "" Then
        MsgBox "请在第一栏输入化妆品名称", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    If Trim(Combo1(0).Text) = "" Then
        MsgBox "请在第三栏输入化妆品单位", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    If Trim(Text1(2)) = "" Then
        MsgBox "请在第四栏输入化妆品单价", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    If IsNumeric(Text1(2)) = False Then
        MsgBox "请在第四栏输入的化妆品单价有误", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
sqlrec.Fields("名称") = Text1(0)
sqlrec.Fields("型号") = Text1(1)
sqlrec.Fields("单位") = Combo1(0).Text
sqlrec.Fields("单价") = Text1(2)
sqlrec.Fields("类型") = Combo1(1).Text
    sqlrec.Update
    Picture1.Visible = True
    Picture2.Visible = False
   
    If sta = True Then
    ss
    Else
    If Trim(Text1(0)) <> ymc Or Trim(Text1(1)) <> yxh Or Trim(Combo1(1)) <> ylx Then
        ss
    End If
    End If
    Combo2.Enabled = True
    List1.Enabled = True
    Command1(0).Default = True
    Command1(4).Cancel = True
    MsgBox "化妆品资料保存成功", vbOKOnly + vbInformation, "提示"
    
Case 6
    sqlrec.CancelUpdate
    Picture1.Visible = True
    Picture2.Visible = False
   
    If List1.ListCount <> 0 Then
        Combo2.Enabled = True
        List1.Enabled = True
        List1.Selected(0) = True
        List1_Click
    Else
        For i = 1 To 3
            Command1(i).Enabled = False
            
        Next i
        Combo2.Enabled = False
        List1.Enabled = False
    End If
    Command1(0).Default = True
    Command1(4).Cancel = True
End Select
Exit Sub
myerr:
  MsgBox Err.Description, vbOKOnly + vbCritical, "错误"
End Sub

Private Sub Command2_Click()
Me.Height = 2940
frmcen Me
End Sub

Private Sub command3_Click()
If ListView1.ListItems.Count <> 0 Then
 dytr_main Me, 1, Me.Caption, "化妆品表"
 Else
  MsgBox "列表中没有资料供打印", vbOKOnly + vbCritical, "错误"
 End If
End Sub

Private Sub Form_Load()
frm_main.hzp.Enabled = False
Me.Height = 2940
frmcen Me
'Set db = OpenDatabase(AppPath + "datas\mry.mdb")
Set sqlrec = db.OpenRecordset("化妆品表")
ss
End Sub
Private Sub ss()
Combo2.Clear
sqlstr = "select distinct 类型 from 化妆品表"
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    Combo2.AddItem rec.Fields("类型")
    rec.MoveNext
Loop
Combo2.AddItem "（所有类型）"
    sqlstr = "select distinct 类型 from 化妆品表"
Combo1(1).Clear
Set rec = db.OpenRecordset(sqlstr)
Do While Not rec.EOF
    Combo1(1).AddItem rec.Fields("类型")
    rec.MoveNext
Loop
Combo2.ListIndex = 0





End Sub
Private Sub tr()
Text1(0) = rec.Fields("名称")
Text1(1) = IIf(IsNull(rec.Fields("型号")), "", rec.Fields("型号"))
Combo1(0).Text = rec.Fields("单位")
Text1(2) = IIf(IsNull(rec.Fields("单价")), "", rec.Fields("单价"))
Combo1(1).Text = IIf(IsNull(rec.Fields("类型")), "", rec.Fields("类型"))
End Sub

Private Sub Form_Unload(Cancel As Integer)
frm_main.hzp.Enabled = True
'db.Close
'Set db = Nothing
End Sub

Private Sub List1_Click()
wz = InStr(1, List1.Text, "|")
mc = Left(List1.Text, wz - 1)
xh = Mid(List1.Text, wz + 1, Len(List1.Text))

If Combo2.Text = "（所有类型）" Then
    If xh = "" Then
        sqlstr = "select * from 化妆品表 where 名称='" + mc + "'"
    Else
        sqlstr = "select * from 化妆品表 where 名称='" + mc + "' and 型号='" + xh + "'"
    End If
Else
    If xh = "" Then
        sqlstr = "select * from 化妆品表 where 名称='" + mc + "' and 类型='" + Combo2.Text + "'"
    Else
        sqlstr = "select * from 化妆品表 where 名称='" + mc + "' and 型号='" + xh + "' and 类型='" + Combo2.Text + "'"
    End If
    
End If

Set rec = db.OpenRecordset(sqlstr)

    tr
End Sub

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