📄 frm_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frm_main
BackColor = &H00C0C000&
Caption = "轻骑兵 汽修厂辅助管理软件"
ClientHeight = 6975
ClientLeft = 2850
ClientTop = 3210
ClientWidth = 11625
Icon = "Frm_Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6975
ScaleWidth = 11625
Begin MSComDlg.CommonDialog Dialog
Left = 3720
Top = 6120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Cmd_Exit
Caption = "退出"
Height = 375
Left = 9480
TabIndex = 23
Top = 5280
Width = 1335
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 5295
Left = 480
Picture = "Frm_Main.frx":08CA
ScaleHeight = 351
ScaleMode = 3 'Pixel
ScaleWidth = 191
TabIndex = 22
Top = 480
Width = 2895
End
Begin MSComctlLib.StatusBar StaBar
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 21
Top = 6720
Width = 11625
_ExtentX = 20505
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 14111
MinWidth = 14111
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Text = "时间"
TextSave = "时间"
EndProperty
EndProperty
End
Begin VB.Frame Frame6
BackColor = &H00C0C000&
Caption = "财务"
Height = 975
Left = 4440
TabIndex = 17
Top = 3960
Width = 6615
Begin VB.CommandButton Cmd_CaiwuKind
Caption = "账目种类设置"
Height = 375
Left = 4560
TabIndex = 20
Top = 360
Width = 1815
End
Begin VB.CommandButton Cmd_Finance
Caption = "浏览财务状况"
Height = 375
Left = 2640
TabIndex = 19
Top = 360
Width = 1575
End
Begin VB.CommandButton Cmd_WriteBill
Caption = "出入账登记"
Height = 375
Left = 360
TabIndex = 18
Top = 360
Width = 1935
End
End
Begin VB.Frame Frame5
BackColor = &H00C0C000&
Caption = "数据库维护"
Height = 855
Left = 6960
TabIndex = 15
Top = 5040
Width = 2175
Begin VB.CommandButton Command1
Caption = "维护数据库"
Height = 375
Left = 360
TabIndex = 16
Top = 240
Width = 1335
End
End
Begin VB.Frame Frame4
BackColor = &H00C0C000&
Caption = "仓管"
Height = 855
Left = 4440
TabIndex = 13
Top = 5040
Width = 2415
Begin VB.CommandButton Cmd_CangGuan
Caption = "进 销 货"
Height = 375
Left = 360
TabIndex = 14
Top = 240
Width = 1695
End
End
Begin VB.Frame Frame3
BackColor = &H00C0C000&
Caption = "档案"
Height = 975
Left = 4440
TabIndex = 9
Top = 2760
Width = 6615
Begin VB.CommandButton Cmd_Show
Caption = "所有显示"
Height = 375
Left = 5160
TabIndex = 25
Top = 360
Width = 1215
End
Begin VB.CommandButton Cmd_SheBei
Caption = "固定资产清单"
Height = 375
Left = 3600
TabIndex = 24
Top = 360
Width = 1335
End
Begin VB.CommandButton Cmd_CarRecord
Caption = "进厂车记录"
Height = 375
Left = 2040
TabIndex = 12
Top = 360
Width = 1335
End
Begin VB.CommandButton Cmd_Drivers
Caption = "客户、联系人"
Height = 375
Left = 360
TabIndex = 11
Top = 360
Width = 1455
End
End
Begin VB.Frame Frame2
BackColor = &H00C0C000&
Caption = "汽车维修"
Height = 1215
Left = 4440
TabIndex = 5
Top = 1440
Width = 6615
Begin VB.CommandButton Cmd_CardSetup
Caption = "套餐设置"
Height = 255
Left = 5160
TabIndex = 26
Top = 720
Width = 1215
End
Begin VB.CommandButton Cmd_Price
Caption = "人工价格"
Height = 255
Left = 5160
TabIndex = 10
Top = 360
Width = 1215
End
Begin VB.CommandButton Cmd_FixHistory
Caption = "维修记录"
Height = 375
Left = 3600
TabIndex = 8
Top = 480
Width = 1335
End
Begin VB.CommandButton Cmd_Clean
Caption = "洗车美容"
Height = 375
Left = 2040
TabIndex = 7
Top = 480
Width = 1335
End
Begin VB.CommandButton Cmd_CarRepair
Appearance = 0 'Flat
Caption = "汽车维修"
Height = 375
Left = 360
TabIndex = 6
Top = 480
Width = 1455
End
End
Begin VB.Frame Frame1
BackColor = &H00C0C000&
Caption = "基本参数设置"
Height = 975
Left = 4440
TabIndex = 0
Top = 360
Width = 6615
Begin VB.CommandButton Cmd_ColorSetup
Caption = "颜色设置"
Height = 375
Left = 5160
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.CommandButton Cmd_CarType
Caption = "车型设置"
Height = 375
Left = 3600
TabIndex = 3
Top = 360
Width = 1335
End
Begin VB.CommandButton Cmd_HardWare
Caption = "设备管理"
Height = 375
Left = 2040
TabIndex = 2
Top = 360
Width = 1335
End
Begin VB.CommandButton Cmd_Workers
Appearance = 0 'Flat
BackColor = &H00C0C000&
Caption = "职员设置"
Height = 375
Left = 360
Picture = "Frm_Main.frx":6E5B
TabIndex = 1
Top = 360
Width = 1455
End
End
Begin VB.Menu Mn_BaseSetup
Caption = "基本设置"
Begin VB.Menu mnu_Printer
Caption = "打印机设置"
End
Begin VB.Menu Mn_Favorite
Caption = "车行信息"
End
End
Begin VB.Menu Mnu_About
Caption = "关于"
End
Begin VB.Menu mnu_R
Caption = "注册"
Begin VB.Menu mnu_RShuoMing
Caption = "注册说明"
End
Begin VB.Menu mnu_RZhuce
Caption = "软件注册"
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_CaiwuKind_Click()
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_CaiwuKind_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "可根据需要设置账目种类"
Cmd_CaiwuKind.Font.Bold = True
End Sub
Private Sub Cmd_CangGuan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "进货、出售、领取登记"
Cmd_CangGuan.Font.Bold = True
End Sub
Private Sub Cmd_CardSetup_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_CardSetup_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "设置套餐、次卡服务项目"
Cmd_CardSetup.Font.Bold = True
End Sub
Private Sub Cmd_CarRecord_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_CarRecord_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StaBar.Panels(1).Text = "查看曾修理过的汽车档案"
Cmd_CarRecord.Font.Bold = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -