frmcroinfo.frm

本软件是人事管理系统

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmCroInfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "设置"
   ClientHeight    =   5505
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4815
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmCroInfo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5505
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdEdit 
      Caption         =   "确定(&O)"
      Height          =   350
      Index           =   0
      Left            =   2460
      TabIndex        =   2
      Top             =   5100
      Width           =   1095
   End
   Begin VB.CommandButton cmdEdit 
      Cancel          =   -1  'True
      Caption         =   "关闭(&C)"
      Default         =   -1  'True
      Height          =   350
      Index           =   1
      Left            =   3660
      TabIndex        =   1
      Top             =   5100
      Width           =   1095
   End
   Begin TabDlg.SSTab stbBottom 
      Height          =   4935
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   4695
      _ExtentX        =   8281
      _ExtentY        =   8705
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   " 公司信息"
      TabPicture(0)   =   "frmCroInfo.frx":000C
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblinfo(6)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lblinfo(5)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "lblinfo(4)"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "lblinfo(3)"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "lblinfo(2)"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "lblinfo(1)"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "lblinfo(0)"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "txtInfo(4)"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "txtInfo(3)"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "txtInfo(6)"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "txtInfo(5)"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "txtInfo(2)"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "txtInfo(1)"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "txtInfo(0)"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "fraCroInfo"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).ControlCount=   15
      Begin VB.Frame fraCroInfo 
         Caption         =   "商标"
         Height          =   1815
         Left            =   240
         TabIndex        =   17
         Top             =   3000
         Width           =   4215
         Begin VB.CommandButton cmdInfo 
            Caption         =   "清除"
            Height          =   350
            Index           =   1
            Left            =   3000
            TabIndex        =   19
            Top             =   1320
            Width           =   1095
         End
         Begin VB.CommandButton cmdInfo 
            Caption         =   "添加..."
            Height          =   350
            Index           =   0
            Left            =   1800
            TabIndex        =   18
            Top             =   1320
            Width           =   1095
         End
         Begin VB.Label lblinfo 
            BackStyle       =   0  'Transparent
            Caption         =   "　　公司商标图片请处理成正方形,否则图片会被强制拉伸成为方形!"
            Height          =   660
            Index           =   7
            Left            =   1800
            TabIndex        =   20
            Top             =   360
            Width           =   2280
         End
         Begin VB.Image imgBasic 
            BorderStyle     =   1  'Fixed Single
            Height          =   1455
            Left            =   240
            Stretch         =   -1  'True
            Top             =   240
            Width           =   1455
         End
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   0
         Left            =   1200
         TabIndex        =   9
         Top             =   480
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   1
         Left            =   1200
         TabIndex        =   8
         Top             =   840
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   2
         Left            =   1200
         TabIndex        =   7
         Top             =   1200
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   5
         Left            =   1200
         TabIndex        =   6
         Top             =   2280
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   6
         Left            =   1200
         TabIndex        =   5
         Top             =   2640
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   3
         Left            =   1200
         TabIndex        =   4
         Top             =   1560
         Width           =   3255
      End
      Begin VB.TextBox txtInfo 
         Height          =   300
         Index           =   4
         Left            =   1200
         TabIndex        =   3
         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        =   16
         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        =   15
         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        =   14
         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        =   13
         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        =   12
         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        =   11
         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        =   10
         Top             =   2640
         Width           =   360
      End
   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
            .Update
            .MoveFirst
            frmInfo.tvwManage.Nodes("A").Text = IIf(Len(Trim(txtInfo(0).Text)) > 0, Trim(txtInfo(0).Text), "公司")
        End With
        'MsgBox "保存成功!", vbOKOnly + vbInformation, App.Title
    Else
        Unload Me
    End If
    Exit Sub
errNext:
    MsgBox "错误：" & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "运行错误"
End Sub

Private Sub cmdInfo_Click(Index As Integer)
    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
    End If
End Sub

Private Sub Form_Load()
    On Error Resume Next
    frmInfo.Enabled = False
    stbBottom.TabPicture(0) = frmInfo.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

Private Sub Form_Unload(Cancel As Integer)
    frmInfo.Enabled = True
End Sub