suppliertroukform.frm

即时通讯

      End
   End
End
Attribute VB_Name = "suppliertroukform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :联系列表用户操作界面
'*    功 能 描 述 :联系列表用户操作界面
'*    程序员姓名  : 石春晓
'*    最后修改人  : 石春晓
'*    最后修改时间:2005/09/23
'**************************************
Option Explicit
Public m_operatorType As Integer       ' 操作类型 0 - 新增 1 - 修改
Public m_supplierid  As String         ' 修改时其它窗体传递过来的参数
Public m_suppliertroukid  As String    ' 修改时其它窗体传递过来的参数
Private m_supplierDAO As supplierDAO   ' 数据库操作类
Private m_suppliertroukDAO As suppliertroukDAO
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Public suppliername_m_t As String           '供应商名称
Public f As String


Private Sub c_cancel_Click()
    Unload Me
End Sub

Private Sub c_save_Click()
    Call Check
    If m_operatorType = 1 Then
        If f = "0" Then
           Exit Sub
        Else
           Call Newsuppliertrouk
        End If
    ElseIf m_operatorType = 0 Then
        If f = "0" Then
           Exit Sub
        Else
           If DTPicker1.value = Date Then
               Call Modifysuppliertrouk
           Else
               MainForm.g_msgText = "已过填写日期，不能修改记录!"
               HMsgBox MainForm.g_msgText, 0, 1
               Exit Sub
           End If
        End If
    End If
    Unload Me
End Sub


Private Sub Combo2_Click()
    m_suppliertroukDAO.FindlxmdAll m_recordset
    While Not m_recordset.EOF
        If Combo2.text = m_recordset.Fields(2) Then
            Combo2.Tag = m_recordset.Fields(0)
        End If
        m_recordset.MoveNext
    Wend
    m_recordset.Close

End Sub


Private Sub Combo3_Click()
    m_suppliertroukDAO.FindlxfsAll m_recordset
    While Not m_recordset.EOF
        If Combo3.text = Trim(m_recordset.Fields(2)) Then
            Combo3.Tag = Trim(m_recordset.Fields(0))
        End If
        m_recordset.MoveNext
    Wend
    m_recordset.Close

End Sub

Private Sub Command2_Click()
    Dim filename1 As String            ' 用户选择的文件的路径及文件名字符串
    
    CommonDialog1.FileName = ""
    CommonDialog1.ShowOpen                      '显示打开文件对话框
    Text4.text = CommonDialog1.FileName          '获取所选择的文件名
End Sub

Private Sub Form_Load()
    Set m_supplierDAO = New supplierDAO
    Set m_recordset = New ADODB.Recordset
    Set m_suppliertroukDAO = New suppliertroukDAO
    Dim ret As Boolean

    Me.Height = 5430
    Me.Width = 7290
    SetToCenter Me
    
    Combo1.clear
    ret = m_supplierDAO.Findsupplierid(m_recordset, m_supplierid)  '判断是否有联系人，并获取联系人列表
    If ret Then
        With m_recordset
            While Not .EOF
                Combo1.AddItem Trim(.Fields(3))
                .MoveNext
            Wend
            .Close
        End With
    Else
        MainForm.g_msgText = "该供应商暂无联系人,请先设置联系人!"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
    
    Combo2.clear
    m_suppliertroukDAO.FindlxmdAll m_recordset
    While Not m_recordset.EOF
        Combo2.AddItem Trim(m_recordset.Fields(2))
        m_recordset.MoveNext
    Wend
    m_recordset.Close
    
    Combo3.clear
    m_suppliertroukDAO.FindlxfsAll m_recordset
    While Not m_recordset.EOF
        Combo3.AddItem Trim(m_recordset.Fields(2))
        m_recordset.MoveNext
    Wend
    m_recordset.Close
    
    If m_operatorType = 1 Then
        Me.caption = "联系列表_新增"
        clear
        Text5.text = MainForm.g_application.m_userName
    Else
        Me.caption = "联系列表_修改"
        
        FindByIdRefresh
    End If
    
End Sub
'**************************************
'*    功 能 描 述 :产品类别数据处理函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Newsuppliertrouk()
    '
    Dim ret As Boolean
    Dim d As String
    Call Check
    d = CDate(Trim(Text8.text))
    ret = m_supplierDAO.Newsuppliertrouk(m_recordset, Trim(m_supplierid), Trim(Combo1.text), _
                   Trim(Combo2.Tag), Trim(Combo3.Tag), Trim(Text2.text), Trim(Text3.text), Trim(Text4.text), _
                   Trim(Text5.text), Trim(d), Trim(Text6.text))
End Sub
'**************************************
'*    功 能 描 述 :修改产品类别处理函数
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Modifysuppliertrouk()
    '
    Dim ret As Boolean
    Dim d As String
    Call Check
    d = CDate(Trim(Text8.text))
    ret = m_supplierDAO.Modifysuppliertrouk(m_recordset, Trim(m_supplierid), Trim(Combo1.text), _
                                      Trim(Combo2.Tag), Trim(Combo3.Tag), Trim(Text2.text), Trim(Text3.text), Trim(Text4.text), _
                                      Trim(Text5.text), Trim(d), Trim(Text6.text), m_suppliertroukid)
End Sub
'**************************************
'*    功 能 描 述 :检验数据的合法性
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub Check()
    f = "1"
    If Trim(Combo1.text) = "" Then
        MainForm.g_msgText = "联系人不能为空!"
        HMsgBox MainForm.g_msgText, 0, 1
        Combo1.SetFocus
        f = "0"
        Exit Sub
    End If
    If Trim(Combo2.text) = "" Then
        MainForm.g_msgText = "联系目的不能为空!"
        HMsgBox MainForm.g_msgText, 0, 1
        Combo2.SetFocus
        f = "0"
        Exit Sub
    End If
    If Trim(Combo3.text) = "" Then
        MainForm.g_msgText = "联系方式不能为空!"
        HMsgBox MainForm.g_msgText, 0, 1
        Combo3.SetFocus
        f = "0"
        Exit Sub
    End If
      
End Sub
'**************************************
'*    功 能 描 述 :根据联系ID找到联系记录并显示在界面上
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub FindByIdRefresh()
    Dim ret As Boolean
    
    ret = m_supplierDAO.suppliertrouk_findid(m_recordset, m_suppliertroukid)
    
    If ret Then
      With m_recordset
            Text1(0).text = Trim(.Fields(1))
            Text7.text = Trim(suppliername_m_t)
            Combo1.text = Trim(.Fields(2))
            Combo2.text = Trim(.Fields(4))
            Combo2.Tag = Trim(.Fields(3))
            Combo3.text = Trim(.Fields(6))
            Combo3.Tag = Trim(.Fields(5))
            Text2.text = Trim(.Fields(7))
            Text3.text = Trim(.Fields(8))
            Text4.text = Trim(.Fields(9))
            Text5.text = Trim(.Fields(10))
            Text8.text = Trim(.Fields(11))
            Text6.text = Trim(.Fields(12))
            m_recordset.Close
      End With
    Else
        MainForm.g_msgText = "联系ID不正确，请重新操作！"
        HMsgBox MainForm.g_msgText, 0, 1
    End If
End Sub
'**************************************
'*    功 能 描 述 :清除界面上文本框里的所有内容
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub clear()
            Text1(0).text = ""
            Text7.text = suppliername_m_t
            Combo1.text = ""
            Combo2.text = ""
            Combo3.text = ""
            Text2.text = ""
            Text3.text = ""
            Text4.text = ""
            Text5.text = Trim(MainForm.g_application.m_userName)
            Text6.text = ""
            Text8.text = Date
End Sub