frm_carrecord.frm

汽修厂管理软件

        Frm_Repair.Comb_Car.AddItem Txt_Chepai.Text
        Frm_Repair.Comb_Car.ListIndex = Frm_Repair.Comb_Car.ListCount - 1
        Cmd_In.Enabled = False
           Frm_Repair.Cmd_Delete.Enabled = True
           Frm_Repair.CMd_PrintGujia.Enabled = True
           Frm_Repair.Cmd_Finished.Enabled = True
           Frm_Repair.Cmd_Begin.Enabled = True
           Unload Me
      Else
        Cmd_In.Enabled = True
  End If 'if 2
  
  Cmd_AddCar.Enabled = False
  Exit Sub
ErrHandle:
Call MsgBox(Err.Description & "可能是该车已经有记录", vbCritical + vbOKOnly, STRGARAGE)

End Sub

Private Sub Cmd_Cancel_Click()
Me.Hide
Frm_Repair.Comb_Car.Text = Txt_Chepai.Text
Frm_Repair.Show
End Sub

Private Sub Cmd_CarSelect_Click()
Dim pmCar As Parameter
Dim mRsCarRecord As Recordset
Dim intDriverId As Integer
 STRCURRENTCARNUMBER = Txt_Chepai.Text
 If Len(STRCURRENTCARNUMBER) > 5 Then
      Set pmCar = DBSGRG.QueryDefs("用车牌查找车记录").Parameters![carnum]
        pmCar = Txt_Chepai.Text

 
        Set mRsCarRecord = DBSGRG.QueryDefs("用车牌查找车记录").OpenRecordset
        If mRsCarRecord.RecordCount = 0 Then
           mRsCarRecord.Close
           Call MsgBox("数据库中没有该车记录", vbExclamation + vbOKOnly, "查找车记录")
           Cmd_AddCar.Enabled = True
          Else
          
              Call ShowCarDetail(mRsCarRecord, 1)
              Cmd_In.Enabled = True
        End If
    Else
        strOpenStyle = "FIRSTLOAD"

End If


End Sub

Private Sub Cmd_Edit_Click()
Dim mRs As Recordset
Dim intExistdriver As Integer
If MsgBox("要保存您所做的修改吗?", vbQuestion + vbOKCancel, STRGARAGE) = vbOK Then

 intExistdriver = IDofDriver()
 If intExistdriver < 0 Then
      '联系人还未登入数据库
    Set mRs = DBSGRG.OpenRecordset("联系人", dbOpenTable, dbAppendOnly)
      With mRs
        .AddNew
        !客户名称 = Comb_Custom.Text & ""
        !联系人 = Txt_Driver.Text & ""
        !电话 = Txt_Tele.Text & ""
        !手机 = Txt_Mobile.Text & ""
        !传真 = Txt_Fax.Text & ""
        !帐号 = Txt_Account.Text & ""
        !地址 = Txt_Address.Text & ""
        !备注 = RichTextBox1.Text
        .Update
      End With
    mRs.MoveLast
    intExistdriver = mRs.Fields("ID")
    mRs.Close
  End If
  '将来车登如来车记录表
  
  Set mRs = DBSGRG.OpenRecordset("select * from " & TblCarRecord & " where 车牌 = '" & _
                                 Txt_Chepai.Text & "'")  '将它借用于carRecord
     With mRs
      .Edit
      !车牌 = Txt_Chepai.Text
      !型号 = Comb_type.Text
      !联系人ID = intExistdriver
      !颜色 = Comb_color.Text
      !发动机 = Txt_Engine.Text
      !配置 = Txt_Setup.Text
      !送修日期 = Txt_InDate.Text
      .Update
     End With
    mRs.Close
  Cmd_Edit.Enabled = False


End If


End Sub

Private Sub Cmd_In_Click()
'将车登入待修表并设置为估价
On Error GoTo ERRHAND:
 Dim mRs As Recordset
  Set mRs = DBSGRG.OpenRecordset("待修表", dbOpenTable, dbAppendOnly) '将它借用于carRecord
     With mRs
      .AddNew
      !车牌 = Txt_Chepai.Text
      !状态 = "估价"
      !送修日期 = Txt_InDate.Text
      !接车员 = Frm_Login.Txt_Name.Text
      .Update
     End With
    mRs.Close
 Frm_Repair.Comb_Car.AddItem (Txt_Chepai.Text)
 Frm_Repair.Comb_Car.ListIndex = (Frm_Repair.Comb_Car.ListCount - 1)
   Frm_Repair.Cmd_Delete.Enabled = True
   Frm_Repair.CMd_PrintGujia.Enabled = True
   Frm_Repair.Cmd_Finished.Enabled = True
   Frm_Repair.Cmd_Begin.Enabled = True
   Unload Me
   Exit Sub
ERRHAND:
 If Err.Number = 3022 Then
  MsgBox "该车（" & Txt_Chepai.Text & "）已经进厂，无须重新录入", vbCritical, STRGARAGE
  Else
  Call MsgBox(Err.Description, vbCritical + vbOKOnly, STRGARAGE)
 End If
End Sub

Private Sub Cmd_SearchDriver_Click()


Dim intDriverId As Integer

If Cmd_SearchDriver.Caption = "查找联系人记录" Then
        
        'Set pmDriver = DBSGRG.QueryDefs("按联系人姓名查联系人情况").Parameters![DriverName]
           '' pmDriver = Txt_Driver.Text
          'Set rsDriver = DBSGRG.QueryDefs("按联系人姓名查联系人情况").OpenRecordset
        Set rsDriver = DBSGRG.OpenRecordset("select * from 联系人 where 联系人 = '" & Txt_Driver.Text & " '", dbOpenDynaset)
        If rsDriver.RecordCount > 0 Then
            Comb_Custom.Text = "" & rsDriver.Fields("客户名称")
            Txt_Tele.Text = "" & rsDriver.Fields("电话")
            Txt_Mobile.Text = "" & rsDriver.Fields("手机")
            Txt_Fax.Text = "" & rsDriver.Fields("传真")
            Txt_Account.Text = "" & rsDriver.Fields("帐号")
            Txt_Address.Text = "" & rsDriver.Fields("地址")
            If rsDriver.RecordCount > 1 Then Cmd_SearchDriver.Caption = "查找下一个"
            
        Else
            Call MsgBox("对不起,数据库中没有该联系人", vbCritical + vbInformation, "查找联系人记录")
            rsDriver.Close
            
        End If
 Else
      If Cmd_SearchDriver.Caption = "查找下一个" Then
            rsDriver.MoveNext
          If Not rsDriver.EOF Then
           Call ShowCarDetail(rsDriver, 2)
            Cmd_SearchDriver.Caption = "查找下一个"
           Else
             rsDriver.Close
             Call MsgBox("对不起已经搜索完毕", vbCritical + vbInformation, "查找联系人记录")
              Cmd_SearchDriver.Caption = "查找联系人记录"
          End If
        End If
 End If
 
End Sub

Private Sub Comb_Color_GotFocus()
Comb_type.BackColor = vbWhite
End Sub



Private Sub Comb_Custom_GotFocus()
Comb_Custom.BackColor = vbWhite
End Sub

Private Sub Comb_type_GotFocus()
Comb_type.BackColor = vbWhite
End Sub

Private Sub Form_Load()
Dim mRsCarRecord As Recordset
Dim mRstemp As Recordset
Dim mQueryCar As QueryDef
Dim mParameter As Parameter

Dim intTemp As Integer
Cmd_Edit.Enabled = False
'Txt_Chepai.DataField = mRs.Fields(1)

Set mRstemp = DBSGRG.OpenRecordset(TblCarType, dbOpenTable, dbReadOnly)

For intTemp = 0 To mRstemp.RecordCount - 1
   Comb_type.AddItem mRstemp.Fields("品牌") & ""
   mRstemp.MoveNext
Next intTemp

Set mRstemp = DBSGRG.OpenRecordset(TblColor, dbOpenTable, dbReadOnly)

For intTemp = 0 To mRstemp.RecordCount - 1
   Comb_color.AddItem mRstemp.Fields("颜色")
   mRstemp.MoveNext
Next intTemp
Txt_InDate.Text = CStr(Date)

 If Len(STRCURRENTCARNUMBER) > 5 Then
        Set mParameter = DBSGRG.QueryDefs("用车牌查找车记录").Parameters![carnum]
        mParameter = STRCURRENTCARNUMBER

 
        Set mRsCarRecord = DBSGRG.QueryDefs("用车牌查找车记录").OpenRecordset
        If mRsCarRecord.RecordCount = 0 Then
           strOpenStyle = "ADD"
          Else
           strOpenStyle = "EDIT"
           Cmd_AddCar.Enabled = False
           Txt_Chepai.Text = STRCURRENTCARNUMBER
           Call ShowCarDetail(mRsCarRecord, 3)
           Cmd_Edit.Enabled = True
           
        End If
        mRsCarRecord.Close
    Else
        strOpenStyle = "FIRSTLOAD"
      
End If


If strOpenStyle = "ADD" Then
  Txt_Chepai.Text = STRCURRENTCARNUMBER
End If



Cmd_In.Enabled = False
Cmd_SearchDriver.Caption = "查找联系人记录"
Cmd_SearchDriver.Enabled = False
  
End Sub

'在添加来车记录Cmd_AddCar_Click和cmd_edit_click中使用,看所输入的客户情况是否已经在表中存在
'如果存在则返回联系人ID如果不存在,则返回-1
Function IDofDriver() As Integer
  Dim mRsdriver As Recordset
  IDofDriver = -1
  Set mRsdriver = DBSGRG.OpenRecordset("联系人", _
                                   dbOpenTable, dbOpenSnapshot)
  Do Until mRsdriver.EOF Or IDofDriver >= 0
  If Comb_Custom.Text = mRsdriver.Fields("客户名称") Then
      If Txt_Tele.Text = mRsdriver.Fields("电话") Then
          If Txt_Mobile.Text = mRsdriver.Fields("手机") Then
             If Txt_Fax.Text = mRsdriver.Fields("传真") Then
                If Txt_Account.Text = mRsdriver.Fields("帐号") Then
                  If Txt_Address.Text = mRsdriver.Fields("地址") Then
                   IDofDriver = mRsdriver.Fields(0)
                   
                  End If
                End If
             End If
           End If
       End If
   End If
   mRsdriver.MoveNext
  Loop
  
mRsdriver.Close
End Function

Private Sub Form_Unload(Cancel As Integer)
If Cmd_SearchDriver.Caption = "查找下一个" Then rsDriver.Close

End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim objLoop As Object
 For Each objLoop In Me
  If TypeName(objLoop) = "TextBox" Then
   If objLoop.Name <> "Txt_Chepai" And objLoop.Name <> "Txt_Driver" Then
    objLoop.BackColor = &H8000000F
   End If
  End If
 Next objLoop
End Sub



Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim objLoop As Object
 For Each objLoop In Me
  If TypeName(objLoop) = "TextBox" Then
   If objLoop.Name <> "Txt_Chepai" And objLoop.Name <> "Txt_Driver" Then
    objLoop.BackColor = &H8000000F
   End If
  End If
 Next objLoop
End Sub

Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
RichTextBox1.BackColor = vbWhite
End Sub




Private Sub Txt_Account_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Account.BackColor = vbWhite

End Sub



Private Sub Txt_Address_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Address.BackColor = vbWhite

End Sub


Private Sub Txt_Chepai_Change()
Cmd_AddCar.Enabled = True
End Sub

Private Sub Txt_Driver_Change()

If Cmd_SearchDriver.Caption = "查找下一个" Then
   rsDriver.Close
   Cmd_SearchDriver.Caption = "查找联系人记录"
End If

If Len(Txt_Driver.Text) > 1 Then
    Cmd_SearchDriver.Enabled = True
  Else
   Cmd_SearchDriver.Enabled = False
 End If
 
 
 
End Sub


Sub ShowCarDetail(mRs As Recordset, intOpnion As Integer)
 '如果opnion=1 则显示车况
 '如果opnion=2 则显示车主情况
 ''如果opnion=3 则都显示
 If Not mRs.EOF Then
    If intOpnion = 1 Or 3 Then
            Txt_Chepai.Text = "" & mRs!车牌
            Comb_type.Text = "" & mRs!型号
            intDriverId = "" & mRs!联系人ID
            Comb_color.Text = "" & mRs!颜色
            Txt_Engine.Text = "" & mRs!发动机
            Txt_Setup.Text = "" & mRs!配置
            Txt_Driver.Text = "" & mRs!联系人
    End If
    If intOpnion = 2 Or 3 Then
     With mRs
      Comb_Custom.Text = "" & .Fields("客户名称")
            Txt_Tele.Text = "" & .Fields("电话")
            Txt_Mobile.Text = "" & .Fields("手机")
            Txt_Fax.Text = "" & .Fields("传真")
            Txt_Account.Text = "" & .Fields("帐号")
            Txt_Address.Text = "" & .Fields("地址")
            RichTextBox1.TextRTF = "" & .Fields("备注")
      End With
    End If
 End If
End Sub



Private Sub Txt_Engine_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Engine.BackColor = vbWhite
End Sub



Private Sub Txt_Fax_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Fax.BackColor = vbWhite

End Sub

Private Sub Txt_InDate_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_InDate.BackColor = vbWhite
End Sub

Private Sub Txt_Mobile_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Mobile.BackColor = vbWhite
End Sub

Private Sub Txt_Setup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Setup.BackColor = vbWhite
End Sub

Private Sub Txt_Tele_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Txt_Tele.BackColor = vbWhite
End Sub