📄 frmcgetoufang.frm
字号:
VERSION 5.00
Begin VB.Form frmcgetoufang
Caption = "神兵国际广告（北京）有限公司广告系统"
ClientHeight = 7200
ClientLeft = 60
ClientTop = 345
ClientWidth = 9585
LinkTopic = "Form1"
ScaleHeight = 7200
ScaleWidth = 9585
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox Text12
Height = 270
Left = 2280
TabIndex = 29
Top = 3480
Width = 1455
End
Begin VB.TextBox Text11
Height = 270
Left = 2280
TabIndex = 28
Top = 2760
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "状态（未播/已播）"
Height = 375
Left = 6120
TabIndex = 13
Top = 5160
Width = 1935
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmcgetoufang.frx":0000
Left = 2280
List = "frmcgetoufang.frx":0002
Sorted = -1 'True
TabIndex = 12
Top = 960
Width = 1455
End
Begin VB.TextBox Text1
Height = 270
Left = 6600
TabIndex = 11
Top = 1080
Width = 1335
End
Begin VB.TextBox Text2
Height = 270
Left = 2280
TabIndex = 10
Top = 1560
Width = 1335
End
Begin VB.TextBox Text3
Height = 270
Left = 6600
TabIndex = 9
Top = 1680
Width = 1215
End
Begin VB.TextBox Text4
Height = 270
Left = 2400
TabIndex = 8
Top = 2160
Width = 1335
End
Begin VB.TextBox Text5
Height = 270
Left = 6600
TabIndex = 7
Top = 2280
Width = 1215
End
Begin VB.TextBox Text6
Height = 270
Left = 6600
TabIndex = 6
Top = 2880
Width = 855
End
Begin VB.TextBox Text7
Height = 270
Left = 6480
TabIndex = 5
Top = 3600
Width = 1455
End
Begin VB.TextBox Text8
Height = 270
Left = 2280
TabIndex = 4
Top = 4200
Width = 1455
End
Begin VB.TextBox Text9
Height = 270
Left = 6840
TabIndex = 3
Top = 4440
Width = 1455
End
Begin VB.TextBox Text10
Height = 735
Left = 2400
TabIndex = 2
Top = 5040
Width = 3135
End
Begin VB.CommandButton Command1
Caption = "修 改"
Height = 375
Left = 2280
TabIndex = 1
Top = 6240
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "取 消"
Height = 375
Left = 5520
TabIndex = 0
Top = 6240
Width = 1455
End
Begin VB.Label Label1
Caption = "合同草稿号:"
Height = 255
Left = 1080
TabIndex = 27
Top = 960
Width = 1455
End
Begin VB.Label Label2
Caption = "相关协议号："
Height = 375
Left = 5400
TabIndex = 26
Top = 1080
Width = 1575
End
Begin VB.Label Label3
Caption = " 频 道： "
Height = 255
Left = 1320
TabIndex = 25
Top = 1560
Width = 735
End
Begin VB.Label Label4
Caption = "开始日期："
Height = 255
Left = 5400
TabIndex = 24
Top = 1680
Width = 1455
End
Begin VB.Label Label5
Caption = "签约日期："
Height = 375
Left = 1320
TabIndex = 23
Top = 2160
Width = 1455
End
Begin VB.Label Label6
Caption = "结束日期："
Height = 255
Left = 5400
TabIndex = 22
Top = 2280
Width = 1455
End
Begin VB.Label Label7
Caption = "广告品牌："
Height = 375
Left = 1320
TabIndex = 21
Top = 2760
Width = 1455
End
Begin VB.Label Label8
Caption = "广告版本类别："
Height = 375
Left = 5400
TabIndex = 20
Top = 2880
Width = 1575
End
Begin VB.Label Label9
Caption = "广告内容："
Height = 375
Left = 1200
TabIndex = 19
Top = 3480
Width = 1695
End
Begin VB.Label Label10
Caption = "时段名称："
Height = 375
Left = 5400
TabIndex = 18
Top = 3600
Width = 1455
End
Begin VB.Label Label11
Caption = "时段说明："
Height = 255
Left = 1200
TabIndex = 17
Top = 4200
Width = 1575
End
Begin VB.Label Label12
Caption = "播放要求（广告排位要求）："
Height = 375
Left = 4440
TabIndex = 16
Top = 4440
Width = 2655
End
Begin VB.Label Label13
Caption = "备注："
Height = 375
Left = 1320
TabIndex = 15
Top = 5040
Width = 1455
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = " 广 告 投 放 信 息 修 改 "
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 0
TabIndex = 14
Top = 0
Width = 9615
End
End
Attribute VB_Name = "frmcgetoufang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
Command1.Enabled = True
Dim sql As String
Dim str As String
Dim con As ADODB.Connection
Set con = New Connection
str = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\database.mdb"
con.Open str
Dim rs As ADODB.Recordset
Set rs = New Recordset
sql = "select * from hetong where hetong_no='" & Combo1.Text & "'"
rs.Open sql, con, 1, 1
If rs.EOF Then
msg = MsgBox("没有相关的厂商信息，请先输入厂商信息！", 16, "错误")
Unload Me
frmchangshang.Show
Exit Sub
End If
Text1.Text = rs(1).Value
Text2.Text = rs(2).Value
Text3.Text = rs(3).Value
Text4.Text = rs(4).Value
Text5.Text = rs(5).Value
Set rs = New Recordset
sql = "select * from toufang where hetong_no='" & Combo1.Text & "'"
rs.Open sql, con, 1, 1
If Not rs.EOF Then
Text11.Text = rs!logo
Text12.Text = rs!content
Text6.Text = rs!bete
Text7.Text = rs!playtimename
Text8.Text = rs!playtimeinfo
Text9.Text = rs!playconntent
If IsNull(rs!other) = False Then Text10.Text = rs!other
If rs!ishaveplay = True Then
Check1.Value = 1
Else
Check1.Value = 0
End If
Else
'msg = MsgBox("怎么会？")
End If
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
msg = MsgBox("这是从合同信息中导入的，如需修改请先修改相关合同信息", 16, "错误")
End Sub
Private Sub Command1_Click()
Dim sql As String
Dim str As String
Dim con As ADODB.Connection
Set con = New Connection
str = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\database.mdb"
con.Open str
Dim rs As ADODB.Recordset
Set rs = New Recordset
sql = "select * from toufang where hetong_no='" & Combo1.Text & "'"
rs.Open sql, con, 1, 2
If rs.EOF Then
msg = MsgBox("没有相关的厂商信息，请先输入厂商信息！", 16, "错误")
Unload Me
frmchangshang.Show
Exit Sub
End If
rs!bete = Text6.Text
rs!playtimename = Text7.Text
rs!playtimeinfo = Text8.Text
rs!playconntent = Text9.Text
rs!other = Text10.Text
rs!ishaveplay = Check1.Value
rs.Update
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
msg = MsgBox("修改成功拉！", 32, "信息")
End Sub
Private Sub Command2_Click()
Unload Me
frmmain.Show
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Command1.Enabled = False
Dim sql As String
Dim str As String
Dim con As ADODB.Connection
Set con = New Connection
str = "provider=microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\database.mdb"
con.Open str
Dim rs As ADODB.Recordset
Set rs = New Recordset
sql = "select distinct hetong_no from hetong"
rs.Open sql, con, 1, 1
If Not rs.EOF Then
Combo1.Text = rs!hetong_no
Else
Me.Hide
frmmain.Show
Exit Sub
End If
Do While Not rs.EOF
Combo1.AddItem (rs!hetong_no)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
KeyAscii = 0
msg = MsgBox("这是从厂商信息中导入的，如需修改请先修改相关厂商信息", 16, "错误")
End Sub
Private Sub Text12_KeyPress(KeyAscii As Integer)
KeyAscii = 0
msg = MsgBox("这是从厂商信息中导入的，如需修改请先修改相关厂商信息", 16, "错误")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -