Join 2 Tabel

join2table.jpg

Membuat Grup Join 2 tabel pada Visual Foxpro, dimana master file mastgrp.dbf akan di respon oleh penambahan data field dari fmoutlet.dbf, lihat gambar. Membantu pada Join beberapa table. … semoga logic ini membantu, dalam mengembangkan aplikasi visual foxpro anda…..

 

 

  • DEFINE CLASS GroupM1LoadObj AS FORM
  • autocenter = .T. && display at center of the screen
  • width = 700
  • height = 610
  • borderstyle = 0 && no border (unsizeable)
  • caption = ‘Master Grouping Customer Listing’
  • movable = .F.
  • closable = .T.
  • desktop = .T.
  • maxbutton = .F. && Disable Maximize Button on the upper right corner
  • minbutton = .F.
  • showwindow = 1 && In Top Level Form
  • windowtype = 1 && modal
  • scrollbars = 3 && scroll horz and vert
  • showtips = .T. && This property will effect controls to show the tooltiptext if available
  • icon = ‘print.ico’
  • ADD OBJECT text1_Judul AS LABEL;
  • WITH;
  • alignment = 0,;
  • top = 5,;
  • left = 10,;
  • width = 400,;
  • height = 30,;
  • caption = ‘Maintenance Master Grouping Listing Cusmomer’,;
  • fontname = ‘Arial’,;
  • fontsize = 10,;
  • fontbold = .T.
  • ADD OBJECT layar_grid AS layar_gridObj
  • *** Control Button ***
  • ADD OBJECT printGB AS COMMANDGROUP;
  • WITH;
  • top = 560,;
  • left = 10,;
  • width = 200,;
  • height = 47,;
  • borderstyle = 0
  • *** End of Control Button ***
  • PROCEDURE printGB.init()
  • this.addobject(‘insert’,’insertbuttonobj’)
  • this.addobject(‘delete’,’deletebuttonobj’)
  • ENDPROC
  • ENDDEFINE
  • DEFINE CLASS insertbuttonobj AS COMMANDBUTTON
  • caption = ‘\<Insert’
  • top = 0
  • left = 0
  • width = 60
  • height = 23
  • fontname = ‘Arial’
  • fontsize = 8
  • fontbold = .T.
  • tooltiptext = ‘Insert Group Product…’
  • mousepointer = 99
  • mouseicon = ‘H_point.cur’
  • visible = .T.
  • PROCEDURE click()
  • a = RECNO()
  • APPEND BLANK
  • GO top
  • this.Parent.parent.layar_grid.refresh
  • ENDPROC
  • ENDDEFINE
  • DEFINE CLASS deletebuttonobj AS COMMANDBUTTON
  • caption = ‘\<Delete’
  • top = 0
  • left = 65
  • width = 60
  • height = 23
  • fontname = ‘Arial’
  • fontsize = 8
  • fontbold = .T.
  • tooltiptext = ‘Delete Group Product…’
  • mousepointer = 99
  • mouseicon = ‘H_point.cur’
  • visible = .T.
  • PROCEDURE click()
  • a = RECNO()
  • DELETE NEXT 1
  • GO top
  • this.Parent.parent.layar_grid.refresh
  • ENDPROC
  • ENDDEFINE
  • DEFINE CLASS layar_gridObj AS GRID
  • top = 55
  • left = 10
  • width = 680
  • height = 488
  • columncount = 0 && start setting the columncount property with 0
  • allowaddnew = .F. && disallow adding new record to the table
  • allowheadersizing = .F. && disallow resizing the header at run time
  • allowrowsizing = .F. && disallow resizing the row size at run time
  • headerheight = 18
  • rowheight = 18
  • scrollbars = 2 && Vertical only
  • recordmark = .F. && hide record mark column on the grid
  • deletemark = .F. && hide delete mark column on the grid
  • recordsourcetype = 1 && Use Alias to specified the table
  • recordsource = ‘mastgrp’ && Alias name : ‘detfile1’
  • *** Init Event ***
  • PROCEDURE init
  • this.addobject(‘column1′,’gridcolumn1’)
  • WITH this.column1
  • .controlsource = ‘mastgrp.grouping’
  • .forecolor = RGB(0,0,255)
  • .width = 300
  • .alignment = 0
  • .readonly = .F.
  • .enabled = .T. && enabled the column to get focus
  • WITH .header1
  • .caption = ‘Master Grouping’
  • .alignment = 2
  • .forecolor = RGB(0,0,255)
  • .fontname = ‘Arial’
  • .fontsize = 8
  • .fontbold = .T.
  • ENDWITH
  • ENDWITH
  • this.addobject(‘column2′,’gridcolumn1’)
  • WITH this.column2
  • .controlsource = ‘mastgrp.outletid’
  • .forecolor = RGB(0,0,255)
  • .width = 50
  • .alignment = 0
  • .readonly = .F.
  • .enabled = .T. && enabled the column to get focus
  • WITH .header1
  • .caption = ‘ID.Otlet’
  • .alignment = 2
  • .forecolor = RGB(0,0,255)
  • .fontname = ‘Arial’
  • .fontsize = 8
  • .fontbold = .T.
  • ENDWITH
  • ENDWITH
  • this.addobject(‘column3′,’gridcolumnSIOutlet’)
  • WITH this.column3
  • .controlsource = ‘mastgrp.nama_outle’
  • .forecolor = RGB(0,0,255)
  • .width = 180
  • .alignment = 0
  • .readonly = .F.
  • .enabled = .T. && enabled the column to get focus
  • WITH .header1
  • .caption = ‘Softex_Outlet’
  • .alignment = 2
  • .forecolor = RGB(0,0,255)
  • .fontname = ‘Arial’
  • .fontsize = 8
  • .fontbold = .T.
  • ENDWITH
  • ENDWITH
  • ENDPROC
  • ENDDEFINE
  • DEFINE CLASS gridcolumn1 AS COLUMN
  • bound = .T.
  • resizable = .F. && disabled to resize the column by user at run time
  • fontname = ‘Arial’
  • fontsize = 8
  • fontbold = .F.
  • selectonentry = .T. && the whole text Selected when the column gotfocus
  • visible = .T.
  • ADD OBJECT text1 AS TEXTBOX
  • PROCEDURE text1.init
  • this.margin = 0
  • this.borderstyle = 0
  • this.fontname = this.parent.fontname
  • this.fontsize = this.parent.fontsize
  • this.fontbold = this.parent.fontbold
  • ENDPROC
  • ENDDEFINE
  • DEFINE CLASS gridcolumnSIOutlet AS COLUMN
  • bound = .T.
  • resizable = .F. && disabled to resize the column by user at run time
  • fontname = ‘Arial’
  • fontsize = 8
  • fontbold = .F.
  • selectonentry = .T. && the whole text Selected when the column gotfocus
  • visible = .T.
  • ADD OBJECT text1 AS COMBOBOX
  • PROCEDURE text1.init()
  • this.margin = 0
  • this.borderstyle = 0
  • this.fontname = this.parent.fontname
  • this.fontsize = this.parent.fontsize
  • this.fontbold = this.parent.fontbold
  • SELECT fmoutlet
  • GO top
  • DO WHILE !EOF()
  • this.additem(fmoutlet.nama_outle)
  • SELECT fmoutlet
  • skip
  • ENDDO
  • ENDPROC

    ENDDEFINE
This entry was posted in Programming. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s