📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "车辆管理系统"
ClientHeight = 8190
ClientLeft = 165
ClientTop = 330
ClientWidth = 11355
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
Picture = "MDIForm1.frx":1C7A
StartUpPosition = 1 '所有者中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 360
Left = 0
TabIndex = 1
Top = 7830
Width = 11355
_ExtentX = 20029
_ExtentY = 635
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6174
MinWidth = 6174
Text = "请选择您要使用的窗体："
TextSave = "请选择您要使用的窗体："
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 9790
MinWidth = 9790
Text = "明日科技车辆管理系统 HTTP://www.mingrisoft.com"
TextSave = "明日科技车辆管理系统 HTTP://www.mingrisoft.com"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
AutoSize = 2
Object.Width = 1905
MinWidth = 1413
TextSave = "2007-11-28"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 2
Object.Width = 1765
MinWidth = 1765
TextSave = "14:43"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 735
Top = 2250
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":3CAA6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":3E730
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":403BA
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":42044
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":43CCE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":45958
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":475E2
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 810
Left = 0
TabIndex = 0
Top = 0
Width = 11355
_ExtentX = 20029
_ExtentY = 1429
ButtonWidth = 1773
ButtonHeight = 1376
Appearance = 1
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车辆档案"
Object.ToolTipText = "车辆档案列表"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "驾驶员档案"
Object.ToolTipText = "驾驶员档案列表"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车辆运营"
Object.ToolTipText = "车辆运营记录"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车辆维修"
Object.ToolTipText = "车辆维修记录"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车辆违章"
Object.ToolTipText = "车辆违章记录"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车辆事故"
Object.ToolTipText = "车辆事故记录"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查 询"
Object.ToolTipText = "查询"
ImageIndex = 7
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 7
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnudacha"
Text = "车辆档案查询"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnujsycha"
Text = "驾驶员查询"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnuyycha"
Text = "车辆运营查询"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnufen"
Text = "-"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnuwxcha"
Text = "车辆维修查询"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnuwzcha"
Text = "车辆违章查询"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "mnusgcha"
Text = "车辆事故查询"
EndProperty
EndProperty
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
EndProperty
End
Begin VB.Menu mnucarda
Caption = "车辆档案管理"
Begin VB.Menu mnucardaadd
Caption = "车辆档案录入"
End
Begin VB.Menu mnucardacha
Caption = "车辆档案查询"
End
Begin VB.Menu mnucaryd
Caption = "车辆异动列表"
End
Begin VB.Menu mnucarydcha
Caption = "车辆异动查询"
End
Begin VB.Menu mnucarbf
Caption = "车辆报废"
End
Begin VB.Menu mnucarbfcha
Caption = "车辆报废查询"
End
End
Begin VB.Menu mnucaryymanage
Caption = "车辆运营管理"
Begin VB.Menu mnuyylist
Caption = "车辆运营列表"
End
Begin VB.Menu mnucaryycha
Caption = "车辆运营查询"
End
Begin VB.Menu mnuyydelete
Caption = "清空运营表"
End
End
Begin VB.Menu mnucarmanage
Caption = "车辆管理"
Begin VB.Menu mnuwxmanage
Caption = "维修管理"
Begin VB.Menu mnucarwxlist
Caption = "车辆维修列表"
End
Begin VB.Menu mnucarwxcha
Caption = "车辆维修查询"
End
Begin VB.Menu mnuaddlj
Caption = "添加零件"
End
End
Begin VB.Menu mnuwzmanage
Caption = "违章管理"
Begin VB.Menu mnucarwzlist
Caption = "车辆违章列表"
End
Begin VB.Menu mnucarwzcha
Caption = "车辆违章查询"
End
End
Begin VB.Menu mnusgmanage
Caption = "事故管理"
Begin VB.Menu mnucarsglist
Caption = "车辆事故列表"
End
Begin VB.Menu mnucarsgcha
Caption = "车辆事故查询"
End
End
End
Begin VB.Menu mnujsymanage
Caption = "驾驶员管理"
Begin VB.Menu mnujsylist
Caption = "驾驶员档案管理"
End
Begin VB.Menu mnujsycha
Caption = "驾驶员档案查询"
End
Begin VB.Menu mnujsyjc
Caption = "驾驶员奖罚"
End
End
Begin VB.Menu xtsz
Caption = "系统设置"
Begin VB.Menu mnusyscsh
Caption = "系统初始化"
End
Begin VB.Menu mnuglyset
Caption = "管理员设置"
End
Begin VB.Menu qxsz
Caption = "权限设置"
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu gy
Caption = "关于"
End
End
Begin VB.Menu mnysystem
Caption = "系统维护"
Begin VB.Menu mnubf
Caption = "数据备份"
End
Begin VB.Menu mnuhf
Caption = "数据恢复"
End
End
Begin VB.Menu mnuexit3
Caption = "退出"
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：MDIForm1
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'** 业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'** 下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'** 不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网 址：www.mingrisoft.com 价值无限，服务无限
'**电 话：（0431）84978981,84978982
'**创 建 人：明日科技
'**日 期：2007-10-31
'**修 改 人：mraj
'**日 期：2007-10-31
'**描 述：
'*************************************************************************
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim mytag As String
Dim rs1 As New ADODB.Recordset
Private Sub gy_Click() '关于我们
frmcarabout.Show '显示关于窗体
StatusBar1.Panels(1).Text = "关于窗体"
End Sub
Private Sub mnuaddlj_Click() '添加零件
rs1.Open "select * from 权限表 where 用户名='" & op & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If rs1.Fields("维修管理") = False Then
MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "车辆管理系统"
Else
frmLJ.Show '显示零件添加窗体
StatusBar1.Panels(1).Text = "零件添加窗体"
End If
End If
rs1.Close
End Sub
Private Sub mnubf_Click() '数据备份
rs1.Open "select * from 权限表 where 用户名='" & op & "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If rs1.Fields("数据备份") = False Then
MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "车辆管理系统"
Else
frmDataCopy.Show '显示数据备份窗体
StatusBar1.Panels(1).Text = "数据备份窗体"
End If
End If
rs1.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -