frm_yhgz.frm

美容院管理系统

         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "项    目："
         Height          =   180
         Index           =   0
         Left            =   -74805
         TabIndex        =   18
         Top             =   1720
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "次数/折扣："
         Height          =   180
         Index           =   7
         Left            =   105
         TabIndex        =   17
         Top             =   2190
         Width           =   990
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "优惠时间："
         Height          =   180
         Index           =   6
         Left            =   195
         TabIndex        =   16
         Top             =   630
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "优惠方式："
         Height          =   180
         Index           =   5
         Left            =   195
         TabIndex        =   15
         Top             =   1150
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "项    目："
         Height          =   180
         Index           =   4
         Left            =   195
         TabIndex        =   14
         Top             =   1670
         Width           =   900
      End
   End
End
Attribute VB_Name = "frm_yhgz"
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 trrec As Recordset
Dim sta As Boolean
Dim n As Integer

Private Sub Command1_Click(Index As Integer)
On Error GoTo jgqerr
Select Case Index
Case 0 '增加
enab
    
    
    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
    ListView1.Enabled = False
    rec.AddNew
    sta = True
Case 1 '删除
yn = MsgBox("真的想删除当前资料吗？", vbYesNo + vbQuestion, "提示")
    If yn = vbYes Then
       rec.Delete
       
       SSTab1_Click n
       If ListView1.ListItems.Count = 0 Then
       For i = 0 To Text1.Count - 1
        Text1(i).Text = ""
Next i

          Command1(1).Enabled = False
          Command1(2).Enabled = False
          
       Else
          Command1(1).Enabled = True
          Command1(2).Enabled = True
       
       
       End If
    Else
    End If
    ListView1.Enabled = True
    
Case 2 '修改
   enab
    
    
    Picture1.Visible = False
    Picture2.Visible = True
    Command1(5).Default = True
    Command1(6).Cancel = True
    Text1(0).SetFocus
    ListView1.Enabled = False
    rec.Edit
    sta = False
Case 3
Case 4 '退出
Unload Me
Case 5 '确定
    
     If Trim(Text1(0)) = "" Or Trim(Text1(1)) = "" Or Trim(Text1(2)) = "" Or Trim(Text1(3)) = "" Then
        MsgBox "每一栏都必须输入相应内容", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    rec.Fields("时间") = Trim(Text1(0))
    rec.Fields("优惠方式") = Trim(Text1(1))
    rec.Fields("项目") = Trim(Text1(2))
    rec.Fields("次数/折扣") = Trim(Text1(3))
    rec.Update
    ListView1.Enabled = True
    Picture1.Visible = True
    Picture2.Visible = False
    disa
    SSTab1_Click n
    
    Command1(0).Default = True
    Command1(4).Cancel = True
    MsgBox "优惠项目资料保存成功", vbOKOnly + vbInformation, "提示"
Case 6 '取消
rec.CancelUpdate
    Picture1.Visible = True
    Picture2.Visible = False
    disa
    Command1(0).Default = True
    Command1(4).Cancel = True
    ListView1.Enabled = True
    If ListView1.ListItems.Count = 0 Then
    For i = 0 To Text1.Count - 1
        Text1(i).Text = ""
Next i

    Command1(1).Enabled = False
          Command1(2).Enabled = False
          Else
          Command1(1).Enabled = True
          Command1(2).Enabled = True
    
          End If
End Select
Exit Sub
jgqerr:
    MsgBox Err.Description, vbOKOnly + vbCritical, "错误"

End Sub

Private Sub Form_Load()

'Set db = OpenDatabase(AppPath + "datas\mry.mdb")
disa
SSTab1_Click 1
End Sub

Private Sub OKButton_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)
'db.Close
'Set db = Nothing
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 ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
rec.FindFirst "时间='" + Item.Text + "' and 优惠方式='" + Item.SubItems(1) + "' and 项目='" + Item.SubItems(2) + "'"
tr
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
n = PreviousTab
If PreviousTab = 1 Then '包月
    sqlstr = "select * from 包月优惠表"
    Set rec = db.OpenRecordset("包月优惠表", dbOpenDynaset)
Else
    sqlstr = "select * from 包全年优惠表"
    Set rec = db.OpenRecordset("包全年优惠表", dbOpenDynaset)
End If
    Set trrec = db.OpenRecordset(sqlstr)
      ListView1.ListItems.Clear
        Do While Not trrec.EOF
                   Set itmx = ListView1.ListItems.Add(, , trrec.Fields("时间"))
                   itmx.SubItems(1) = IIf(IsNull(trrec.Fields("优惠方式")), "", trrec.Fields("优惠方式"))
                   itmx.SubItems(2) = IIf(IsNull(trrec.Fields("项目")), "", trrec.Fields("项目"))
                   itmx.SubItems(3) = IIf(IsNull(trrec.Fields("次数/折扣")), "", trrec.Fields("次数/折扣"))
                   trrec.MoveNext
       Loop
If ListView1.ListItems.Count <> 0 Then
    
    ListView1_ItemClick ListView1.ListItems(1)
    Command1(1).Enabled = True
          Command1(2).Enabled = True
      
Else
For i = 0 To Text1.Count - 1
        Text1(i).Text = ""
        
Next i
      Command1(1).Enabled = False
          Command1(2).Enabled = False
       
End If
End Sub

Private Sub Text1_GotFocus(Index As Integer)
'Text1(Index).IMEMode = 1
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index))
End Sub
Private Sub tr()
Text1(0) = rec.Fields("时间")
Text1(1) = rec.Fields("优惠方式")
Text1(2) = rec.Fields("项目")
Text1(3) = rec.Fields("次数/折扣")
End Sub
Private Sub disa()
SSTab1.Enabled = True
  For i = 0 To Text1.Count - 1
        Text1(i).Enabled = False
  Next i
End Sub
Private Sub enab()
SSTab1.Enabled = False
For i = 0 To Text1.Count - 1
        Text1(i).Enabled = True
  Next i
End Sub