Author Topic: grid multi colour dengan classs  (Read 2111 times)

0 Members and 1 Guest are viewing this topic.

abel

  • Guest
grid multi colour dengan classs
« on: September 30, 2011, 04:04:35 PM »

mudah sekali dengan Fvp

Offline Unknown

  • Junior Member
  • *
  • Posts: 178
Re: grid multi colour dengan classs
« Reply #1 on: September 30, 2011, 04:36:28 PM »

mudah sekali dengan Fvp

Wah bahasa pemrograman baru lagi nih,,,
Fisual vox pro
atau
Fox visual pro
hikx,,, :icon_study:
One man can do
Another can do

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #2 on: September 30, 2011, 07:24:11 PM »
udah ngak jaman multicolor....sekarang jamannya led 3d

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #3 on: October 01, 2011, 02:58:17 PM »
Quote
            Posted by: abel            Posted on: Yesterday at 04:04:35 PM                                                         Insert Quote               
mudah sekali dengan Fvp



Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: grid multi colour dengan classs
« Reply #4 on: October 01, 2011, 08:06:35 PM »
HAHAHAHAHAHA
moga Abel blum semaput nyoba buat
dengan Fixual Vrox Prot nya

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #5 on: October 02, 2011, 10:24:16 PM »
Quote
Quote<blockquote>HAHAHAHAHAHA
moga Abel blum semaput nyoba buat
dengan Fixual Vrox Prot nya
</blockquote>
 :icon_biggrin: Fungsi DynamicGridMultiColor pada fasilitas VFP Versi 11 by DM(Tim)



abel

  • Guest
Re: grid multi colour dengan classs
« Reply #6 on: October 03, 2011, 04:17:23 PM »
wah sensitif sekali para komandan nich, tp tq lah moga tidak akan salah lagi, bg wa mudah sesuai kebutuhan aja, tapi kaalu ada yg lebih sulit mungkin itu emang kebutuhan harus seperti itu, tp kalau semua yg kita tampilkan mengandung makna tentu akan ada artinya bagi si pemakai, salam dan terimakasih buat semua jendral bintang 5

Offline davidmustakim

  • Fox-id M.V.P
  • Hero Member
  • *
  • Posts: 14.053
  • Awas ya...
Re: grid multi colour dengan classs
« Reply #7 on: October 03, 2011, 07:01:40 PM »
iya tuh Jendral Imanmis emang tabiatnya sensitif gitu, heran ! ... mungkin revot ngurusin bintangnya yang buanyak... saya bintang satu aja belom, .. kemaren sempat dikasih orang tapi udah saya tukar receh, lagi butuh

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #8 on: October 03, 2011, 07:18:24 PM »
Quote
wah sensitif sekali
hihihi sopo nyang sensitip.. kite mah diporum ini "always just kidding" canda tawa ngalor ngidul is nyang penting iso ketawa  :thumbsup: ...kalo ngak percaya liat aja tuh di thread sebelah faceapp seri tampilan suka-suka di thread pling awal... lanjut teruss.. tarik maangg  :icon_biggrin:



Offline Atmanegara

  • Hero Member
  • *
  • Posts: 1.633
  • Berbagi Kerena Peduli
Re: grid multi colour dengan classs
« Reply #9 on: October 03, 2011, 08:17:51 PM »
wah sensitif sekali para komandan nich, tp tq lah moga tidak akan salah lagi, bg wa mudah sesuai kebutuhan aja, tapi kaalu ada yg lebih sulit mungkin itu emang kebutuhan harus seperti itu, tp kalau semua yg kita tampilkan mengandung makna tentu akan ada artinya bagi si pemakai, salam dan terimakasih buat semua jendral bintang 5

