【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了frmCompany.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Begin VB.Form frmCompany 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "挂帐单位信息"
       ClientHeight    =   1650
       ClientLeft      =   45
       ClientTop       =   435
       ClientWidth     =   8895
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   1650
       ScaleWidth      =   8895
       StartUpPosition =   3  'Windows Default
       Begin VB.TextBox txtName 
          Height          =   375
          Left            =   945
          TabIndex        =   5
          Top             =   135
          Width           =   3555
       End
       Begin VB.TextBox txtAdress 
          Height          =   375
          Left            =   945
          TabIndex        =   4
          Top             =   585
          Width           =   7830
       End
       Begin VB.TextBox txtTel 
          Height          =   375
          Left            =   5220
          TabIndex        =   3
          Top             =   135
          Width           =   2160
       End
       Begin VB.TextBox txtPrice 
          BackColor       =   &H80000000&
          Enabled         =   0   'False
          Height          =   375
          Left            =   8055
          TabIndex        =   2
          Top             =   135
          Width           =   720
       End
       Begin VB.CommandButton cmdOK 
          Caption         =   "确定"
          Height          =   420
          Left            =   6840
          TabIndex        =   1
          Top             =   1080
          Width           =   915
       End
       Begin VB.CommandButton cmdCancel 
          Caption         =   "取消"
          Height          =   420
          Left            =   7875
          TabIndex        =   0
          Top             =   1080
          Width           =   915
       End
       Begin VB.Label Label1 
          AutoSize        =   -1  'True
          Caption         =   "单位名称"
          Height          =   195
          Left            =   135
          TabIndex        =   9
          Top             =   180
          Width           =   720
       End
       Begin VB.Label Label3 
          AutoSize        =   -1  'True
          Caption         =   "通讯地址"
          Height          =   195
          Left            =   135
          TabIndex        =   8
          Top             =   675
          Width           =   720
       End
       Begin VB.Label Label4 
          AutoSize        =   -1  'True
          Caption         =   "电话"
          Height          =   195
          Left            =   4725
          TabIndex        =   7
          Top             =   180
          Width           =   360
       End
       Begin VB.Label Label10 
          AutoSize        =   -1  'True
          Caption         =   "金额"
          Height          =   195
          Left            =   7560
          TabIndex        =   6
          Top             =   180
          Width           =   360
       End
    End
    Attribute VB_Name = "frmCompany"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private m_SaveInfo As Integer
    
    '*   名称：SaveInfo
    '*   操作：Get
    '*   功能：读取存取成功标记
    '*   变量：m_SaveInfo
    '*   输入：无
    '*   描述：
    Public Property Get SaveInfo() As Integer
        SaveInfo = m_SaveInfo
    End Property
    
    '*   名称：SaveInfo
    '*   操作：Let
    '*   功能：设置存取成功标记
    '*   变量：m_SaveInfo
    '*   输入：缺省
    '*   描述：
    Public Property Let SaveInfo(ByVal vData As Integer)
        m_SaveInfo = vData
    End Property
    
    Private Sub cmdCancel_Click()
        Unload Me
    End Sub
    
    
    Private Sub cmdOk_Click()
        '传递单位ID到服务器，查询单位详细信息
        Dim strData As String
        
         m_SaveInfo = 0
        
        '生成发送数据
        strData = "SaveCompanyInfo," & g_UserInfo.CompanyID & "," & _
        txtName.Text & "," & txtAdress.Text & "," & txtTel.Text
        '如果WINSOCK的处于连接状态，向服务器发送数据
        If g_frmMDI.WCKClient.State <> sckConnected Then
            MsgBox "未建立连接，不能发送请求！"
            Exit Sub
        End If
        g_frmMDI.WCKClient.SendData strData
        
        If m_SaveInfo = 1 Then
            MsgBox "修改成功！", , "提示信息"
            Unload Me
        Else
            MsgBox "修改失败！", , "提示信息"
        End If
       
    End Sub
    
    
    Private Sub Form_Load()
        '传递单位ID到服务器，查询单位详细信息
        Dim strData As String
        
        '生成发送数据
        strData = "CompanyInfo," & g_UserInfo.CompanyID
        '如果WINSOCK的处于连接状态，向服务器发送数据
        If g_frmMDI.WCKClient.State <> sckConnected Then
            MsgBox "未建立连接，不能发送请求！"
            Exit Sub
        End If
        g_frmMDI.WCKClient.SendData strData
        
    End Sub