xinjiantuandui.frm

本系统以VB为开发工具

      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   3480
      Width           =   1455
   End
   Begin VB.Label Label8 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "导游公司"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   2640
      Width           =   975
   End
   Begin VB.Label Label7 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "导游等级"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   5040
      TabIndex        =   7
      Top             =   3360
      Width           =   1095
   End
   Begin VB.Label Label6 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "团队等级"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   5040
      TabIndex        =   6
      Top             =   2520
      Width           =   975
   End
   Begin VB.Label Label5 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "团队编号"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1800
      Width           =   1095
   End
   Begin VB.Label Label4 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "回团时间"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4920
      TabIndex        =   3
      Top             =   1680
      Width           =   1095
   End
   Begin VB.Label Label3 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "出团时间"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4920
      TabIndex        =   1
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label1 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "线路名称"
      BeginProperty Font 
         Name            =   "隶书"
         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             =   840
      Width           =   1095
   End
End
Attribute VB_Name = "xinjiantuandui1"
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 "连接成功"
Dim s As New ADODB.Recordset
  Dim i As Integer
  i = 0
  s.Open "select xianlumingcheng from lvyouxianlu", cn, adOpenStatic
  Do Until s.EOF
    Combo2.AddItem s("xianlumingcheng").Value, i
    s.MoveNext
    i = i + 1
 Loop
 DTPicker1.Value = Format(Now(), "yyyy-mm-dd")
 DTPicker2.Value = Format(Now(), "yyyy-mm-dd")
End Sub
Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 And KeyAscii <> 8 Or KeyAscii > 57 Then KeyAscii = 0
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, "提示"
   ElseIf Text3.Text = "" Then
        MsgBox "请输入团队编号！", vbOKOnly, "提示"
        Text3.SetFocus
        Exit Sub
   ElseIf Text8.Text = "" Then
        MsgBox "请输入业务员姓名！", vbOKOnly, "提示"
        Text8.SetFocus
        Exit Sub
 ElseIf Combo1.Text = "" Then
        MsgBox "请选择团队等级！", vbOKOnly, "提示"
        Combo1.SetFocus
        Exit Sub
   Else
    Dim r As New ADODB.Recordset
    Dim str As New ADODB.Recordset
    
     r.Open "select tuanduibianhao from tuanduibiao where tuanduibianhao='" & Text3.Text & "'", cn, adOpenDynamic
     If r.EOF Then
       cn.Execute "insert into tuanduibiao(tuanduibianhao,xianlumingcheng,chutuanshijian,huituanshijian,daoyougongsi,tuanduidengji,daoyoudengji,zuidabaomingshu,jiedailvxingshe,yewuyuan,beizhushuoming) values('" & Text3.Text & "','" & Combo2.Text & "','" & DTPicker1.Value & "','" & DTPicker2.Value & "','" & Text4.Text & "','" & Combo1.Text & "','" & Combo3.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "')"
       MsgBox "操作成功！", vbOKOnly, "提示"
       Combo1.Text = ""
       Combo2.Text = ""
       Combo3.Text = ""
       Text3.Text = ""
       Text4.Text = ""
       Text6.Text = ""
       Text7.Text = ""
       Text8.Text = ""
       Text9.Text = ""
     Else
       MsgBox "已经存在此编号，请查正后再新建团队！", vbOKOnly, 警告
    End If
  End If
End Sub


Private Sub Command2_Click()
Unload Me
mainfrm.Show
End Sub

Private Sub Label13_Click()
daoyougongsi1.Show
End Sub

Private Sub Label14_Click()
hezuolvxingshe1.Show
End Sub

Private Sub Label15_Click()
xianluchaxun1.Show
End Sub