Code Program

	ADMIN - REFRESH
GASY Script

Procedure NamaUser
	PUBLIC oGasyUser
	IF !KR_USR()
	  	RETURN
	ENDIF
	oGasyUser=CREATEOBJECT("NamaUser")
	oGasyUser.Show
endproc


DEFINE CLASS NamaUser AS form
	Caption="Setup User"
    AutoCenter=.T.
    Top =0
    Left =0
	Height = 320
	Width = 650			
	MinHeight = 320
	MinWidth = 650	
	MAXHeight = 320
	MAXWidth = 650				
	DoCreate = .T.
	Closable = .T.
	ControlBox = .T.
	TitleBar = 1
	MaxButton= .F.	
	MinButton= .F.
	BorderStyle=3
	Icon = _screen.icon
	WindowType = 1
	desktop = .F.
	BackColor = RGB(144,176,168)
	
		
	ADD OBJECT cbaru AS commandbutton WITH ;
		AutoSize = .T., ;
		OLEDropMode = 0, ;
		Top = 276, ;
		Left = 156, ;
		Height = 23, ;
		Width = 49, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Caption = "\<Baru", ;
		Style = 0, ;
		TabIndex = 17, ;
		ToolTipText = "Membuat user baru", ;
		ForeColor = RGB(0,0,0), ;
		RightToLeft = .F., ;
		Name = "cBaru"


	ADD OBJECT crekam AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 276, ;
		Left = 207, ;
		Height = 23, ;
		Width = 70, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Caption = "  \<Rekam", ;
		TabIndex = 12, ;
		ToolTipText = "Menyimpan ke disk", ;
		ForeColor = RGB(0,0,0), ;
		Name = "cRekam"


	ADD OBJECT chapus AS commandbutton WITH ;
		AutoSize = .T., ;
		OLEDropMode = 0, ;
		Top = 276, ;
		Left = 278, ;
		Height = 23, ;
		Width = 67, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Caption = "  \<Hapus", ;
		Style = 0, ;
		TabIndex = 13, ;
		ToolTipText = "Menghapus rekord", ;
		ForeColor = RGB(0,0,0), ;
		Name = "cHapus"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " Identitas", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 87, ;
		Top = 51, ;
		Width = 55, ;
		TabIndex = 20, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " Level", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 104, ;
		Top = 151, ;
		Width = 38, ;
		TabIndex = 22, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label3"
		

	ADD OBJECT tidentitas AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 15, ;
		TabIndex = 1, ;
		ToolTipText = "Identitas user, maksimum 15 karakter", ;
		Top = 50, ;
		Width = 139, ;
		Name = "tIdentitas"


	ADD OBJECT label4 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " N a m a", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 91, ;
		Top = 174, ;
		Width = 51, ;
		TabIndex = 21, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label4"


	ADD OBJECT tlevel AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 3, ;
		Value = 0, ;
		Enabled = .T., ;
		Format = "999", ;
		Height = 24, ;
		InputMask = "999", ;
		Left = 155, ;
		MaxLength = 3, ;
		TabIndex = 5, ;
		ToolTipText = "Tentukan level user, untuk validasi akses", ;
		Top = 149, ;
		Width = 49, ;
		Name = "tLevel"


	ADD OBJECT label5 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " Old password", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 54, ;
		Top = 76, ;
		Width = 88, ;
		TabIndex = 24, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label5"


	ADD OBJECT oldpassword AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 15, ;
		TabIndex = 2, ;
		ToolTipText = "Isi password sebelumnya", ;
		Top = 75, ;
		Width = 250, ;
		PasswordChar = "x", ;
		Name = "oldPassword"


	ADD OBJECT label6 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " Jabatan", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 88, ;
		Top = 200, ;
		Width = 54, ;
		TabIndex = 27, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label6"


	ADD OBJECT tjabatan AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 30, ;
		TabIndex = 7, ;
		ToolTipText = "Isi jabatan yang sesuai", ;
		Top = 199, ;
		Width = 250, ;
		Name = "tJabatan"


	ADD OBJECT label7 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 0, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = "Kode Validasi", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 59, ;
		Top = 225, ;
		Width = 86, ;
		TabIndex = 26, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label7"


	ADD OBJECT tfoto AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 3, ;
		TabIndex = 8, ;
		ToolTipText = "Isi nama file foto anda", ;
		Top = 224, ;
		Width = 50, ;
		Name = "tFoto"


	ADD OBJECT chkfoto AS checkbox WITH ;
		Top = 232, ;
		Left = 430, ;
		Height = 18, ;
		Width = 149, ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Foto tidak ditampilkan", ;
		TabIndex = 10, ;
		ToolTipText = "Clik untuk mengubah kondisi", ;
		Name = "chkFoto"

	ADD OBJECT cekpassword AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 29, ;
		Left = 27, ;
		MaxLength = 15, ;
		TabIndex = 19, ;
		Top = 146, ;
		Visible = .F., ;
		Width = 69, ;
		Name = "cekPassword"


	ADD OBJECT label9 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " New password", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 48, ;
		Top = 103, ;
		Width = 94, ;
		TabIndex = 23, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label9"


	ADD OBJECT label10 AS label WITH ;
		AutoSize = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = " Retype new password", ;
		Enabled = .T., ;
		Height = 18, ;
		Left = 4, ;
		Top = 127, ;
		Width = 138, ;
		TabIndex = 25, ;
		DisabledForeColor = RGB(0,0,64), ;
		Name = "Label10"


	ADD OBJECT newpassword AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 15, ;
		TabIndex = 3, ;
		ToolTipText = "Isi password yang baru", ;
		Top = 100, ;
		Width = 250, ;
		PasswordChar = "x", ;
		Name = "newPassword"


	ADD OBJECT newrpassword AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 15, ;
		TabIndex = 4, ;
		ToolTipText = "Isi dengan password yang baru", ;
		Top = 124, ;
		Width = 250, ;
		PasswordChar = "x", ;
		Name = "newRPassword"


	ADD OBJECT ifoto AS image WITH ;
		Stretch = 2, ;
		Height = 175, ;
		Left = 429, ;
		Top = 50, ;
		Width = 193, ;
		Name = "iFoto"


	ADD OBJECT tnama AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Enabled = .T., ;
		Height = 24, ;
		Left = 155, ;
		MaxLength = 30, ;
		TabIndex = 6, ;
		ToolTipText = "Isi nama lengkap dan benar", ;
		Top = 174, ;
		Width = 250, ;
		Name = "tNama"


	ADD OBJECT oldphoto AS textbox WITH ;
		FontName = "MS Sans Serif", ;
		FontSize = 10, ;
		Height = 29, ;
		Left = 12, ;
		MaxLength = 15, ;
		TabIndex = 19, ;
		Top = 181, ;
		Visible = .F., ;
		Width = 69, ;
		Name = "OLDPHOTO"
	

	ADD OBJECT _close AS commandbutton WITH ;
		AutoSize = .T., ;
		OLEDropMode = 0, ;
		Top = 276, ;
		Left = 411, ;
		Height = 23, ;
		Width = 62, ;
		FontBold = .T., ;
		FontName = "MS Sans Serif", ;
		FontSize = 9, ;
		Caption = "  E\<xit", ;
		Style = 0, ;
		TabIndex = 15, ;
		ToolTipText = "Kembali", ;
		ForeColor = RGB(0,0,0), ;
		Name = "_close"


	PROCEDURE cbaru.Click
		This.Parent.tIdentitas.Value=''
		This.Parent.tNama.Value=''
		This.Parent.tJabatan.Value=''
		This.Parent.tLevel.Value=0
		This.Parent.oldPassword.Value=''
		This.Parent.newPassword.Value=''
		This.Parent.newRPassword.Value=''
		This.Parent.tFoto.Value=''
		This.Parent.chkFoto.Value=0
		This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K00.JPG'
		This.Parent.tIdentitas.SetFocus
	ENDPROC


	PROCEDURE crekam.Click
		IF !KR_USR()
			RETURN
		ENDIF

		IF !EMPTY(This.Parent.tIDENTITAS.Value)
			SELECT KR_USR
			LOCATE FOR IDENTITAS==This.Parent.tIDENTITAS.Value
			IF !FOUND()
				IF KUNCI_FI(10)
					APPEND BLANK
					REPLACE IDENTITAS WITH This.Parent.tIdentitas.Value,;
					NAMA WITH This.Parent.tNama.Value,;
					JABATAN WITH This.Parent.tJABATAN.Value,;
					PHOTO WITH This.Parent.tFoto.Value,;
					TINGKAT WITH This.Parent.tlevel.Value,;
					TAMPIL WITH This.Parent.chkFoto.Value,;
					KODE_AKSES WITH This.Parent.newRPassword.Value
					UNLOCK
					FLUSH
				ENDIF
				ELSE
				IF KUNCI_RC(10)
					REPLACE IDENTITAS WITH This.Parent.tIdentitas.Value,;
					NAMA WITH This.Parent.tNama.Value,;
					JABATAN WITH This.Parent.tJABATAN.Value,;
					PHOTO WITH This.Parent.tFoto.Value,;
					TINGKAT WITH This.Parent.tlevel.Value,;
					TAMPIL WITH This.Parent.chkFoto.Value,;
					KODE_AKSES WITH This.Parent.newRPassword.Value
					UNLOCK
					FLUSH
				ENDIF
			ENDIF
			KunciPassword(alltrim(Identitas),alltrim(kode_akses),photo)
			This.Parent.cBaru.Click
		ENDIF
	ENDPROC


	PROCEDURE chapus.Click
		IF !KR_USR()
			RETURN
		ENDIF

		SELECT KR_USR
		LOCATE FOR IDENTITAS==This.Parent.tIDENTITAS.Value
		IF FOUND()
			IF KUNCI_RC(5)
				DELETE
			ENDIF
			UNLOCK
			FLUSH
		ENDIF
		This.Parent.cBaru.Click
	ENDPROC


	PROCEDURE tidentitas.GotFocus
		This.Parent.cHapus.Enabled=.F.
		This.Parent.cRekam.Enabled=.F.
	ENDPROC


	PROCEDURE tidentitas.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		IF !KR_USR()
			RETURN
		ENDIF
		
		SELECT KR_USR
		LOCATE FOR Alltrim(IDENTITAS)==Alltrim(This.Value)
		IF FOUND()
			This.Parent.OldphOTO.Value=PHOTO
			This.Parent.oldPassword.Value=''
			This.Parent.newPassword.Value=''
			This.Parent.newRPassword.Value=''
			This.Parent.cekPassword.Value=KODE_AKSES
			This.Parent.cRekam.Enabled=.T.
			This.Parent.cHapus.Enabled=.T.
			This.Parent.tNama.Value=NAMA
			This.Parent.tJabatan.Value=JABATAN
			This.Parent.tLevel.Value=TINGKAT
			This.Parent.tFoto.Value=PHOTO
			This.Parent.chkFoto.Value=TAMPIL
			IF This.Parent.chkFoto.Value=1
				This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K'+ALLTRIM(PHOTO)+'.JPG'
				ELSE
				This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K00.JPG'
			ENDIF
			This.Parent.oldPassword.Enabled=.T.
			Else
			This.Parent.OldphOTO.Value=""
			This.Parent.oldPassword.Enabled=.F.
			This.Parent.cRekam.Enabled=.T.
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE oldpassword.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		IF This.Value==This.Parent.cekPassword.Value
			RETURN 1
		ENDIF
		IniPesan('Cek Password'+CHR(13)+'Password yang diketik salah')
		RETURN 0
	ENDPROC


	PROCEDURE tfoto.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		IF !KR_USR()
			RETURN
		ENDIF
		Select KR_USR
		LOCATE FOR ALLTRIM(PHOTO)==ALLTRIM(THIS.Value)
		IF FOUND()
			IF ALLTRIM(THis.Value)<>ALLTRIM(This.Parent.Oldphoto.Value)
				IniPesan('Cek Kode Validasi'+CHR(13)+'Kode validasi sudah digunakan')
				Return 0
			Endif
			IF This.Parent.chkFoto.Value=1
				This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K'+ALLTRIM(This.Parent.tFoto.Value)+'.JPG'
				ELSE
				This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K00.JPG'
			ENDIF
		ENDIF
		RETURN 1
	ENDPROC


	PROCEDURE chkfoto.Click
		IF This.Value=1
			This.Caption='Foto ditampilkan'
			This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K'+ALLTRIM(This.Parent.tFoto.Value)+'.JPG'
			ELSE
			This.Caption='Foto tidak ditampilkan'
			This.Parent.iFoto.Picture=ALAMATDL+'DTFOTO\K00.JPG'
		ENDIF
	ENDPROC


	PROCEDURE newrpassword.Valid
		IF LASTKEY()=5
			RETURN -1
		ENDIF
		IF This.Parent.newPassword.Value==This.Value
			RETURN 1
		ENDIF
		IniPesan('Cek Password'+CHR(13)+'Password baru tidak sama dengan yang di ulangi!')
		RETURN 0
	ENDPROC


	PROCEDURE _close.Click
		RELEASE oGasyUser
	ENDPROC
	
	
	PROCEDURE Destroy
		TUTUP('KR_USR')
	ENDPROC
	
	
	PROCEDURE tFoto.Rightclick
		Kode_pro(This.Value)
	ENDPROC
	

ENDDEFINE
*
*-- EndDefine: form1
**************************************************

Sloka 1 Sarasamuccaya

Sloka pertama dari Sarasamuccaya membuka dengan sebuah pengantar yang menekankan pentingnya kebajikan dan tindakan moral dalam kehidupan sehari-hari. Sloka ini mengajak pembaca untuk merenungkan makna hidup yang lebih dalam dan bagaimana menjalani kehidupan yang bermakna.

Teks Sloka

Sloka 1 dari Sarasamuccaya dapat diterjemahkan sebagai berikut:

"Manusia yang bijaksana hendaknya selalu berusaha untuk mencapai kebajikan yang luhur, karena kebajikan adalah fondasi dari semua hal baik dalam kehidupan. Dengan kebajikan, seseorang dapat mencapai kedamaian batin dan kebahagiaan sejati."

Penjelasan

Sloka ini menekankan bahwa kebajikan adalah dasar dari semua kebaikan. Artinya, tindakan yang baik dan benar harus menjadi prioritas dalam hidup setiap orang. Kebajikan ini bukan hanya bermanfaat bagi individu, tetapi juga bagi masyarakat secara keseluruhan. Dengan berpegang pada nilai-nilai kebajikan, seseorang dapat mencapai kedamaian dan kebahagiaan sejati yang melampaui kepuasan materi.

Relevansi

Pesan dari sloka ini tetap relevan hingga saat ini. Di tengah kehidupan modern yang sibuk dan sering kali materialistis, ajakan untuk kembali kepada kebajikan dan moralitas dasar adalah pengingat yang kuat tentang apa yang benar-benar penting. Dengan menerapkan ajaran ini, kita dapat membangun masyarakat yang lebih harmonis dan berkelanjutan, di mana setiap individu berkontribusi pada kebaikan bersama.

SARASAMUSCAYA - 001 - 113