Code Program

	ADMIN - REFRESH
GASY Script

DN00 - 80

PROCEDURE DN00() PUBLIC oGasyDN IF !DN_MST(.F.) RETURN ENDIF oGasyDN=CREATEOBJECT("oDn00") oGasyDN.Show ENDPROC DEFINE CLASS XLabel AS label AutoSize = .T. FontName = "MS Sans Serif" FontSize = 9 BackStyle = 0 ENDDEFINE DEFINE CLASS XTextBox AS TEXTBOX FontName = "MS Sans Serif" FontSize = 10 Enabled = .F. Height = 25 MaxLength = 30 Width = 269 DisabledBackColor = RGB(128,128,128) DisabledForeColor = RGB(255,255,255) ENDDEFINE DEFINE CLASS oDn00 AS form AUTOCENTER=.T. Height = 356 Width = 550 Caption = "Pendataan Nasabah" MaxButton= .F. MinButton= .F. BorderStyle=1 Icon = _SCREEN.ICON WindowType = 1 DESKTOP=.T. BackColor = RGB(147,192,168) CLOSABLE=.F. ADD OBJECT INDUK0 AS Xlabel WITH ; Caption = "No.Induk:", ; Left = 25, ; Top = 78-50 ADD OBJECT nBaru AS Xtextbox WITH ; Left = 81, ; MaxLength = 8, ; ToolTipText = "Ketik Kode Nasabah Baru", ; Top = 73-50, ; Width = 80 ADD OBJECT NAMA0 AS Xlabel WITH ; Caption = "Nama:", ; Left = 25, ; Top = 102-50 ADD OBJECT tNama AS XTextBox WITH ; Left = 81, ; Enabled = .F., ; MaxLength = 30, ; Top = 97-50, ; Width = 269 ADD OBJECT ALAMAT0 AS Xlabel WITH ; Caption = "Alamat:", ; Left = 25, ; Top = 127-50 ADD OBJECT tAlamat AS Xtextbox WITH ; Enabled = .F., ; Left = 81, ; MaxLength = 30, ; Top = 121-50, ; Width = 269 ADD OBJECT KOTA0 AS Xlabel WITH ; Caption = "Kota:", ; Left = 25, ; Top = 151-50 ADD OBJECT tkota AS Xtextbox WITH ; Enabled = .F., ; Left = 81, ; MaxLength = 30, ; Top = 145-50, ; Width = 269 ADD OBJECT shape1 AS shape WITH ; Top = 96-50, ; Left = 379, ; Height = 147, ; Width = 145, ; SpecialEffect = 0, ; BorderColor = RGB(255,255,255) ADD OBJECT tbfoto AS image WITH ; Stretch = 2, ; BorderStyle = 1, ; Height = 138, ; Left = 386, ; Top = 100-50, ; Width = 131 ADD OBJECT JOB0 AS Xlabel WITH ; Caption = "Pekerjaan:", ; Left = 25, ; Top = 173-50 ADD OBJECT tJob AS Xtextbox WITH ; Enabled = .F., ; Height = 25, ; Left = 81, ; MaxLength = 30, ; Top = 169-50, ; Width = 269 ADD OBJECT KTP0 AS Xlabel WITH ; Caption = "Identitas:", ; Left = 25, ; Top = 196-50 ADD OBJECT tKTP AS Xtextbox WITH ; Enabled = .F., ; Height = 25, ; Left = 81, ; MaxLength = 30, ; Top = 193-50, ; Width = 269 ADD OBJECT CATATAN0 AS Xlabel WITH ; Caption = "Catatan:", ; Left = 25, ; Top = 221-50 ADD OBJECT tCatatan AS Xtextbox WITH ; Enabled = .F., ; Height = 25, ; Left = 81, ; MaxLength = 30, ; Top = 219-50, ; Width = 269 ADD OBJECT TGL_LAHIR0 AS Xlabel WITH ; Caption = "Tanggal Lahir:", ; Left = 197, ; Top = 76-50 ADD OBJECT tTanggal AS Xtextbox WITH ; Alignment = 2, ; Value = {}, ; Enabled = .F., ; Left = 270, ; Top = 72-50, ; Width = 80 ADD OBJECT tGender AS optiongroup WITH ; ButtonCount = 3, ; BackStyle = 0, ; Value = 1, ; Enabled = .F., ; Height = 25, ; Left = 81, ; Top = 245-50, ; Width = 269, ; TabIndex = 10, ; Name = "tGender", ; Option1.BackStyle = 0, ; Option1.Caption = "\<Laki", ; Option1.Value = 1, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Top = 5, ; Option1.Width = 41, ; Option1.AutoSize = .F., ; Option1.Name = "Option1", ; Option2.BackStyle = 0, ; Option2.Caption = "\<Perempuan", ; Option2.Height = 17, ; Option2.Left = 72, ; Option2.Top = 5, ; Option2.Width = 83, ; Option2.AutoSize = .F., ; Option2.Name = "Option2", ; Option3.BackStyle = 0, ; Option3.Caption = "\<Khusus", ; Option3.Height = 17, ; Option3.Left = 181, ; Option3.Top = 5, ; Option3.Width = 61, ; Option3.AutoSize = .F., ; Option3.Name = "Option3" ADD OBJECT tagama AS optiongroup WITH ; AutoSize = .F., ; ButtonCount = 6, ; BackStyle = 0, ; Value = 1, ; Enabled = .F., ; Height = 27, ; Left = 81, ; Top = 271-50, ; Width = 443, ; TabIndex = 12, ; Name = "tAgama", ; Option1.BackStyle = 0, ; Option1.Caption = "\<Hindu", ; Option1.Value = 1, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Style = 0, ; Option1.Top = 5, ; Option1.Width = 51, ; Option1.AutoSize = .T., ; Option1.Name = "Option1", ; Option2.BackStyle = 0, ; Option2.Caption = "\<Islam", ; Option2.Height = 17, ; Option2.Left = 69, ; Option2.Style = 0, ; Option2.Top = 5, ; Option2.Width = 49, ; Option2.AutoSize = .T., ; Option2.Name = "Option2", ; Option3.BackStyle = 0, ; Option3.Caption = "\<Katolik", ; Option3.Height = 17, ; Option3.Left = 131, ; Option3.Style = 0, ; Option3.Top = 5, ; Option3.Width = 55, ; Option3.AutoSize = .T., ; Option3.Name = "Option3", ; Option4.BackStyle = 0, ; Option4.Caption = "\<Protestan", ; Option4.Height = 17, ; Option4.Left = 199, ; Option4.Style = 0, ; Option4.Top = 5, ; Option4.Width = 71, ; Option4.AutoSize = .T., ; Option4.Name = "Option4", ; Option5.BackStyle = 0, ; Option5.Caption = "\<Budha", ; Option5.Height = 17, ; Option5.Left = 283, ; Option5.Style = 0, ; Option5.Top = 5, ; Option5.Width = 54, ; Option5.AutoSize = .T., ; Option5.Name = "Option5", ; Option6.BackStyle = 0, ; Option6.Caption = "\<Lainnya", ; Option6.Height = 17, ; Option6.Left = 350, ; Option6.Style = 0, ; Option6.Top = 5, ; Option6.Width = 61, ; Option6.AutoSize = .T., ; Option6.Name = "Option6" ADD OBJECT label7 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Kelamin:", ; Height = 15, ; Left = 25, ; Top = 247-50, ; Width = 42, ; TabIndex = 19, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label7" ADD OBJECT label8 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Agama:", ; Height = 15, ; Left = 25, ; Top = 273-50, ; Width = 38, ; TabIndex = 22, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label8" ADD OBJECT label9 AS label WITH ; AutoSize = .T., ; FontName = "MS Sans Serif", ; FontSize = 9, ; BackStyle = 0, ; Caption = "Blokir:", ; Height = 15, ; Left = 358, ; Top = 251-50, ; Width = 31, ; TabIndex = 23, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Label9" ADD OBJECT tblokir AS optiongroup WITH ; AutoSize = .F., ; ButtonCount = 2, ; BackStyle = 0, ; Value = 1, ; Enabled = .F., ; Height = 27, ; Left = 393, ; Top = 243-50, ; Width = 131, ; TabIndex = 11, ; Name = "tBlokir", ; Option1.BackStyle = 0, ; Option1.Caption = "\<Ya", ; Option1.Value = 1, ; Option1.Height = 17, ; Option1.Left = 12, ; Option1.Top = 5, ; Option1.Width = 32, ; Option1.AutoSize = .T., ; Option1.Name = "Option1", ; Option2.BackStyle = 0, ; Option2.Caption = "\<Tidak", ; Option2.Height = 17, ; Option2.Left = 76, ; Option2.Top = 6, ; Option2.Width = 48, ; Option2.AutoSize = .T., ; Option2.Name = "Option2" ADD OBJECT kosongkan AS image WITH ; Height = 17, ; Left = 384, ; Top = 75-50, ; Visible = .F., ; Width = 17, ; Name = "Kosongkan" ADD OBJECT rekam AS commandbutton WITH ; Top = 315, ; Left = 273, ; Height = 27, ; Width = 84, ; Caption = "\<Simpan", ; Name = "Rekam" ADD OBJECT hapus AS commandbutton WITH ; Top = 315, ; Left = 357, ; Height = 27, ; Width = 84, ; Caption = "\<Hapus", ; Name = "Hapus" ADD OBJECT cmdkembali AS commandbutton WITH ; Top = 315, ; Left = 441, ; Height = 27, ; Width = 84, ; Caption = "\<Kembali", ; Name = "cmdKembali" PROCEDURE Init THIS.MINWIDTH=THIS.WIDTH THIS.MINHEIGHT=THIS.HEIGHT This.Hapus.Visible=Dadi(11) This.Rekam.Visible=Dadi(10) THIS.SETALL("SELECTONENTRY",.F.,"TEXTBOX") ENDPROC PROCEDURE nbaru.GotFocus This.Parent.Kosongkan.Init ENDPROC PROCEDURE nbaru.Valid IF LASTKEY()=5 OR EMPTY(This.Value) RETURN -1 ENDIF IF ALLTRIM(This.Value)="+" SELECT DN_MST SET ORDER TO 1 GO BOTTOM This.Value=RIGHT('00000000'+ALLTRIM(STR(VAL(INDUK)+1,8)),8) ELSE This.Value=RIGHT('00000000'+ALLTRIM(This.Value),8) ENDIF SELECT DN_MST SET ORDER TO 1 SEEK This.Value IF FOUND() This.Parent.Kosongkan.Click This.Parent.Kosongkan.RightClick This.Parent.REKam.Enabled=DADI(42) This.Parent.HAPUS.Enabled=DADI(43) RETURN 1 ELSE This.Parent.Kosongkan.RightClick This.Parent.REKam.Enabled=DADI(41) RETURN 1 ENDIF RETURN 0 ENDPROC PROCEDURE nbaru.LostFocus IF NOT EMPTY(This.Value) IF FILE(DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.nBaru.Value),8)+'.JPG') This.Parent.tbFoto.Visible=.T. This.Parent.TbFoto.Picture=DATAFOTO+RIGHT('00000000'+ALLTRIM(This.Parent.nBaru.Value),8)+'.JPG' ELSE This.Parent.TbFoto.Picture=DATAFOTO+'00000000.JPG' ENDIF ENDIF ENDPROC PROCEDURE kosongkan.RightClick This.Parent.tNama.Enabled=.T. This.Parent.tAlamat.Enabled=.T. This.Parent.tKtp.Enabled=.T. This.Parent.tJob.Enabled=.T. This.Parent.tKota.Enabled=.T. This.Parent.tCATATAN.Enabled=.T. This.Parent.tGender.Enabled=.T. This.Parent.tBlokir.Enabled=.T. This.Parent.tTanggal.Enabled=.T. This.Parent.tAgama.Enabled=.T. ENDPROC PROCEDURE kosongkan.Click This.Parent.nBaru.Value=INDUK This.Parent.tNama.Value=NAMA This.Parent.tAlamat.Value=ALAMAT This.Parent.tKtp.Value=KTP This.Parent.tJob.Value=PEKERJAAN This.Parent.tKota.Value=KOTA This.Parent.tCATATAN.Value=CATATAN This.Parent.tGender.Value=IIF(GENDER="L",1,IIF(GENDER="P",2,3)) This.Parent.tBlokir.Value=IIF(BLOKIR="B",1,2) This.Parent.tTanggal.Value=TGL_TRS This.Parent.tAgama.Value=IIF(AGAMA="H",1,IIF(AGAMA="I",2,IIF(AGAMA="K",3,IIF(AGAMA="P",4,IIF(AGAMA="B",5,6))))) ENDPROC PROCEDURE kosongkan.Init This.Parent.nBaru.Value="" This.Parent.tNama.Value="" This.Parent.tAlamat.Value="" This.Parent.tKtp.Value="" This.Parent.tJob.Value="" This.Parent.tKota.Value="" This.Parent.tCATATAN.Value="" This.Parent.tGender.Value=0 This.Parent.tBlokir.Value=0 This.Parent.tTanggal.Value=CTOD("") This.Parent.tAgama.Value=0 This.Parent.tNama.Enabled=.f. This.Parent.tAlamat.Enabled=.f. This.Parent.tKtp.Enabled=.f. This.Parent.tJob.Enabled=.f. This.Parent.tKota.Enabled=.f. This.Parent.tCATATAN.Enabled=.f. This.Parent.tGender.Enabled=.f. This.Parent.tBlokir.Enabled=.f. This.Parent.tTanggal.Enabled=.f. This.Parent.tAgama.Enabled=.f. This.Parent.nBaru.SetFocus ENDPROC PROCEDURE rekam.Click IF !EMPTY(This.Parent.nBaru.Value) SELECT DN_MST SET ORDER TO 1 SEEK This.Parent.NBaru.Value IF !FOUND() IF Kunci_fi(15) APPEND BLANK ENDIF ENDIF REPLACE INDUK WITH This.Parent.nBaru.Value,; NAMA WITH This.Parent.tNama.Value,; ALAMAT WITH This.Parent.tAlamat.Value,; KOTA WITH This.Parent.tKOTA.Value,; KTP WITH This.Parent.tKtp.Value,; PEKERJAAN WITH This.Parent.tJob.Value,; CATATAN WITH This.Parent.tcATATAN.Value,; TGL_TRS WITH THIS.Parent.tTanggal.Value,; GENDER WITH IIF(This.Parent.tGender.Value=1,"L",IIF(This.Parent.tGender.Value=2,"P","K")),; AGAMA WITH IIF(This.Parent.tAgama.Value=1,"H",IIF(This.Parent.tAgama.Value=2,"I",; IIF(This.Parent.tAgama.Value=3,"K",IIF(This.Parent.tAgama.Value=4,"P",; IIF(This.Parent.tAgama.Value=5,"B","L"))))),; BLOKIR WITH IIF(This.Parent.tBLOKIR.Value=1,"B","") FLUSH UNLOCK This.Parent.nBaru.SetFocus ENDIF ENDPROC PROCEDURE hapus.Click IF !EMPTY(This.Parent.nBaru.Value) SELECT DN_MST SET ORDER TO 1 SEEK This.Parent.nBaru.Value IF FOUND() IF KUNCI_RC(10) DELETE FLUSH UNLOCK This.Parent.nBaru.SetFocus ENDIF ENDIF ENDIF ENDPROC PROCEDURE cmdKembali.Click RELEASE oGasyDn ENDPROC ENDDEFINE * *-- EndDefine: dn000 **************************************************

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

DN00 - 80