📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmmain
BackColor = &H8000000C&
Caption = "MDIForm1"
ClientHeight = 3090
ClientLeft = 165
ClientTop = 555
ClientWidth = 4680
LinkTopic = "MDIForm1"
Picture = "frmmain.frx":0000
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList2
Left = 1560
Top = 5040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 39
ImageHeight = 31
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":46F29
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":49B61
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":4C40E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":4EE5F
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":51333
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":537C4
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":55F59
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":5865F
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Interval = 1000
Left = 0
Top = 0
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 780
Left = 0
TabIndex = 0
Top = 0
Width = 4680
_ExtentX = 8255
_ExtentY = 1376
ButtonWidth = 1455
ButtonHeight = 1323
Style = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用户管理"
Object.ToolTipText = "用户管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改密码"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信息添加"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信息查询"
ImageIndex = 4
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 5
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "a"
Text = "待修"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "b"
Text = "待材料"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "c"
Text = "换机"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "d"
Text = "修好"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "取走"
EndProperty
EndProperty
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "备份数据"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "系统设置"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 2715
Width = 4680
_ExtentX = 8255
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 14111
MinWidth = 14111
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.Menu dfsdss
Caption = "系统管理"
Begin VB.Menu usr
Caption = "用户管理"
Shortcut = ^U
End
Begin VB.Menu update
Caption = "修改密码"
Shortcut = ^P
End
Begin VB.Menu exitxx
Caption = "退出系统"
Shortcut = ^E
End
End
Begin VB.Menu sdfsds
Caption = "信息管理"
Begin VB.Menu infooo
Caption = "信息添加"
Shortcut = ^N
End
Begin VB.Menu xinxiss
Caption = "修好机器"
End
Begin VB.Menu quji
Caption = "取机"
End
End
Begin VB.Menu info
Caption = "信息查询"
Begin VB.Menu ddd
Caption = "待修机器"
Shortcut = ^X
End
Begin VB.Menu dfsd
Caption = "待材料机器"
Shortcut = ^C
End
Begin VB.Menu huandfd
Caption = "换机"
Shortcut = ^H
End
Begin VB.Menu fsdfsdfsd
Caption = "修好机器"
Shortcut = ^R
End
Begin VB.Menu quzou
Caption = "取走机器"
End
End
Begin VB.Menu sdfsd
Caption = "信息报表"
Begin VB.Menu a
Caption = "待修机器"
End
Begin VB.Menu bbb
Caption = "待材料机器"
End
Begin VB.Menu huan
Caption = "换机"
End
Begin VB.Menu xiuhao
Caption = "修好机器"
End
Begin VB.Menu fsdfsd
Caption = "取走机器"
End
End
Begin VB.Menu dao
Caption = "数据处理"
Begin VB.Menu beifen
Caption = "备份数据库"
End
Begin VB.Menu xinxi
Caption = "导出所有信息"
End
Begin VB.Menu chu
Caption = "数据初始化"
End
End
Begin VB.Menu help
Caption = "关于"
Begin VB.Menu abuou
Caption = "关于"
Shortcut = {F1}
End
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub a_Click()
Call zdf
rs.Open "select * from info where 维修方法='待修'"
With DataReport1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -