frmsalesroom.frm

网上销售源代码

            End If
            
        Case "last"
            '末页
            frmMQSalesroom.mintCurPage = -1
            gFillFg frmMQSalesroom.fg, frmMQSalesroom.mrstDriveRoom, frmMQSalesroom.tlbOperate.Buttons, frmMQSalesroom.mintCurPage, frmMQSalesroom.mintPageSize
            P_SID = frmMQSalesroom.fg.TextMatrix(frmMQSalesroom.fg.Rows - 1, 1)
            FillText
            frmMQSalesroom.fg.TextMatrix(0, 0) = "序号"
            frmMQSalesroom.ShowID
               
            If frmMQSalesroom.mintCurPage = frmMQSalesroom.mrstDriveRoom.PageCount Then
                If frmMQSalesroom.fg.Row = frmMQSalesroom.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 o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtDepartmentID.Text) = "" Then
    MsgBox "门市编号不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtDepartmentName.Text) = "" Then
    MsgBox "门市简称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtDepartmentAllName.Text) = "" Then
    MsgBox "门市全称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboTerritory.Text) = "" Then
    MsgBox "请选择地区", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboProvince.Text) = "" Then
    MsgBox "请选择省份", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboCity.Text) = "" Then
    MsgBox "请选择城市", vbInformation, "提示"
    Exit Sub
End If

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

If Trim(txtAffPass.Text) = "" Then
    MsgBox "确认密码不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtPass.Text) <> Trim(txtAffPass.Text) Then
    MsgBox "密码不一致", vbInformation, "提示"
    Exit Sub
End If

'查询门市编号是否存在
sql = "Select DepartmentID from Department Where DepartmentID='" & Trim(txtDepartmentID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "门市编号已存在，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

'查询门市简称是否存在
sql = "Select DepartmentName from Department Where DepartmentName='" & Trim(txtDepartmentName.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "不能添加相同的门市简称", vbInformation, "提示"
    Exit Sub
End If

'查询门市全称是否存在
sql = "Select DepartmentAllName from Department Where DepartmentAllName='" & Trim(txtDepartmentAllName.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "不能添加相同的门市全称", vbInformation, "提示"
    Exit Sub
End If

If ChkOpen.Value = 1 Then
    o = 1
Else
    o = 0
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
    
    '查询城市是否存在，如果不存在，则添加到数据
    sql = "Select * from CityInfo Where " & _
          "Province='" & Trim(cboProvince.Text) & "' and City='" & Trim(cboCity.Text) & "'"
    Set Ars = SQLDB.Execute(sql)
    If Ars.EOF Then
        Asql = "Insert into CityInfo(Province,City) Values(" & _
        "'" & Trim(cboProvince.Text) & "','" & Trim(cboCity.Text) & "')"
        SQLDB.Execute Asql
    End If

    '添加主表信息
    Asql = "Insert into Department(DepartmentID,DepartmentName,DepartmentAllName,Linkman,Principal," & _
           "Phone,Fax,AreaStorID,Province,City,Address,Class,Post,ProtocolID,IdiographDate,EndDate," & _
           "Householder,Accounts,Aftertax,Charter,Email,Reticul,DepartmentType,Superior,Pass,State,Remark) " & _
           "Values('" & Trim(txtDepartmentID.Text) & "','" & Trim(txtDepartmentName.Text) & "'," & _
           "'" & Trim(txtDepartmentAllName.Text) & "','" & Trim(txtLinkman.Text) & "'," & _
           "'" & Trim(txtPrincipal.Text) & "','" & Trim(txtPhone.Text) & "','" & Trim(txtFax.Text) & "','" & Trim(cboTerritory.Text) & "'," & _
           "'" & Trim(cboProvince.Text) & "','" & Trim(cboCity.Text) & "','" & Trim(txtAddress.Text) & "','" & Trim(cboClass.Text) & "'," & _
           "'" & Trim(txtPost.Text) & "','" & Trim(txtProtocolID.Text) & "','" & Trim(dtpIdiographDate.Value) & "','" & Trim(dtpEndDate.Value) & "'," & _
           "'" & Trim(txtHouseholder.Text) & "','" & Trim(txtAccounts.Text) & "','" & Trim(txtAftertax.Text) & "','" & Trim(txtCharter.Text) & "'," & _
           "'" & Trim(txtEmail.Text) & "','" & Trim(txtReticul.Text) & "','" & Trim(cboDepartmentType.Text) & "','" & Trim(cboSuperior.Text) & "'," & _
           "'" & Trim(txtPass.Text) & "'," & o & ",'" & Trim(txtRemark.Text) & "')"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQSalesroom.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 o As Integer
Dim Ars As New ADODB.Recordset

If Trim(txtDepartmentID.Text) = "" Then
    MsgBox "门市编号不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtDepartmentName.Text) = "" Then
    MsgBox "门市简称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtDepartmentAllName.Text) = "" Then
    MsgBox "门市全称不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboTerritory.Text) = "" Then
    MsgBox "请选择地区", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboProvince.Text) = "" Then
    MsgBox "请选择省份", vbInformation, "提示"
    Exit Sub
End If

If Trim(cboCity.Text) = "" Then
    MsgBox "请选择城市", vbInformation, "提示"
    Exit Sub
End If

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

If Trim(txtAffPass.Text) = "" Then
    MsgBox "确认密码不能为空", vbInformation, "提示"
    Exit Sub
End If

If Trim(txtPass.Text) <> Trim(txtAffPass.Text) Then
    MsgBox "密码不一致", vbInformation, "提示"
    Exit Sub
End If

'查询门市编号是否存在
sql = "Select DepartmentID from Department Where DepartmentID='" & Trim(txtDepartmentID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Ars.EOF Then
    MsgBox "当前门市信息不存在，不能修改", vbInformation, "提示"
    Exit Sub
End If

'查询门市简称是否存在
sql = "Select DepartmentName from Department Where DepartmentName='" & Trim(txtDepartmentName.Text) & "' and DepartmentID<>'" & Trim(txtDepartmentID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "系统中已存在门市简称，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

'查询门市全称是否存在
sql = "Select DepartmentAllName from Department Where DepartmentAllName='" & Trim(txtDepartmentAllName.Text) & "' and DepartmentID<>'" & Trim(txtDepartmentID.Text) & "'"
Set Ars = SQLDB.Execute(sql)
If Not Ars.EOF Then
    MsgBox "系统中已存在门市名称，不能重复添加", vbInformation, "提示"
    Exit Sub
End If

If ChkOpen.Value = 1 Then
    o = 1
Else
    o = 0
End If

On Error GoTo ErrShow
SQLDB.BeginTrans
   
    '查询城市是否存在，如果不存在，则添加到数据
    sql = "Select * from CityInfo Where " & _
          "Province='" & Trim(cboProvince.Text) & "' and City='" & Trim(cboCity.Text) & "'"
    Set Ars = SQLDB.Execute(sql)
    If Ars.EOF Then
        Asql = "Insert into CityInfo(Province,City) Values(" & _
        "'" & Trim(cboProvince.Text) & "','" & Trim(cboCity.Text) & "')"
        SQLDB.Execute Asql
    End If
 
    '添加主表信息
    Asql = "Update Department Set DepartmentName='" & Trim(txtDepartmentAllName.Text) & "', " & _
           "DepartmentAllName='" & Trim(txtDepartmentName.Text) & "', " & _
           "Linkman='" & Trim(txtLinkman.Text) & "',Principal='" & Trim(txtPrincipal.Text) & "'," & _
           "Phone='" & Trim(txtPhone.Text) & "',Fax='" & Trim(txtFax.Text) & "'," & _
           "AreaStorID='" & Trim(cboTerritory.Text) & "',Province='" & Trim(cboProvince.Text) & "'," & _
           "City='" & Trim(cboCity.Text) & "',Address='" & Trim(txtAddress.Text) & "'," & _
           "Class='" & Trim(cboClass.Text) & "',Post='" & Trim(txtPost.Text) & "'," & _
           "ProtocolID='" & Trim(txtProtocolID.Text) & "',IdiographDate='" & Trim(dtpIdiographDate.Value) & "'," & _
           "EndDate='" & Trim(dtpEndDate.Value) & "'," & _
           "Householder='" & Trim(txtHouseholder.Text) & "',Accounts='" & Trim(txtAccounts.Text) & "'," & _
           "Aftertax='" & Trim(txtAftertax.Text) & "',Charter='" & Trim(txtCharter.Text) & "'," & _
           "Email='" & Trim(txtEmail.Text) & "',Reticul='" & Trim(txtReticul.Text) & "'," & _
           "DepartmentType='" & Trim(cboDepartmentType.Text) & "',Superior='" & Trim(cboSuperior.Text) & "'," & _
           "Pass='" & Trim(txtPass.Text) & "',State=" & o & ",Remark='" & Trim(txtRemark.Text) & "' Where " & _
           " DepartmentID='" & Trim(txtDepartmentID.Text) & "'"
    SQLDB.Execute Asql
SQLDB.CommitTrans
InitClear
frmMQSalesroom.QuerySalesRoom
MsgBox "修改成功", vbInformation, "提示"
Exit Sub
ErrShow:
    SQLDB.RollbackTrans
    MsgBox "修改门市信息出错" & err.Description, vbInformation, "提示"
End Sub

Private Sub InifDepartmentType()
Dim sql As String
Dim Ars As New ADODB.Recordset

    cboDepartmentType.AddItem "总部"
    cboDepartmentType.AddItem "区域"
    cboDepartmentType.AddItem "门市"
    cboDepartmentType.AddItem "专柜"
    cboDepartmentType.AddItem "加盟"
    cboDepartmentType.AddItem "批销"
    cboDepartmentType.ListIndex = 0
    
    sql = "Select Distinct AreaStorID from AreaStor "
    Set Ars = SQLDB.Execute(sql)
    Do While Not Ars.EOF
        cboSuperior.AddItem Ars("AreaStorID") & ""
        Ars.MoveNext
        cboSuperior.ListIndex = 0
    Loop
    
End Sub

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

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

'查询课信息
If Trim(cboTerritory.Text) <> "" Then
    sql = "Select Class from Class Where AreaStorID='" & Trim(cboTerritory.Text) & "'"
    Set Ars = SQLDB.Execute(sql)
    cboClass.Clear
    cboClass.AddItem ""
    Do While Not Ars.EOF
        cboClass.AddItem Ars("Class") & ""
    Ars.MoveNext
    cboClass.ListIndex = 0
    Loop
End If

'查询省份
sql = "Select distinct Province from CityInfo"
Set Ars = SQLDB.Execute(sql)
cboProvince.Clear
Do While Not Ars.EOF
    cboProvince.AddItem Ars("Province") & ""
Ars.MoveNext
cboProvince.ListIndex = 0
Loop

'查询城市信息
If Trim(cboProvince.Text) <> "" Then
    sql = "Select DistInct City from CityInfo Where " & _
          "Province='" & Trim(cboProvince.Text) & "' and City<>''"
    Set Ars = SQLDB.Execute(sql)
    cboCity.Clear
    Do While Not Ars.EOF
        cboCity.AddItem Ars("City")
    Ars.MoveNext
    cboCity.ListIndex = 0
    Loop
End If
End Sub

Private Sub InitClear()
'清空文本柜数据
    txtDepartmentID.Text = ""
    txtDepartmentName.Text = ""
    txtDepartmentAllName.Text = ""
    txtHouseholder.Text = ""
    txtAccounts.Text = ""
    txtAftertax.Text = ""
    txtCharter.Text = ""
    txtPost.Text = ""
    txtProtocolID.Text = ""
    txtLinkman.Text = ""
    txtPrincipal.Text = ""
    txtPhone.Text = ""
    txtFax.Text = ""
    txtEmail.Text = ""
    txtReticul.Text = ""
    txtAddress.Text = ""
    txtPass.Text = ""
    txtAffPass.Text = ""
    txtRemark.Text = ""
    ChkOpen.Value = 1
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,AreaStorID,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