📄 frmmain.frm
字号:
VERSION 5.00
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "yfDNetMenu.ocx"
Begin VB.Form FrmMain
Caption = "产品维修资料查询系统 Ver1.0"
ClientHeight = 6465
ClientLeft = 165
ClientTop = 735
ClientWidth = 9180
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6465
ScaleWidth = 9180
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox WellPicture
Height = 7395
Left = 30
Picture = "FrmMain.frx":038A
ScaleHeight = 7335
ScaleWidth = 11745
TabIndex = 8
Top = 495
Width = 11805
End
Begin ServicingMS.lvButtons_H CmdIdSearch
Height = 405
Left = 30
TabIndex = 2
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "按编号查"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1E8FA
cBack = -2147483633
End
Begin ServicingMS.XP_StatusBar XP_StatusBar1
Align = 2 'Align Bottom
Height = 420
Left = 0
TabIndex = 1
Top = 6045
Width = 9180
_ExtentX = 16193
_ExtentY = 741
BackColor = -2147483633
ForeColor = -2147483630
ForeColorDissabled= -2147483631
MaskColor = 16711935
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowGripper = -1 'True
ShowSeperators = 0 'False
TopLine = 0 'False
NumberOfPanels = 4
PWidth1 = 240
PMinWidth1 = 0
pTTText1 = ""
pType1 = 0
pText1 = "欢迎使用本系统.... "
pTextAlignment1 = 0
PanelPicture1 = "FrmMain.frx":1EC94
PanelPicAlignment1= 0
pBckgColor1 = 0
pGradient1 = 1
pEdgeSpacing1 = 0
pEdgeInner1 = 0
pEdgeOuter1 = 2
PWidth2 = 0
PMinWidth2 = 0
pTTText2 = ""
pType2 = 1
pText2 = ""
pTextAlignment2 = 0
PanelPicture2 = "FrmMain.frx":1EFE6
PanelPicAlignment2= 0
pBckgColor2 = 0
pGradient2 = 0
pEdgeSpacing2 = 0
pEdgeInner2 = 0
pEdgeOuter2 = 2
PWidth3 = 200
PMinWidth3 = 0
pTTText3 = ""
pType3 = 0
pText3 = ""
pTextAlignment3 = 0
PanelPicture3 = "FrmMain.frx":1F002
PanelPicAlignment3= 0
pBckgColor3 = 0
pGradient3 = 0
pEdgeSpacing3 = 0
pEdgeInner3 = 0
pEdgeOuter3 = 2
PWidth4 = 170
PMinWidth4 = 0
pTTText4 = ""
pType4 = 0
pText4 = "当前日期:2005年01月20日 "
pTextAlignment4 = 0
PanelPicture4 = "FrmMain.frx":1F01E
PanelPicAlignment4= 0
pBckgColor4 = 0
pGradient4 = 0
pEdgeSpacing4 = 0
pEdgeInner4 = 0
pEdgeOuter4 = 2
End
Begin VB.Frame Frame1
Height = 30
Left = -75
TabIndex = 0
Top = 0
Width = 7560
End
Begin ServicingMS.lvButtons_H CmdCenliSearch
Height = 405
Left = 1275
TabIndex = 3
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "按客户查"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1F03A
cBack = -2147483633
End
Begin ServicingMS.lvButtons_H CmdDateSearch
Height = 405
Left = 2565
TabIndex = 4
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "按时间查"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1F3D4
cBack = -2147483633
End
Begin ServicingMS.lvButtons_H CmdProcregister
Height = 405
Left = 3825
TabIndex = 5
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "维修登记"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1F76E
cBack = -2147483633
End
Begin ServicingMS.lvButtons_H CmdSysmanage
Height = 405
Left = 5145
TabIndex = 6
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "系统管理"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1FB08
cBack = -2147483633
End
Begin ServicingMS.lvButtons_H CmdQuit
Height = 405
Left = 6435
TabIndex = 7
Top = 60
Width = 1215
_ExtentX = 2143
_ExtentY = 714
Caption = "退出系统"
CapAlign = 2
BackStyle = 3
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
cGradient = 0
Mode = 0
Value = 0 'False
Image = "FrmMain.frx":1FEA2
cBack = -2147483633
End
Begin yfDNetMenu.DNetMenu DNetMenu1
Left = 7965
Top = 15
_ExtentX = 847
_ExtentY = 847
BmpCount = 13
Bmp:1 = "FrmMain.frx":2023C
Key:1 = "#mCZYGL"
Bmp:2 = "FrmMain.frx":20664
Key:2 = "#mCXDL"
Bmp:3 = "FrmMain.frx":20A8C
Key:3 = "#mMMXG"
Bmp:4 = "FrmMain.frx":20EB4
Key:4 = "#mTCXT"
Bmp:5 = "FrmMain.frx":212DC
Key:5 = "#mWXDJ"
Bmp:6 = "FrmMain.frx":21704
Key:6 = "#mBJWH"
Bmp:7 = "FrmMain.frx":21B2C
Key:7 = "#mXHWH"
Bmp:8 = "FrmMain.frx":21F54
Key:8 = "#mCLFS"
Bmp:9 = "FrmMain.frx":2237C
Key:9 = "#mABHC"
Bmp:10 = "FrmMain.frx":227A4
Key:10 = "#mAKHC"
Bmp:11 = "FrmMain.frx":22BCC
Key:11 = "#mASJC"
Bmp:12 = "FrmMain.frx":22FF4
Key:12 = "#mHelpm"
Bmp:13 = "FrmMain.frx":2341C
Key:13 = "#mAbout"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu mXTGL
Caption = "系统管理"
Begin VB.Menu mCZYGL
Caption = "操作员管理"
End
Begin VB.Menu mBar1
Caption = "-"
End
Begin VB.Menu mMMXG
Caption = "密码修改"
End
Begin VB.Menu mCXDL
Caption = "重新登录"
End
Begin VB.Menu mBar3
Caption = "-"
End
Begin VB.Menu mTCXT
Caption = "退出系统"
End
End
Begin VB.Menu mJBXX
Caption = "基本信息"
Begin VB.Menu mWXDJ
Caption = "维修产品登记"
End
Begin VB.Menu mBar4
Caption = "-"
End
Begin VB.Menu mBJWH
Caption = "部件信息维护"
End
Begin VB.Menu mWGWH
Caption = "规格信息维护"
End
Begin VB.Menu mXHWH
Caption = "型号信息维护"
End
Begin VB.Menu mKHWH
Caption = "客户信息维护"
End
Begin VB.Menu mCLFS
Caption = "处理方式维护"
End
End
Begin VB.Menu mSJCC
Caption = "数据查询"
Begin VB.Menu mABHC
Caption = "按编号查询"
End
Begin VB.Menu mAKHC
Caption = "按客户查询"
End
Begin VB.Menu mASJC
Caption = "按时间查询"
End
End
Begin VB.Menu mHelp
Caption = "帮助"
Begin VB.Menu mHelpm
Caption = "帮助主题"
End
Begin VB.Menu mAbout
Caption = "关于"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CmdCenliSearch_Click()
FrmSearchClient.Show vbModal
End Sub
Private Sub CmdDateSearch_Click()
FrmSearchDate.Show vbModal
End Sub
Private Sub CmdIdSearch_Click()
FrmSearchID.Show vbModal
End Sub
Private Sub CmdProcregister_Click()
FrmProductEnregister.Show vbModal
End Sub
Private Sub Form_Load()
' Dim newFormat As String
' Dim LCID As Long
' 'Me.Visible = False
'
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
'
'' newFormat = "yyyy-mm-dd"
'' If GetUserLocaleInfo(LCID, LOCALE_SSHORTDATE) <> newFormat Then
'' LCID = GetSystemDefaultLCID()
'' '设置短日期格式
'' Call SetLocaleInfo(LCID, LOCALE_SSHORTDATE, newFormat)
''
'' '发送消息更改系统模式
'' Call PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)
'' End If
'
' 'Call LoadItems
'' If checkWantedAccessDSN("SerManage", "HC") = False Then
'' Call CreateMDBDSN(App.pAth & "\ServicingManage", "SerManage", "HC", App.pAth & "\sms.mdb")
'' End If
'frmSplash.Show
'frmSplash.SetFocus
'Call DelayTime(2) 'Delay 2 Sec
'Me.Visible = True
'frmSplash.SetFocus
'Call DelayTime(2) 'Delay 2 Sec
'Unload frmSplash
'Me.SetFocus
End Sub
Private Sub Form_Resize()
On Error Resume Next
Frame1.Width = Me.Width
WellPicture.Width = Me.Width - 200
WellPicture.Height = Me.Height - 1600
End Sub
Private Sub CmdQuit_Click()
Unload Me
End Sub
Private Sub mABHC_Click()
Call CmdIdSearch_Click
End Sub
Private Sub mAbout_Click()
frmAbout.Show vbModal
End Sub
Private Sub mAKHC_Click()
Call CmdCenliSearch_Click
End Sub
Private Sub mASJC_Click()
Call CmdDateSearch_Click
End Sub
Private Sub mBJWH_Click()
FrmParts.Show vbModal
End Sub
Private Sub mCLFS_Click()
FrmDispose.Show vbModal
End Sub
Private Sub mKHWH_Click()
FrmClient.Show vbModal
End Sub
Private Sub mTCXT_Click()
Unload Me
End Sub
Private Sub mWGWH_Click()
FrmSpec.Show vbModal
End Sub
Private Sub mWXDJ_Click()
FrmProductEnregister.Show vbModal
End Sub
Private Sub mXHWH_Click()
FrmModel.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -