frmchangetradecategory.frm

这是一个用VB编写的用于外贸行业的供应商信息管理系统。

VERSION 5.00
Begin VB.Form frmChangeTradeCategory 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ChangeTradeCategory"
   ClientHeight    =   5160
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8400
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5160
   ScaleWidth      =   8400
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton btnBack 
      Caption         =   "Back"
      Height          =   375
      Left            =   4800
      TabIndex        =   10
      Top             =   4680
      Width           =   1215
   End
   Begin VB.OptionButton Option2 
      Caption         =   "&category"
      Height          =   375
      Left            =   3480
      TabIndex        =   7
      Top             =   3000
      Width           =   1095
   End
   Begin VB.OptionButton Option1 
      Caption         =   "&trade"
      Height          =   255
      Left            =   3480
      TabIndex        =   6
      Top             =   2400
      Value           =   -1  'True
      Width           =   855
   End
   Begin VB.CommandButton btnChange 
      Caption         =   "Change"
      Default         =   -1  'True
      Height          =   375
      Left            =   2280
      TabIndex        =   8
      Top             =   4680
      Width           =   1095
   End
   Begin VB.ListBox lstTrade 
      Height          =   3300
      Left            =   480
      TabIndex        =   2
      Top             =   1320
      Width           =   2895
   End
   Begin VB.TextBox txtCategoryName 
      Height          =   375
      Left            =   5640
      TabIndex        =   4
      Top             =   840
      Width           =   2175
   End
   Begin VB.ListBox lstCategory 
      Height          =   3300
      Left            =   4800
      TabIndex        =   5
      Top             =   1320
      Width           =   3015
   End
   Begin VB.TextBox txtTradeName 
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   840
      Width           =   2055
   End
   Begin VB.Label Label5 
      Caption         =   "Change Trade or Category"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   9
      Top             =   240
      Width           =   4455
   End
   Begin VB.Label Label2 
      Caption         =   "category_name:"
      Height          =   375
      Left            =   4320
      TabIndex        =   3
      Top             =   960
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "trade_name:"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   960
      Width           =   1095
   End
End
Attribute VB_Name = "frmChangeTradeCategory"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public cn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Dim curPoint As Integer
Dim curPoint1 As Integer
Dim tradeName As String
Dim categoryName As String

Private Sub showTradeData()
    Dim i As Integer
    rs1.Open "trade", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    For i = 1 To rs1.RecordCount
        lstTrade.AddItem (rs1.Fields("trade_name"))
        rs1.MoveNext
    Next i
    rs1.Close
End Sub

Private Sub showCategoryData()
    tradeName = lstTrade.List(curPoint)
    txtTradeName.Text = tradeName
    'clear listbox
    lstCategory.Clear
    'add fit's  items
    rs2.Open "select * from category where trade_name='" & tradeName & "'", cn, adOpenDynamic
    While Not rs2.EOF
        lstCategory.AddItem (rs2.Fields("category_name"))
        rs2.MoveNext
    Wend
    rs2.Close
    txtCategoryName.Text = lstCategory.List(curPoint1)
    categoryName = txtCategoryName.Text
End Sub

Private Sub btnBack_Click()
    Unload Me
    frmAddTradeCategory.Show 1
End Sub

Private Sub btnChange_Click()
    Dim i As Integer
    rs1.Open "trade", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    rs2.Open "category", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    If Option1.Value = True Then
        If txtTradeName.Text > "" Then
            If tradeName = "" Then
                MsgBox "you should select a trade, change error!", vbExclamation, "error"
                rs1.Close
                rs2.Close
                Exit Sub
            End If
            rs1.Find "trade_name='" & tradeName & "'"
            If Not rs1.EOF Then
                rs1.Fields("trade_name") = txtTradeName.Text
                rs1.Update
                lstTrade.List(curPoint) = txtTradeName.Text
                txtTradeName.SetFocus
            End If
        End If
    Else
        If txtCategoryName.Text > "" Then
            If categoryName = "" Then
                MsgBox "you should select a category, change error!", vbExclamation, "error"
                rs1.Close
                rs2.Close
                Exit Sub
            End If
            rs2.Find "category_name='" & categoryName & "'"
            While Not rs2.EOF
                If rs2.Fields("trade_name") = txtTradeName.Text Then
                    rs2.Fields("category_name") = txtCategoryName.Text
                    rs2.Update
                    lstCategory.List(curPoint1) = txtCategoryName.Text
                    txtCategoryName.SetFocus
                End If
                rs2.MoveNext
                rs2.Find "category_name='" & categoryName & "'"
            Wend
        End If
    End If
    rs1.Close
    rs2.Close

End Sub

Private Sub Form_Activate()
    curPoint = 0
    curPoint1 = 0
    Set cn = New ADODB.Connection
    cn.Open strCn
    Set rs1 = New ADODB.Recordset
    Set rs2 = New ADODB.Recordset
    showTradeData
    showCategoryData
    canTrade
End Sub

Private Sub canCategory()
    txtTradeName.Enabled = False
    txtCategoryName.Enabled = True
    txtCategoryName.SetFocus
End Sub

Private Sub canTrade()
    txtTradeName.Enabled = True
    txtCategoryName.Enabled = False
    txtTradeName.SetFocus
End Sub

Private Sub Form_Unload(Cancel As Integer)
    cn.Close
End Sub

Private Sub lstCategory_Click()
    curPoint1 = lstCategory.ListIndex
    txtCategoryName.Text = lstCategory.List(curPoint1)
    categoryName = txtCategoryName.Text
End Sub

Private Sub lstTrade_Click()
    curPoint = lstTrade.ListIndex
    showCategoryData
End Sub

Private Sub Option1_Click()
    If Option1.Value = True Then
        canTrade
    ElseIf Option2.Value = True Then
        canCategory
    End If
End Sub

Private Sub Option2_Click()
    If Option1.Value = True Then
        canTrade
    ElseIf Option2.Value = True Then
        canCategory
    End If
End Sub

Private Sub txtCategoryName_GotFocus()
    txtCategoryName.SelStart = 0
    txtCategoryName.SelLength = Len(txtCategoryName.Text)
End Sub

Private Sub txtTradeName_GotFocus()
    txtTradeName.SelStart = 0
    txtTradeName.SelLength = Len(txtTradeName.Text)
End Sub

Private Sub txtTradename_LostFocus()
    If Len(txtTradeName.Text) > 50 Then
        MsgBox "the length of tradename need less 50.", vbCritical, "over length error"
    End If
End Sub

Private Sub txtCategoryName_LostFocus()
    If Len(txtCategoryName.Text) > 50 Then
        MsgBox "the length of categoryname need less 50.", vbCritical, "over length error"
    End If
End Sub