companyinfo.frm

即时通讯

        Exit Sub
    End If
    file_num = FreeFile()
    Open filename1 For Binary Access Read As #file_num
    
    fileLen = LOF(file_num)                     '求文件长度
    ReDim imageDataArr(fileLen)                 '根据文件长度定义动态数组大小
    Get #file_num, , imageDataArr               '将一个已打开的磁盘文件读入数组变量之中
    
    bufferfile = FreeFile()
    Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
    Put bufferfile, , imageDataArr              '将动态数组FileArr中的数据写入临时文件tempfile中
    current = CurDir & "\tempfile.bmp"          '获取临时文件的全路径

    Picture1.Picture = LoadPicture(current)

EXITSUB:
End Sub

Private Sub Command4_Click()
    Dim filename1 As String            ' 用户选择的文件的路径及文件名字符串
    Dim fileLen As Long                ' 文件长度
    Dim file_num As Long               ' 文件数据
    Dim bufferfile As Long
    Dim current As String


    
    CommonDialog2.FileName = ""
    CommonDialog2.ShowOpen                      '显示打开文件对话框
    filename1 = CommonDialog2.FileName          '获取所选择的文件名
    If Trim(filename1) = "" Then
        Exit Sub
    End If
    file_num = FreeFile()
    Open filename1 For Binary Access Read As #file_num
    
    fileLen = LOF(file_num)                     '求文件长度
    ReDim imageDataArr1(fileLen)                '根据文件长度定义动态数组大小
    Get #file_num, , imageDataArr1              '将一个已打开的磁盘文件读入数组变量之中
    
    bufferfile = FreeFile()
    Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
    Put bufferfile, , imageDataArr1             '将动态数组FileArr中的数据写入临时文件tempfile中
    current = CurDir & "\tempfile.bmp"          '获取临时文件的全路径

    Picture2.Picture = LoadPicture(current)
End Sub

Private Sub Command5_Click()
    Dim filename1 As String            ' 用户选择的文件的路径及文件名字符串
    Dim fileLen As Long                ' 文件长度
    Dim file_num As Long               ' 文件数据
    Dim bufferfile As Long
    Dim current As String


    
    CommonDialog3.FileName = ""
    CommonDialog3.ShowOpen                      '显示打开文件对话框
    filename1 = CommonDialog3.FileName          '获取所选择的文件名
    If Trim(filename1) = "" Then
        Exit Sub
    End If
    file_num = FreeFile()
    Open filename1 For Binary Access Read As #file_num
    
    fileLen = LOF(file_num)                     '求文件长度
    ReDim imageDataArr2(fileLen)                '根据文件长度定义动态数组大小
    Get #file_num, , imageDataArr2              '将一个已打开的磁盘文件读入数组变量之中
    
    bufferfile = FreeFile()
    Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
    Put bufferfile, , imageDataArr2             '将动态数组FileArr中的数据写入临时文件tempfile中
    current = CurDir & "\tempfile.bmp"          '获取临时文件的全路径

    Picture3.Picture = LoadPicture(current)
End Sub

Private Sub Command6_Click()
    Dim filename1 As String            ' 用户选择的文件的路径及文件名字符串
    Dim fileLen As Long                ' 文件长度
    Dim file_num As Long               ' 文件数据
    Dim bufferfile As Long
    Dim current As String


    
    CommonDialog4.FileName = ""
    CommonDialog4.ShowOpen                      '显示打开文件对话框
    filename1 = CommonDialog4.FileName          '获取所选择的文件名
    If Trim(filename1) = "" Then
        Exit Sub
    End If
    file_num = FreeFile()
    Open filename1 For Binary Access Read As #file_num
    
    fileLen = LOF(file_num)                     '求文件长度
    ReDim imageDataArr3(fileLen)                '根据文件长度定义动态数组大小
    Get #file_num, , imageDataArr3              '将一个已打开的磁盘文件读入数组变量之中
    
    bufferfile = FreeFile()
    Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
    Put bufferfile, , imageDataArr3             '将动态数组FileArr中的数据写入临时文件tempfile中
    current = CurDir & "\tempfile.bmp"          '获取临时文件的全路径
    
    Picture4.Picture = LoadPicture(current)
End Sub

Private Sub Command7_Click()
    Dim filename1 As String            ' 用户选择的文件的路径及文件名字符串
    Dim fileLen As Long                ' 文件长度
    Dim file_num As Long               ' 文件数据
    Dim bufferfile As Long
    Dim current As String


    
    CommonDialog5.FileName = ""
    CommonDialog5.ShowOpen                      '显示打开文件对话框
    filename1 = CommonDialog5.FileName          '获取所选择的文件名
    If Trim(filename1) = "" Then
        Exit Sub
    End If
    file_num = FreeFile()
    Open filename1 For Binary Access Read As #file_num
    
    fileLen = LOF(file_num)                     '求文件长度
    ReDim imageDataArr4(fileLen)                '根据文件长度定义动态数组大小
    Get #file_num, , imageDataArr4              '将一个已打开的磁盘文件读入数组变量之中
    
    bufferfile = FreeFile()
    Open "tempfile.bmp" For Binary Access Read Write As #bufferfile '打开一个临时文件
    Put bufferfile, , imageDataArr4             '将动态数组FileArr中的数据写入临时文件tempfile中
    current = CurDir & "\tempfile.bmp"          '获取临时文件的全路径

    Picture5.Picture = LoadPicture(current)
End Sub

Private Sub Form_Load()
    Set m_EmployeeDAO = New employeeDAO
    Set m_ImageDAO = New ImageDAO
    Set m_recordset = New ADODB.Recordset
    ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(MYCOMPANYINFO1)))       ' 权限判断
    If Not ret Then
        MainForm.g_msgText = "您没有修改公司信息的权限！"
        HMsgBox MainForm.g_msgText, 0, 4
        Command1.Enabled = False
    End If
    CommonDialog1.Filter = "*.gif|*.gif|*.jpg|*.jpg"
    CommonDialog2.Filter = "*.gif|*.gif|*.jpg|*.jpg"
    CommonDialog3.Filter = "*.gif|*.gif|*.jpg|*.jpg"
    CommonDialog4.Filter = "*.gif|*.gif|*.jpg|*.jpg"
    CommonDialog5.Filter = "*.gif|*.gif|*.jpg|*.jpg"
    
    
    FindAll

    LoadPictureid pictureid
    LoadPictureid1 pictureid1
    LoadPictureid2 pictureid2
    LoadPictureid3 pictureid3
    LoadPictureid4 pictureid4
    
End Sub

Private Sub FindAll()
    ret = m_EmployeeDAO.company_Allinfo(m_recordset)
    With m_recordset
        Text1.text = Trim(.Fields("CompanyName"))
        Text1.Tag = Trim(.Fields("CompanyID"))
        Text2.text = Trim(.Fields("GSYWM"))
        Text3.text = Trim(.Fields("NameSimple"))
        Text4.text = Trim(.Fields("FRDB"))
        Text5.text = Trim(.Fields("Address"))
        Text6.text = Trim(.Fields("YWDZ"))
        Text7.text = Trim(.Fields("KF"))
        Text8.text = Trim(.Fields("ZH"))
        Text9.text = Trim(.Fields("PostCode"))
        Text10.text = Trim(.Fields("Phone"))
        Text11.text = Trim(.Fields("Fax"))
        Text12.text = Trim(.Fields("Http"))
        Text13.text = Trim(.Fields("mail"))
        Text14.text = Trim(.Fields("ZJL"))
        Text15.text = Trim(.Fields("XSZJL"))
        Text16.text = Trim(.Fields("XSRX"))
        Text17.text = Trim(.Fields("SHJL"))
        Text18.text = Trim(.Fields("SHRX"))
        Text19.text = Trim(.Fields("CGJL"))
        Text20.text = Trim(.Fields("CGDH"))
        Text21.text = Trim(.Fields("CWJL"))
        Text22.text = Trim(.Fields("CWDH"))
        Text23.text = Trim(.Fields("WMJL"))
        Text24.text = Trim(.Fields("WMDH"))
        Text25.text = Trim(.Fields("Country"))
        Text26.text = Trim(.Fields("City"))
        Text27.text = Trim(.Fields("Province"))
        Text28.text = Trim(.Fields("GSJJ"))
        Text30.text = Trim(.Fields("ZHA"))
        Text31.text = Trim(.Fields("ZHB"))
        Text32.text = Trim(.Fields("ZHD"))
        Text33.text = Trim(.Fields("ZHC"))
        Text34.text = Trim(.Fields("SPXX"))
        Text36.text = Trim(.Fields("YGSC"))
        pictureid = Trim(.Fields("picture1") & "")
        pictureid1 = Trim(.Fields("picture2") & "")
        pictureid2 = Trim(.Fields("picture3") & "")
        pictureid3 = Trim(.Fields("picture4") & "")
        pictureid4 = Trim(.Fields("picture5") & "")
    End With
    
    m_recordset.Close
End Sub
'**************************************
'*    功 能 描 述 :载入一个图记录的图片数据
'*    输 入 参 数 :imageId  - 图片ID
'*    输 出 能 数 :无
'**************************************
Private Function LoadPictureid(imageId As String)
    Dim fileLen As Long      ' 图片的长度
    Dim bufferfile As Long
    Dim current As String
    
    
    ret = m_ImageDAO.FindImageById(m_recordset, imageId)
    
    If ret Then
        fileLen = m_recordset.Fields("imageDate").ActualSize                '得到office字段中的文件数据的大小
        ReDim imageDataArr(fileLen)
        imageDataArr() = m_recordset.Fields("imageDate").GetChunk(fileLen)  '将字段中数据写入动态数组中
        
        bufferfile = FreeFile()
        Open "tempfile.bmp" For Binary Access Read Write As #bufferfile     '打开一个临时文件
        Put bufferfile, , imageDataArr                                      '将动态数组FileArr中的数据写入临时文件tempfile中
        current = CurDir & "\tempfile.bmp"                                  '获取临时文件的全路径

        Picture1.Picture = LoadPicture(current)
    End If
    
    m_recordset.Close
End Function
'**************************************
'*    功 能 描 述 :载入一个图记录的图片数据
'*    输 入 参 数 :imageId  - 图片ID
'*    输 出 能 数 :无
'**************************************
Private Function LoadPictureid1(imageId As String)
    Dim fileLen As Long      ' 图片的长度
    Dim bufferfile As Long
    Dim current As String
    
    
    ret = m_ImageDAO.FindImageById(m_recordset, imageId)
    
    If ret Then
        fileLen = m_recordset.Fields("imageDate").ActualSize                '得到office字段中的文件数据的大小
        ReDim imageDataArr1(fileLen)
        imageDataArr1() = m_recordset.Fields("imageDate").GetChunk(fileLen) '将字段中数据写入动态数组中
        
        bufferfile = FreeFile()
        Open "tempfile.bmp" For Binary Access Read Write As #bufferfile     '打开一个临时文件
        Put bufferfile, , imageDataArr1                                     '将动态数组FileArr中的数据写入临时文件tempfile中
        current = CurDir & "\tempfile.bmp"                                  '获取临时文件的全路径
   
        Picture2.Picture = LoadPicture(current)
    End If
    
    m_recordset.Close
End Function
'**************************************
'*    功 能 描 述 :载入一个图记录的图片数据
'*    输 入 参 数 :imageId  - 图片ID
'*    输 出 能 数 :无
'**************************************
Private Function LoadPictureid2(imageId As String)
    Dim fileLen As Long      ' 图片的长度
    Dim bufferfile As Long
    Dim current As String
    
    
    ret = m_ImageDAO.FindImageById(m_recordset, imageId)
    
    If ret Then
        fileLen = m_recordset.Fields("imageDate").ActualSize                '得到office字段中的文件数据的大小
        ReDim imageDataArr2(fileLen)
        imageDataArr2() = m_recordset.Fields("imageDate").GetChunk(fileLen) '将字段中数据写入动态数组中
        
        bufferfile = FreeFile()
        Open "tempfile.bmp" For Binary Access Read Write As #bufferfile     '打开一个临时文件
        Put bufferfile, , imageDataArr2                                     '将动态数组FileArr中的数据写入临时文件tempfile中
        current = CurDir & "\tempfile.bmp"                                  '获取临时文件的全路径
    
        Picture3.Picture = LoadPicture(current)
    End If
    
    m_recordset.Close
End Function
'**************************************
'*    功 能 描 述 :载入一个图记录的图片数据
'*    输 入 参 数 :imageId  - 图片ID
'*    输 出 能 数 :无
'**************************************
Private Function LoadPictureid3(imageId As String)
    Dim fileLen As Long      ' 图片的长度
    Dim bufferfile As Long
    Dim current As String
    
    
    ret = m_ImageDAO.FindImageById(m_recordset, imageId)
    
    If ret Then
        fileLen = m_recordset.Fields("imageDate").ActualSize                '得到office字段中的文件数据的大小
        ReDim imageDataArr3(fileLen)
        imageDataArr3() = m_recordset.Fields("imageDate").GetChunk(fileLen) '将字段中数据写入动态数组中
        
        bufferfile = FreeFile()
        Open "tempfile.bmp" For Binary Access Read Write As #bufferfile     '打开一个临时文件
        Put bufferfile, , imageDataArr3                                     '将动态数组FileArr中的数据写入临时文件tempfile中
        current = CurDir & "\tempfile.bmp"                                  '获取临时文件的全路径
    
        Picture4.Picture = LoadPicture(current)
    End If
    
    m_recordset.Close
End Function
'**************************************
'*    功 能 描 述 :载入一个图记录的图片数据
'*    输 入 参 数 :imageId  - 图片ID
'*    输 出 能 数 :无
'**************************************
Private Function LoadPictureid4(imageId As String)
    Dim fileLen As Long      ' 图片的长度
    Dim bufferfile As Long
    Dim current As String
    
    
    ret = m_ImageDAO.FindImageById(m_recordset, imageId)
    
    If ret Then
        fileLen = m_recordset.Fields("imageDate").ActualSize                '得到office字段中的文件数据的大小
        ReDim imageDataArr4(fileLen)
        imageDataArr4() = m_recordset.Fields("imageDate").GetChunk(fileLen) '将字段中数据写入动态数组中
        
        bufferfile = FreeFile()
        Open "tempfile.bmp" For Binary Access Read Write As #bufferfile     '打开一个临时文件
        Put bufferfile, , imageDataArr4                                     '将动态数组FileArr中的数据写入临时文件tempfile中
        current = CurDir & "\tempfile.bmp"                                  '获取临时文件的全路径
   
        Picture5.Picture = LoadPicture(current)
    End If
    
    m_recordset.Close
End Function