?? 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 + -