PROCEDURE ASIKI PUBLIC OFORM OFORM=CREATEOBJECT('TKS1') OFORM.SHOW ENDPROC DEFINE CLASS TKS1 AS TKS CAPTION = "GASY Software 8.01.00" DESKTOP=.F. ALWAYSONBOTTOM=.F. WINDOWTYPE=0 PROCEDURE CONTAINER1.CLICK ENDPROC PROCEDURE INIT THIS.BackColor=RGB(255,255,255) THIS.Label1.Left=9 THIS.Label1.AutoSize= .F. THIS.Label1.Alignment= 2 WITH THIS.CONtainer1 .BORDERWIDTH = 0 .AddObject('PF','PFX') .AddObject('GS','GASYLOGO') .HEIGHT=.GS.HEIGHT+9 .PF.HEIGHT=.HEIGHT-9 .PF.VISIBLE=.T. ENDWITH WITH THIS.CMDREFRSH .VISIBLE = .F. .AutoSize= .F. .HEIGHT=27 .WIDTH=27 .CAPTION='' .PICTURE='GASY\BMPS\WZEDIT.BMP' ENDWITH WITH THIS.CMDCETAK .VISIBLE=.F. .AutoSize= .F. .HEIGHT=27 .WIDTH=27 .CAPTION='' .PICTURE='GASY\BMPS\WZPRINT.BMP' ENDWITH THIS.REKORD.Visible= .F. THIS.Label1.TOP=THIS.COntainer1.Height+9 THIS.OLEHTML.Top=THIS.LABEL1.Top+THIS.LABEL1.Height THIS.Resize THIS.CMDREFRSH.Click ENDPROC PROCEDURE ACTIVATE THIS.CONtainer1.PF.PAGE1.TXT1.VALUE=CN_CLIENT ENDPROC PROCEDURE CONTAINER1.RESIZE THIS.GS.LEFT=THIS.Width-THIS.GS.WIDTH-27 THISFORM.LABEL1.WIDTH=THISFORM.WIDTH-9 IF TYPE('THIS.PF')='O' THIS.PF.WIDTH=THIS.GS.LEFT-THIS.PF.LEFT-9 ENDIF ENDPROC PROCEDURE CMDREFRSH.CLICK ASIKI_HTML(THIS.PARENT.REKORD.Value,THISFORM) ENDPROC PROCEDURE REKORD.RIGHTCLICK THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.VALUE),4,'0')+'.PRG' GAE(THIS.Tag) ENDPROC PROCEDURE LABEL1.CLICK THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.FXP' IF FILE(THIS.Tag) DO (THIS.Tag) WITH THISFORM.OLEHTML ENDIF ENDPROC PROCEDURE OLEHTML.BUKA LPARAMETERS OPSI,OPSI1,OPSI2 THIS.Tag='GASY\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.FXP' IF FILE(THIS.Tag) DO (THIS.Tag) WITH THIS, OPSI,OPSI1,OPSI2 ENDIF ENDPROC PROCEDURE CMDREFRSH.RIGHTCLICK THIS.Tag='GASY\BMPS\ASIKI_'+PADL(TRANSFORM(THIS.Parent.Rekord.VALUE),4,'0')+'.HTML' IF FILE(THIS.Tag) MODIFY FILE (THIS.Tag) ENDIF ENDPROC ENDDEFINE ************* DEFINE CLASS CMDX AS COMMANDBUTTON SPECIALEFFECT = 2 FONTNAME = "Arial" AUTOSIZE = .T. FONTSIZE = 11 FONTBOLD = .T. TOP = 5 LEFT = 9 CAPTION = '\<MENU' ENDDEFINE **BOF() GASYLOGO DEFINE CLASS GASYLOGO AS IMAGE VISIBLE=.T. TOP = 2 LEFT= 2 MousePointer = 15 PICTURE = 'GASY\BMPS\GASYLOGO.PNG' PROCEDURE CLICK DO FORM PROSES ENDPROC PROCEDURE RIGHTCLICK GASYTOOLS() ENDPROC ENDDEFINE **EOF() GASYLOGO **BOF() PFX DEFINE CLASS PFX AS PageFrame TOP=9 LEFT=9 TabStyle=1 TabOrienTation=0 PROCEDURE INIT THIS.AddObject('PAGE1','PAGE1X') THIS.AddObject('PAGE2','PAGE2X') THIS.AddObject('PAGE3','PAGE3X') ENDPROC PROCEDURE RESIZE FOR i=1 TO THIS.PageCount THIS.Pages(i).Resize ENDFOR ENDPROC ENDDEFINE **EOF() PFX **BEOF() PAGE1X DEFINE CLASS PAGE1X AS Page CAPTION = "USER" FONTSIZE = 12 FontBold = .T. ADD OBJECT TXT1 AS TextBox WITH ; Visible=.t.,; FontSize = 18,; FONTBOLD = .T.,; Top=9,; left=9,; MARGIN = 0,; height=30,; width=180,; fontsize=14,; MAXLENGTH = 250,; Style = 1,; BorderStyle = 0 ADD OBJECT CMD1 AS CMDX WITH CAPTION = '\<Setup' ADD OBJECT CMD2 AS CMDX WITH CAPTION = '\<Operator' ADD OBJECT CMD3 AS CMdX WITH CAPTION = '\<Refresh' PROCEDURE CMD3.CLICK THISFORM.CMDREFRSH.CLICK ENDPROC PROCEDURE CMD1.CLICK LANGGANAN() ENDPROC PROCEDURE CMD2.CLICK NAMAUSER() ENDPROC PROCEDURE RESIZE THIS.CMD3.LEFT=THIS.Parent.PageWidth-THIS.CMD3.WIDTH-9 THIS.CMD2.LEFT=THIS.CMD3.LEFT-THIS.CMD2.WIDTH THIS.CMD1.LEFT=THIS.CMD2.LEFT-THIS.CMD1.WIDTH THIS.TXT1.WIDTH=THIS.CMD1.LEFT-9 ENDPROC ENDDEFINE **EOF() PAGE1X **BOF() PAGE2X DEFINE CLASS PAGE2X AS Page CAPTION = "DATA" FONTSIZE = 12 FontBold = .T. ADD OBJECT TXT1 AS TextBox WITH ; Visible=.t.,; FontSize = 18,; FONTBOLD = .T.,; Top=9,; left=9,; MARGIN = 0,; height=30,; width=180,; fontsize=14,; MAXLENGTH = 250,; Style = 1,; BorderStyle = 0 ADD OBJECT CMD1 AS CMDX WITH CAPTION = '\<SETUP' PROCEDURE INIT THIS.TXT1.VALUE=ALAMATDL ENDPROC PROCEDURE ACTIVATE THIS.TXT1.VALUE=ALAMATDL ENDPROC PROCEDURE CMD1.CLICK IF !EMPTY(THIS.Parent.TXT1.VALUE) ALAMAT() ENDIF ENDPROC PROCEDURE CMD1.RIGHTCLICK IF !EMPTY(THIS.Parent.TXT1.VALUE) BUKAXFILE(THIS.Parent.TXT1.VALUE) ENDIF ENDPROC PROCEDURE RESIZE THIS.CMD1.LEFT=THIS.Parent.PAGEWIDTH-THIS.CMD1.WIDTH-9 THIS.TXT1.WIDTH=THIS.CMD1.LEFT-THIS.TXT1.LEFT-9 ENDPROC PROCEDURE TXT1.RIGHTCLICK THIS.ToolTipText=GETDIR(THIS.VALUE) IF !EMPTY(THIS.ToolTipText) THIS.VALUE=THIS.ToolTipText ENDIF ENDPROC ENDDEFINE **EOF() PAGE2X **BOF() PAGE3X DEFINE CLASS PAGE3X AS Page CAPTION = "CARI" FONTSIZE = 12 FontBold = .T. ADD OBJECT TXTCARI AS TextBox WITH ; Visible=.t.,; Top=9,; left=9,; height=27,; width=135,; fontsize=14,; inputMask=REPLICATE('!',150),; Format=REPLICATE('!',150) ADD OBJECT CMD1 AS CMdX WITH CAPTION = '\<REFRESH' ADD OBJECT CMD2 AS CMDX WITH CAPTION = '\<MENU' ADD OBJECT CMD3 AS CMDX WITH CAPTION = '\<USER' PROCEDURE CMD1.CLICK THISFORM.CMDREFRSH.CLICK THIS.Parent.TXTCARI.SETFOCUS ENDPROC PROCEDURE CMD2.CLICK DO FORM PROSES ENDPROC PROCEDURE CMD3.CLICK NAMAUSER() ENDPROC PROCEDURE RESIZE THIS.TXTCARI.LEFT=THIS.Parent.PAGEWIDTH-THIS.TXTCARI.WIDTH-9 THIS.CMD2.LEFT=THIS.CMD1.LEFT+THIS.CMD1.WIDTH THIS.CMD3.LEFT=THIS.CMD2.LEFT+THIS.CMD2.WIDTH ENDPROC PROCEDURE TXTCARI.GOTFOCUS IF !CEKDL() RETURN ENDIF THISFORM.OLEHTML.BUKA(-1) ENDPROC PROCEDURE TXTCARI.DBLCLICK THIS.Value='' THIS.INTERACTIVECHANGE ENDPROC PROCEDURE TXTCARI.INTERACTIVECHANGE THISFORM.OLEHTML.BUKA(1,THIS.Value) ENDPROC ENDDEFINE **EOF() PAGE3X