📄 mdiform1.frm
字号:
End
Begin VB.CommandButton Command3
Height = 550
Left = 1800
Picture = "MDIForm1.frx":6A87
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "按时间分析报告"
Top = 0
Width = 550
End
Begin VB.CommandButton Command2
Height = 550
Left = 600
Picture = "MDIForm1.frx":7351
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "查询结果"
Top = 0
Width = 550
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
Height = 550
Left = 0
Picture = "MDIForm1.frx":7C1B
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "读入数据"
Top = 0
Width = 550
End
Begin VB.CommandButton Command11
Height = 550
Left = 4080
Picture = "MDIForm1.frx":885D
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "按次数分析报告"
Top = 720
Width = 550
End
Begin VB.CommandButton Command12
Height = 550
Left = 2400
Picture = "MDIForm1.frx":9127
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "次数间设置计划"
Top = 0
Width = 550
End
Begin VB.CommandButton Command13
Height = 550
Left = 3000
Picture = "MDIForm1.frx":AE21
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "按次数结果报告"
Top = 0
Width = 550
End
Begin MSComCtl2.Animation ply
Height = 1215
Left = 4800
TabIndex = 11
Top = 3960
Width = 1455
_ExtentX = 2566
_ExtentY = 2143
_Version = 393216
AutoPlay = -1 'True
BackColor = -2147483624
FullWidth = 97
FullHeight = 81
End
End
Begin VB.Menu menu_man
Caption = "数据管理"
Begin VB.Menu add_data
Caption = "录入数据"
End
Begin VB.Menu qeqwe
Caption = "-"
End
Begin VB.Menu find
Caption = "查询打印"
End
Begin VB.Menu plan_exe
Caption = "计划执行"
Begin VB.Menu timeplan
Caption = "按时间执行"
End
Begin VB.Menu times__plan
Caption = "按次数执行"
End
End
Begin VB.Menu dsf
Caption = "-"
End
Begin VB.Menu date_refresh
Caption = "重新登陆"
End
Begin VB.Menu date_an
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu per_man
Caption = "人员管理"
Begin VB.Menu add_per
Caption = "添加人员信息"
End
Begin VB.Menu find_per
Caption = "查询人员信息"
End
Begin VB.Menu up_per
Caption = "修改人员信息"
End
End
Begin VB.Menu menu_sys
Caption = "相关设置"
Begin VB.Menu band
Caption = "棒号设置"
End
Begin VB.Menu person
Caption = "人员设置"
End
Begin VB.Menu where
Caption = "地点设置"
End
Begin VB.Menu thing
Caption = "事件设置"
End
Begin VB.Menu kong
Caption = "-"
End
Begin VB.Menu plan
Caption = "计划设置"
Begin VB.Menu time_plan
Caption = "按时间做计划"
End
Begin VB.Menu timers_plan
Caption = "按次数做计划"
End
End
End
Begin VB.Menu menu_date
Caption = "数据维护"
Begin VB.Menu backup
Caption = "备份数据库"
End
Begin VB.Menu restore
Caption = "还原数据库"
End
Begin VB.Menu kong1
Caption = "-"
End
Begin VB.Menu table_backup
Caption = "基本表备份"
End
Begin VB.Menu table_restore
Caption = "基本表还原"
End
Begin VB.Menu sd
Caption = "-"
End
Begin VB.Menu delbase
Caption = "清空数据库"
End
Begin VB.Menu se_table
Caption = "选择清空表"
End
Begin VB.Menu afdaf
Caption = "-"
End
Begin VB.Menu sql
Caption = "SQL 执行"
End
End
Begin VB.Menu menu_sysman
Caption = "系统管理"
Begin VB.Menu modify
Caption = "修改密码"
End
Begin VB.Menu user_man
Caption = "用户管理"
End
Begin VB.Menu change
Caption = "更换背景"
End
Begin VB.Menu kon
Caption = "-"
End
Begin VB.Menu windows
Caption = "窗口设置"
End
Begin VB.Menu fdsgh
Caption = "-"
End
Begin VB.Menu noshow
Caption = "隐藏导航栏"
End
End
Begin VB.Menu about
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 about_Click()
frmAbout.Show
End Sub
Private Sub add_data_Click()
frmread.Left = 4000
frmread.Top = 2500
frmread.Show
End Sub
Private Sub add_per_Click()
frmpersonadd.Show
End Sub
Private Sub backup_Click()
backupsub
End Sub
Private Sub band_Click()
frmbang.Left = 4000
frmbang.Top = 2500
frmbang.Show
End Sub
Private Sub change_Click()
On Error Resume Next '更换背景
cd1.ShowOpen
Open App.Path & "\save.txt" For Output As #1
Dim strfile_1 As String
frmmain.Picture = LoadPicture(cd1.filename)
DoEvents
strfile_1 = cd1.filename
Print #1, strfile_1
Close (1)
'ClearSnowParticles
End Sub
Private Sub Command1_Click()
PlaySound 61
frmread.Left = 4000
frmread.Top = 2500
frmread.Show
End Sub
Private Sub Command1_GotFocus()
PlaySound 60
End Sub
Private Sub Command10_Click()
PlaySound 61
Dim X As Picture
Set X = LoadPicture(App.Path & "\kj.jpg")
'====================================
Set frmend.Picture = X
frmend.Left = 4000
frmend.Top = 2500
frmend.Show
End Sub
Private Sub Command10_GotFocus()
PlaySound 60
End Sub
Private Sub Command12_Click()
PlaySound 61
frmshowtimes.Show
End Sub
Private Sub Command13_Click()
PlaySound 61
frmplan_times.Show
End Sub
Private Sub Command2_Click()
frmsearch.Show
End Sub
Private Sub Command2_GotFocus()
PlaySound 60
End Sub
Private Sub Command3_Click()
PlaySound 61
frmplan_ex.Left = 4000
frmplan_ex.Top = 2500
frmplan_ex.Show
End Sub
Private Sub Command3_GotFocus()
PlaySound 60
End Sub
Private Sub Command8_Click()
PlaySound 61
frmplan.Show
End Sub
Private Sub Command8_GotFocus()
PlaySound 60
End Sub
Private Sub date_refresh_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub delbase_Click()
del
End Sub
Private Sub exit_Click()
Dim X As Picture
Set X = LoadPicture(App.Path & "\kj.jpg")
'====================================
Set frmend.Picture = X
frmend.Left = 4000
frmend.Top = 2500
frmend.Show
End Sub
Private Sub find_Click()
frmsearch.Show
End Sub
Private Sub find_per_Click()
frmfindper.Show
End Sub
Private Sub FindImg_Click()
PlaySound 61
frmbang.Left = 4000
frmbang.Top = 2500
frmbang.Show
End Sub
Private Sub imgBuy_ticket_Click()
frmlocation.Left = 4000
frmlocation.Top = 2500
frmlocation.Show
End Sub
Private Sub imgEdit_Click()
PlaySound 61
frmperson.Left = 4000
frmperson.Top = 2500
frmperson.Show
End Sub
Private Sub ImgExplore_Click()
PlaySound 61
frmshowtimes.Show
End Sub
Private Sub ImgHelp_Click()
PlaySound 61
frmplan.Show
End Sub
Private Sub imgShowAll_Click()
PlaySound 61
frmthing.Left = 4000
frmthing.Top = 2500
frmthing.Show
End Sub
Private Sub lblBuy_ticket_Click()
PlaySound 61
frmlocation.Left = 4000
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -