📄 vcdview.frm
字号:
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "语言"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "主演"
_Band(0)._MapCol(2)._RSIndex= 6
_Band(0)._MapCol(3)._Name= "导演"
_Band(0)._MapCol(3)._RSIndex= 7
_Band(0)._MapCol(4)._Name= "出版日期"
_Band(0)._MapCol(4)._RSIndex= 3
_Band(0)._MapCol(5)._Name= "租金"
_Band(0)._MapCol(5)._RSIndex= 4
_Band(0)._MapCol(5)._Alignment= 7
_Band(0)._MapCol(6)._Name= "库存"
_Band(0)._MapCol(6)._RSIndex= 5
_Band(0)._MapCol(6)._Alignment= 7
_Band(0)._MapCol(7)._Name= "片长"
_Band(0)._MapCol(7)._RSIndex= 2
_Band(0)._MapCol(7)._Alignment= 7
_Band(0)._MapCol(8)._Name= "图片路径"
_Band(0)._MapCol(8)._RSIndex= 9
_Band(0)._MapCol(8)._Hidden= -1 'True
_Band(0)._MapCol(9)._Name= "故事概述"
_Band(0)._MapCol(9)._RSIndex= 8
_Band(0)._MapCol(9)._Hidden= -1 'True
_Band(0)._MapCol(10)._Name= "级别"
_Band(0)._MapCol(10)._RSIndex= 10
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid ComedyDataView
Bindings = "VCDView.frx":00E3
Height = 3375
Left = 240
TabIndex = 19
Top = 240
Width = 10935
_ExtentX = 19288
_ExtentY = 5953
_Version = 393216
Cols = 8
FixedCols = 0
DataMember = "comcomedy"
_NumberOfBands = 1
_Band(0).Cols = 8
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
_Band(0)._NumMapCols= 8
_Band(0)._MapCol(0)._Name= "名称"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "语言"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "主演"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(3)._Name= "导演"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(4)._Name= "出版日期"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(5)._Name= "租金"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(5)._Alignment= 7
_Band(0)._MapCol(6)._Name= "库存"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(6)._Alignment= 7
_Band(0)._MapCol(7)._Name= "片长"
_Band(0)._MapCol(7)._RSIndex= 7
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid SearchDataView
Height = 3375
Left = 240
TabIndex = 55
Top = 240
Width = 10935
_ExtentX = 19288
_ExtentY = 5953
_Version = 393216
Cols = 1
FixedCols = 0
_NumberOfBands = 1
_Band(0).Cols = 1
End
End
Begin VB.Frame Frame5
Caption = "查询"
Height = 3855
Left = 11880
TabIndex = 29
Top = 4680
Width = 1455
Begin VB.ComboBox ComboVCDType
Height = 300
ItemData = "VCDView.frx":00FC
Left = 240
List = "VCDView.frx":011E
TabIndex = 51
Top = 720
Width = 975
End
Begin VB.TextBox SearchText
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 39
Top = 2520
Width = 1215
End
Begin VB.ComboBox ComboSearch
Height = 300
ItemData = "VCDView.frx":015E
Left = 240
List = "VCDView.frx":0177
TabIndex = 38
Top = 1560
Width = 975
End
Begin XPCmd.xpcmdbutton SearchBT
Height = 375
Left = 240
TabIndex = 40
Top = 3240
Width = 975
_ExtentX = 1720
_ExtentY = 661
Caption = " 查 找"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "查询关键字"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 220
TabIndex = 54
Top = 2160
Width = 1050
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "查询条件"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 300
TabIndex = 53
Top = 1200
Width = 840
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "影片类型"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Left = 300
TabIndex = 52
Top = 360
Width = 840
End
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 9375
Left = 0
TabIndex = 6
Top = 120
Width = 15255
_ExtentX = 26908
_ExtentY = 16536
TabWidthStyle = 2
MultiRow = -1 'True
TabStyle = 1
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 10
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "爱 情"
Key = "Love"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "喜 剧"
Key = "Comedy"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "卡 通"
Key = "Cartoon"
ImageVarType = 2
EndProperty
BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "科 幻"
Key = "Science"
ImageVarType = 2
EndProperty
BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "冒 险"
Key = "Venture"
ImageVarType = 2
EndProperty
BeginProperty Tab6 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "动 作"
Key = "Action"
ImageVarType = 2
EndProperty
BeginProperty Tab7 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "文 艺"
Key = "Art"
ImageVarType = 2
EndProperty
BeginProperty Tab8 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "战 争"
Key = "War"
ImageVarType = 2
EndProperty
BeginProperty Tab9 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "广 告"
Key = "Adevertisment"
ImageVarType = 2
EndProperty
BeginProperty Tab10 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "恐 怖"
Key = "Terror"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "VCDView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim con As Connection
Dim comView As Command
Dim intPostion As Integer
Dim intstatus As Integer
Dim rst As Recordset
Dim rows, id, tablename, tbname, memid, agelow, vcdlevel As String
Dim OrderNo, memberage, money, moneyadd, newmoney, rentnum, rental, vcdname, instatus, LE, Lendtime, SReturnDate As String
Dim vcdType, SearchCon, SearchKey, Lyear, Lmonth, Lday As String
Private Sub AddBT_Click()
VCDAdd.ComboType.Text = tablename
'VCDAdd.gettbname (tbname)
'VCDAdd.autoid (tbname)
VCDAdd.Show
'VCDAdd.SetFocus
'rst.Close
End Sub
Private Sub AddMoneyBT_Click()
ManagerLogin.Show
MoneyAddText.Enabled = True
'MoneyOKBT.Enabled = True
End Sub
'Private Sub FinshRentBT_Click()
'addid
'rst.Open "insert into orders select * from orderdetails "
'MsgBox "您的租借信息已保存！如果还要租借，请先退出！"
'rst.Close
'End Sub
Private Sub Form_Unload(Cancel As Integer)
LoveDataView.Refresh
End Sub
Private Sub Lovedataview_Click()
LoveData.rsCommandView.Requery
Set LoveDataView.DataSource = LoveData
rows = LoveDataView.Row
id = VCDAdd.getid(rows - 2)
Call idTRS
'MsgBox id
'On Error GoTo err
rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=mPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath,'级别'=cLevel from love", con, adOpenDynamic, adLockOptimistic
rst.Move (id)
Call display
rst.Close
Exit Sub
err:
yy = MsgBox("数据表为空！没有记录可以显示！", vbInformation, "系统提示") = vbOK
'MsgBox err.Description
'rst.Close
End Sub
Private Sub Comedydataview_Click()
ComedyData.rsComComedy.Requery
Set ComedyDataView.DataSource = ComedyData
rows = ComedyDataView.Row
id = VCDAdd.getid(rows - 2)
Call idTRS
'MsgBox id
On Error GoTo err
rst.Open "select '名称'=cName,'语言'=cLanguage,'片长'=iLenth,'出版日期'=dPublishDate,'租金'=mPrice,'库存'=iStock,'主演'=cParts,'导演'=cDirector,'故事概述'=cStory,'图片路径'=cPicpath, '级别'=cLevel from comedy", con, adOpenDynamic, adLockOptimistic
rst.Move (id)
Call display
rst.Close
Exit Sub
err:
uu = MsgBox("数据表为空！没有记录可以显示！", vbInformation, "系统提示") = vbOK
'MsgBox err.Description
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -