frm_main.frm

汽修厂管理软件

Private Sub Cmd_CarRepair_Click()
On Error GoTo ErrHandle
Frm_Repair.Show
Exit Sub

ErrHandle:
 

End Sub

Private Sub Cmd_CarRepair_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "进入汽车维修界面"
Cmd_CarRepair.Font.Bold = True
End Sub

Private Sub Cmd_CarType_Click()
Dim wksHardWere As Workspace
Dim dbHardWere As Database
On Error GoTo ErrHandle
Frm_Login.Caption = "车型设置"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Login.Show vbModal
If strOkorEsc = "确定" Then

Set WKSGRG = DBEngine.CreateWorkspace("wksHardWere", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set DBSGRG = WKSGRG.OpenDatabase(DBPATH, False, False)
Set frmDataControl.mrsFormRecordset = DBSGRG.OpenRecordset("车型表", dbOpenTable, dbOpenDynaset)
frmDataControl.Caption = "车型设置设置"
frmDataControl.Show
End If
Exit Sub
ErrHandle:
 If Err.Number = 3112 Then
  MsgBox "您没有操作权限", vbCritical + vbOKOnly, STRGARAGE
  Else
  MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 End If
End Sub

Private Sub Cmd_CarType_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设置常用的汽车品牌、型号"
Cmd_CarType.Font.Bold = True
End Sub

Private Sub Cmd_Clean_Click()
On Error GoTo EHand
Frm_Login.Caption = "洗车美容登录"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_TimesCard.Show
Exit Sub
EHand:
' If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
End Sub

Private Sub Cmd_Clean_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "进入洗车美容界面"
Cmd_Clean.Font.Bold = True
End Sub

Private Sub Cmd_ColorSetup_Click()
Dim wksHardWere As Workspace
Dim dbHardWere As Database
On Error GoTo ErrHandle

Frm_Login.Caption = "颜色设置"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Login.Show vbModal
If strOkorEsc = "确定" Then

Set WKSGRG = DBEngine.CreateWorkspace("wksHardWere", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set DBSGRG = WKSGRG.OpenDatabase(DBPATH, False, False)
Set frmDataControl.mrsFormRecordset = DBSGRG.OpenRecordset("颜色表", dbOpenTable, dbOpenDynaset)
frmDataControl.Caption = "颜色设置"
frmDataControl.Show
End If
Exit Sub
ErrHandle:
 If Err.Number = 3112 Then
  MsgBox "您没有操作权限", vbCritical + vbOKOnly, STRGARAGE
  Else
  MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 End If
End Sub

Private Sub Cmd_ColorSetup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设置常用汽车车身颜色"
Cmd_ColorSetup.Font.Bold = True
End Sub

Private Sub Cmd_Drivers_Click()
Dim dbHardWere As Database
On Error GoTo ErrHandle
Frm_Login.Caption = "联系人设置"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Login.Show vbModal
If strOkorEsc = "确定" Then

Set WKSGRG = DBEngine.CreateWorkspace("wksHardWere", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set DBSGRG = WKSGRG.OpenDatabase(DBPATH, False, False)
Set frmDataControl.mrsFormRecordset = DBSGRG.OpenRecordset("联系人", dbOpenTable, dbOpenDynaset)
frmDataControl.Caption = "联系人设置"
frmDataControl.Show
End If
Exit Sub
ErrHandle:
 If Err.Number = 3112 Then
  MsgBox "您没有操作权限", vbCritical + vbOKOnly, STRGARAGE
  Else
  MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 End If
End Sub

Private Sub Cmd_Drivers_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "编辑添加车主、客户的基本情况"
Cmd_Drivers.Font.Bold = True
End Sub

Private Sub Cmd_Exit_Click()
Dim fobj As Object
For Each fobj In Forms
 If fobj.Visible = True Then Unload fobj
Next fobj

End Sub

Private Sub Cmd_Exit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd_Exit.Font.Bold = True
End Sub

Private Sub Cmd_Finance_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "浏览财务记录登录"
'Load Frm_History
Frm_History.Show
Exit Sub
ErrHandle:

End Sub

Private Sub Cmd_Finance_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "浏览财务记录、统计财务数据"
Cmd_Finance.Font.Bold = True
End Sub

Private Sub Cmd_FixHistory_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "浏览维修记录登录"
'Load Frm_History
Frm_History.Caption = "浏览维修记录"

Frm_History.Show
Exit Sub
ErrHandle:
 
End Sub

Private Sub Cmd_FixHistory_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "查看汽车维修记录、可提醒反馈、访问车主的时间"
Cmd_FixHistory.Font.Bold = True
End Sub

Private Sub Cmd_HardWare_Click()
Dim wksHardWere As Workspace
Dim dbHardWere As Database
On Error GoTo ErrHandle
Frm_Login.Caption = "设备管理"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Login.Show vbModal
If strOkorEsc = "确定" Then
Set WKSGRG = DBEngine.CreateWorkspace("wksHardWere", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set DBSGRG = WKSGRG.OpenDatabase(DBPATH, False, False)
Set frmDataControl.mrsFormRecordset = DBSGRG.OpenRecordset("设备表", dbOpenTable, dbOpenDynaset)
frmDataControl.Caption = "设备管理"
frmDataControl.Show
End If
Exit Sub
ErrHandle:
 If Err.Number = 3112 Then
  MsgBox "您没有操作权限", vbCritical + vbOKOnly, STRGARAGE
  Else
  
   If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 End If
End Sub

Private Sub Cmd_HardWare_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设备情况、耗损设置"
Cmd_HardWare.Font.Bold = True
End Sub

Private Sub Cmd_Price_Click()
Dim wksHardWere As Workspace
Dim dbHardWere As Database
On Error GoTo ErrHandle
Frm_Login.Caption = "人工价格设置"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Login.Show vbModal
If strOkorEsc = "确定" Then

Set WKSGRG = DBEngine.CreateWorkspace("wksHardWere", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set DBSGRG = WKSGRG.OpenDatabase(DBPATH, False, False)
Set frmDataControl.mrsFormRecordset = DBSGRG.OpenRecordset("人工价格表", dbOpenTable, dbOpenDynaset)
frmDataControl.Caption = "人工价格设置"
Load frmDataControl
frmDataControl.Show
End If
Exit Sub
ErrHandle:
 If Err.Number = 3112 Then
  MsgBox "您没有操作权限", vbCritical + vbOKOnly, STRGARAGE
  Else
  MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 End If
End Sub

Private Sub Cmd_Price_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设置维修项目的人工价格"
Cmd_Price.Font.Bold = True
End Sub

Private Sub Cmd_SheBei_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "浏览固定资产登录"
'Load Frm_History
Frm_History.Show
Exit Sub
ErrHandle:


End Sub

Private Sub Cmd_SheBei_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "浏览设备清单,计算固定资产"
Cmd_SheBei.Font.Bold = True
End Sub

Private Sub Cmd_Show_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "显示所有登录"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_ShowAny.Show
Exit Sub

ErrHandle:
End Sub

Private Sub Cmd_Show_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "可以显示、打印数据库中所有表"
Cmd_Show.Font.Bold = True
End Sub

Private Sub Cmd_Workers_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "职员表设置"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Worker.Show

Exit Sub
ErrHandle:
'  If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
End Sub

Private Sub Cmd_Workers_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设置职员操作数据库权限、职员所属班组、修改密码、薪金计算"
Cmd_Workers.Font.Bold = True
End Sub

Private Sub Cmd_WriteBill_Click()
On Error GoTo ErrHandle
Frm_Login.Caption = "财务登记薄登录"
Frm_Login.Txt_Name = ""
Frm_Login.Txt_PWD = ""
Frm_Finance.Show
Exit Sub

ErrHandle:
 'If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
 
End Sub

Private Sub Cmd_cangguan_Click()
On Error GoTo ErrHandle
frm_Part_InOut.Show
Exit Sub
ErrHandle:
  
' If strOkorEsc = "确定" Then MsgBox Err.Description, vbCritical + vbOKOnly, STRGARAGE
End Sub

Private Sub Command3_Click()

End Sub

Private Sub Cmd_WriteBill_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "进出账目的登记"
Cmd_WriteBill.Font.Bold = True
End Sub

Private Sub Command1_Click()
StaBar.Panels(1).Text = "备份,维护,还原数据库资料"
Frm_DataBaseCare.Show



End Sub



Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Font.Bold = True
End Sub

Private Sub Form_Load()
StaBar.Panels(2).Text = Date
If IsRegistered = False Then Me.Caption = Me.Caption & "[未注册]"

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "谢谢使用快车手汽修美容管理软件!"
Cmd_Exit.Font.Bold = False
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) = "CommandButton" Then objLoop.Font.Bold = False
  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) = "CommandButton" Then objLoop.Font.Bold = False
  Next objLoop

End Sub


Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd_Drivers.Font.Bold = False
Cmd_CarRecord.Font.Bold = False
End Sub





Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cmd_CangGuan.Font.Bold = False
End Sub



Private Sub Frame5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Font.Bold = False
End Sub

Private Sub Frame6_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) = "CommandButton" Then objLoop.Font.Bold = False
  Next objLoop

End Sub

Private Sub Mn_Favorite_Click()
FRM_Favorite.Show
End Sub

Private Sub Mnu_About_Click()
Frm_Me.Show
End Sub

Private Sub mnu_Printer_Click()
Dialog.ShowPrinter
End Sub

Private Sub mnu_RZhuce_Click()
Reg.Show
End Sub