form2.frm

汽修厂管理软件

    
    Frm_Part_SumPrice.Lbl_Way.Visible = True
    Frm_Part_SumPrice.Comb_way.Visible = True
    Frm_Part_SumPrice.Show vbModal
    If Frm_Part_SumPrice.Dicision = False Then Exit Sub '按取消什么都不做

    Frm_Part_SumPrice.Lbl_Way.Visible = False
    Frm_Part_SumPrice.Comb_way.Visible = False
   
  Set rsSelected = dbMeiRong.OpenRecordset("财务登记表", dbOpenTable, dbapendonly)
   With rsSelected
      .AddNew
      .Fields("日期") = Date
      .Fields("出入帐") = "收入"
      .Fields("标的金额") = CCur(Frm_Part_SumPrice.Txt_PartSum.Text)
      .Fields("实际金额") = CCur(Frm_Part_SumPrice.Txt_Price.Text)
      .Fields("交易方式") = Frm_Part_SumPrice.Comb_way.Text
      .Fields("活动原因") = Comb_CarNum.Text & "购买次卡" & "所得收入"
      .Fields("经手人") = wksMeiRong.UserName
      .Fields("批准人") = wksMeiRong.UserName
      .Fields("对方") = ""
      .Fields("账目种类") = "洗车美容"
      .Fields("毛利") = CCur(Txt_CardSum.Text)
      .Update
      .Close
     End With
 Call MsgBox("您购买的次卡ID号是" & CStr(intCardId), vbOKOnly + vbInformation, STRGARAGE)
 End If
End Sub

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_Del_Click()
If Grid_Selected.Rows > 2 Then
  If Grid_Selected.Row > 0 Then
  Grid_Selected.RemoveItem (Grid_Selected.Row)
  End If
 Else
  Grid_Selected.Rows = 1
End If
If Grid_Selected.Rows = 1 Then Cmd_Del.Enabled = False
If Grid_Selected.Rows > 1 Then
    For i = 1 To Grid_Selected.Rows - 1
     sngCardSum = CSng(Grid_Selected.TextMatrix(i, 2)) + sngCardSum
    Next i
  Txt_CardSum.Text = CStr(sngCardSum)
 Else
   Txt_CardSum.Text = "0"
End If
End Sub

Private Sub Cmd_ExitBuy_Click()
Unload Me
End Sub

Private Sub Cmd_Gift_Click()
Dim rsCard As Recordset
Dim Finish As Boolean
Set rsCard = dbMeiRong.OpenRecordset("select * from 次卡消费表 where ID =  " & CLng(Grid_Resumed.TextMatrix(Grid_Resumed.Row, 0)) _
                       , dbOpenDynaset)
With rsCard
 .Edit
 .Fields("已赠送次数") = .Fields("已赠送次数") + 1
 If .Fields("已服务次数") = .Fields("可服务次数") And .Fields("已赠送次数") = .Fields("可赠送次数") Then Finish = True
 .Update
 
End With
If Finish = True Then
Call MsgBox("您的消费卡已经用完,如需服务请购买次卡", vbOKOnly + vbInformation, STRGARAGE)
 With rsCard
  .Delete
 
  .Close
 End With
End If
Call CardCarList
End Sub

Private Sub Cmd_Ok_Click()

Dim rsClean As Recordset '用于打开待修表
Frm_Part_SumPrice.lbl_Title = "洗车美容"
Frm_Part_SumPrice.Lbl_Sum.Caption = "应收"
Frm_Part_SumPrice.Label4.Caption = "元"
Frm_Part_SumPrice.lbl_SinglePrice.Caption = "实收"
Frm_Part_SumPrice.Txt_PartSum.Locked = True
Frm_Part_SumPrice.Txt_PartSum.Text = Txt_Sum.Text
Frm_Part_SumPrice.Txt_Price.Text = Txt_Sum.Text
Frm_Part_SumPrice.Txt_Price.SelStart = 0
Frm_Part_SumPrice.Txt_Price.SelLength = Len(Frm_Part_SumPrice.Txt_Price.Text)
Frm_Part_SumPrice.Lbl_Way.Visible = True
Frm_Part_SumPrice.Comb_way.Visible = True
Frm_Part_SumPrice.Show vbModal
If Frm_Part_SumPrice.Dicision = False Then Exit Sub '按取消什么都不做

Frm_Part_SumPrice.Lbl_Way.Visible = False
Frm_Part_SumPrice.Comb_way.Visible = False

Set rsClean = dbMeiRong.OpenRecordset("财务登记表", dbOpenTable, dbAppendOnly)
     With rsClean
      .AddNew
      .Fields("日期") = Date
      .Fields("出入帐") = "收入"
      .Fields("标的金额") = CCur(Frm_Part_SumPrice.Txt_PartSum.Text)
      .Fields("实际金额") = CCur(Frm_Part_SumPrice.Txt_Price.Text)
      .Fields("交易方式") = Frm_Part_SumPrice.Comb_way.Text
      .Fields("活动原因") = "简易美容" & Comb_CarNum.Text & "所得收入"
      .Fields("经手人") = wksMeiRong.UserName
      .Fields("批准人") = wksMeiRong.UserName
      .Fields("对方") = ""
      .Fields("账目种类") = "洗车美容"
      .Fields("毛利") = CCur(Txt_Sum.Text)
      .Update
      .Close
     End With
   

End Sub

Private Sub Cmd_add_Click()
Dim strLine As String
Dim sngCardSum As Single

strLine = Grid_MeiROng.TextMatrix(Grid_MeiROng.Row, 0) & vbTab & Grid_MeiROng.TextMatrix(Grid_MeiROng.Row, 1) & vbTab & Grid_MeiROng.TextMatrix(Grid_MeiROng.Row, 5)


Grid_Selected.AddItem strLine
If Grid_Selected.Rows > 1 Then
    For i = 1 To Grid_Selected.Rows - 1
     sngCardSum = CSng(Grid_Selected.TextMatrix(i, 2)) + sngCardSum
    Next i
  Txt_CardSum.Text = CStr(sngCardSum)
 Else
   Txt_CardSum.Text = "0"
End If
End Sub




Private Sub Cmd_ResumeExit_Click()
Unload Me
End Sub

Private Sub Cmd_Usecard_Click()
Dim rsCard As Recordset
Dim Finish As Boolean
Set rsCard = dbMeiRong.OpenRecordset("select * from 次卡消费表 where ID =  " & CLng(Grid_Resumed.TextMatrix(Grid_Resumed.Row, 0)) _
                       , dbOpenDynaset)
With rsCard
 .Edit
 .Fields("已服务次数") = .Fields("已服务次数") + 1
 If .Fields("已服务次数") = .Fields("可服务次数") And .Fields("已赠送次数") = .Fields("可赠送次数") Then Finish = True
 .Update
 
End With
If Finish = True Then
Call MsgBox("您的消费卡已经用完,如需服务请购买次卡", vbOKOnly + vbInformation, STRGARAGE)
 With rsCard
  .Delete
 
  .Close
 End With
End If
Call CardCarList
End Sub

Private Sub Comb_CarNum_KeyPress(KeyAscii As Integer)
Comb_CarNum.Text = UCase(Comb_CarNum.Text)
Comb_CarNum.SelStart = Len(Comb_CarNum.Text)
End Sub

Private Sub Form_Load()
On Error GoTo EHand
Frm_Login.Show vbModal

If strOkorEsc = "确定" Then
    Set wksMeiRong = DBEngine.CreateWorkspace("meirong", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
    Set dbMeiRong = wksMeiRong.OpenDatabase(DBPATH, False, False)
    Set rsMeiRong = dbMeiRong.QueryDefs("查找美容项目").OpenRecordset(dbOpenDynaset, dbReadOnly)  '("select 维修项目,价格 From 人工价格表 Where 班组 = '美容班'", dbOpenForwardOnly, dbSQLPassThrough)
    'Set rsMeiRong = dbMeiRong.OpenRecordset("人工价格表")
    '加载 简易美容项目
    Comb_CarNum.AddItem "粤A"
    Comb_CarNum.AddItem "粤B"
    Comb_CarNum.AddItem "粤C"
    Comb_CarNum.ListIndex = 0
    If rsMeiRong.RecordCount > 0 Then
       ' ReDim Txt_CleanPrice(rsMeiRong.RecordCount)
        'ReDim Chk_Clean(rsMeiRong.RecordCount)
        
        Txt_CleanPrice(0).Text = CStr(rsMeiRong.Fields("价格"))
        Chk_Clean(0).Caption = rsMeiRong.Fields("维修项目")
       i = 1
       rsMeiRong.MoveNext
       Do Until rsMeiRong.EOF
        Load Txt_CleanPrice(i)
        Txt_CleanPrice(i).Left = Txt_CleanPrice(i - 1).Left
        Txt_CleanPrice(i).Top = Txt_CleanPrice(i - 1).Top + 400
        Txt_CleanPrice(i).Text = CStr(rsMeiRong.Fields("价格"))
        Txt_CleanPrice(i).Visible = True
        Load Lbl_Yuan(i)
        Lbl_Yuan(i).Left = Lbl_Yuan(i - 1).Left
        Lbl_Yuan(i).Top = Lbl_Yuan(i - 1).Top + 400
        Lbl_Yuan(i).Visible = True
        Load Chk_Clean(i)
        Chk_Clean(i).Left = Chk_Clean(i - 1).Left
        Chk_Clean(i).Top = Chk_Clean(i - 1).Top + 400
        Chk_Clean(i).Caption = rsMeiRong.Fields("维修项目")
        Chk_Clean(i).Visible = True
        rsMeiRong.MoveNext
        Lbl_Sum.Top = Lbl_Sum.Top + 400
        Txt_Sum.Top = Txt_Sum.Top + 400
        i = i + 1
       Loop
        intCleanCount = i
      Else
        Txt_CleanPrice(0).Visible = False
        Chk_Clean(i).Visible = False
        Call MsgBox("请在人工价格表中设置美容项目", vbOKOnly, STRGARAGE)
    End If
    
    Txt_Sum.Text = "0"
    Frame1(1).Visible = False
    Frame1(2).Visible = False
    rsMeiRong.Close
    '加载购买茨卡页
    Set rsMeiRong = dbMeiRong.OpenRecordset("次卡服务项目表", dbOpenTable)
    Call ShowRSByFlex(rsMeiRong, Grid_MeiROng)
    Cmd_Add.Enabled = False
    Grid_Selected.Cols = 3
    Grid_Selected.TextMatrix(0, 0) = "ID"
    Grid_Selected.TextMatrix(0, 1) = "服务项目"
    Grid_Selected.TextMatrix(0, 2) = "价格"
    Grid_Selected.ColWidth(0) = 250
    Grid_Selected.Rows = 1
    Grid_Selected.FixedCols = 1
    Cmd_Add.Enabled = False
    Cmd_Del.Enabled = False
    '加载消费次卡页
    Cmd_Usecard.Enabled = fasle
    Cmd_Gift.Enabled = False
    Exit Sub
 End If
 
EHand:
 If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 Unload Me
 
End Sub


Private Sub Grid_MeiROng_Click()
Dim rsUseCard As Recordset
If Grid_MeiROng.Row > 0 Then

 Cmd_Add.Enabled = True
 Else
 Cmd_Add.Enabled = False
End If
End Sub

Private Sub Grid_Resumed_Click()
Dim intSelected As Integer
intSelected = Grid_Resumed.Row
If intSelected > 0 Then
 If CInt(Grid_Resumed.TextMatrix(intSelected, 3)) = CInt(Grid_Resumed.TextMatrix(intSelected, 6)) Then
 Cmd_Usecard.Enabled = False
 Else
 Cmd_Usecard.Enabled = True
 End If
 If CInt(Grid_Resumed.TextMatrix(intSelected, 5)) = CInt(Grid_Resumed.TextMatrix(intSelected, 7)) Then
 Cmd_Gift.Enabled = fasle
 Else
 Cmd_Gift.Enabled = True
 End If
End If
End Sub

Private Sub Grid_Selected_Click()
If Grid_Selected.Row > 0 Then
 Cmd_Del.Enabled = True
 Else
 Cmd_Del.Enabled = False
End If
End Sub

Private Sub TabStrip1_Click()
Dim i As Integer
For i = 0 To 2
If i = TabStrip1.SelectedItem.Index - 1 Then
 Frame1(i).Visible = True
 Else
 Frame1(i).Visible = False
End If
Next i
If TabStrip1.SelectedItem = "次卡消费" Then Call CardCarList
End Sub


Private Sub Txt_CleanPrice_Change(Index As Integer)
 On Error Resume Next
 sngSum = 0
 For i = 0 To intCleanCount - 1
  If Chk_Clean(i).Value = 1 Then
    If Txt_CleanPrice(i).Text <> "" Then sngSum = sngSum + CSng(Txt_CleanPrice(i).Text)
     
      
  End If
 Next i
 Txt_Sum.Text = CStr(sngSum)
End Sub
Sub CardCarList()
 Dim rsCardRecord As Recordset
 Set rsCardRecord = dbMeiRong.OpenRecordset("次卡消费表", dbOpenTable)
 Call ShowRSByFlex(rsCardRecord, Grid_Resumed)
 rsCardRecord.Close
 Grid_Resumed.Row = 0
 Cmd_Usecard.Enabled = False
 Cmd_Gift.Enabled = fasle
End Sub