📄 mdifrmvideoinfo.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "中小型图书信息管理系统"
ClientHeight = 7920
ClientLeft = 165
ClientTop = 735
ClientWidth = 12585
Icon = "MDIfrmVideoInfo.frx":0000
LinkTopic = "fMainForm"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Clg1
Align = 1 'Align Top
Height = 480
Left = 0
ScaleHeight = 420
ScaleWidth = 12525
TabIndex = 3
Top = 870
Width = 12585
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 870
Left = 0
TabIndex = 0
Top = 0
Width = 12585
_ExtentX = 22199
_ExtentY = 1535
ButtonWidth = 2487
ButtonHeight = 1376
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "交易/业务 (出租)"
Key = "Transaction"
Object.ToolTipText = "业务管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "报表输出"
Key = "Report"
Object.ToolTipText = "报表打印"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "搜索查询"
Key = "Info"
Object.ToolTipText = "Search"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "书籍经营项目"
Key = "AddCD_Tapes"
Object.ToolTipText = "项目管理"
ImageIndex = 4
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "租赁会员"
Key = "Members"
Object.ToolTipText = "会员管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "系统用户"
Key = "Users"
Object.ToolTipText = "用户管理"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "回收外租项目"
Key = "ReturnItems"
Object.ToolTipText = "回收项目"
ImageIndex = 7
EndProperty
EndProperty
Begin VB.PictureBox ActiveMovie1
Height = 1095
Left = 10080
ScaleHeight = 1035
ScaleWidth = 3930
TabIndex = 2
Top = 0
Visible = 0 'False
Width = 3990
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 9720
Top = 960
_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 = "MDIfrmVideoInfo.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":66DC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":6B2E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":CDC8
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":D21A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":D534
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrmVideoInfo.frx":137CE
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 1
Top = 7650
Width = 12585
_ExtentX = 22199
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 16563
Text = "状态"
TextSave = "状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "2008-1-25"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "10:44"
EndProperty
EndProperty
End
Begin VB.Menu xtsz
Caption = "设置(&S)"
Begin VB.Menu htyl
Caption = "后台音乐"
Begin VB.Menu apchy
Caption = "爱拼才会赢"
Checked = -1 'True
End
End
Begin VB.Menu zxzj
Caption = "自选加载(A)"
Begin VB.Menu bdjz
Caption = "本地加载"
End
Begin VB.Menu fgf2
Caption = "-"
End
Begin VB.Menu zjbflb
Caption = "最近播放列表"
End
Begin VB.Menu zjbf
Caption = "最近播放"
Index = 0
Visible = 0 'False
End
Begin VB.Menu fgf1
Caption = "-"
Visible = 0 'False
End
End
Begin VB.Menu sx
Caption = "刷新(&E)"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
WindowList = -1 'True
Begin VB.Menu neirong
Caption = "内容"
End
Begin VB.Menu jszc
Caption = "技术支持(&T)"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim imenucount As Integer
Private Sub bdjz_Click()
Dim i, j As Integer
On Error GoTo nofile
Clg1.Filter = "MP3文件 (*.mp3)|*.mp3"
'"WaveAudio (*.wav)|*.wav|Midi (*.mid)|*.mid|Video files (*.avi)|*.avi"
Clg1.CancelError = True
Clg1.ShowOpen
If Clg1.FileName <> "" Then
imenucount = imenucount + 1
If imenucount < 9 Then
fgf1.Visible = True
Load zjbf(imenucount)
If imenucount > 1 Then '核查动态菜单其他项目的CHENK值
For j = imenucount To 1 Step -1
zjbf(j).Checked = False
Next j
End If
zjbf(imenucount).Checked = True
zjbf(imenucount).Caption = Clg1.FileName
zjbf(imenucount).Visible = True
Else
i = imenucount Mod 8
If i = 0 Then i = 8
zjbf(i).Caption = Clg1.FileName
End If
ActiveMovie1.FileName = Clg1.FileName
ActiveMovie1.AutoStart = True
Else: MsgBox "没有选定文件！"
End If
nofile:
If Err.Number = 32755 Then Exit Sub
End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu xtsz, vbPopupMenuLeftAlign
End Sub
Private Sub zjbf_Click(Index As Integer)
Dim i
For i = 1 To imenucount '核查动态菜单其他项目的CHENK值
If zjbf(i).Caption <> zjbf(Index).Caption Then
zjbf(i).Checked = False
End If
Next i
If zjbf(Index).Checked = flase Then
zjbf(Index).Checked = True
ActiveMovie1.FileName = zjbf(Index).Caption
If ActiveMovie1.AutoStart = False Then ActiveMovie1.AutoStart = True
Else: zjbf(Index).Checked = False
ActiveMovie1.Stop
End If
End Sub
Private Sub jszc_Click()
frmhelp.Show
End Sub
Private Sub MDIForm_Load()
MDIForm1.WindowState = 2
If MDIForm1.apchy.Checked = True Then
Call MDIForm1.apchy_Click
End If
End Sub
Public Sub apchy_Click() '后台加载背景音乐爱拼才会赢
'MDIForm1.hj.Checked = False
'MDIForm1.lz.Checked = False
'MDIForm1.yzcw.Checked = False
If MDIForm1.apchy.Checked = False Then
MDIForm1.apchy.Checked = True
Else
MDIForm1.apchy.Checked = False
End If
If MDIForm1.apchy.Checked = True Then
Dim k As Integer, str As String
str = App.Path + "\Music\爱拼才会赢.wav"
k = sndPlaySound(str, &H9)
ElseIf MDIForm1.apchy.Checked = False Then
str = App.Path + "\Music\bk1.wav"
k = sndPlaySound(str, 1)
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim vr_engine As VRENTAL_ENGINE
Set vr_engine = New VRENTAL_ENGINE
On Error Resume Next
Select Case Button.Key
Case "Users"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 6) = False Then Exit Sub
If frmUser.WindowState = vbMinimized Then frmUser.WindowState = vbNormal: Exit Sub
frmUser.Show
frmUser.SetFocus
frmUser.Left = 0
frmUser.Top = 0
Case "Members"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 5) = False Then Exit Sub
If frmMembers.WindowState = vbMinimized Then frmMembers.WindowState = vbNormal: Exit Sub
frmMembers.Show
frmMembers.SetFocus
frmMembers.Left = 0
frmMembers.Top = 0
Case "AddCD_Tapes"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 4) = False Then Exit Sub
If frmCDtapes.WindowState = vbMinimized Then frmCDtapes.WindowState = vbNormal: Exit Sub
frmCDtapes.Show
frmCDtapes.SetFocus
frmCDtapes.Left = 0
frmCDtapes.Top = 0
Case "Info"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 3) = False Then Exit Sub
If frmSearch.WindowState = vbMinimized Then frmSearch.WindowState = vbNormal: Exit Sub
frmSearch.Show
frmSearch.SetFocus
frmSearch.Left = 0
frmSearch.Top = 0
Case "Transaction"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 1) = False Then Exit Sub
If frmTransaction.WindowState = vbMinimized Then frmTransaction.WindowState = vbNormal: Exit Sub
frmTransaction.Show
frmTransaction.SetFocus
frmTransaction.Left = 0
frmTransaction.Top = 0
Case "ReturnItems"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 7) = False Then Exit Sub
If frmReturnItems.WindowState = vbMinimized Then frmReturnItems.WindowState = vbNormal: Exit Sub
frmReturnItems.Show
frmReturnItems.SetFocus
frmReturnItems.Left = 0
frmReturnItems.Top = 0
'Case "ReturnItems"
'If frmPurchase.WindowState = vbMinimized Then frmPurchase.WindowState = vbNormal: Exit Sub
' frmPurchase.Show
' frmPurchase.SetFocus
' frmPurchase.Left = 0
' frmPurchase.Top = 0
Case "Report"
If vr_engine.CheckPermission(Val(gVarAccessLevel), 2) = False Then Exit Sub
If frmReport.WindowState = vbMinimized Then frmReport.WindowState = vbNormal: Exit Sub
frmReport.Show
frmReport.SetFocus
frmReport.Left = 0
frmReport.Top = 0
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -