【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-main_rsgl_khgl_lr.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
    Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
    Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
    Begin VB.Form main_rsgl_khgl_lr 
       BackColor       =   &H00E6D7D4&
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "Form1"
       ClientHeight    =   3375
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   7290
       Icon            =   "main_rsgl_khgl_lr.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   3375
       ScaleWidth      =   7290
       ShowInTaskbar   =   0   'False
       StartUpPosition =   2  '屏幕中心
       Begin VB.CommandButton Command2 
          BackColor       =   &H00FFF3DE&
          Caption         =   "取消"
          Height          =   390
          Left            =   3675
          Style           =   1  'Graphical
          TabIndex        =   19
          Top             =   2880
          Width           =   1770
       End
       Begin VB.CommandButton Command1 
          BackColor       =   &H00FFF3DE&
          Caption         =   "确定"
          Height          =   390
          Left            =   1785
          Style           =   1  'Graphical
          TabIndex        =   18
          Top             =   2880
          Width           =   1770
       End
       Begin VB.Frame Frame1 
          BackColor       =   &H00E6D7D4&
          Height          =   2835
          Left            =   15
          TabIndex        =   0
          Top             =   -60
          Width           =   7275
          Begin VB.ComboBox Combo1 
             Height          =   300
             Left            =   4755
             TabIndex        =   20
             Top             =   975
             Width           =   2400
          End
          Begin VB.TextBox Text1 
             Enabled         =   0   'False
             Height          =   330
             Index           =   0
             Left            =   990
             TabIndex        =   8
             Top             =   225
             Width           =   2730
          End
          Begin VB.TextBox Text1 
             Enabled         =   0   'False
             Height          =   330
             Index           =   1
             Left            =   4755
             TabIndex        =   7
             Top             =   240
             Width           =   2400
          End
          Begin VB.TextBox Text1 
             Height          =   330
             Index           =   2
             Left            =   4740
             TabIndex        =   5
             Top             =   615
             Width           =   2400
          End
          Begin VB.TextBox Text1 
             Height          =   330
             Index           =   3
             Left            =   975
             TabIndex        =   3
             Top             =   1320
             Width           =   2775
          End
          Begin VB.TextBox Text1 
             Height          =   330
             Index           =   4
             Left            =   4755
             TabIndex        =   2
             Top             =   1320
             Width           =   2400
          End
          Begin VB.TextBox Text1 
             Height          =   1050
             Index           =   5
             Left            =   975
             MultiLine       =   -1  'True
             ScrollBars      =   2  'Vertical
             TabIndex        =   1
             Top             =   1695
             Width           =   6165
          End
          Begin MSComCtl2.DTPicker DTP1 
             Height          =   330
             Left            =   990
             TabIndex        =   4
             Top             =   600
             Width           =   2730
             _ExtentX        =   4815
             _ExtentY        =   582
             _Version        =   393216
             Format          =   50987009
             CurrentDate     =   38698
          End
          Begin MSDataListLib.DataCombo DataCombo1 
             Bindings        =   "main_rsgl_khgl_lr.frx":000C
             Height          =   330
             Left            =   990
             TabIndex        =   6
             Top             =   945
             Width           =   2730
             _ExtentX        =   4815
             _ExtentY        =   582
             _Version        =   393216
             ListField       =   "考核项目"
             BoundColumn     =   "编号"
             Text            =   ""
          End
          Begin VB.Label Label9 
             BackStyle       =   0  'Transparent
             Caption         =   "考核意见："
             Height          =   255
             Left            =   90
             TabIndex        =   17
             Top             =   1830
             Width           =   945
          End
          Begin VB.Label Label1 
             BackStyle       =   0  'Transparent
             Caption         =   "员工编号："
             Height          =   255
             Left            =   75
             TabIndex        =   16
             Top             =   315
             Width           =   1005
          End
          Begin VB.Label Label2 
             BackStyle       =   0  'Transparent
             Caption         =   "员工："
             Height          =   255
             Left            =   3840
             TabIndex        =   15
             Top             =   315
             Width           =   1005
          End
          Begin VB.Label Label3 
             BackStyle       =   0  'Transparent
             Caption         =   "考核项目："
             Height          =   255
             Left            =   90
             TabIndex        =   14
             Top             =   1035
             Width           =   1005
          End
          Begin VB.Label Label4 
             BackStyle       =   0  'Transparent
             Caption         =   "考核期间："
             Height          =   255
             Left            =   3840
             TabIndex        =   13
             Top             =   690
             Width           =   975
          End
          Begin VB.Label Label5 
             BackStyle       =   0  'Transparent
             Caption         =   "考核日期："
             Height          =   255
             Left            =   60
             TabIndex        =   12
             Top             =   675
             Width           =   1005
          End
          Begin VB.Label Label6 
             BackStyle       =   0  'Transparent
             Caption         =   "考核等级："
             Height          =   255
             Left            =   3840
             TabIndex        =   11
             Top             =   1035
             Width           =   1005
          End
          Begin VB.Label Label7 
             BackStyle       =   0  'Transparent
             Caption         =   "考核分数："
             Height          =   255
             Left            =   60
             TabIndex        =   10
             Top             =   1395
             Width           =   900
          End
          Begin VB.Label Label8 
             BackStyle       =   0  'Transparent
             Caption         =   "考核人员："
             Height          =   255
             Left            =   3840
             TabIndex        =   9
             Top             =   1380
             Width           =   1215
          End
       End
       Begin MSAdodcLib.Adodc Adodc1 
          Height          =   330
          Left            =   0
          Top             =   0
          Visible         =   0   'False
          Width           =   2040
          _ExtentX        =   3598
          _ExtentY        =   582
          ConnectMode     =   0
          CursorLocation  =   3
          IsolationLevel  =   -1
          ConnectionTimeout=   15
          CommandTimeout  =   30
          CursorType      =   3
          LockType        =   3
          CommandType     =   2
          CursorOptions   =   0
          CacheSize       =   50
          MaxRecords      =   0
          BOFAction       =   0
          EOFAction       =   0
          ConnectStringType=   1
          Appearance      =   1
          BackColor       =   -2147483643
          ForeColor       =   -2147483640
          Orientation     =   0
          Enabled         =   -1
          Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
          OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
          OLEDBFile       =   ""
          DataSourceName  =   ""
          OtherAttributes =   ""
          UserName        =   ""
          Password        =   ""
          RecordSource    =   "考核项目表"
          Caption         =   "Adodc1"
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}