📄 set.frm
字号:
VERSION 5.00
Begin VB.Form setff
BackColor = &H80000013&
Caption = "[ 设置基本数据 ]"
ClientHeight = 4680
ClientLeft = 2775
ClientTop = 1920
ClientWidth = 6495
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 4680
ScaleWidth = 6495
Begin VB.TextBox Text1
Height = 270
Index = 1
Left = 4440
TabIndex = 4
Top = 3240
Width = 1095
End
Begin VB.TextBox Text1
Height = 270
Index = 0
Left = 4440
TabIndex = 3
Top = 2520
Width = 1095
End
Begin VB.ComboBox Combo1
Height = 1440
Index = 2
Left = 1320
Style = 1 'Simple Combo
TabIndex = 2
Top = 2520
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 1620
Index = 1
Left = 4440
Style = 1 'Simple Combo
TabIndex = 1
Top = 600
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 1620
Index = 0
Left = 1320
Style = 1 'Simple Combo
TabIndex = 0
Top = 600
Width = 1575
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Index = 1
Left = 5640
TabIndex = 12
Top = 3300
Width = 180
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "元"
Height = 180
Index = 0
Left = 5640
TabIndex = 11
Top = 2590
Width = 180
End
Begin VB.Shape Shape1
BorderColor = &H00C0FFFF&
BorderWidth = 5
Height = 4695
Left = 0
Top = 0
Width = 6495
End
Begin VB.Label qd
BackStyle = 0 'Transparent
Caption = " 确定"
Height = 495
Left = 4080
MouseIcon = "set.frx":0000
MousePointer = 99 'Custom
TabIndex = 5
Top = 4200
Width = 1455
End
Begin VB.Image Image2
Height = 195
Index = 0
Left = 4320
MouseIcon = "set.frx":030A
MousePointer = 99 'Custom
Picture = "set.frx":0614
Top = 4200
Width = 195
End
Begin VB.Image Image1
Height = 450
Index = 0
Left = 4080
MouseIcon = "set.frx":068F
MousePointer = 99 'Custom
Picture = "set.frx":0999
Stretch = -1 'True
Top = 4080
Width = 1395
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "影片出租价格："
Height = 180
Index = 4
Left = 3120
TabIndex = 10
Top = 3240
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "影片购买价格："
Height = 180
Index = 3
Left = 3120
TabIndex = 9
Top = 2520
Width = 1260
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "影片语言："
Height = 180
Index = 2
Left = 360
TabIndex = 8
Top = 2640
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "影片格式："
Height = 180
Index = 1
Left = 3240
TabIndex = 7
Top = 720
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "影片类型："
Height = 180
Index = 0
Left = 360
TabIndex = 6
Top = 720
Width = 900
End
Begin VB.Menu dele
Caption = "wd"
Visible = 0 'False
Begin VB.Menu del
Caption = "删除数据"
End
End
End
Attribute VB_Name = "setff"
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(Index As Integer)
Select Case Index
Case Is = 0
i = 0
Me.PopupMenu dele
Case Is = 1
i = 1
Me.PopupMenu dele
Case Is = 2
i = 2
Me.PopupMenu dele
End Select
End Sub
Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case Index
Case Is = 0
Me.Combo1(0).AddItem Me.Combo1(0).Text
Me.Combo1(0).Text = ""
Case Is = 1
Me.Combo1(1).AddItem Me.Combo1(1).Text
Me.Combo1(1).Text = ""
Case Is = 2
Me.Combo1(2).AddItem Me.Combo1(2).Text
Me.Combo1(2).Text = ""
End Select
End If
End Sub
Private Sub del_Click()
Me.Combo1(i).RemoveItem Me.Combo1(i).ListIndex
End Sub
Private Sub Form_Load()
On Error Resume Next
Call yn.opendb("select * from 影片类型")
Do While yn.myrec.EOF = False
Me.Combo1(0).AddItem yn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片格式")
Do While yn.myrec.EOF = False
Me.Combo1(1).AddItem yn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 影片语言")
Do While yn.myrec.EOF = False
Me.Combo1(2).AddItem yn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Call yn.closedb
Call yn.opendb("select * from 自定义")
Me.Text1(0).Text = yn.myrec.Fields("购买价格")
Me.Text1(1).Text = yn.myrec.Fields("出租价格")
Call yn.closedb
End Sub
Private Sub qd_Click()
On Error Resume Next
Call yn.opendb("select * from 自定义")
yn.myrec.Fields("购买价格") = CLng(Me.Text1(0).Text)
yn.myrec.Fields("出租价格") = CLng(Me.Text1(1).Text)
Call yn.myrec.Update
Call yn.closedb
Call yn.opendb("select * from 影片类型")
yn.mycon.Execute "delete * from 影片类型"
For i = 0 To Me.Combo1(0).ListCount - 1
Call yn.myrec.AddNew
yn.myrec.Fields("影片类型") = Me.Combo1(0).list(i)
Call yn.myrec.Update
Next
Call yn.closedb
Call yn.opendb("select * from 影片格式")
yn.mycon.Execute "delete * from 影片格式"
For i = 0 To Me.Combo1(1).ListCount - 1
Call yn.myrec.AddNew
yn.myrec.Fields("影片格式") = Me.Combo1(1).list(i)
Call yn.myrec.Update
Next
Call yn.closedb
Call yn.opendb("select * from 影片语言")
yn.mycon.Execute "delete * from 影片语言"
For i = 0 To Me.Combo1(2).ListCount - 1
Call yn.myrec.AddNew
yn.myrec.Fields("影片语言") = Me.Combo1(2).list(i)
Call yn.myrec.Update
Next
Call yn.closedb
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -