frm_addlabor.frm

汽修厂管理软件

Private Sub Cmd_AddLabor_Click()
Dim strLine As String
On Error GoTo EHand
strLine = Comb_Labor.Text & vbTab & Comb_Unit.Text & _
           vbTab & Comb_Qer.Text & vbTab & txt_Disc.Text & vbTab & Txt_CoPrice.Text & vbTab & Txt_LblPrice.Text _
           & vbTab & Txt_During.Text
Grid_SelectedLabor.AddItem strLine
Exit Sub
EHand:
 MsgBox Err.Description, vbCritical, STRGARAGE
End Sub

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_DelLabor_Click()
Dim intFlag As Integer
intFlag = Grid_SelectedLabor.Row
If Grid_SelectedLabor.Row >= 1 Then
  If Grid_SelectedLabor.Rows > 2 Then
     Grid_SelectedLabor.RemoveItem (intFlag)
    
  Else
    Grid_SelectedLabor.Rows = 1
    Cmd_DelLabor.Enabled = False
    
   
  End If
   
 
End If
End Sub

Private Sub Cmd_EditLabor_Click()
Dim strLine As String
Dim intCrtRow As Integer
strLine = ""
intCrtRow = Grid_SelectedLabor.Row
If intCrtRow > 2 Then
   Grid_SelectedLabor.RemoveItem (intCrtRow)
  Else
    Grid_SelectedLabor.Rows = 1
End If
For i = 0 To Grid_SelectedLabor.Cols - 1
  Select Case Grid_SelectedLabor.TextMatrix(0, i)
    Case "维修项目"
        strLine = strLine & vbTab & Comb_Labor.Text
    Case "班组"
       strLine = strLine & vbTab & Comb_Unit.Text
    Case "质量人"
      strLine = strLine & vbTab & Comb_Qer.Text
    Case "折扣"
     strLine = strLine & vbTab & txt_Disc.Text
    Case "价格"
     strLine = strLine & vbTab & Txt_LblPrice.Text
    Case "保修期"
    strLine = strLine & vbTab & Txt_During.Text
    Case "外加工"
     If Chk_Co.Value = 0 Then
       strLine = strLine & vbTab & "0"
      Else
       strLine = strLine & vbTab & Txt_CoPrice.Text
      End If
   End Select
 Next i
strLine = Mid(strLine, 2)
Call Grid_SelectedLabor.AddItem(strLine, intCrtRow)


End Sub

Private Sub Cmd_Ok_Click()
Dim rsWait As Recordset
'写好人工单后,提交
'Function WriteToTBLWait(mGrid As MSFlexGrid, WriteOpnion As Integer) As Boolean
  Call WriteToTBLWait(Grid_SelectedLabor, WRITELABOR)
'SumPart(Grid_SelectedPart))
'-------------------------
Me.Hide
Set rsWait = DBSGRG.OpenRecordset("Select * from 待修表 Where 车牌 = '" & STRCURRENTCARNUMBER & "'", dbOpenSnapshot)

Call ReadFromTBLWait(rsWait, Frm_Repair.Grid_Labor, "人工")
Frm_Repair.Txt_Sum = CStr(sngSumFee(Grid_SelectedLabor) + sngSumFee(Frm_Repair.Grid_Part))
rsWait.Close
Frm_Repair.Show

End Sub

Private Sub Comb_Labor_Click()
Dim pmLaborName As Parameter
Dim mRsLabor As Recordset
Set pmLaborName = DBSGRG.QueryDefs("查找人工价格").Parameters![LaborName]
pmLaborName = Comb_Labor.Text
Set mRsLabor = DBSGRG.QueryDefs("查找人工价格").OpenRecordset
  Call ShowLaborDetail(mRsLabor)
  mRsLabor.Close
End Sub

Private Sub Form_Load()

Dim intFieldPoint As Integer
Dim Show() As Object
Dim intShowCount As Integer
Dim rsWait As Recordset
intShowCount = 7


Comb_Unit.AddItem "机修班"
Comb_Unit.AddItem "电路班"
Comb_Unit.AddItem "砂钣班"
Comb_Unit.AddItem "美容班"
Comb_Unit.ListIndex = 0

Set mRsForTitle = DBSGRG.OpenRecordset("人工价格表", dbOpenTable, dbReadOnly)

 
 Txt_Chepai.Text = STRCURRENTCARNUMBER
 
  With Grid_SelectedLabor
     .Cols = 7
     .FixedCols = 0
     .CellAlignment = flexAlignRightBottom
     .ColWidth(0) = 1000
     .ColWidth(2) = 1000
     .ColWidth(1) = 1000
     .ColWidth(3) = 1000
     .ColWidth(4) = 1000
     .Rows = 1
     .SelectionMode = flexSelectionByRow
     
 End With
'给MSFLEXGrid控件的标题赋值
 
 For intFieldPoint = 1 To 7
    Grid_SelectedLabor.TextMatrix(0, intFieldPoint - 1) = mRsForTitle.Fields(intFieldPoint).Name
 Next intFieldPoint
With Grid_Labor
 .Rows = 1
 .Cols = 2
 .ColWidth(0) = 700
 .ColWidth(1) = .Width - 710
.FixedCols = 1

.TextMatrix(0, 0) = "编号"
.TextMatrix(0, 1) = "维修项目"
End With

'初始化Com_Labor
Comb_Labor.Clear
i = 1
  Do Until mRsForTitle.EOF
  Comb_Labor.AddItem mRsForTitle.Fields("维修项目")
  Grid_Labor.AddItem CStr(i) & vbTab & mRsForTitle.Fields("维修项目")
  i = i + 1
  mRsForTitle.MoveNext
  Loop
If mRsForTitle.RecordCount <> 0 Then Comb_Labor.ListIndex = 0
 mRsForTitle.Close

Set rsWait = DBSGRG.OpenRecordset(" Select 人工 from 待修表 Where 车牌 = '" & STRCURRENTCARNUMBER & "'", dbOpenSnapshot)

Call ReadFromTBLWait(rsWait, Grid_SelectedLabor, "人工")
rsWait.Close

Cmd_EditLabor.Enabled = False
Lbl_Co.Visible = False
Txt_CoPrice.Visible = False
End Sub


Sub ShowLaborDetail(mRs As Recordset)
Dim sngPrice As Single
On Error GoTo EHANDLE
  Txt_LblPrice.Text = mRs.Fields("价格")
  Comb_Unit.Text = mRs.Fields("班组")
  Comb_Qer.Text = mRs.Fields("质量人")
  Txt_During.Text = mRs.Fields("保修期")
  txt_Disc.Text = CStr(100 * mRs.Fields("折扣"))
  sngPrice = CSng(mRs.Fields("外加工"))
  If sngPrice > 0 Then
        Chk_Co.Value = 1
        Txt_CoPrice.Text = CStr(sngPrice)
        Lbl_Co.Visible = True
        Txt_CoPrice.Visible = True
        Lbl_Yuan.Visible = True
     Else
        Chk_Co.Value = False
        Txt_CoPrice.Text = "0"
        Lbl_Co.Visible = False
        Lbl_Yuan.Visible = False
        Txt_CoPrice.Visible = False
    End If
  Exit Sub
EHANDLE:
  If Err.Number = 94 Then
     Chk_Co.Value = False
       Txt_CoPrice.Text = "0"
      Lbl_Co.Visible = False
     Txt_CoPrice.Visible = False
     Lbl_Yuan.Visible = False
  End If
End Sub

Private Sub Grid_Labor_Click()
Dim pLaborName As Parameter
Dim RsLabor As Recordset
On Error GoTo EHand
If Grid_Labor.Row = 0 Then Exit Sub
Set pLaborName = DBSGRG.QueryDefs("查找人工价格").Parameters![LaborName]
pLaborName = Grid_Labor.TextMatrix(Grid_Labor.Row, 1)
Set RsLabor = DBSGRG.QueryDefs("查找人工价格").OpenRecordset
  Call ShowLaborDetail(RsLabor)
  RsLabor.Close
  Comb_Labor.Text = Grid_Labor.TextMatrix(Grid_Labor.Row, 1)
 Exit Sub
 
EHand:
 MsgBox Err.Description, vbInformation + vbOKOnly, STRGARAGE
End Sub

Private Sub Grid_SelectedLabor_dblClick()
 'If Grid_SelectedLabor.Row = 0 Then Exit Sub
 ' Txt_LblPrice.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 1)
 ' Comb_Unit.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 2)
 ' Comb_Qer.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 3)
 ' Txt_During.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 5)
 ' txt_Disc.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 4)
 'Comb_Labor.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, 0)
 'If Grid_SelectedLabor.Row > 0 Then Cmd_EditLabor.Enabled = True

End Sub


Private Sub Grid_SelectedLabor_Click()
If Grid_SelectedLabor.Row = 0 Then Exit Sub

'For i = 0 To Grid_SelectedLabor.Cols - 1
 ' Select Case Grid_SelectedLabor.TextMatrix(0, i)
  '  Case "维修项目"
   '     Comb_Labor.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "班组"
     '  Comb_Unit.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "质量人"
     ' Comb_Qer.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "折扣"
    ' txt_Disc.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "价格"
     ' Txt_LblPrice.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "保修期"
    'Txt_During.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    'Case "外加工"
     'If Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i) > 0 Then
      '  Lbl_Co.Visible = True
       ' Chk_Co.Value = 1
        'Txt_CoPrice.Visible = True
   '     Txt_CoPrice.Text = Grid_SelectedLabor.TextMatrix(Grid_SelectedLabor.Row, i)
    '   Else
     '  Chk_Co.Value = 0
      '   Lbl_Co.Visible = False
       ' Txt_CoPrice.Visible = False
'     End If
 ' End Select
'Next i
 
  
  
  
 
'If Grid_SelectedLabor.Row > 0 Then Cmd_EditLabor.Enabled = True

End Sub