object frmpendaftaran: Tfrmpendaftaran
Left = 58
Top = 83
Width = 924
Height = 612
Caption = '.:: SMAN 1 SOREANG ::.'
Color = clMedGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 24
Top = 168
Width = 129
Height = 22
Caption = 'No pendaftaran'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 384
Top = 168
Width = 68
Height = 22
Caption = 'Tanggal'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 272
Top = 112
Width = 297
Height = 42
Caption = 'Form Pendaftaran'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -37
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 448
Top = 320
Width = 23
Height = 22
end
object Label12: TLabel
Left = 656
Top = 168
Width = 62
Height = 22
Caption = 'C A R I'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object DateTimePicker1: TDateTimePicker
Left = 592
Top = 168
Width = 25
Height = 21
Date = 40901.482018946760000000
Time = 40901.482018946760000000
TabOrder = 0
OnChange = DateTimePicker1Change
end
object edno: TEdit
Left = 192
Top = 168
Width = 177
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Panel6: TPanel
Left = 0
Top = 0
Width = 905
Height = 89
Color = clLime
TabOrder = 2
object Panel: TPanel
Left = 424
Top = 8
Width = 433
Height = 73
BevelOuter = bvNone
Color = clLime
TabOrder = 0
object LBFONT: TLabel
Left = 72
Top = 22
Width = 340
Height = 44
Caption = 'SMAN 1 SOREANG'
Color = clLime
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -37
Font.Name = 'Beurk'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
end
object GroupBox1: TGroupBox
Left = 16
Top = 208
Width = 353
Height = 337
Caption = 'Data Siswa'
Color = clAppWorkSpace
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 3
object Label3: TLabel
Left = 24
Top = 30
Width = 34
Height = 15
Caption = 'Nama'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 24
Top = 54
Width = 73
Height = 15
Caption = 'Tempat_lahir'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 24
Top = 86
Width = 76
Height = 15
Caption = 'Tanggal_lahir'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 24
Top = 118
Width = 39
Height = 15
Caption = 'Agama'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 24
Top = 150
Width = 81
Height = 15
Caption = 'Jenis_kelamin'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 24
Top = 182
Width = 81
Height = 15
Caption = 'Alamat_rumah'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 24
Top = 246
Width = 75
Height = 15
Caption = 'Asal_sekolah'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 24
Top = 278
Width = 64
Height = 15
Caption = 'No_telepon'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object edtanggal: TEdit
Left = 169
Top = 86
Width = 121
Height = 21
CharCase = ecUpperCase
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 290
Top = 86
Width = 24
Height = 21
Date = 39182.936152523150000000
Time = 39182.936152523150000000
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnChange = DateTimePicker2Change
end
object ednama: TEdit
Left = 168
Top = 20
Width = 177
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object edtmp: TEdit
Left = 168
Top = 52
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object cbagama: TComboBox
Left = 168
Top = 116
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 4
end
object cbjk: TComboBox
Left = 168
Top = 148
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 5
end
object edalm: TEdit
Left = 24
Top = 204
Width = 305
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object edtlp: TEdit
Left = 168
Top = 276
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object edasal: TEdit
Left = 168
Top = 244
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
end
object GroupBox2: TGroupBox
Left = 384
Top = 320
Width = 521
Height = 225
Caption = 'Data OrangTua'
Color = clAppWorkSpace
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 4
object Label18: TLabel
Left = 23
Top = 30
Width = 57
Height = 14
Caption = 'Nama_ayah'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 22
Top = 62
Width = 77
Height = 14
Caption = 'Pekerjaan_ayah'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 24
Top = 102
Width = 47
Height = 14
Caption = 'Nama_ibu'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 23
Top = 134
Width = 67
Height = 14
Caption = 'Pekerjaan_ibu'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 19
Top = 158
Width = 58
Height = 14
Caption = 'Alamat_ortu'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 22
Top = 190
Width = 61
Height = 14
Caption = 'No_telp_ortu'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object SbCetak: TSpeedButton
Left = 336
Top = 16
Width = 177
Height = 41
Caption = 'Cetak Data Pendaftaran'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
ParentFont = False
OnClick = SbCetakClick
end
object SbKeluar: TSpeedButton
Left = 336
Top = 104
Width = 177
Height = 41
Caption = '&Keluar'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033339333333337773F33733333330008033
933333333737F7F37333333307078733333933337337373F3337333077088803
33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
93333773F377337F73F333308807880339333337F37F337F373F333088077803
339333373F73F37333733333087777333339333373F7F7F33F37333330807033
933333333737F73373F333333300033339333333337773333733}
NumGlyphs = 2
ParentFont = False
OnClick = SbKeluarClick
end
object SbTabelDaftar: TSpeedButton
Left = 336
Top = 64
Width = 177
Height = 33
Caption = '&Tabel Pendaftaran'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnClick = SbTabelDaftarClick
end
object EdTlpOrtu: TEdit
Left = 136
Top = 188
Width = 121
Height = 21
TabOrder = 0
end
object EdAlmOrtu: TEdit
Left = 136
Top = 156
Width = 353
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object EdIbu: TEdit
Left = 136
Top = 92
Width = 153
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object EdAyah: TEdit
Left = 136
Top = 28
Width = 153
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object CbKerja: TComboBox
Left = 136
Top = 56
Width = 153
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 4
end
object CbKerjaIbu: TComboBox
Left = 136
Top = 120
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 5
end
end
object Panel5: TPanel
Left = 0
Top = 545
Width = 905
Height = 65
Align = alBottom
Color = clLime
TabOrder = 5
object lblteks: TLabel
Left = 152
Top = 25
Width = 609
Height = 32
AutoSize = False
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -24
Font.Name = 'Cooper Black'
Font.Style = [fsBold]
ParentFont = False
end
end
object Panel1: TPanel
Left = 672
Top = 208
Width = 233
Height = 105
Color = clAppWorkSpace
TabOrder = 6
object SbTambah: TSpeedButton
Left = 8
Top = 16
Width = 105
Height = 33
Caption = '&Tambah'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
ParentFont = False
OnClick = SbTambahClick
end
object SbBatal: TSpeedButton
Left = 8
Top = 64
Width = 105
Height = 33
Caption = '&Batal'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SbBatalClick
end
object SbHapus: TSpeedButton
Left = 120
Top = 64
Width = 105
Height = 33
Caption = '&Hapus'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
ParentFont = False
OnClick = SbHapusClick
end
object SbSimpan: TSpeedButton
Left = 120
Top = 16
Width = 105
Height = 33
Caption = '&Simpan'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
ParentFont = False
OnClick = SbSimpanClick
end
end
object EdTglDaftar: TEdit
Left = 472
Top = 168
Width = 121
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object EdCari: TEdit
Left = 752
Top = 168
Width = 153
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnKeyPress = EdCariKeyPress
end
object GroupBox3: TGroupBox
Left = 384
Top = 208
Width = 281
Height = 105
Caption = 'Jalur Pendaftaran'
Color = clAppWorkSpace
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 9
object Label13: TLabel
Left = 8
Top = 53
Width = 76
Height = 15
Caption = 'Jalur Prestasi'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 160
Top = 21
Width = 54
Height = 15
Caption = 'Nilai NEM'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -12
Font.Name = 'Beurk'
Font.Style = []
ParentFont = False
end
object edNem: TEdit
Left = 160
Top = 36
Width = 105
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnExit = edNemExit
end
object CbJalur: TComboBox
Left = 8
Top = 20
Width = 137
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 1
end
object edprestasi: TEdit
Left = 8
Top = 72
Width = 105
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnExit = edprestasiExit
end
object edhasil: TEdit
Left = 128
Top = 73
Width = 145
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
end
object Timer1: TTimer
Interval = 1
OnTimer = Timer2Timer
Left = 32
Top = 56
end
object Timer2: TTimer
Interval = 1
OnTimer = Timer1Timer
Left = 104
Top = 40
end
end
Tidak ada komentar:
Posting Komentar