lah kodingnya mana nih  :toothy4: cuma tampilan doank yaa,,  :(
Cara terbaik untuk membuat mimpi Anda menjadi kenyataan adalah dengan bangun dari tidur

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #10 on: October 03, 2011, 09:28:13 PM »
Quote
lah kodingnya mana nih  :toothy4: cuma tampilan doank yaa,,  :(                                                                                                                                                                     
lia dunk tuh ada lisensinya...jadi nunggu hujan berkelir berwarna dulu baru kodingnya dikasih  :icon_biggrin:

abel

  • Guest
Re: grid multi colour dengan classs
« Reply #11 on: October 03, 2011, 09:36:38 PM »
wah klu coding mau mulai dari mana bos, tapi untuk yg search button wa kasih syntax begini

//ini syntax salah satu buka filenya
DO szload WITH 'hmres.dbf','hmres'

//dan ini seach buttonya
Local Dtgl1,Dtgl2
Local nCol,i,nColumn
Local cColumn,cdate,cback
LOCAL cimg
cColumn=''
cdate =''
cback=''
nCol=0
i=0


Dtgl1=Ttod(Thisform.tgl._Value)
Dtgl2=Ttod(Thisform.tgl._Value)+Thisform.Day.Value
nCol=Thisform.Day.Value+1
If nCol>30
   Return .F.
Endif
If nCol<1
   Return .F.
Endif

If File(Tempfilex)
   Thisform.Master.RecordSource=''
   Select roomtemp
   Use
   Do sz_dldbf With Tempfilex
   For i= 2 To Thisform.Master.ColumnCount
      Thisform.Master.DeleteColumn()
   Next i
Endif
If File(Tempfile1)
   Select tempchkin
   Use
   Do sz_dldbf With Tempfile1
Endif
If File(Tempfile)
   Select tempres
   Use
   Do sz_dldbf With Tempfile
Endif
If File(Tempgcs)
   Select tempgcs
   Use
   Do sz_dldbf With Tempgcs
Endif

Tempgcs   = sz_dbf('Temp','JUSTCHECK')
Select hmgcsc
Select * From hmgcsc LEFT JOIN hmgcs ON hmgcsc.convno = hmgcs.convno Into Table (Tempgcs) Where hmgcs.grpci=.f. AND hmgcs.cancel=.f. AND hmgcs.share=.f.
Use
Use &Tempgcs In 0 Alias Tempgcs exclu

Tempfile   = sz_dbf('Temp','JUSTCHECK')
Select hmres
Select * From hmres Into Table (Tempfile) Nowait Noconsole Where  Cancel=.F.;
   AND Share=.F. And hmres.CheckIn=.F.
Use
Use &Tempfile In 0 Alias tempres Exclusive
Select tempres
Index On roomno Tag roomno Of 'c:\temp\tempres.cdx'

Tempfile1   = sz_dbf('Temp','JUSTCHECK')
Select hmpostrn
Select * From hmpostrn Into Table (Tempfile1) Nowait Noconsole Where left(hmpostrn.roomno,2)<>'PL' And hmpostrn.CheckOut=.F.
Use
Use &Tempfile1 In 0 Alias tempchkin Exclusive
Select tempchkin
Index On roomno Tag roomno Of 'c:\temp\tempchkin.cdx'

Tempfilex   = sz_dbf('Temp','JUSTCHECK')
Select hmroom
If !Empty(Thisform.roomtype.Value)
   Select * From hmroom Into Table (Tempfilex) Where Alltrim(hmroom.rtypeid) $ Alltrim(Thisform.roomtype.Value) And Left(hmroom.roomno,2)<>'PL' Nowait Noconsole
Else
   Select * From hmroom Into Table (Tempfilex) Where Left(hmroom.roomno,2)<>'PL' Nowait Noconsole
Endif
Use
Use &Tempfilex In 0 Alias roomtemp Exclusive
Select roomtemp
cimg=SYS(5)+SYS(2003)+'\bmp\mover\'
*m.cDrive+m.cTempPath+'bmp\mover\'
ALTER table roomtemp ADD COLUMN img C(50)

SELECT roomtemp
* Buat Tempmaster
For i = 2 To nCol
   Thisform.Master.AddColumn(i)
   Thisform.Master.Columns(i).Width=100
   Thisform.Master.Columns(i).FontBold=.T.
   cdate="cdate"+Alltrim(Str((i-1)))
   Alter Table roomtemp Add Column &cdate c(15)
   cColumn="thisform.master.column"+Alltrim(Str(i))+".header1.caption"
   &cColumn=Padc(Dtoc(Dtgl1+(i-2))+' '+Left(Cdow(Dtgl1+(i-2)),3),14)
Next i

* Color
For i = 2 To nCol
   cdate="backcolo"+Alltrim(Str((i-1)))
   Alter Table roomtemp Add Column &cdate i
   Replace &cdate With 16776960 All
Next i

Go Top
Do While !Eof()
   For i = 2 To nCol
* Cek data chekin
      cdate="roomtemp.cdate"+Alltrim(Str((i-1)))
      cback="roomtemp.backcolo"+Alltrim(Str((i-1)))
      Select tempchkin
      Set Order To Tag roomno
      If Seek(roomtemp.roomno)
         Select roomtemp
         * Day Use
         If tempchkin.Deta=(Dtgl1+(i-2)) And tempchkin.detd=(Dtgl1+(i-2)) And tempchkin.roomno=roomtemp.roomno
            Replace &cdate With Proper(Left(tempchkin.guestname,15))
            Replace &cback With 12632256
         ENDIF
         * INhouse
         If tempchkin.Deta<=(Dtgl1+(i-2)) And tempchkin.detd>(Dtgl1+(i-2)) And tempchkin.roomno=roomtemp.roomno
            Replace &cdate With Proper(Left(tempchkin.guestname,15))
            Replace &cback With 65280
         Endif
      Endif
* Cek data res
      Select tempres
      Set Order To Tag roomno
      If Seek(roomtemp.roomno)
         Select roomtemp
         If tempres.Deta<=(Dtgl1+(i-2)) And tempres.detd>(Dtgl1+(i-2))
            Replace &cdate With Proper(Left(tempres.guestname,15))
            * Reserv no block room
            If roomtemp.blockrm=.F.
               If tempres.Statusres='O'
                  Replace &cback With 16744576
               Endif
               If tempres.Statusres='W'
                  Replace &cback With 16711935
               Endif
            ELSE
            * Reserv block room
               Replace &cback With 255
            Endif
         Endif
      ENDIF
      * Out of order
      Select roomtemp
      If roomtemp.outoforder=.T.
         cback="roomtemp.backcolo"+Alltrim(Str((i-1)))
         Replace &cback With 65535
      Endif
   Next i
   Select roomtemp
   Skip
ENDDO

Offline Atmanegara

  • Hero Member
  • *
  • Posts: 1.633
  • Berbagi Kerena Peduli
Re: grid multi colour dengan classs
« Reply #12 on: October 03, 2011, 09:45:00 PM »
@abel
wah panjang yaa ijin  :icon_study: :icon_study:  :thumbsup:
Cara terbaik untuk membuat mimpi Anda menjadi kenyataan adalah dengan bangun dari tidur

Offline Atmanegara

  • Hero Member
  • *
  • Posts: 1.633
  • Berbagi Kerena Peduli
Re: grid multi colour dengan classs
« Reply #13 on: October 03, 2011, 09:47:43 PM »
lia dunk tuh ada lisensinya...jadi nunggu hujan berkelir berwarna dulu baru kodingnya dikasih  :icon_biggrin:
duh mas saya ga liat klo dipojok-pojok itu,,fokus yang berwarna-warni itu  :toothy4:
Cara terbaik untuk membuat mimpi Anda menjadi kenyataan adalah dengan bangun dari tidur

Offline imanmis

  • Hero Member
  • *
  • Posts: 3.735
  • Newbie
Re: grid multi colour dengan classs
« Reply #14 on: October 03, 2011, 11:17:46 PM »
Quote
wah panjang yaa ijin  :icon_study: :icon_study:  :thumbsup:
@atmanegara ijin mulu .. sekali-kali absen kek  :icon_biggrin:
lagian gak panjang kok kan dibatesin 1-30