frmcroinfo.frm

人事管理系统vb版,用于一般中小企业

         Left            =   1200
         MaxLength       =   50
         TabIndex        =   3
         Top             =   2640
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   3
         Left            =   1200
         MaxLength       =   20
         TabIndex        =   2
         Top             =   1560
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   4
         Left            =   1200
         MaxLength       =   8
         TabIndex        =   1
         Top             =   1920
         Width           =   3255
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "公司名称"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   14
         Top             =   480
         Width           =   720
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "法人代表"
         Height          =   180
         Index           =   1
         Left            =   240
         TabIndex        =   13
         Top             =   840
         Width           =   720
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "电话"
         Height          =   180
         Index           =   2
         Left            =   600
         TabIndex        =   12
         Top             =   1200
         Width           =   360
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "传真"
         Height          =   180
         Index           =   3
         Left            =   600
         TabIndex        =   11
         Top             =   1560
         Width           =   360
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "邮编"
         Height          =   180
         Index           =   4
         Left            =   600
         TabIndex        =   10
         Top             =   1920
         Width           =   360
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "地址"
         Height          =   180
         Index           =   5
         Left            =   600
         TabIndex        =   9
         Top             =   2280
         Width           =   360
      End
      Begin VB.Label lblinfo 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "网址"
         Height          =   180
         Index           =   6
         Left            =   600
         TabIndex        =   8
         Top             =   2640
         Width           =   360
      End
   End
   Begin Manage.xpcmdButton cmdEdit 
      Cancel          =   -1  'True
      Height          =   345
      Index           =   1
      Left            =   3780
      TabIndex        =   17
      Top             =   5100
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   609
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "关闭(&C)"
      ForeColor       =   -2147483630
   End
   Begin Manage.xpcmdButton cmdEdit 
      Height          =   345
      Index           =   0
      Left            =   2700
      TabIndex        =   18
      Top             =   5100
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   609
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "确定(&O)"
      ForeColor       =   -2147483630
   End
End
Attribute VB_Name = "frmCroInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strName As String
Dim intCount As Integer
Private Sub cmdEdit_Click(Index As Integer)
    On Error GoTo errNext
    If Index = 0 Then
        With adoMainLink
        If .EOF = True Then .AddNew
            For intCount = 0 To 6
                 .Fields(lblinfo(intCount).Caption) = Mid(Trim(txtInfo(intCount).Text), 1, adoMainLink(lblinfo(intCount).Caption).DefinedSize)
                 txtInfo(intCount).Text = .Fields(lblinfo(intCount).Caption)
            Next
            .Fields("商标") = strName
            gstrCroLogo = strName
            .Update
            .MoveFirst
            gstrCro = IIf(Len(Trim(txtInfo(0).Text)) > 0, Trim(txtInfo(0).Text), "公司")
            MDIMain.staInfo.Panels(1) = "用户:" & gstrCro
        If blnInfo = True Then frmInfo.tvwManage.Nodes("A").Text = gstrCro ': Call frmInfo.ManageLoad(1)
        End With
        ricBox.Text = ricBox.Text & vbCrLf & "操作时间: " & Now & " 内容: 修改[公司信息]."
        MsgBox "保存成功!", vbOKOnly + vbInformation, App.Title
    Else
        Unload Me
    End If
    Exit Sub
errNext:
    Call ErrMsg(Err.Number, Err.Description)
End Sub

Private Sub cmdInfo_Click(Index As Integer)
    On Error Resume Next
    If Index = 0 Then
        frmInfo.cdgMain.Filter = "bmp位图(*.bmp)|*.bmp|ico图标(*.ico)|*.ico|JPEG图片(*.jpg)|*.jpg|GIF图片(*.gif)|*.gif|"
        frmInfo.cdgMain.ShowOpen
        strName = frmInfo.cdgMain.Filename
        If Len(strName) = 0 Then Exit Sub
        imgBasic.Picture = LoadPicture(strName)
    Else
        strName = ""
        imgBasic.Picture = Nothing
        gstrCroLogo = ""
    End If
End Sub

Private Sub Form_Load()
    On Error Resume Next
    stbBottom.TabPicture(0) = MDIMain.iltPic.ListImages(9).Picture
    With adoMainLink
        If .State = adStateOpen Then .Close
        .Open "select * from 公司信息", adoConn, adOpenDynamic, adLockPessimistic, adCmdText
        If .EOF = False Then
            For intCount = 0 To 6
                txtInfo(intCount).Text = .Fields(lblinfo(intCount).Caption) & ""
            Next
            strName = .Fields("商标") & ""
            imgBasic.Picture = LoadPicture(strName)
        End If
    End With
End Sub