📄 falmsearch.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 0
TabIndex = 4
Top = 2280
Width = 1575
End
Begin VB.OptionButton Option1
Caption = "按类型查找"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 0
TabIndex = 3
Top = 1680
Width = 1575
End
Begin VB.OptionButton Option1
Caption = "按主演查找"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 0
TabIndex = 2
Top = 1080
Width = 1815
End
Begin VB.OptionButton Option1
Caption = "按电影名查找"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 0
TabIndex = 1
Top = 480
Width = 1815
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "falmsearch.frx":0015
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "falmsearch.frx":0073
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "falmsearch.frx":00D1
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "falmsearch.frx":012F
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "falmsearch.frx":018D
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 14
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1085
ButtonWidth = 487
ButtonHeight = 466
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "searchfalmname"
Object.ToolTipText = "按电影名查寻"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "falmsearchkey"
Object.ToolTipText = "按主演查找"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "falmsearchclass"
Object.ToolTipText = "按类型查找"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "falmsearchlanguage"
Object.ToolTipText = "按语种查找"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "falmsearch"
Object.ToolTipText = "按产地查找"
ImageIndex = 5
EndProperty
EndProperty
End
Begin VB.Label Label2
Caption = "查找输入"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 10
Top = 4920
Width = 1335
End
Begin VB.Label Label1
Caption = "内容简介:"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 8
Top = 4800
Width = 1095
End
End
Attribute VB_Name = "falmsch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql As String
Private Sub Combo1_Click()
If Option1(2) Then
If Trim(Combo1.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量,内容 from 影碟入库 where 类型='" & Combo1.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
End If
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Combo2_Click()
If Option1(3) Then
If Trim(Combo2.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量,内容 from 影碟入库 where 语种='" & Combo2.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
End If
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command1_Click()
Adodc1.CommandType = adCmdText
'按电影名查寻**************************************************************
If Option1(0) Then
If Trim(Text1.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量,内容 from 影碟入库 where 电影名='" & Text1.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
End If
'按主演查寻***************************************************************
If Option1(1) Then
If Trim(Text1.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量,内容 from 影碟入库 where 主演='" & Text1.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns("内容").Visible = False
End If
'按类型查寻***************************************************************
If Option1(2) Then
If Trim(Combo1.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量,内容 from 影碟入库 where 类型='" & Combo1.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
End If
'按语种查寻***************************************************************
If Option1(3) Then
If Trim(Combo2.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量 from 影碟入库 where 语种='" & Combo2.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
End If
'按产地查寻***************************************************************
If Option1(4) Then
If Trim(Text1.Text) <> "" Then
sql = "select 盘号,电影名,主演,类型,语种,产地,数量 from 影碟入库 where 产地='" & Text1.Text & "'"
Adodc1.RecordSource = sql
End If
Adodc1.Refresh
DataGrid1.Refresh
End If
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟库存查寻"
End Sub
Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟库存查找结果"
End Sub
Private Sub Form_GotFocus()
MDIForm1.Combo1.Text = "[影碟库存查寻]"
End Sub
Private Sub Form_Load()
MDIForm1.Combo1.Text = "[影碟库存查寻]"
Combo1.clear
Combo1.AddItem "喜剧片"
Combo1.AddItem "武打片"
Combo1.AddItem "枪战片"
Combo1.AddItem "言情片"
Combo1.AddItem "恐怖片"
Combo1.AddItem "记实片"
Combo1.AddItem "纪录片"
Combo2.AddItem "英语"
Combo2.AddItem "法语"
Combo2.AddItem "国语"
Combo2.AddItem "日语"
Option1(0).Enabled = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = ""
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case 0:
MDIForm1.StatusBar1.Panels(1) = "按电影名查找"
Case 1:
MDIForm1.StatusBar1.Panels(1) = "按主演查找"
Case 2:
MDIForm1.StatusBar1.Panels(1) = "按类型查找"
Case 3:
MDIForm1.StatusBar1.Panels(1) = "按语种查找"
Case 4:
MDIForm1.StatusBar1.Panels(1) = "按产地查找"
End Select
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0:
Combo1.Visible = False
Combo2.Visible = False
Text1.Text = ""
Text1.Visible = True
Text1.SetFocus
Case 1:
Combo1.Visible = False
Combo2.Visible = False
Text1.Text = ""
Text1.Visible = True
Text1.SetFocus
Case 2:
Combo1.Text = ""
Combo1.Visible = True
Combo2.Visible = False
Text1.Visible = False
Combo1.SetFocus
Case 3:
Combo1.Visible = False
Combo2.Text = ""
Combo2.Visible = True
Text1.Visible = False
Combo2.SetFocus
Case 4:
Combo1.Visible = False
Combo2.Visible = False
Text1.Text = ""
Text1.Visible = True
Text1.SetFocus
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.Value = True
End If
End Sub
Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = "影碟入内容简介"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1:
Option1(0).Value = True
Case 2:
Option1(1).Value = True
Case 3:
Option1(2).Value = True
Case 4:
Option1(3).Value = True
Case 5:
Option1(4).Value = True
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -