📄 cdm.frm
字号:
_ExtentX = 14208
_ExtentY = 7011
_Version = 393216
FixedCols = 0
GridColor = 16776960
GridColorFixed = 255
GridColorUnpopulated= 65535
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 4815
Left = 240
TabIndex = 16
Top = 240
Width = 8535
_ExtentX = 15055
_ExtentY = 8493
MultiRow = -1 'True
Style = 2
HotTracking = -1 'True
Separators = -1 'True
ImageList = "smailImageList"
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 4
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "查询光盘"
Key = "查询光盘"
ImageVarType = 2
ImageIndex = 5
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "添加光盘"
Key = "添加光盘"
ImageVarType = 2
ImageIndex = 4
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "修改光盘"
Key = "修改光盘"
ImageVarType = 2
ImageIndex = 3
EndProperty
BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "删除光盘"
Key = "删除光盘"
ImageVarType = 2
ImageIndex = 2
EndProperty
EndProperty
End
Begin VB.Image search
Height = 300
Index = 0
Left = 4440
MouseIcon = "cdm.frx":8640
MousePointer = 99 'Custom
Picture = "cdm.frx":894A
Top = 5280
Width = 780
End
Begin VB.Label Labinfo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询影片信息："
Height = 180
Index = 1
Left = 240
TabIndex = 33
Top = 5280
Width = 1260
End
Begin VB.Label qd
BackStyle = 0 'Transparent
Caption = " 确定"
Height = 495
Left = 5760
MouseIcon = "cdm.frx":8B75
MousePointer = 99 'Custom
TabIndex = 13
Top = 5280
Width = 1455
End
Begin VB.Label qx
BackStyle = 0 'Transparent
Caption = " 取消"
Height = 375
Left = 7320
MouseIcon = "cdm.frx":8E7F
MousePointer = 99 'Custom
TabIndex = 14
Top = 5280
Width = 1335
End
Begin VB.Image Image2
Height = 195
Index = 1
Left = 7560
MouseIcon = "cdm.frx":9189
MousePointer = 99 'Custom
Picture = "cdm.frx":9493
Top = 5280
Width = 195
End
Begin VB.Image Image2
Height = 195
Index = 0
Left = 6000
MouseIcon = "cdm.frx":950E
MousePointer = 99 'Custom
Picture = "cdm.frx":9818
Top = 5280
Width = 195
End
Begin VB.Image Image1
Height = 450
Index = 0
Left = 5760
MouseIcon = "cdm.frx":9893
MousePointer = 99 'Custom
Picture = "cdm.frx":9B9D
Stretch = -1 'True
Top = 5160
Width = 1395
End
Begin VB.Shape Shape1
BackColor = &H80000018&
BorderColor = &H000080FF&
BorderWidth = 5
Height = 5775
Left = 0
Top = 0
Width = 9015
End
Begin VB.Image Image1
Height = 450
Index = 1
Left = 7320
MouseIcon = "cdm.frx":9FD0
MousePointer = 99 'Custom
Picture = "cdm.frx":A2DA
Stretch = -1 'True
Top = 5160
Width = 1395
End
Begin VB.Menu list
Caption = "lst"
Visible = 0 'False
Begin VB.Menu dele
Caption = "删除指定的演员"
End
End
Begin VB.Menu modimsf
Caption = "wef"
Visible = 0 'False
Begin VB.Menu modicd
Caption = "修改光盘"
End
Begin VB.Menu delecd
Caption = "册除光盘"
End
End
End
Attribute VB_Name = "cdm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim yn As New yn '定义yn为yn类
Option Explicit
Private Sub Combo1_Click()
Me.PopupMenu list '弹出LIST菜单
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '如果按回车键就添加一个记录
Me.Combo1.AddItem Me.Combo1.Text
Me.Combo1.SelStart = 0
Me.Combo1.SelLength = Len(Me.Combo1.Text)
End If
End Sub
Private Sub comsel_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then '如果按回车键就执行查询功能
Call search_Click(0)
End If
End Sub
Private Sub dele_Click()
Me.Combo1.RemoveItem Me.Combo1.ListIndex '单击后删除指定记录
End Sub
Private Sub delecd_Click()
msg = "删除光盘"
Me.TabStrip1.Tabs(4).Selected = True '4被选中
Dim a As String
a = Me.MSHFlexGrid1.Text
Me.MSHFlexGrid1.Row = 0
Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.Col '- 1
Me.comsel(0).Text = Me.MSHFlexGrid1.Text
Me.txtselect(0).Text = a '赋值方便查询
If Me.comsel(0).Text = "影片编号" Or Me.comsel(0).Text = "影片名称" Or Me.comsel(0).Text = "导演" Or Me.comsel(0).Text = "影片类型" Or Me.comsel(0).Text = "影片格式" Or Me.comsel(0).Text = "影片语言" Then
db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & Me.txtselect(0).Text & "'"
Call yn.opendb(db)
If Not yn.myrec.EOF Then
Call yn.myrec.Delete
Call yn.myrec.Update
MsgBox "此光盘记录已成功删除！！！", vbInformation
Call yn.closedb
db = "select * from 影片资料 where " & Me.comsel(0).Text & "='" & Me.txtselect(0).Text & "'"
Call yn.opendb(db)
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.closedb
Else
Me.MSHFlexGrid1.Visible = False
Me.Frame1.Visible = True
Call yn.closedb
End If
Else
db = "select * from 影片资料 where " & Me.comsel(0).Text & "=" & Me.txtselect(0).Text & ""
Call yn.opendb(db)
Call yn.myrec.Delete
Call yn.myrec.Update
MsgBox "此光盘记录已成功删除！！！", vbInformation
Call yn.closedb
db = "select * from 影片资料 where " & Me.comsel(0).Text & "=" & Me.txtselect(0).Text & ""
Call yn.opendb(db)
Set Me.MSHFlexGrid1.DataSource = yn.myrec
Call yn.closedb
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Caption = Me.Caption & msg
Select Case msg
Case Is = "添加光盘"
Me.TabStrip1.Tabs(2).Selected = True
For i = 0 To 8
Me.txtinfo(i).BackColor = vbWhite
Next
Me.Combo1.BackColor = vbWhite '设置白色代表有效
Me.Combo2.BackColor = vbWhite
Me.Combo3.BackColor = vbWhite
Me.Combo4.BackColor = vbWhite
Me.txtselect(0).Visible = False
Me.Labinfo(1).Visible = False
Me.comsel(0).Visible = False
Me.search(0).Visible = False
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Call yn.opendb("select * from 影片类型")
Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片格式")
Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片语言")
Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 自定义")
Me.txtinfo(6).Text = yn.myrec.Fields("购买价格")
Me.txtinfo(5).Text = yn.myrec.Fields("出租价格")
Call yn.closedb
Case Is = "修改光盘"
Me.txtselect(0).TabIndex = 0
Me.comsel(0).TabIndex = 1
Me.TabStrip1.Tabs(3).Selected = True
For i = 0 To 8
Me.txtinfo(i).BackColor = vbWhite
Next
Me.Combo1.BackColor = vbWhite '设置白色代表有效
Me.Combo2.BackColor = vbWhite
Me.Combo3.BackColor = vbWhite
Me.Combo4.BackColor = vbWhite
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Call yn.opendb("select * from 影片类型")
Do While yn.myrec.EOF = False
Me.Combo2.AddItem yn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片格式")
Do While yn.myrec.EOF = False
Me.Combo3.AddItem yn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片语言")
Do While yn.myrec.EOF = False
Me.Combo4.AddItem yn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Call yn.closedb
Case Is = "光盘查询"
Me.TabStrip1.Tabs(1).Selected = True
Me.Combo1.Visible = False
For i = 0 To 8
Me.txtinfo(i).Locked = True
Next
Me.txtselect(0).TabIndex = 0
Me.comsel(0).TabIndex = 1
Case Is = "删除光盘"
Me.TabStrip1.Tabs(4).Selected = True
Me.txtselect(0).TabIndex = 0
Me.comsel(0).TabIndex = 1
End Select
End Sub
Private Sub modicd_Click()
On Error Resume Next '忽略错误
msg = "修改光盘"
Me.TabStrip1.Tabs(3).Selected = True
Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.RowSel '确定查询条件
Me.MSHFlexGrid1.Col = 1
Me.txtselect(0).Text = Me.MSHFlexGrid1.Text
Me.MSHFlexGrid1.Visible = False
Me.Frame1.Visible = True
db = "select * from 影片资料 where 影片名称='" & Trim(Me.txtselect(0).Text) & "'"
Call yn.opendb(db)
cdm.txtinfo(0).Text = yn.myrec.Fields("影片编号")
cdm.txtinfo(1).Text = yn.myrec.Fields("影片名称")
cdm.txtinfo(4).Text = yn.myrec.Fields("时间长度")
cdm.txtinfo(2).Text = yn.myrec.Fields("导演")
cdm.txtinfo(3).Text = yn.myrec.Fields("发行年度")
cdm.txtinfo(8).Text = yn.myrec.Fields("影片介绍")
cdm.txtinfo(6).Text = yn.myrec.Fields("购买价格")
cdm.Combo2.Text = yn.myrec.Fields("影片类型")
cdm.Combo4.Text = yn.myrec.Fields("影片语言")
cdm.Combo3.Text = yn.myrec.Fields("影片格式")
cdm.txtinfo(7).Text = yn.myrec.Fields("总数")
cdm.txtinfo(5).Text = yn.myrec.Fields("出租价格")
Call yn.closedb
Call yn.opendb("select * from 演员 where 影片编号='" & Me.txtinfo(0).Text & "'")
Do While Not yn.myrec.EOF
Me.Combo1.AddItem yn.myrec.Fields("演员").Value
yn.myrec.MoveNext
Loop
Call yn.closedb
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -