Code Program

	ADMIN - REFRESH
GASY Script

MYKALENDER - 50

PROCEDURE MYKALENDER(O,OBYEKS,nTop,nLeft) PUBLIC oKalender oKalender=NEWOBJECT("_Kalender") oKalender.kembalinya=obyeks IF TYPE("OBYEKS")=='O' IF TYPE('NTOP')<>'N' NTOP=0 ENDIF IF TYPE('NLEFT')<>'N' NLEFT=0 ENDIF OKALENDER.XRESIZE(O,OBYEKS,NTOP,NLEFT) oKalender.Proses(Obyeks.Value) ELSE oKalender.Top=iif(Type("nTop")=='N',nTop,(_screen.height/2)-166/2) oKalender.Left=iif(Type("nLeft")=='N',nLeft,(_screen.width/2)-138/2) ENDIF oKalender.Show(iif(type('O')='O',0,1)) RETURN ENDPROC DEFINE CLASS _Kalender AS form Height = 166 Width = 138 DoCreate = .T. BorderStyle = 2 Caption = "Kalender" MaxButton = .F. MinButton = .F. ShowTips = .T. AlwaysOnTop = .t. DESKTOP=.T. Icon='gasy.ico' HalfHeightCaption=.F. nhari = 1 kembalinya = "" bulanan = 0 nilainya = .F. ADD OBJECT label8 AS label WITH ; AutoSize = .F., ; FontBold = .F., ; FontName = "MS Sans Serif", ; FontSize = 8, ; Alignment = 2, ; Caption = "Hari Ini:", ; Height = 15, ; Left = -4, ; Top = 151, ; Width = 143, ; TabIndex = 54, ; ForeColor = RGB(255,255,255), ; BackColor = RGB(0,0,128) ADD OBJECT bulan AS combobox WITH ; FontName = "MS Sans Serif", ; FontSize = 7, ; Height = 16, ; Left = -4, ; Margin = 0, ; SpecialEffect = 1, ; Style = 2, ; TabStop = .F., ; Top = 166, ; Visible = .F., ; Width = 84, ; BorderStyle = 0 ADD OBJECT tahun AS combobox WITH ; FontName = "MS Sans Serif", ; FontSize = 7, ; MaxLength = 4, ; Height = 16, ; Left = 84, ; Margin = 0, ; SpecialEffect = 1, ; Style = 0, ; TabStop = .F., ; Top = 166, ; Visible = .F., ; Width = 53, ; Format = "9999", ; InputMask = "9999", ; BorderStyle = 0 ADD OBJECT pf AS _pageframe WITH ; ErasePage = .T., ; PageCount = 3, ; BorderWidth = 0, ; Top = 18, ; Left = 0, ; Width = 144, ; Height = 129, ; SpecialEffect = 0, ; Tabs = .F. ADD OBJECT maju AS commandbutton WITH ; Top = -1, ; Left = 118, ; Height = 19, ; Width = 19, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = ">", ; TabStop = .F., ; SpecialEffect = 2 ADD OBJECT mundur AS commandbutton WITH ; Top = -1, ; Left = -1, ; Height = 19, ; Width = 18, ; FontBold = .T., ; FontName = "MS Sans Serif", ; Caption = "<", ; TabStop = .F., ; SpecialEffect = 2 ADD OBJECT bbyyyy AS commandbutton WITH ; Top = -1, ; Left = 16, ; Height = 19, ; Width = 102, ; FontName = "MS Sans Serif", ; FontSize = 8, ; Caption = "Januari 2011", ; TabStop = .F., ; SpecialEffect = 2 PROCEDURE label8.Click this.Parent.pf.ActivePage=1 This.Parent.Proses(CTOD(This.ToolTipText)) ENDPROC PROCEDURE label8.Init This.Caption=THISFORM.HariTGL(DATE()) This.ToolTipText=DTOC(DATE()) ENDPROC PROCEDURE bulan.Init THIS.AddItem('Januari') THIS.AddItem('Februari') THIS.AddItem('Maret') THIS.AddItem('April') THIS.AddItem('Mei') THIS.AddItem('Juni') THIS.AddItem('Juli') THIS.AddItem('Agustus') THIS.AddItem('September') THIS.AddItem('Oktober') THIS.AddItem('Nopember') THIS.AddItem('Desember') this.Value=MONTH(DATE()) ENDPROC PROCEDURE bulan.InteractiveChange this.Parent.proses(DATE(VAL(this.Parent.tahun.DisplayValue),this.Value,this.Parent.nhari)) ENDPROC PROCEDURE tahun.Init FOR nom=MAX(YEAR(DATE())-10,1900) to MIN(YEAR(DATE())+5,9999) THIS.AddItem(ALLTRIM(STR(nom))) ENDFOR this.DisplayValue=ALLTRIM(STR(YEAR(DATE()))) ENDPROC PROCEDURE tahun.InteractiveChange IF LEN(ALLTRIM(this.DisplayValue))=4 IF VAL(THIS.DisplayValue)<999 THIS.DisplayValue='1000' ENDIF this.Parent.proses(DATE(VAL(this.DisplayValue),this.Parent.bulan.Value,this.Parent.nhari)) ENDIF ENDPROC PROCEDURE maju.Click IF this.Parent.pf.ActivePage=1 this.Parent.pf.hari.hr42.RightClick return ENDIF IF this.Parent.pf.ActivePage=2 this.Parent.bbyyyy.Caption=ALLTRIM(STR(VAL(this.Parent.bbyyyy.Caption)+1)) this.Parent.pf.bulan.Tag=this.Parent.bbyyyy.Caption return ENDIF IF this.Parent.pf.ActivePage=3 p1=VAL(RIGHT(ALLTRIM(this.Parent.bbyyyy.Caption),4)) this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1)) this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1)) this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2)) this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3)) this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4)) this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5)) this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6)) this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7)) this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8)) this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9)) this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10)) this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11)) this.Parent.bbyyyy.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11)) return ENDIF ENDPROC PROCEDURE mundur.Click IF this.Parent.pf.ActivePage=1 this.Parent.pf.hari.hr01.RightClick ENDIF IF this.Parent.pf.ActivePage=2 this.Parent.bbyyyy.Caption=ALLTRIM(STR(VAL(this.Parent.bbyyyy.Caption)-1)) this.Parent.pf.bulan.Tag=this.Parent.bbyyyy.Caption return ENDIF IF this.Parent.pf.ActivePage=3 p1=VAL(LEFT(ALLTRIM(this.Parent.bbyyyy.Caption),4))-10 this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1)) this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1)) this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2)) this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3)) this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4)) this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5)) this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6)) this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7)) this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8)) this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9)) this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10)) this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11)) this.Parent.bbyyyy.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11)) return ENDIF ENDPROC PROCEDURE bbyyyy.Click IF LEN(ALLTRIM(this.Caption))=4 p1=VAL(this.Caption)-6 this.Parent.pf.tahun.hrthn1.Caption=ALLTRIM(STR(p1)) this.Parent.pf.tahun.hrthn2.Caption=ALLTRIM(STR(p1+1)) this.Parent.pf.tahun.hrthn3.Caption=ALLTRIM(STR(p1+2)) this.Parent.pf.tahun.hrthn4.Caption=ALLTRIM(STR(p1+3)) this.Parent.pf.tahun.hrthn5.Caption=ALLTRIM(STR(p1+4)) this.Parent.pf.tahun.hrthn6.Caption=ALLTRIM(STR(p1+5)) this.Parent.pf.tahun.hrthn7.Caption=ALLTRIM(STR(p1+6)) this.Parent.pf.tahun.hrthn8.Caption=ALLTRIM(STR(p1+7)) this.Parent.pf.tahun.hrthn9.Caption=ALLTRIM(STR(p1+8)) this.Parent.pf.tahun.hrthn10.Caption=ALLTRIM(STR(p1+9)) this.Parent.pf.tahun.hrthn11.Caption=ALLTRIM(STR(p1+10)) this.Parent.pf.tahun.hrthn12.Caption=ALLTRIM(STR(p1+11)) this.Caption=ALLTRIM(STR(p1))+'-'+ALLTRIM(STR(p1+11)) this.Parent.pf.ActivePage=3 ELSE THIS.Caption=this.Parent.tahun.DisplayValue this.Parent.pf.bulan.Tag=this.Caption this.Parent.pf.ActivePage=2 ENDIF ENDPROC PROCEDURE XRESIZE(O,OBYEKS,NTOP,NLEFT) NTOP1=O.TOP+45+OBYEKS.TOP+NTOP NLEFT1=O.LEFT+OBYEKS.LEFT+OBYEKS.WIDTH+NLEFT IF NTOP1+188>_SCREEN.HEIGHT NTOP1=_SCREEN.HEIGHT-188 ENDIF IF NLEFT1+138>_SCREEN.WIDTH NLEFT1=_SCREEN.WIDTH-148 NTOP1=MIN(NTOP1+OBYEKS.HEIGHT,_SCREEN.HEIGHT-188) ENDIF THIS.Top=NTOP1 THIS.Left=NLEFT1 ENDPROC PROCEDURE proses PARAMETERS mTglnya this.pf.ActivePage=1 LOCAL mTglb, mTgle, mTgl1, mHr3, Mhr0, mHr1, mHr2, mIsi, Nom, mNomer IF PCOUNT()=0 mTGLNYA=DATE() ENDIF if type('mTglnya')<>'D' mTglnya=Date() endif if empty(mTglnya) mTglnya=date() endif *MNOMER=0 This.Hari(mTglnya) mTglb=mTglnya mTgle=mTglnya mTgl1=MAX(1,((DAY(mtgle)-(DAY(mtgle)%7))/7)) mHr3="HR0"+STR(DOW(mTgle),1)+STR(mTgl1,1) This.Nilainya=mTglnya FOR Nom=1 TO 42 mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM,2)),2)+".Caption" mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM,2)),2)+".StatusBarText" mHr2=STR(NOM,2)+STR(mTgl1,1) mIsi=&mHr1 IF mHr3==mIsi MNomer=Nom EXIT ENDIF ENDFOR mTglb=mTgle DO WHILE DAY(mTglb)-mNomer>=0 mNomer=mNomer+7 ENDDO FOR Nom1=mNomer TO 1 STEP -1 mHr4="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Forecolor" mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Caption" mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Setfocus" mHr2="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".Fontbold" mHr3="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM1,2)),2)+".ToolTiptext" &mHr0=STR(DAY(mTglb),2) &mHr2=.F. &mHr3=DTOC(mTGLB) IF mTglb==mTglnya &mHr2=.T. ENDIF &mHr4=RGB(0,0,0) IF LEFT(DTOS(mTGLB),6)<>LEFT(DTOS(mTglnya),6) &mHr4=RGB(128,128,128) ENDIF mTglb=mTglb-1 ENDFOR FOR Nom2=mNomer TO 42 mHr4="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Forecolor" mHr0="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Caption" mHr1="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Setfocus" mHr2="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".Fontbold" mHr3="This.pf.hari.HR"+RIGHT("00"+ALLTRIM(STR(NOM2,2)),2)+".ToolTiptext" &mHr2=.F. &mHr3=DTOC(mTGLE) IF mTgle==mTglnya &mHr2=.T. ENDIF &mHr0=STR(DAY(mTgle),2) &mHr4=RGB(0,0,0) IF LEFT(DTOS(mTGLE),6)<>LEFT(DTOS(mTglnya),6) &mHr4=RGB(128,128,128) ENDIF mTgle=mTgle+1 ENDFOR ENDPROC PROCEDURE kembali PARAMETERS mTglnya DO CASE CASE TYPE('THIS.Kembalinya.value')=='D' THIS.Kembalinya.value=mTglnya CASE TYPE('THIS.Kembalinya.value')=='C' THIS.Kembalinya.value=DTOC(mTglnya) ENDCASE Release oKalender ENDPROC PROCEDURE hari PARAMETERS mTglnya this.nhari=DAY(mtglnya) this.bulan.Value=MONTH(mTglnya) this.tahun.DisplayValue=ALLTRIM(STR(YEAR(mTglnya))) this.bbyyyy.Caption=this.bulan.DisplayValue+' '+this.tahun.DisplayValue ENDPROC PROCEDURE Init PARAMETERS DTGL IF PCOUNT()=0 IF this.bulanan=0 DTGL=DATE() ELSE DTGL=DATE(YEAR(DATE()),THIS.BULanan,1) ENDIF ENDIF THIS.PRoses(DTGL) ENDPROC PROCEDURE label8.Init This.Caption=THISFORM.HariTgl(DATE()) This.ToolTipText=DTOC(DATE()) ENDPROC PROCEDURE label8.Click this.Parent.pf.ActivePage=1 This.Parent.Proses(CTOD(This.ToolTipText)) ENDPROC procedure deactivate release oKalender endproc PROCEDURE HARITgl(xTGL) LOCAL xHARI IF TYPE('XTGL')<>'D' XTGL=DATE() ENDIF IF EMPTY(XTGL) XTGL=DATE() ENDIF xHRI='Minggu,Senin,Selasa,Rabu,Kamis,Jumat,Sabtu' xBLN='Januari,Februari,Maret,April,Mei,Juni,Juli,Agustus,September,Oktober,Nopember,Desember' RETURN GETWORDNUM(xHri,DOW(xTGL),',')+', '+TRANSFORM(DAY(xTgl))+' '+GETWORDNUM(xBln,MONTH(xTgl),',')+' '+TRANSFORM(YEAR(xTgl)) ENDPROC ENDDEFINE DEFINE CLASS _PageFrame AS pageframe add object hari as hari add object bulan as bulan add object tahun as tahun ENDDEFINE DEFINE CLASS hari as page ADD OBJECT hr01 AS hr WITH ; Top = 13, ; Left = 2, ; Width = 20, ; StatusBarText = "HR011", ; ToolTipText = "HR011" ADD OBJECT hr02 AS hr WITH ; Top = 13, ; Left = 22, ; StatusBarText = "HR021", ; ToolTipText = "HR021" ADD OBJECT hr03 AS hr WITH ; Top = 13, ; Left = 42, ; StatusBarText = "HR031", ; ToolTipText = "HR031" ADD OBJECT hr04 AS hr WITH ; Top = 13, ; Left = 62, ; StatusBarText = "HR041", ; ToolTipText = "HR041" ADD OBJECT hr05 AS hr WITH ; Top = 13, ; Left = 82, ; StatusBarText = "HR051", ; ToolTipText = "HR051" ADD OBJECT hr06 AS hr WITH ; Top = 13, ; Left = 101, ; StatusBarText = "HR061", ; ToolTipText = "HR061" ADD OBJECT hr07 AS hr WITH ; Top = 13, ; Left = 120, ; StatusBarText = "HR071", ; ToolTipText = "HR071" ADD OBJECT hr08 AS hr WITH ; Top = 33, ; Left = 2, ; StatusBarText = "HR012", ; ToolTipText = "HR012" ADD OBJECT hr09 AS hr WITH ; Top = 33, ; Left = 22, ; StatusBarText = "HR022", ; ToolTipText = "HR022" ADD OBJECT hr10 AS hr WITH ; Top = 33, ; Left = 42, ; StatusBarText = "HR032", ; ToolTipText = "HR032" ADD OBJECT hr11 AS hr WITH ; Top = 33, ; Left = 62, ; StatusBarText = "HR042", ; ToolTipText = "HR042" ADD OBJECT hr12 AS hr WITH ; Top = 33, ; Left = 82, ; StatusBarText = "HR052", ; ToolTipText = "HR052" ADD OBJECT hr13 AS hr WITH ; Top = 33, ; Left = 101, ; StatusBarText = "HR062", ; ToolTipText = "HR062" ADD OBJECT hr14 AS hr WITH ; Top = 33, ; Left = 120, ; StatusBarText = "HR072", ; ToolTipText = "HR072" ADD OBJECT hr15 AS hr WITH ; Top = 52, ; Left = 2, ; StatusBarText = "HR013", ; ToolTipText = "HR013" ADD OBJECT hr16 AS hr WITH ; Top = 52, ; Left = 22, ; StatusBarText = "HR023", ; ToolTipText = "HR023" ADD OBJECT hr17 AS hr WITH ; Top = 52, ; Left = 42, ; StatusBarText = "HR033", ; ToolTipText = "HR033" ADD OBJECT hr18 AS hr WITH ; Top = 52, ; Left = 62, ; StatusBarText = "HR043", ; ToolTipText = "HR043" ADD OBJECT hr19 AS hr WITH ; Top = 52, ; Left = 82, ; StatusBarText = "HR053", ; ToolTipText = "HR053" ADD OBJECT hr20 AS hr WITH ; Top = 52, ; Left = 101, ; StatusBarText = "HR063", ; ToolTipText = "HR063" ADD OBJECT hr21 AS hr WITH ; Top = 52, ; Left = 120, ; StatusBarText = "HR073", ; ToolTipText = "HR073" ADD OBJECT hr22 AS hr WITH ; Top = 71, ; Left = 2, ; StatusBarText = "HR014", ; ToolTipText = "HR014" ADD OBJECT hr23 AS hr WITH ; Top = 71, ; Left = 22, ; StatusBarText = "HR024", ; ToolTipText = "HR024" ADD OBJECT hr24 AS hr WITH ; Top = 71, ; Left = 42, ; StatusBarText = "HR034", ; ToolTipText = "HR034" ADD OBJECT hr25 AS hr WITH ; Top = 71, ; Left = 62, ; StatusBarText = "HR044", ; ToolTipText = "HR044" ADD OBJECT hr26 AS hr WITH ; Top = 71, ; Left = 82, ; StatusBarText = "HR054", ; ToolTipText = "HR054" ADD OBJECT hr27 AS hr WITH ; Top = 71, ; Left = 101, ; StatusBarText = "HR064", ; ToolTipText = "HR064" ADD OBJECT hr28 AS hr WITH ; Top = 71, ; Left = 120, ; StatusBarText = "HR074", ; ToolTipText = "HR074" ADD OBJECT hr29 AS hr WITH ; Top = 90, ; Left = 2, ; StatusBarText = "HR015", ; ToolTipText = "HR015" ADD OBJECT hr30 AS hr WITH ; Top = 90, ; Left = 22, ; StatusBarText = "HR025", ; ToolTipText = "HR025" ADD OBJECT hr31 AS hr WITH ; Top = 90, ; Left = 42, ; StatusBarText = "HR035", ; ToolTipText = "HR035" ADD OBJECT hr32 AS hr WITH ; Top = 90, ; Left = 62, ; StatusBarText = "HR045", ; ToolTipText = "HR045" ADD OBJECT hr33 AS hr WITH ; Top = 90, ; Left = 82, ; StatusBarText = "HR055", ; ToolTipText = "HR055" ADD OBJECT hr34 AS hr WITH ; Top = 90, ; Left = 101, ; StatusBarText = "HR065", ; ToolTipText = "HR065" ADD OBJECT hr35 AS hr WITH ; Top = 90, ; Left = 120, ; StatusBarText = "HR075", ; ToolTipText = "HR075" ADD OBJECT hr36 AS hr WITH ; Top = 109, ; Left = 2, ; StatusBarText = "HR016", ; ToolTipText = "HR016" ADD OBJECT hr37 AS hr WITH ; Top = 109, ; Left = 22, ; StatusBarText = "HR026", ; ToolTipText = "HR026" ADD OBJECT hr38 AS hr WITH ; Top = 109, ; Left = 42, ; StatusBarText = "HR036", ; ToolTipText = "HR036" ADD OBJECT hr39 AS hr WITH ; Top = 109, ; Left = 62, ; StatusBarText = "HR046", ; ToolTipText = "HR046" ADD OBJECT hr40 AS hr WITH ; Top = 109, ; Left = 82, ; StatusBarText = "HR056", ; ToolTipText = "HR056" ADD OBJECT hr41 AS hr WITH ; Top = 109, ; Left = 101, ; StatusBarText = "HR066", ; ToolTipText = "HR066" ADD OBJECT hr42 AS hr WITH ; Top = 109, ; Left = 120, ; StatusBarText = "HR076", ; ToolTipText = "HR076" ADD OBJECT label2 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "S", ; Height = 13, ; Left = 22, ; Top = 0, ; Width = 20, ; TabIndex = 45, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Senin, Soma" ADD OBJECT label4 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "R", ; Height = 13, ; Left = 62, ; Top = 0, ; Width = 20, ; TabIndex = 47, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Rabu, Buda" ADD OBJECT label6 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "J", ; Height = 13, ; Left = 101, ; Top = 0, ; Width = 20, ; TabIndex = 49, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Jumat, Sukra" ADD OBJECT label1 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "M", ; Height = 13, ; Left = 2, ; Top = 0, ; Width = 19, ; TabIndex = 44, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Minggu, Redite" ADD OBJECT label3 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "S", ; Height = 13, ; Left = 42, ; Top = 0, ; Width = 20, ; TabIndex = 46, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Selasa, Anggara" ADD OBJECT label5 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "K", ; Height = 13, ; Left = 82, ; Top = 0, ; Width = 20, ; TabIndex = 48, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Kemis, Wraspati" ADD OBJECT label7 AS label WITH ; FontName = "MS Sans Serif", ; FontSize = 9, ; Alignment = 2, ; BorderStyle = 1, ; Caption = "S", ; Height = 13, ; Left = 120, ; Top = 0, ; Width = 20, ; TabIndex = 50, ; ForeColor = RGB(192,192,192), ; BackColor = RGB(128,128,128), ; ToolTipText = "Sabtu, Saniscara" PROCEDURE label1.Click this.Parent.hr01.RightClick ENDPROC PROCEDURE label7.Click this.Parent.hr42.RightClick ENDPROC enddefine define class bulan as page ADD OBJECT hrbl1 AS hrbl WITH Top = 8, Left = 4, Caption = "JAN", bl = 1 ADD OBJECT hrbl2 AS hrbl WITH Top = 8, Left = 50, Caption = "FEB", bl = 2 ADD OBJECT hrbl3 AS hrbl WITH Top = 8, Left = 96, Caption = "MAR", bl = 3 ADD OBJECT hrbl4 AS hrbl WITH Top = 37, Left = 4, Caption = "APR", bl = 4 ADD OBJECT hrbl5 AS hrbl WITH Top = 37, Left = 50, Caption = "MEI", bl = 5 ADD OBJECT hrbl6 AS hrbl WITH Top = 37, Left = 96, Caption = "JUN", bl = 6 ADD OBJECT hrbl7 AS hrbl WITH Top = 67, Left = 4, Caption = "JUL", bl = 7 ADD OBJECT hrbl8 AS hrbl WITH Top = 67, Left = 50, Caption = "AGS", bl = 8 ADD OBJECT hrbl9 AS hrbl WITH Top = 67, Left = 96, Caption = "SEP", bl = 9 ADD OBJECT hrbl10 AS hrbl WITH Top = 98, Left = 4, Caption = "OKT", bl = 10 ADD OBJECT hrbl11 AS hrbl WITH Top = 98, Left = 50, Caption = "NOP", bl = 11 ADD OBJECT hrbl12 AS hrbl WITH Top = 98, Left = 96, Caption = "DES", bl = 12 enddefine define class tahun as page ADD OBJECT hrthn1 AS hrthn WITH Top = 10, Left = 7 ADD OBJECT hrthn2 AS hrthn WITH Top = 10, Left = 49 ADD OBJECT hrthn3 AS hrthn WITH Top = 10, Left = 92 ADD OBJECT hrthn4 AS hrthn WITH Top = 38, Left = 7 ADD OBJECT hrthn5 AS hrthn WITH Top = 38, Left = 49 ADD OBJECT hrthn6 AS hrthn WITH Top = 38, Left = 92 ADD OBJECT hrthn7 AS hrthn WITH Top = 66, Left = 7 ADD OBJECT hrthn8 AS hrthn WITH Top = 66, Left = 49 ADD OBJECT hrthn9 AS hrthn WITH Top = 66, Left = 92 ADD OBJECT hrthn10 AS hrthn WITH Top = 94, Left = 7 ADD OBJECT hrthn11 AS hrthn WITH Top = 94, Left = 49 ADD OBJECT hrthn12 AS hrthn WITH Top = 94, Left = 92 ENDDEFINE * *-- EndDefine: _kalender ************************************************** DEFINE CLASS hr AS commandbutton AutoSize = .F. Height = 20 Width = 20 FontName = "MS Sans Serif" FontSize = 8 Caption = "01" StatusBarText = "HR011" TabStop = .F. ToolTipText = "HR011" SpecialEffect = 2 PROCEDURE GotFocus This.Parent.Parent.Parent.Hari(CTOD(This.ToolTiptext)) ENDPROC PROCEDURE Click GASY_TGL=CTOD(This.ToolTiptext) This.Parent.Parent.Parent.Kembali(CTOD(This.ToolTiptext)) ENDPROC PROCEDURE RightClick This.Parent.Parent.Parent.Proses(CTOD(This.ToolTiptext)) ENDPROC ENDDEFINE DEFINE CLASS hrbl AS commandbutton Height = 27 Width = 39 FontName = "MS Sans Serif" Caption = "JAN" SpecialEffect = 0 bl = 1 PROCEDURE Click This.Parent.Parent.Parent.Proses(DATE(VAL(this.Parent.Parent.Parent.bbyyyy.caption),this.bl,1)) ENDPROC ENDDEFINE DEFINE CLASS hrthn AS commandbutton Height = 27 Width = 39 Caption = "2011" TabStop = .F. PROCEDURE Click This.Parent.Parent.Parent.bbyyyy.caption=this.caption This.Parent.Parent.Parent.pf.activepage=2 ENDPROC ENDDEFINE

ADMIN REFRESH UDF FORM GASY_UDF DATA PROSES LAPORAN

MYKALENDER - 50