📄 xinjianxianlu.frm
字号:
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3720
TabIndex = 17
Top = 3000
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "成人报价"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 15
Top = 3000
Width = 975
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "线路类型"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 7560
TabIndex = 13
Top = 2160
Width = 1095
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "线路等级"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 3720
TabIndex = 12
Top = 2160
Width = 975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "食宿标准"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 10
Top = 2280
Width = 975
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "行程天数"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 7440
TabIndex = 8
Top = 1320
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "往返交通"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3720
TabIndex = 7
Top = 1320
Width = 1095
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "线路名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 5
Top = 1440
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "目的地"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 7440
TabIndex = 3
Top = 600
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "始发地"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 3840
TabIndex = 1
Top = 600
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "线路区域"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 360
TabIndex = 0
Top = 600
Width = 975
End
End
Attribute VB_Name = "xinjianxianlu1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rs As New ADODB.Connection, cn As New ADODB.Connection
Private Sub Form_Load()
cn.ConnectionString = "Driver={SQL Server};SERVER=DDK;DATABASE=lvxingshe"
cn.Open
'MsgBox "连接成功"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Private Sub Command1_Click()
If Combo2.Text = "" Then
MsgBox "请选择线路区域！", vbOKOnly, "提示"
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "请输入始发地！", vbOKOnly, "提示"
Text2.SetFocus
Exit Sub
ElseIf Text3.Text = "" Then
MsgBox "请输入目的地！", vbOKOnly, "提示"
Text3.SetFocus
Exit Sub
ElseIf Text4.Text = "" Then
MsgBox "请输入线路名称！", vbOKOnly, "提示"
Text4.SetFocus
Exit Sub
ElseIf Combo4.Text = "" Then
MsgBox "请选择往返交通！", vbOKOnly, "提示"
Combo4.SetFocus
Exit Sub
ElseIf Text6.Text = "" Then
MsgBox "请输入行程天数！", vbOKOnly, "提示"
Text6.SetFocus
Exit Sub
ElseIf Combo2.Text = "" Then
MsgBox "请选择线路等级！", vbOKOnly, "提示"
Exit Sub
ElseIf Text9.Text = "" Then
MsgBox "请输入成人报价！", vbOKOnly, "提示"
Text1.SetFocus
Exit Sub
ElseIf Text10.Text = "" Then
MsgBox "请输入儿童报价！", vbOKOnly, "提示"
Text10.SetFocus
Exit Sub
Else
Dim r As New ADODB.Recordset
r.Open "select * from lvyouxianlu where xianlumingcheng='" & Text4.Text & "'", cn, adOpenStatic
If r.EOF Then
cn.Execute "insert into lvyouxianlu(xianluquyu,shifadi,mudidi,xianlumingcheng,wangfanjiaotong,xingchengtianshu,shisubiaozhun,xianludengji,xianluleixing,chengrenbaojia,ertongbaojia,richenganpai,qianzhenggongsi,fujiashuoming) values('" & Combo2.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Combo4.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Combo3.Text & "','" & Combo1.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text12.Text & "','" & Text11.Text & "','" & Text13.Text & "')"
MsgBox "操作成功！", vbOKOnly, "提示"
Else
MsgBox "已经存在该线路！", vbOKOnly, "提示"
End If
End If
' r.Close
' Exit Sub
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Label15_Click()
qianzhenggongsi1.Show
End Sub
Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -