FrmNilai.frm

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FrmNilai 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Entry Nilai"
   ClientHeight    =   7005
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5550
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7005
   ScaleWidth      =   5550
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox Combo3 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   345
      Left            =   1980
      TabIndex        =   29
      Text            =   "9 (1)"
      Top             =   5880
      Width           =   555
   End
   Begin VB.TextBox Text26 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2580
      TabIndex        =   28
      Text            =   "9 (2)"
      Top             =   5580
      Width           =   615
   End
   Begin VB.TextBox Text25 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   4620
      TabIndex        =   27
      Text            =   "9 (2)"
      Top             =   4980
      Width           =   615
   End
   Begin VB.TextBox Text24 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   3600
      TabIndex        =   26
      Text            =   "9 (2)"
      Top             =   4980
      Width           =   615
   End
   Begin VB.TextBox Text23 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2520
      TabIndex        =   25
      Text            =   "9 (2)"
      Top             =   4980
      Width           =   615
   End
   Begin VB.TextBox Text22 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1440
      TabIndex        =   24
      Text            =   "9 (2)"
      Top             =   4980
      Width           =   615
   End
   Begin VB.TextBox Text21 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   420
      TabIndex        =   23
      Text            =   "9 (2)"
      Top             =   4980
      Width           =   615
   End
   Begin VB.TextBox Text20 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   4620
      TabIndex        =   22
      Text            =   "9 (2)"
      Top             =   4440
      Width           =   615
   End
   Begin VB.TextBox Text19 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   3600
      TabIndex        =   21
      Text            =   "9 (2)"
      Top             =   4440
      Width           =   615
   End
   Begin VB.TextBox Text18 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2520
      TabIndex        =   20
      Text            =   "9 (2)"
      Top             =   4440
      Width           =   615
   End
   Begin VB.TextBox Text17 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1440
      TabIndex        =   19
      Text            =   "9 (2)"
      Top             =   4440
      Width           =   615
   End
   Begin VB.TextBox Text16 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   420
      TabIndex        =   18
      Text            =   "9 (2)"
      Top             =   4440
      Width           =   615
   End
   Begin VB.TextBox Text15 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   4620
      TabIndex        =   17
      Text            =   "9 (2)"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox Text14 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   3600
      TabIndex        =   16
      Text            =   "9 (2)"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox Text13 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2520
      TabIndex        =   15
      Text            =   "9 (2)"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox Text12 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1440
      TabIndex        =   14
      Text            =   "9 (2)"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox Text11 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   420
      TabIndex        =   13
      Text            =   "9 (2)"
      Top             =   3840
      Width           =   615
   End
   Begin VB.TextBox Text10 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   4620
      TabIndex        =   12
      Text            =   "9 (2)"
      Top             =   3240
      Width           =   615
   End
   Begin VB.TextBox Text9 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   3600
      TabIndex        =   11
      Text            =   "9 (2)"
      Top             =   3240
      Width           =   615
   End
   Begin VB.TextBox Text8 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   2520
      TabIndex        =   10
      Text            =   "9 (2)"
      Top             =   3240
      Width           =   615
   End
   Begin VB.TextBox Text7 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1440
      TabIndex        =   9
      Text            =   "9 (2)"
      Top             =   3240
      Width           =   615
   End
   Begin VB.TextBox Text6 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   360
      TabIndex        =   8
      Text            =   "9 (2)"
      Top             =   3240
      Width           =   615
   End
   Begin VB.ComboBox Combo2 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   345
      Left            =   1920
      TabIndex        =   7
      Text            =   "9 (1)"
      Top             =   2595
      Width           =   3375
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   345
      Left            =   1920
      TabIndex        =   6
      Text            =   "9 (1)"
      Top             =   2235
      Width           =   3375
   End
   Begin VB.TextBox Text5 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1920
      TabIndex        =   5
      Text            =   "9 (2)"
      Top             =   1875
      Width           =   855
   End
   Begin VB.TextBox Text4 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1920
      TabIndex        =   2
      Text            =   "X (20)"
      Top             =   840
      Width           =   1695
   End
   Begin VB.TextBox Text3 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1920
      TabIndex        =   3
      Text            =   "X (30)"
      Top             =   1200
      Width           =   3435
   End
   Begin VB.CommandButton Command4 
      Caption         =   "&Tutup"
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4380
      TabIndex        =   33
      Top             =   6540
      Width           =   915
   End
   Begin VB.CommandButton Command3 
      Caption         =   "&Hapus"
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3420
      TabIndex        =   32
      Top             =   6540
      Width           =   915
   End
   Begin VB.CommandButton Command2 
      Caption         =   "&Edit"
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2460
      TabIndex        =   31
      Top             =   6540
      Width           =   915
   End
   Begin VB.CommandButton Command1 
      Caption         =   "&Simpan"
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1500
      TabIndex        =   30
      Top             =   6540
      Width           =   915
   End
   Begin VB.TextBox Text2 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1920
      TabIndex        =   1
      Text            =   "X (30)"
      Top             =   480
      Width           =   3435
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   285
      Left            =   1920
      TabIndex        =   0
      Text            =   "X (20)"
      Top             =   120
      Width           =   1695
   End
   Begin MSComCtl2.DTPicker tgl 
      Height          =   315
      Left            =   1935
      TabIndex        =   4
      Top             =   1530
      Width           =   1215
      _ExtentX        =   2143
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Century"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      CustomFormat    =   "dd-MM-yyyy"
      Format          =   91684867
      CurrentDate     =   37929
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Rekomendasi :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   24
      Left            =   0
      TabIndex        =   63
      Top             =   5940
      Width           =   1935
   End
   Begin VB.Label Label6 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Tanggal :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Left            =   -45
      TabIndex        =   62
      Top             =   1575
      Width           =   1935
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Prakarsa"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   23
      Left            =   2280
      TabIndex        =   61
      Top             =   5340
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kejujuran"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   22
      Left            =   4500
      TabIndex        =   60
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Prestasi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   21
      Left            =   3540
      TabIndex        =   59
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kesetiaan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   20
      Left            =   2340
      TabIndex        =   58
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Komunikasi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   19
      Left            =   1020
      TabIndex        =   57
      Top             =   4740
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Etika"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   18
      Left            =   120
      TabIndex        =   56
      Top             =   4740
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "H. prestasi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   17
      Left            =   4500
      TabIndex        =   55
      Top             =   4200
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Ketaatan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   16
      Left            =   3540
      TabIndex        =   54
      Top             =   4200
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Keterampilan "
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   15
      Left            =   2340
      TabIndex        =   53
      Top             =   4200
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kepemimpinan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   14
      Left            =   1020
      TabIndex        =   52
      Top             =   4200
      Width           =   1275
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Tg Jawab"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   13
      Left            =   120
      TabIndex        =   51
      Top             =   4200
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kemampuan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   12
      Left            =   4500
      TabIndex        =   50
      Top             =   3600
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kerjasama"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   11
      Left            =   3420
      TabIndex        =   49
      Top             =   3600
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Sikap"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   10
      Left            =   2340
      TabIndex        =   48
      Top             =   3600
      Width           =   1155
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Inisiatif"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   9
      Left            =   1080
      TabIndex        =   47
      Top             =   3600
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Ketekunan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   8
      Left            =   120
      TabIndex        =   46
      Top             =   3600
      Width           =   1155
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Efisiensi"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   7
      Left            =   4560
      TabIndex        =   45
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Volume"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   6
      Left            =   3480
      TabIndex        =   44
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Kecepatan"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   5
      Left            =   2340
      TabIndex        =   43
      Top             =   3000
      Width           =   1095
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Ketelitian"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   4
      Left            =   1320
      TabIndex        =   42
      Top             =   3000
      Width           =   1035
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "Pemahaman"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   41
      Top             =   3000
      Width           =   1155
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Hubungan Keluarga :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   2
      Left            =   -60
      TabIndex        =   40
      Top             =   2655
      Width           =   1935
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Sumber Penilaian :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   1
      Left            =   -60
      TabIndex        =   39
      Top             =   2295
      Width           =   1935
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Lama Kenal :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Index           =   0
      Left            =   -60
      TabIndex        =   38
      Top             =   1935
      Width           =   1935
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "NIP Penilai :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Left            =   -60
      TabIndex        =   37
      Top             =   900
      Width           =   1935
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Nama Penilai :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Left            =   -60
      TabIndex        =   36
      Top             =   1200
      Width           =   1935
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Nama Pegawai :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Left            =   -60
      TabIndex        =   35
      Top             =   480
      Width           =   1935
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "NIP Pegawai :"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000040&
      Height          =   255
      Left            =   -60
      TabIndex        =   34
      Top             =   180
      Width           =   1935
   End
End
Attribute VB_Name = "FrmNilai"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DbNilai As Database
Dim RecNilai As Recordset
Dim DbPegawai As Database
Dim RecPegawai As Recordset
Dim Dbpenilai As Database
Dim Recpenilai As Recordset
Dim Edit As Boolean
Const Putih = &H8000000E
Const Hitam = &H8000000F


Private Sub Command1_Click()
    Simpan
End Sub

Private Sub Command2_Click()
    Text1.Enabled = False
    
    
    Edit = True
    Cmd True, False
    Kotor True
    Text4.Enabled = False
End Sub

Private Sub Command3_Click()
    If MsgBox("Anda yakin akan menghapus data Nilai " & Text2.Text & " Ini ??", vbQuestion + vbYesNo, "Konfirmasi Hapus") = vbYes Then
        Cari
        RecNilai.Delete
        Text1.Text = ""
    End If
End Sub

Private Sub Command4_Click()

    Unload Me
End Sub

Private Sub Form_activate()
    Cari
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
            SendKeys "{tab}"
            KeyAscii = 0
    End If
End Sub

Private Sub Form_Load()
    Set DbNilai = OpenDatabase(App.Path & "\pdam.mdb")
    Set RecNilai = DbNilai.OpenRecordset("Nilai")
    RecNilai.Index = "idxNilai"
    Set DbPegawai = OpenDatabase(App.Path & "\pdam.mdb")
    Set RecPegawai = DbPegawai.OpenRecordset("pegawai")
    RecPegawai.Index = "idxpegawai"
    Set Dbpenilai = OpenDatabase(App.Path & "\pdam.mdb")
    Set Recpenilai = Dbpenilai.OpenRecordset("penilai")
    Recpenilai.Index = "idxpenilai"
    Text1.Text = ""
    Text4.Text = ""
    Combo1.Clear
    Combo1.AddItem "Pengamatan Harian"
    Combo1.AddItem "Laparan"
    Combo3.Clear
    Combo3.AddItem "A"
    Combo3.AddItem "B"
    Combo3.AddItem "C"
    Combo3.AddItem "D"
    Combo3.AddItem "E"
    Combo2.Clear
    Combo2.AddItem "Tidak Ada"
    Combo2.AddItem "Orang Tua"
    Combo2.AddItem "Saudara Kandung"
    Combo2.AddItem "Saudara Sepupu"
    Combo2.AddItem "Mertua"
    
End Sub
Private Sub Kotor(Ena As Boolean)
Dim Warna
Dim Kut
    If Ena Then
        Warna = Putih
        Kut = True
    Else
        Warna = Hitam
        kud = False
    End If
    Text5.Enabled = Ena
    Combo1.Enabled = Ena
    Combo3.Enabled = Ena
    Combo2.Enabled = Ena
    Text6.Enabled = Ena
    Text7.Enabled = Ena
    Text8.Enabled = Ena
    Text9.Enabled = Ena
    Text10.Enabled = Ena
    Text11.Enabled = Ena
    Text12.Enabled = Ena
    Text13.Enabled = Ena
    Text14.Enabled = Ena
    Text15.Enabled = Ena
    Text16.Enabled = Ena
    Text17.Enabled = Ena
    Text18.Enabled = Ena
    Text19.Enabled = Ena
    Text20.Enabled = Ena
    Text21.Enabled = Ena
    Text22.Enabled = Ena
    Text23.Enabled = Ena
    Text24.Enabled = Ena
    Text25.Enabled = Ena
    Text26.Enabled = Ena
    tgl.Enabled = Ena
    
    Text5.BackColor = Warna
    Combo1.BackColor = Warna
    Combo3.BackColor = Warna
    Combo2.BackColor = Warna
    Text6.BackColor = Warna
    Text7.BackColor = Warna
    Text8.BackColor = Warna
    Text9.BackColor = Warna
    Text10.BackColor = Warna
    Text11.BackColor = Warna
    Text12.BackColor = Warna
    Text13.BackColor = Warna
    Text14.BackColor = Warna
    Text15.BackColor = Warna
    Text16.BackColor = Warna
    Text17.BackColor = Warna
    Text18.BackColor = Warna
    Text19.BackColor = Warna
    Text20.BackColor = Warna
    Text21.BackColor = Warna
    Text22.BackColor = Warna
    Text23.BackColor = Warna
    Text24.BackColor = Warna
    Text25.BackColor = Warna
    Text26.BackColor = Warna

End Sub

Private Sub Bersih()
    
    Text5.Text = ""
    Combo1.Text = ""
    Combo3.Text = ""
    Combo2.Text = ""
    Text5.Text = ""
   
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""
    Text12.Text = ""
    Text13.Text = ""
    Text14.Text = ""
    Text15.Text = ""
    Text16.Text = ""
    Text17.Text = ""
    Text18.Text = ""
    Text19.Text = ""
    Text20.Text = ""
    Text21.Text = ""
    Text22.Text = ""
    Text23.Text = ""
    Text24.Text = ""
    Text25.Text = ""
    Text26.Text = ""
    
End Sub

Private Sub Cmd(Simpan As Boolean, Edit As Boolean)
    Command1.Enabled = Simpan
    Command2.Enabled = Edit
    Command3.Enabled = Edit
    
End Sub
Private Sub Simpan()
Dim Periksa As Boolean
Dim Pendidikan As String
Periksa = IIf(Text1.Text = "" Or Text2.Text = "" Or Combo1.Text = "" Or Text3.Text = "" Or Text4.Text = "", False, True)
If Periksa Then
    If Edit Then
        RecNilai.Seek "=", Text1.Text, Text4.Text
        RecNilai.Edit
    Else
        RecNilai.AddNew
    End If
    RecNilai!nip_peg = Trim(Text1.Text)
    RecNilai!nippen = Trim(Text4.Text)
    RecNilai!tglnilai = tgl.Value
    RecNilai!lmkenal = Val(Text5.Text)
    RecNilai!sbrpenilaian = Combo1.ListIndex
    RecNilai!rekomendasi = Combo3.Text
    RecNilai!hubkeluarga = Combo2.ListIndex
    RecNilai!pemahaman = Val(Text6.Text)
    RecNilai!ketelitian = Val(Text7.Text)
    RecNilai!kecepatan = Val(Text8.Text)
    RecNilai!volume = Val(Text9.Text)
    RecNilai!efisiensi = Val(Text10.Text)
    RecNilai!ketekunan = Val(Text11.Text)
    RecNilai!inisiatif = Val(Text12.Text)
    RecNilai!sikap = Val(Text13.Text)
    RecNilai!kerjasama = Val(Text14.Text)
    RecNilai!kemampuan = Val(Text15.Text)
    RecNilai!tanggungjawab = Val(Text16.Text)
    RecNilai!kepemimpinan = Val(Text17.Text)
    RecNilai!keterampilan = Val(Text18.Text)
    RecNilai!ketaatan = Val(Text19.Text)
    RecNilai!hprestasi = Val(Text20.Text)
    RecNilai!etika = Val(Text21.Text)
    RecNilai!komunikasi = Val(Text22.Text)
    RecNilai!kesetiaan = Val(Text23.Text)
    RecNilai!prestasi = Val(Text24.Text)
    RecNilai!kejujuran = Val(Text25.Text)
    RecNilai!prakarsa = Val(Text26.Text)
    RecNilai.Update
    Kotor False
    Cmd False, True
    Edit = False
    Text1.Enabled = True
    
    Text4.Enabled = True
    Text1.SetFocus
Else
    MsgBox "Data belum lengkap, tolong di isi yang masih kosong", vbCritical, "Erorr.."
End If
End Sub

Private Sub Cari()
Carinip
CariPen
RecNilai.Seek "=", Text1.Text, Text4.Text
If Not RecNilai.NoMatch Then
    Tampil
    Cmd False, True
    Kotor False
Else
    Bersih
    Cmd True, False
    Kotor True
End If
End Sub
Private Sub Tampil()
    tgl.Value = RecNilai!tglnilai
    Text5.Text = RecNilai!lmkenal
    Combo1.ListIndex = RecNilai!sbrpenilaian
    Combo3.Text = RecNilai!rekomendasi
    Combo2.ListIndex = RecNilai!hubkeluarga
    Text6.Text = RecNilai!pemahaman
    Text7.Text = RecNilai!ketelitian
    Text8.Text = RecNilai!kecepatan
    Text9.Text = RecNilai!volume
    Text10.Text = RecNilai!efisiensi
    Text11.Text = RecNilai!ketekunan
    Text12.Text = RecNilai!inisiatif
    Text13.Text = RecNilai!sikap
    Text14.Text = RecNilai!kerjasama
    Text15.Text = RecNilai!kemampuan
    Text16.Text = RecNilai!tanggungjawab
    Text17.Text = RecNilai!kepemimpinan
    Text18.Text = RecNilai!keterampilan
    Text19.Text = RecNilai!ketaatan
    Text20.Text = RecNilai!hprestasi
    Text21.Text = RecNilai!etika
    Text22.Text = RecNilai!komunikasi
    Text23.Text = RecNilai!kesetiaan
    Text24.Text = RecNilai!prestasi
    Text25.Text = RecNilai!kejujuran
    Text26.Text = RecNilai!prakarsa
    
End Sub
Private Sub Carinip()
    RecPegawai.Seek "=", Text1.Text
    If Not RecPegawai.NoMatch Then
        Text2.Text = RecPegawai!namapeg
    Else
        Text2.Text = ""
    End If
End Sub
Private Sub CariPen()
    Recpenilai.Seek "=", Text4.Text
    If Not Recpenilai.NoMatch Then
        Text3.Text = Recpenilai!namapen
    Else
        Text3.Text = ""
    End If
End Sub
Private Sub Text1_Change()
    Cari

End Sub

Private Sub Text4_Change()
    Cari
End Sub