frmclass.frm

网上销售源代码

    '初使化下拉柜
    Initcbo
    
    If P_SID <> "" Then
        sql = "select AreaStorID,Class,Linkman," & _
              "Phone,Remark from Class Where AreaStorid='" & frmMQClass.fg.TextMatrix(frmMQClass.fg.Row, 1) & "' and Class='" & frmMQClass.fg.TextMatrix(frmMQClass.fg.Row, 2) & "' "
        Set Ars = SQLDB.Execute(sql)
        If Not Ars.EOF Then
            txtClass.Enabled = False
            cboTerritory.ListIndex = getComIndex(cboTerritory, Ars("AreaStorID") & "")
            txtClass.Text = Ars("Class") & ""
            txtLinkman.Text = Ars("Linkman") & ""
            txtPhone.Text = Ars("Phone") & ""
            txtReMark.Text = Ars("ReMark") & ""
        End If
    End If
End Sub

Private Sub tlbOperate_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.Key
        Case "update"
            '保存数据
            If P_SID = "" Then
                Sava
            Else
                Update
            End If
            
        Case "cancel"
            '撤消
            InitClear
        
        Case "first"
            '首页
            frmMQClass.mintCurPage = 1
            gFillFg frmMQClass.fg, frmMQClass.mrstDriveRoom, frmMQClass.tlbOperate.Buttons, frmMQClass.mintCurPage, frmMQClass.mintPageSize
            P_SID = frmMQClass.fg.TextMatrix(1, 1)
            FillText
            frmMQClass.fg.TextMatrix(0, 0) = "序号"
            frmMQClass.ShowID
            
            If frmMQClass.mintCurPage = 1 Then
                If frmMQClass.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
            
        Case "prev"
            '前页
            If frmMQClass.fg.Row = frmMQClass.fg.Rows - 1 Then
                If frmMQClass.mintCurPage <= frmMQClass.mrstDriveRoom.PageCount Then
                    frmMQClass.mintCurPage = frmMQClass.mintCurPage - 1
                    gFillFg frmMQClass.fg, frmMQClass.mrstDriveRoom, frmMQClass.tlbOperate.Buttons, frmMQClass.mintCurPage, frmMQClass.mintPageSize
                    P_SID = frmMQClass.fg.TextMatrix(frmMQClass.fg.Rows - 1, 1)
                    FillText
                    frmMQClass.fg.TextMatrix(0, 0) = "序号"
                    frmMQClass.ShowID
                End If
            End If
            
            If frmMQClass.mintCurPage = 1 Then
                If frmMQClass.fg.Row = 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = False
                    Me.tlbOperate.Buttons("prev").Enabled = False
                    Me.tlbOperate.Buttons("next").Enabled = True
                    Me.tlbOperate.Buttons("last").Enabled = True
                End If
            End If
        
        Case "next"
            '下页
            If frmMQClass.fg.Row = frmMQClass.fg.Rows - 1 Then
                frmMQClass.mintCurPage = frmMQClass.mintCurPage + 1
                gFillFg frmMQClass.fg, frmMQClass.mrstDriveRoom, frmMQClass.tlbOperate.Buttons, frmMQClass.mintCurPage, frmMQClass.mintPageSize
                P_SID = frmMQClass.fg.TextMatrix(1, 1)
                FillText
                frmMQClass.fg.TextMatrix(0, 0) = "序号"
                frmMQClass.ShowID
            End If
            
            If frmMQClass.mintCurPage = frmMQClass.mrstDriveRoom.PageCount Then
                If frmMQClass.fg.Row = frmMQClass.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "last"
            '末页
            frmMQClass.mintCurPage = -1
            gFillFg frmMQClass.fg, frmMQClass.mrstDriveRoom, frmMQClass.tlbOperate.Buttons, frmMQClass.mintCurPage, frmMQClass.mintPageSize
            P_SID = frmMQClass.fg.TextMatrix(frmMQClass.fg.Rows - 1, 1)
            FillText
            frmMQClass.fg.TextMatrix(0, 0) = "序号"
            frmMQClass.ShowID
               
            If frmMQClass.mintCurPage = frmMQClass.mrstDriveRoom.PageCount Then
                If frmMQClass.fg.Row = frmMQClass.fg.Rows - 1 Then
                    Me.tlbOperate.Buttons("first").Enabled = True
                    Me.tlbOperate.Buttons("prev").Enabled = True
                    Me.tlbOperate.Buttons("next").Enabled = False
                    Me.tlbOperate.Buttons("last").Enabled = False
                End If
            End If
            
        Case "quit"
            Unload Me
     End Select
End Sub

Private Sub Sava()
'保存数据
Dim sql As String
Dim Asql As String
Dim Ars As New ADODB.Recordset

If Trim(cboTerritory.Text) = "" Then
    MsgBox "区域不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtClass.Text) = "" Then
    MsgBox "课不能为空", vbInformation, "提示"
    Exit Sub
End If

'查询区域是否存在
sql = "Select AreaStorID from AreaStor Where AreaStorID='" & Trim(cboTerritory.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Ars.EOF Then
    MsgBox "区办信息不存在，请选择区办信息", vbInformation, "提示"
    Exit Sub
End If

'查询课是否存在，如果存在，则不能添加
sql = "Select Class from Class Where AreaStorID='" & Trim(cboTerritory.Text) & "' and Class='" & Trim(txtClass.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "当前课信息已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans

    '添加主表信息
    Asql = "Insert into Class(AreaStorID,Class,Linkman,Phone,Remark) " & _
           "Values('" & Trim(cboTerritory.Text) & "','" & Trim(txtClass.Text) & "'," & _
           "'" & Trim(txtLinkman.Text) & "','" & Trim(txtPhone.Text) & "'," & _
           "'" & Trim(txtReMark.Text) & "')"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQClass.QuerySalesRoom
MsgBox "添加成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "添加门市信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub Update()
'修改门市信息
'保存数据
Dim sql As String
Dim Asql As String
Dim Ars As New ADODB.Recordset

If Trim(cboTerritory.Text) = "" Then
    MsgBox "区域不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtClass.Text) = "" Then
    MsgBox "课不能为空", vbInformation, "提示"
    Exit Sub
End If

'查询区域是否存在
sql = "Select AreaStorID from AreaStor Where AreaStorID='" & Trim(cboTerritory.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Ars.EOF Then
    MsgBox "区办信息不存在，请选择区办信息", vbInformation, "提示"
    Exit Sub
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
    '添加主表信息
    Asql = "Update Class Set Linkman='" & Trim(txtLinkman.Text) & "', " & _
           "Phone='" & Trim(txtPhone.Text) & "', " & _
           "Remark='" & Trim(txtReMark.Text) & "' Where " & _
           " AreaStorid='" & Trim(cboTerritory.Text) & "' and Class='" & Trim(txtClass.Text) & "'"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQClass.QuerySalesRoom
MsgBox "修改成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "修改门市信息出错" & Err.Description, vbInformation, "提示"
End Sub

Private Sub InifTerritory()
'查询区域信息
Dim sql As String
Dim Ars As New ADODB.Recordset

sql = "Select AreaStor from AreaStor"
Set Ars = SQLDB.Execute(sql)
cboTerritory.Clear
Do While Not Ars.EOF
    cboTerritory.AddItem Ars("AreaStor") & ""
Ars.MoveNext
    cboTerritory.ListIndex = 0
Loop
End Sub

Private Sub InitClear()
'清空文本柜数据
    txtClass.Text = ""
    txtLinkman.Text = ""
    txtPhone.Text = ""
    txtReMark.Text = ""
End Sub

Private Sub FillText()
Dim sql As String
Dim Ars As New ADODB.Recordset
If P_SID <> "" Then
    sql = "select DepartmentID,DepartmentName,DepartmentAllName," & _
          "Superior,DepartmentType,Householder,Accounts,Aftertax,Charter," & _
          "ProtocolID,IdiographDate,EndDate,Territory,Class,Province,City,Linkman," & _
          "Principal,Phone,Fax,Email,Reticul,Address,Post,Pass," & _
          "State,Remark " & _
          "from Department Where DepartmentID='" & P_SID & "'"
    Set Ars = SQLDB.Execute(sql)
    If Not Ars.EOF Then
        txtDepartmentID.Enabled = False
        txtDepartmentID.Text = Ars("DepartmentID") & ""
        txtDepartmentName.Text = Ars("DepartmentName") & ""
        txtDepartmentAllName.Text = Ars("DepartmentAllName") & ""
        txtLinkman.Text = Ars("Linkman") & ""
        txtPrincipal.Text = Ars("Principal") & ""
        txtPhone.Text = Ars("Phone") & ""
        txtFax.Text = Ars("Fax") & ""
        cboTerritory.ListIndex = getComIndex(cboTerritory, Ars("Territory") & "")
        cboProvince.ListIndex = getComIndex(cboProvince, Ars("Province") & "")
        cboCity.ListIndex = getComIndex(cboCity, Ars("City") & "")
        txtAddress.Text = Ars("Address") & ""
        cboClass.ListIndex = getComIndex(cboClass, Ars("Class") & "")
        txtPost.Text = Ars("Post") & ""
        txtProtocolID.Text = Ars("ProtocolID") & ""
        dtpIdiographDate.Value = Ars("IdiographDate") & ""
        dtpEndDate.Value = Ars("EndDate") & ""
        txtHouseholder.Text = Ars("Householder") & ""
        txtAccounts.Text = Ars("Accounts") & ""
        txtAftertax.Text = Ars("Aftertax") & ""
        txtCharter.Text = Ars("Charter") & ""
        txtEmail.Text = Ars("Email") & ""
        txtReticul.Text = Ars("Reticul") & ""
        cboDepartmentType.ListIndex = getComIndex(cboDepartmentType, Ars("DepartmentType") & "")
        cboSuperior.ListIndex = getComIndex(cboSuperior, Ars("Superior") & "")
        txtPass.Text = Ars("Pass") & ""
        txtAffPass.Text = Ars("Pass") & ""
        If Ars("State") = 1 Then
            ChkOpen.Value = 1
        Else
            ChkOpen.Value = 0
        End If
        txtReMark.Text = Ars("ReMark") & ""
    End If
End If
End Sub