frm_ylzpcx.frm

美容院管理系统

      Top             =   5760
      Visible         =   0   'False
      Width           =   9225
      _ExtentX        =   16272
      _ExtentY        =   318
      _Version        =   393216
      Appearance      =   1
      Scrolling       =   1
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1632
      Top             =   4164
      _ExtentX        =   688
      _ExtentY        =   688
      _Version        =   393216
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   3420
      Left            =   105
      TabIndex        =   11
      Top             =   2355
      Width           =   9240
      _ExtentX        =   16298
      _ExtentY        =   6033
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      AllowReorder    =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      HotTracking     =   -1  'True
      HoverSelection  =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   8
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "日期"
         Object.Width           =   1940
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   1
         Text            =   "保管员"
         Object.Width           =   1764
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         SubItemIndex    =   2
         Text            =   "客人姓名"
         Object.Width           =   2117
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         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           =   1764
      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 Label2 
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   21
      Top             =   1965
      Width           =   9210
   End
End
Attribute VB_Name = "frm_ylzpcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rec As Recordset
Dim sqlstr As String
Dim itmx As ListItem
Private Sub OKButton_Click()

End Sub

Private Sub Check1_Click()
Frame2.Visible = Check1.Value

End Sub

Private Sub Combo1_GotFocus(Index As Integer)
Combo1(Index).SelStart = 0
Combo1(idnex).SelLength = Len(Combo1(Index))
'Combo1(Index).IMEMode = 1

End Sub

Private Sub Command1_Click(Index As Integer)
On Error GoTo jgqerr
Select Case Index
Case 0 '查询
 If Check1.Value Then
         sqlstr = "select * from 材料支配表 where 日期>=#" & DTPicker1(0).Value & "# and 日期<=#" & DTPicker1(1).Value & "# and 客人姓名 like '*" + Trim(Text2(1)) + "*' and 保管员前 like '*" + Trim(Text2(0)) + "*' and 美容师前 like '*" + Trim(Combo1(0)) + "*' and 美容材料 like '*" + Trim(Combo1(1)) + "*'"
         sqlstr1 = "select count(*) from 材料支配表 where 日期>=#" & DTPicker1(0).Value & "# and 日期<=#" & DTPicker1(1).Value & "# and 客人姓名 like '*" + Trim(Text2(1)) + "*' and 保管员前 like '*" + Trim(Text2(0)) + "*' and 美容师前 like '*" + Trim(Combo1(0)) + "*' and 美容材料 like '*" + Trim(Combo1(1)) + "*'"

    
 Else
              sqlstr = "select * from 材料支配表 where 客人姓名 like '*" + Trim(Text2(1)) + "*' and 保管员前 like '*" + Trim(Text2(0)) + "*' and 美容师前 like '*" + Trim(Combo1(0)) + "*' and 美容材料 like '*" + Trim(Combo1(1)) + "*'"
         sqlstr1 = "select count(*) from 材料支配表 where 客人姓名 like '*" + Trim(Text2(1)) + "*' and 保管员前 like '*" + Trim(Text2(0)) + "*' and 美容师前 like '*" + Trim(Combo1(0)) + "*' and 美容材料 like '*" + Trim(Combo1(1)) + "*'"
 End If
   Me.MousePointer = 11
Set rec = db.OpenRecordset(sqlstr1)
jrsn = rec.Fields(0)
    Set rec = db.OpenRecordset(sqlstr)
   ProgressBar1.Visible = True
   ListView1.ListItems.Clear
  
Do While Not rec.EOF

     Set itmx = ListView1.ListItems.Add(, , Format(rec.Fields("日期"), "yyyy-mm-dd"))
        For i = 1 To rec.Fields.Count - 1
                itmx.SubItems(i) = IIf(IsNull(rec.Fields(i)), "", rec.Fields(i))
                
        Next i
        ProgressBar1.Value = (rec.AbsolutePosition + 1) / jrsn * 100
        rec.MoveNext
Loop
ProgressBar1.Visible = False
Me.MousePointer = 0
    If ListView1.ListItems.Count = 0 Then
        Command1(1).Enabled = False
        Command1(2).Enabled = False
        MsgBox "没有您要查找的记录", vbOKOnly + vbInformation, "提示"
        
    Else
        Command1(1).Enabled = True
        Command1(2).Enabled = True
        ListView1.SortKey = 0
        ListView1.SortOrder = lvwAscending
        ListView1.Sorted = True
    End If
    Label2 = "总共查找到： " & jrsn & " 条"
Case 1 '打印
yw_nr = Label2.Caption
            SaveSetting "奇迹公司", "页眉/页尾", "页尾打印", "1"
            dytr_main Me, 1, Me.Caption, "原料支配表"

Case 2 '删除
  If ListView1.ListItems.Count = 0 Then
    MsgBox "没有记录供您删除", vbOKOnly + vbCritical, "错误"
    Exit Sub
 End If
 If MsgBox("真的想删除列表中的记录吗？", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbNo Then
    Exit Sub
 End If

 sqlstr = Right(sqlstr, Len(sqlstr) - 6)
 sqlstr = "delete" + sqlstr
 db.Execute sqlstr
 ListView1.ListItems.Clear
 Command1(1).Enabled = False
 Command1(2).Enabled = False
Case 3 '退出
    Unload Me
End Select
Exit Sub
jgqerr:
    MsgBox Err.Description, vbOKOnly + vbCritical, "错误"

End Sub

Private Sub Form_Load()
frm_main.ylzpcx.Enabled = False
frmcen Me
DTPicker1(0).Value = Date - 30
DTPicker1(1).Value = Date
Set db = OpenDatabase(AppPath + "datas\mry.mdb", True, False, ";PWD=miracle")
Set rec = db.OpenRecordset("select distinct 美容材料 from 材料支配表")
Combo1(1).AddItem ""
Do While Not rec.EOF
    Combo1(1).AddItem rec.Fields("美容材料")
    rec.MoveNext
Loop
If Combo1(1).ListCount <> 0 Then
   Combo1(1).ListIndex = 0
End If
Set rec = db.OpenRecordset("select distinct 姓名 from 美容师人员表")
Combo1(0).AddItem ""
Do While Not rec.EOF
    Combo1(0).AddItem rec.Fields("姓名")
    rec.MoveNext
Loop
If Combo1(0).ListCount <> 0 Then
   Combo1(0).ListIndex = 0
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
frm_main.ylzpcx.Enabled = True
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.SortKey = ColumnHeader.Index - 1
yn = MsgBox("将按照『" + ColumnHeader.Text + "』排序" + Chr(13) + "是否按升序排列,按[否]将按降序排列", vbYesNo + vbQuestion, "提示")
If yn = vbNo Then
    ListView1.SortOrder = lvwDescending
Else
    ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub

Private Sub Text2_GotFocus(Index As Integer)
Text2(Index).SelStart = 0
Text2(idnex).SelLength = Len(Text2(Index))
'Text2(Index).IMEMode = 1

End Sub