Search the web
Sign In
New User? Sign Up
Delphindo
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Hear how Yahoo! Groups has changed the lives of others. Take me there.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
Messages 64075 - 64104 of 64104   Newest  |  < Newer  |  Older >  |  Oldest
Messages: Show Message Summaries   (Group by Topic) Sort by Date v  
#64104 From: steve hosea <hosea_steve@...>
Date: Wed Dec 9, 2009 2:46 pm
Subject: Re: Tanya rubah lebar kolom excel di delphi
hosea_steve
Offline Offline
Send Email Send Email
 
hi, sorry ada yang kurang, ini coding perbaikannya hehehe

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;


Sheet.Columns[No_Column].ColumnWidth := 5 ; //lebar kolom

salam



________________________________
From: steve hosea <hosea_steve@...>
To: Delphindo@yahoogroups.com
Sent: Wed, December 9, 2009 9:44:53 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi


hi, sorry interupt, setau aku coding untuk merubah column excell pada delphi
adalah :

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;

Sheet.Column[ No_Column] .ColumnWidth := 5 ; //lebar kolom

salam

____________ _________ _________ __
From: dian sastro <maejeedo@gmail. com>
To: Delphindo@yahoogrou ps.com
Sent: Mon, December 7, 2009 1:39:55 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi

jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@yahoo. com>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@olympicfur n iture.co. id>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogro u ps.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObjec t('Excel. Application' );
> xls.Workbooks. ADD;
> Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
> sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;
>
>
> Sheet.Cells[ 1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[ 2,4].Borders. LineStyle := xlContinuous ;   //border
> Sheet.Cells[ 4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[ 5,1].NumberForma t := '_(* #,##0.0_);_( * (#,##0.0);_( *
> ""-""??_);_( @_)' ;  // format numeric
>
> Sheet.Range[ 'B2:Y7']. HorizontalAlignm ent := xlCenter ;  //center cell
>
> Sheet.Range[ 'C5:F6']. Merge ;
> Sheet.Range[ 'C5:F6']. VerticalAlignmen t := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@yahoo. com>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya. .
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>

[Non-text portions of this message have been removed]







[Non-text portions of this message have been removed]

#64103 From: steve hosea <hosea_steve@...>
Date: Wed Dec 9, 2009 2:44 pm
Subject: Re: Tanya rubah lebar kolom excel di delphi
hosea_steve
Offline Offline
Send Email Send Email
 
hi, sorry interupt, setau aku coding untuk merubah column excell pada delphi
adalah :

xls:=CreateOleObjec t('Excel. Application' );
xls.Workbooks. ADD;
Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;


Sheet.Column[No_Column].ColumnWidth := 5 ; //lebar kolom

salam



________________________________
From: dian sastro <maejeedo@...>
To: Delphindo@yahoogroups.com
Sent: Mon, December 7, 2009 1:39:55 PM
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi


jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@yahoo. com>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@olympicfurn iture.co. id>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogrou ps.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObjec t('Excel. Application' );
> xls.Workbooks. ADD;
> Xls.Workbooks[ 1].Worksheets[ 1].Name:= 'Sheet1';
> sheet := xls.Workbooks[ 1].Worksheets[ 'sheet1'] ;
>
>
> Sheet.Cells[ 1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[ 2,4].Borders. LineStyle := xlContinuous ;   //border
> Sheet.Cells[ 4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[ 5,1].NumberForma t := '_(* #,##0.0_);_( * (#,##0.0);_( *
> ""-""??_);_( @_)' ;  // format numeric
>
> Sheet.Range[ 'B2:Y7']. HorizontalAlignm ent := xlCenter ;  //center cell
>
> Sheet.Range[ 'C5:F6']. Merge ;
> Sheet.Range[ 'C5:F6']. VerticalAlignmen t := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@yahoo. com>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya. .
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>
>
> ------------ --------- --------- ------
>
> Berlangganan: delphindo-subscribe @yahoogroups. com
> Stop Berlangganan: delphindo-unsubscri be@yahoogroups. com
> Keluhan Milis(Unbouncing, spam,dll) : delphindo-owner@ yahoogroups. comYahoo!
Groups Links
>
>
>
>






[Non-text portions of this message have been removed]

#64102 From: inyo_84@...
Date: Wed Dec 9, 2009 1:56 pm
Subject: hi You should see it now
inyo_84
Offline Offline
Send Email Send Email
 
Personal 75% OFF

here



       Buat sendiri desain eksklusif Messenger Pingbox Anda sekarang! Membuat
tempat chat pribadi di blog Anda sekarang sangatlah mudah.
http://id.messenger.yahoo.com/pingbox/

[Non-text portions of this message have been removed]

#64101 From: Jaimy Azle <jazlee@...>
Date: Wed Dec 9, 2009 7:45 am
Subject: Re: Componen TDBF
kang_jaim
Offline Offline
Send Email Send Email
 
On Wednesday, December 9, 2009, 1:14:08 PM, allies_xposs@... wrote:

> Di delphi ada komponen tdbf ga ya? Sory kalau basic and jadul banget
> pertanyaanya..

try to search:

http://www.google.co.id/#q=tdbf+delphi


--
Salam,

-Jaimy Azle

"Great new ideas usually come from very small teams...
  don't give up so easily."
       -- John Kaster

#64100 From: allies_xposs@...
Date: Wed Dec 9, 2009 6:14 am
Subject: Componen TDBF
allies_xposs
Online Now Online Now
Send Email Send Email
 
Di delphi ada komponen tdbf ga ya? Sory kalau basic and jadul banget
pertanyaanya..
Piss..

Regard
Allies - XPOSS (eXtra Point Of Sale)
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

#64099 From: Jaimy Azle <jazlee@...>
Date: Wed Dec 9, 2009 5:51 am
Subject: Re: OOT:Component utk FTP
kang_jaim
Offline Offline
Send Email Send Email
 
On Wednesday, December 9, 2009, 11:41:46 AM, Teguh Susanto wrote:

> ada yang pernah buat aplikasi FTP atau share file antar Komp 1 ke
> Komp yg lain, klo boleh tau pakai komponent apa aja...

Indy, sudah ada bersama IDE bawaan.

--
Salam,

-Jaimy Azle

"Great new ideas usually come from very small teams...
  don't give up so easily."
       -- John Kaster

#64098 From: Teguh Susanto <teguh4milis@...>
Date: Wed Dec 9, 2009 4:41 am
Subject: OOT:Component utk FTP
teguh4milis
Offline Offline
Send Email Send Email
 
dear miliser delphindo
ada yang pernah buat aplikasi FTP atau share file antar Komp 1 ke Komp yg lain,
klo boleh tau pakai komponent apa aja...thanks

regrads


teguh



       Mencari semua teman di Yahoo! Messenger? Undang teman dari Hotmail, Gmail
ke Yahoo! Messenger dengan mudah sekarang! http://id.messenger.yahoo.com/invite/

[Non-text portions of this message have been removed]

#64097 From: Eldi Munggaran <munggaran@...>
Date: Wed Dec 9, 2009 4:24 am
Subject: Re: Bls: Fastreport dengan field memo, jumlah line bervariasi
padumukan
Offline Offline
Send Email Send Email
 
bisa mas, makasih banyak, semoga awet muda :)

2009/12/9 Teguh Susanto <teguh4milis@...>

>
>
> udah coba setting properties
> TfrxMemoView.StrecthMode:=smMaxHeight;
>
> --- Pada Sel, 8/12/09, Eldi Munggaran
<munggaran@...<munggaran%40gmail.com>>
> menulis:
>
> Dari: Eldi Munggaran <munggaran@... <munggaran%40gmail.com>>
> Judul: [Delphindo] Fastreport dengan field memo, jumlah line bervariasi
> Kepada: "Delphindo" <Delphindo@yahoogroups.com<Delphindo%40yahoogroups.com>
> >
> Tanggal: Selasa, 8 Desember, 2009, 9:50 PM
>
>
>
> Halo rekan-rekan delphiers :)
>
> Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe
>
> Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,
>
> masalahnya bagaimana supaya report bisa mengenali variabel memo supaya
>
> heightnya dinamis tidak mengikuti height pada saat desain.
>
> Regards,
>
> Eldi Munggaran
>
> [Non-text portions of this message have been removed]
>
> Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk Yahoo!
> otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
> Dapatkan IE8 di sini!
> http://downloads.yahoo.com/id/internetexplorer
>
> [Non-text portions of this message have been removed]
>
>
>



--
Eldi Munggaran S.KOM
IT Professional


[Non-text portions of this message have been removed]

#64096 From: Teguh Susanto <teguh4milis@...>
Date: Wed Dec 9, 2009 4:19 am
Subject: Bls: Fastreport dengan field memo, jumlah line bervariasi
teguh4milis
Offline Offline
Send Email Send Email
 
udah coba setting properties
TfrxMemoView.StrecthMode:=smMaxHeight;

--- Pada Sel, 8/12/09, Eldi Munggaran <munggaran@...> menulis:

Dari: Eldi Munggaran <munggaran@...>
Judul: [Delphindo] Fastreport dengan field memo, jumlah line bervariasi
Kepada: "Delphindo" <Delphindo@yahoogroups.com>
Tanggal: Selasa, 8 Desember, 2009, 9:50 PM







 









       Halo rekan-rekan delphiers :)



Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe

Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,

masalahnya bagaimana supaya report bisa mengenali variabel memo supaya

heightnya dinamis tidak mengikuti height pada saat desain.



Regards,

Eldi Munggaran



[Non-text portions of this message have been removed]























       Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer

[Non-text portions of this message have been removed]

#64095 From: Eldi Munggaran <munggaran@...>
Date: Wed Dec 9, 2009 3:50 am
Subject: Fastreport dengan field memo, jumlah line bervariasi
padumukan
Offline Offline
Send Email Send Email
 
Halo rekan-rekan delphiers :)

Saya mencoba membuat report yang pada tiap record memiliki field ber-tipe
Memo, kadang user memasukan 4 baris, kadang 7 baris, kadang 12 baris,
masalahnya bagaimana supaya report bisa mengenali variabel memo supaya
heightnya dinamis tidak mengikuti height pada saat desain.

Regards,
Eldi Munggaran


[Non-text portions of this message have been removed]

#64094 From: Herbin Saragi <herbin_saragi@...>
Date: Wed Dec 9, 2009 2:54 am
Subject: Error Multiplestep generator blablabla
herbin_saragi
Offline Offline
Send Email Send Email
 
Dear delphier..
saya ada problem error multiplestep-generation errors, check value bla bla bla
error ini muncul ketika saya mau execute simpan data

kode nya seperti ini
procedure Tfrmsrv.ssimpanClick(Sender: TObject);
var cno : string;
    ksg : string;
begin
ksg:='a';
   tbno.Close;
   tbno.Open;
   tbno.First;
  
cno:='SRV-'+trim(copy(inttostr(1+strtoint('1'+copy(tbsrvs_urutservice.Value,5,6)\
)),2,7));
   tbno.UpdateBatch;
   tbdsrv.First;
while not tbdsrv.Eof do begin
tbdsrv.Edit;
tbdsrvd_noservice.Value:=cno;
tbdsrvd_no.Value:=tbsrvs_noservice.Value;
tbdsrv.Next;
   end;
         tbdsrv.First;
   while not tbdsrv.Eof do
   begin
   tbdsrv.Edit;
   tbdsrvd_urut.Value:=tbsrvs_urutservice.Value;
   tbdsrvd_no.Value:=tbsrvs_noservice.Value;
   tbdsrvs_area.Value:=tbsrvs_area.Value;
   tbdsrvS_nmuser.Value:=tbsrvs_nmuser.Value;

   tbdsrv.UpdateBatch;
   tbdsrv.Next;
end;
tbsrv.Edit;
tbsrvs_urutservice.Value:=dbedit1.Text;
tbsrvs_nospk.Value:=dbedit8.Text;
tbsrvs_tglspk.AsDateTime:=dt2.Date;
tbsrvs_tglservice.AsDateTime:=dt1.DateTime;
tbsrvs_nmservice.Value:=dbedit4.Text;
tbsrvs_serviceby.Value:=dbedit5.Text;
tbsrvs_keterangan.Value:=memo1.Text;
tbsrvs_nopol.Value:=dbedit7.Text;
tbsrvs_nmuser.Value:=dbedit2.Text;
tbsrvs_model.Value:=dbedit3.Text;
tbsrvs_area.Value:=dbedit6.Text;
tbsrvs_kmtrhr.Value:=dbedit12.Text;
tbsrv.UpdateBatch;

dm.cn.CommitTrans;
tbsrv.Last;
tbsrv.Close;
tbsrv.Open;
FormActivate(Sender);
tbdsrv.Open;
tbdsrv.Last;

stambah.Enabled:=true;
ssimpan.Enabled:=false;
sbatal.Enabled:=false;
supdate.Enabled:=false;

spreview.Enabled:=true;
scommit.Enabled:=false;
skeluar.Enabled:=true;
end;
end;
seluruh tipe data di sqlserver adalah nvarchar
kecuali tanggal itu tipenya datetime

errornya seperti attachment saya ini
mohon bantuannya,


Herbin




[Non-text portions of this message have been removed]

#64093 From: satria wirang <satriawirang@...>
Date: Wed Dec 9, 2009 12:57 am
Subject: Re: Cek Printer on / off
satriawirang@...
Send Email Send Email
 
Pak Zamrony,
Saya menggunakan Delphi 7 Windows XP SP3.
untuk import Library saya lakukan Project, Import Type Library, kemudian ada
plihan

WMI ADSI Extension Type Library (Version 1.0)
WMI Cntl 1.0 Type Library (version 1.0)

yang mana yg harus dipilih pak ?

Pada 4 Desember 2009 13:54, Zamrony P. Juhara <zamronypj@...> menulis:

>
>
> Sekedar tambahan bila ingin info yang lebih spesifik Anda bisa mengubah
> field yang diambil, contohnya bila hanya ingin info nama printer dan status
> work offiline kodenya bisa dimodifikasi menjadi
>
> Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer' );
>
> jika hanya perlu status printer tertentu saja
>
> Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer WHERE
> Name='+quotedstr('Canon Bubble-Jet BJC-265SP') );
>
>
> Zamrony P. Juhara
> Website:
> http://juhara.com
> Blog:
> http://zamronyp.juhara.com
> http://delphindo.wordpress.com (kontributor)
>
> --- On Fri, 12/4/09, Zamrony P. Juhara
<zamronypj@...<zamronypj%40yahoo.com>>
> wrote:
>
> From: Zamrony P. Juhara <zamronypj@... <zamronypj%40yahoo.com>>
>
> Subject: Re: [Delphindo] Cek Printer on / off
> To: Delphindo@yahoogroups.com <Delphindo%40yahoogroups.com>
> Date: Friday, December 4, 2009, 1:38 PM
>
>
>
>
> Untuk mengetahui status printer offline atau online, Anda bisa gunakan
> Windows Management Instrumentation (WMI). Contohnya seperti ini:
>
> procedure TForm1.FormShow( Sender: TObject);
>
> begin
>
> Label1.Caption: ='Work offline: '+
>
> getWMIString( '',
>
> 'Win32_Printer' ,
>
> 'WorkOffline' );
>
> Memo1.Text:= selectWMI( 'SELECT * FROM Win32_Printer' );
>
> end;
>
> Detil fungsi SelecWMI() dan getWMIString( ) bisa Anda baca di blog
> delphindo
>
> http://delphindo. wordpress. com/2008/ 03/22/delphi- dan-windows-
> management- instrumentation- wmi-tutorial- singkat/
>
> Kode diatas adalah modifikasi kode di artikel tersebut.
>
> Zamrony P. Juhara
>
> Website:
>
> http://juhara. com
>
> Blog:
>
> http://zamronyp. juhara.com
>
> http://delphindo. wordpress. com (kontributor)
>
> [Non-text portions of this message have been removed]
>
>
>


[Non-text portions of this message have been removed]

#64092 From: Mpu Gondrong <oguds@...>
Date: Tue Dec 8, 2009 9:56 am
Subject: Re: Cari persentase di sql
sultan_kalibata
Offline Offline
Send Email Send Email
 
Selasa, 08/12/2009 16:27:52, johan menulis:

jm> Masalahnya total data pembagian tidak mencapai 100 % atau lebih
jm> dari 100%. Sementara client saya minta harus 100%.

Client sudah benar, total tidak 100% tentu janggal. Kita tahu
salahnya, akibat pembulatan. Solusinya, ya ditulis saja 100% gitu. Toh
tidak mungkin < atau > 100%. Harus 100%. :-)

Tertanda,
Oguds [960000031]

#64091 From: johan max <johansmax@...>
Date: Tue Dec 8, 2009 9:27 am
Subject: Cari persentase di sql
johansmax
Offline Offline
Send Email Send Email
 
Salam sejahtera,
saya punya data di database sql server,
misal tabeldata (nama,nilai)
nama string, nilai angka double.

saya bikin query berikut :
select nama,nilai / total as persentase
from tabledata a, ( select sum(nilai) as total from tabeldata) b

hasilnya sesuai harapan. Lihat di bawah
Masalahnya total data pembagian tidak mencapai 100 % atau lebih dari 100%.
Sementara client saya minta harus 100%. Saya menerangkan kepada mereka kasus ini
adalah
masalah pembulatan saja. kadang 100,1% atau 99.6%.
Gimana yach solusinya. Mohon bantuannya

PERTAMINA 60.50%
SHELL 12.00%
TOP-1 4.60%
MOBIL-1 1.50%
CASTROL 3.40%
PETRONAS 3.10%
REPSOL 5.60%
AGIP 2.00%
PENZOIL 2.60%
TOTAL 1.50%
MOTUL 0.80%
EVALUBE 0.30%
ADNOC 0
JUMBO 0.00%
CONOCO 0.10%
INDO 0
TOPLUBE 0.30%
ESSO 0.40%
DELTALUBE 0.00%
FUCH 0.20%
TOYOTA 1.20%
  100.10%




[Non-text portions of this message have been removed]

#64090 From: Taufiq Bastomo <it_taufiq@...>
Date: Tue Dec 8, 2009 3:10 am
Subject: [OOT] Lowongan Programmer
it_taufiq
Offline Offline
Send Email Send Email
 
Salah satu
group perusahaan furniture di Surabaya dengan cabang di seluruh Indonesia
membutuhkan
:

Programmer
      Delphi (code : DP)Programmer
      Java (code: JV)Programmer
      .Net (code: NT)

 

Syarat Umum:

Pria, Usia
      max 30 th.D3 / S1
      diutamakan dari jurusan Informatika.Berpengalaman
      min 1 tahun, atau fresh graduate IPK min 2,75 untuk fresh
graduate.Menguasai
      database server (misal: sql server, Oracle, MySql) Menguasai pemrograman
berbasis web
      (php, javascript) merupakan nilai tambah.Kepribadian baik dan dapat bekerja
dengan
      tim.Bersedia di tempatkan di Surabaya dan
      melakukan perjalanan dinas keluar kota.





bagi yg berminat harap kirim surat lamaran dan cv ke :

PT. Putra Bintang Timur Lestari

Jl. Tambak Langon Indah blok I no 2

Surabaya

Atau email ke : it_pbtlsby@...






[Non-text portions of this message have been removed]

#64089 From: adin@...
Date: Mon Dec 7, 2009 6:43 am
Subject: size font
adin@...
Send Email Send Email
 
Rekan Delphiers

Minta bantuannya untuk mengeset ukuran font pada objek RichEdit untuk
pencetakan laporan.
Dari ukuran font terkecil hingga terbesar
contoh kodingnya ya...

Trims.

Salam,
Adi Nugroho

#64088 From: "est_linker" <teryitem@...>
Date: Mon Dec 7, 2009 4:40 am
Subject: PEMBERITAHUAN
est_linker
Offline Offline
Send Email Send Email
 
Semangat Pagi > > > > Dear Teman2 > > > > Kami beritahuan bahwa karyawan
kami: > > > > NAMA  : JOKO NURCAHYO. > > JABATAN  : MARKETING > > > >
Terhitung mulai tanggal 2 Desember 2009 sudah tidak bekerja lagi di > >
FINGERSPOT SOLO, sehingga semua tindakan dan perbuatannya sudah diluar
tanggung > > jawab kami. > > Mohon maaf sebelumnya dan atas
perhatiannnya kami sampaikan terima kasih.  > > > > Salam Hangat > >
FINGERSPOT SOLO > > Telp. 0271-723097 > >


[Non-text portions of this message have been removed]

#64087 From: dian sastro <maejeedo@...>
Date: Mon Dec 7, 2009 6:39 am
Subject: Re: Tanya rubah lebar kolom excel di delphi
maejeedo@...
Send Email Send Email
 
jangan dimasukkan xlCOntinuos, masukkan nilai integer xlcontinous

-sas-

2009/12/7  <medi_bgr@...>:
> Ok betul...
> Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> -----Original Message-----
> From: "budi" <costing@...>
> Date: Mon, 7 Dec 2009 08:12:50
> To: <Delphindo@yahoogroups.com>
> Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi
>
> seperti ini bukan yang dimaksud
>
> xls:=CreateOleObject('Excel.Application');
> xls.Workbooks.ADD;
> Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
> sheet := xls.Workbooks[1].Worksheets['sheet1'];
>
>
> Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
> Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
> Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
> Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
> ""-""??_);_(@_)' ;  // format numeric
>
> Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell
>
> Sheet.Range['C5:F6'].Merge ;
> Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell
>
> ----- Original Message -----
> From: <medi_bgr@...>
>
>> Halo teman2 smua..
>>
>> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
> dapet dr milis ini menggunakan comobj..
>>
>> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
>> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>>
>> Tks b4 ;)
>> Sent from my BlackBerry®
>> powered by Sinyal Kuat INDOSAT
>
>
>
>
> ------------------------------------
>
> Berlangganan: delphindo-subscribe@yahoogroups.com
> Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
> Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...!
Groups Links
>
>
>
>
>
> ------------------------------------
>
> Berlangganan: delphindo-subscribe@yahoogroups.com
> Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
> Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...!
Groups Links
>
>
>
>

#64086 From: medi_bgr@...
Date: Mon Dec 7, 2009 5:52 am
Subject: Re: Tanya rubah lebar kolom excel di delphi
medi_bgr
Offline Offline
Send Email Send Email
 
Ok betul...
Tp yg boders sm alignment ko eror yah kl dimasukin xlContiuous sm xlCenter...
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: "budi" <costing@...>
Date: Mon, 7 Dec 2009 08:12:50
To: <Delphindo@yahoogroups.com>
Subject: Re: [Delphindo] Tanya rubah lebar kolom excel di delphi

seperti ini bukan yang dimaksud

xls:=CreateOleObject('Excel.Application');
xls.Workbooks.ADD;
Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
sheet := xls.Workbooks[1].Worksheets['sheet1'];


Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)' ;  // format numeric

Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell

Sheet.Range['C5:F6'].Merge ;
Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell

----- Original Message -----
From: <medi_bgr@...>

> Halo teman2 smua..
>
> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
dapet dr milis ini menggunakan comobj..
>
> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>
> Tks b4 ;)
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT




------------------------------------

Berlangganan: delphindo-subscribe@yahoogroups.com
Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...! Groups
Links

#64085 From: Bee Jay <bee.ography@...>
Date: Mon Dec 7, 2009 5:38 am
Subject: Fwd: Update of ExtP Toolkit for ExtPascal
bee_ography
Offline Offline
Send Email Send Email
 
Sekedar ingin berbagi informasi saja. :)


Begin forwarded message:

> Date: December 7, 2009 7:51:35 AM GMT+07:00
> To: ExtPascal <extpascal@googlegroups.com>
> Subject: [ExtPascal:1625] Update of ExtP Toolkit for ExtPascal
>
> I've added grid design controls to the ExtP Toolkit add-on for
> ExtPascal. Here are some screenshots:
>
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_Grid_in_IDE.jpg
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_Grid_at_Runtime.jpg
>
> A couple of other screenshots show the MultiSelect (list box) control
> in action both in the Lazarus IDE and in the browser at runtime:
>
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_MultiSelect_in_IDE.jpg
>
http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPascal_MultiSelect_at_Runtime.jpg
>
> Complete documentation for the toolkit is here:
> http://web.fastermac.net/~MacPgmr/ExtPascal/ExtPToolkitStatus.html
>
> Source code is available in a .zip file from here:
> http://web.fastermac.net/~MacPgmr/ExtPascal/
>
> Or you can checkout the source along with the complete ExtPascal
> source from the ExtPascal SVN repository.
>
> Thanks.
>
> -Phil

--

-Bee-

...making buzzes at http://twitter.com/beezing
...writing stories at http://beeography.wordpress.com

#64084 From: "budi" <costing@...>
Date: Mon Dec 7, 2009 1:12 am
Subject: Re: Tanya rubah lebar kolom excel di delphi
costing@...
Send Email Send Email
 
seperti ini bukan yang dimaksud

xls:=CreateOleObject('Excel.Application');
xls.Workbooks.ADD;
Xls.Workbooks[1].Worksheets[1].Name:= 'Sheet1';
sheet := xls.Workbooks[1].Worksheets['sheet1'];


Sheet.Cells[1,1].ColumnWidth := 5 ;  //lebar kolom
Sheet.Cells[2,4].Borders.LineStyle := xlContinuous ;   //border
Sheet.Cells[4,1].RowHeight := 17 ;  //tinggi baris
Sheet.Cells[5,1].NumberFormat := '_(* #,##0.0_);_(* (#,##0.0);_(*
""-""??_);_(@_)' ;  // format numeric

Sheet.Range['B2:Y7'].HorizontalAlignment := xlCenter ;  //center cell

Sheet.Range['C5:F6'].Merge ;
Sheet.Range['C5:F6'].VerticalAlignment := xlCenter ;   //Marge cell

----- Original Message -----
From: <medi_bgr@...>

> Halo teman2 smua..
>
> Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy
dapet dr milis ini menggunakan comobj..
>
> Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
> Kl ada yg tau / pernah mencoba, mohon pencerahannya..
>
> Tks b4 ;)
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT

#64083 From: win <uwwin@...>
Date: Sat Dec 5, 2009 11:50 am
Subject: Bls: Tanya rubah lebar kolom excel di delphi
uwwin
Offline Offline
Send Email Send Email
 
Definisikan templatenya, assign dan data akan masuk ke format templatenya




--- Pada Sab, 5/12/09, medi_bgr@... <medi_bgr@...> menulis:

Dari: medi_bgr@... <medi_bgr@...>
Judul: [Delphindo] Tanya rubah lebar kolom excel di delphi
Kepada: delphindo@yahoogroups.com
Tanggal: Sabtu, 5 Desember, 2009, 2:50 AM

Halo teman2 smua..

Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy dapet
dr milis ini menggunakan comobj..

Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
Kl ada yg tau / pernah mencoba, mohon pencerahannya..

Tks b4 ;)
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

------------------------------------

Berlangganan: delphindo-subscribe@yahoogroups.com
Stop Berlangganan: delphindo-unsubscribe@yahoogroups.com
Keluhan Milis(Unbouncing,spam,dll): delphindo-owner@...! Groups
Links






       Berselancar lebih cepat. Internet Explorer 8 yang dioptimalkan untuk
Yahoo! otomatis membuka 2 halaman favorit Anda setiap kali Anda membuka browser.
Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer

[Non-text portions of this message have been removed]

#64082 From: medi_bgr@...
Date: Sat Dec 5, 2009 8:50 am
Subject: Tanya rubah lebar kolom excel di delphi
medi_bgr
Offline Offline
Send Email Send Email
 
Halo teman2 smua..

Saya udh berhasil cb pindahin data dr dbgrid ke excel dengan coding yg sy dapet
dr milis ini menggunakan comobj..

Tp gmn sintaxnya yah buat ngerobah lebar dr colomnya..
Kl ada yg tau / pernah mencoba, mohon pencerahannya..

Tks b4 ;)
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

#64081 From: "Zamrony P. Juhara" <zamronypj@...>
Date: Fri Dec 4, 2009 6:54 am
Subject: Re: Cek Printer on / off
zamronypj
Offline Offline
Send Email Send Email
 
Sekedar tambahan bila ingin info yang lebih spesifik Anda bisa mengubah field
yang diambil, contohnya bila hanya ingin info nama printer dan status work
offiline kodenya bisa dimodifikasi menjadi

Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer' );

jika hanya perlu status printer tertentu saja

Memo1.Text:= selectWMI( 'SELECT Name,WorkOffline FROM Win32_Printer WHERE
Name='+quotedstr('Canon Bubble-Jet BJC-265SP') );




Zamrony P. Juhara
Website:
http://juhara.com
Blog:
http://zamronyp.juhara.com
http://delphindo.wordpress.com (kontributor)

--- On Fri, 12/4/09, Zamrony P. Juhara <zamronypj@...> wrote:

From: Zamrony P. Juhara <zamronypj@...>
Subject: Re: [Delphindo] Cek Printer on / off
To: Delphindo@yahoogroups.com
Date: Friday, December 4, 2009, 1:38 PM







 









       Untuk mengetahui status printer offline atau online, Anda bisa gunakan
Windows Management Instrumentation (WMI). Contohnya seperti ini:



procedure TForm1.FormShow( Sender: TObject);

begin

   Label1.Caption: ='Work offline: '+

             getWMIString( '',

             'Win32_Printer' ,

             'WorkOffline' );

    Memo1.Text:= selectWMI( 'SELECT * FROM Win32_Printer' );

end;



Detil fungsi SelecWMI() dan getWMIString( ) bisa Anda baca di blog delphindo



http://delphindo. wordpress. com/2008/ 03/22/delphi- dan-windows- management-
instrumentation- wmi-tutorial- singkat/



Kode diatas adalah modifikasi kode di artikel tersebut.



Zamrony P. Juhara

Website:

http://juhara. com

Blog:

http://zamronyp. juhara.com

http://delphindo. wordpress. com (kontributor)










[Non-text portions of this message have been removed]

#64080 From: "Zamrony P. Juhara" <zamronypj@...>
Date: Fri Dec 4, 2009 6:38 am
Subject: Re: Cek Printer on / off
zamronypj
Offline Offline
Send Email Send Email
 
Untuk mengetahui status printer offline atau online, Anda bisa gunakan Windows
Management Instrumentation (WMI). Contohnya seperti ini:

procedure TForm1.FormShow(Sender: TObject);
begin
   Label1.Caption:='Work offline: '+
             getWMIString('',
             'Win32_Printer',
             'WorkOffline');
    Memo1.Text:=selectWMI('SELECT * FROM Win32_Printer');
end;

Detil fungsi SelecWMI() dan getWMIString() bisa Anda baca di blog delphindo

http://delphindo.wordpress.com/2008/03/22/delphi-dan-windows-management-instrume\
ntation-wmi-tutorial-singkat/

Kode diatas adalah modifikasi kode di artikel tersebut.

Zamrony P. Juhara
Website:
http://juhara.com
Blog:
http://zamronyp.juhara.com
http://delphindo.wordpress.com (kontributor)

--- On Fri, 12/4/09, dian sastro <maejeedo@...> wrote:

From: dian sastro <maejeedo@...>
Subject: Re: [Delphindo] Cek Printer on / off
To: Delphindo@yahoogroups.com
Date: Friday, December 4, 2009, 10:45 AM







 









       Tergantung beberapa variabel. Pada intinya : susah.



O/S modern seperti windows menngunakan metode spool, yaitu membuat

sebuah sistem antrian untuk menangani proses printing. Artinya,

program anda tidak berhubungan langsung dengan printer, tetapi pada

sistem spool ini. Jika program spool ini gagal mengeprint sebuah

dokumen, ada kemungkinan program spool ini mengembalikan status gagal

ke program, meski tidak selalu karena seperti handphone, si program

spool berusaha terus ngeprint sampai berhasil. Biasanya memakai

windows API FindFirstPrinterCha ngeNotification( ) dkk.



Jika anda ingin sekali untuk bisa mengetahui printer status printer

ini, kemungkinannya dua:

1. si Pembuat driver sudah menyediakan driver yg menyediakan API untuk

men-query on/off si printer.

2. Anda membuat peralatan tambahan, misalnya untuk mengukur voltase di

printer yg menunjukkan si printer on atau off. Dari peralatan ini

dimasukkan ke komputer lewat serial misalnya (sudah pernah liat serial

komunikasi antara komputer dengan UPS?. Semacam itulah)



-sas-



2009/12/4 satria wirang <satriawirang@ gmail.com>

>

> Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu printer

> di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx

> sebelumnya

>

#64079 From: "Donny-Azhar" <donnyazhar@...>
Date: Fri Dec 4, 2009 4:03 am
Subject: TMS DBAdv Grid Belang - belang
donnyazhar@...
Send Email Send Email
 
Para Delphier yg saya hormati saya ingin bertanya

Apabila kita mempergunakan DBAdvGrid (dari TMS) bagaimana
supaya tapilan data yag ada bisa berbeda warna antara
baris/rekord 1 dan ke 2

Supaya mempermudah pencarian saya pernah lihat bari/rekor
pertama berwana biru rekor selanjutnya berwarna putih
begitu elanjutnya berulang

Mohon petujuk  Terima Kasih
================================================================================\
============================================

Segera nikmati Free Trial 60 hari Protector Postpaid layanan keamanan online
bagiPelanggan Speedy.
Info lebih lanjut hubungi 147 atau http://protector.telkomspeedy.com

================================================================================\
============================================

Flexi - Gratis bicara sepanjang waktu se-Jawa Barat, Banten dan DKI Jakarta.

Speedy - Gratis internetan unlimited dari pkl. 20.00 s/d 08.00 se-Jabodetabek,
Banten, Karawang dan Purwakarta.

================================================================================\
============================================

Raih Paket Umroh, Notebook, XBOX, Ipod Touch dan banyak hadiah lain di
http://netkuis.telkom.net Netkuis Ramadhan 1430H
persembahan Telkom

================================================================================\
============================================

#64078 From: dian sastro <maejeedo@...>
Date: Fri Dec 4, 2009 3:45 am
Subject: Re: Cek Printer on / off
maejeedo@...
Send Email Send Email
 
Tergantung beberapa variabel. Pada intinya : susah.

O/S modern seperti windows menngunakan metode spool, yaitu membuat
sebuah sistem antrian untuk menangani proses printing. Artinya,
program anda tidak berhubungan langsung dengan printer, tetapi pada
sistem spool ini. Jika program spool ini gagal mengeprint sebuah
dokumen, ada kemungkinan program spool ini mengembalikan status gagal
ke program, meski tidak selalu karena seperti handphone, si program
spool berusaha terus ngeprint sampai berhasil. Biasanya memakai
windows API FindFirstPrinterChangeNotification() dkk.

Jika anda ingin sekali untuk bisa mengetahui printer status printer
ini, kemungkinannya dua:
1. si Pembuat driver sudah menyediakan driver yg menyediakan API untuk
men-query on/off si printer.
2. Anda membuat peralatan tambahan, misalnya untuk mengukur voltase di
printer yg menunjukkan si printer on atau off. Dari peralatan ini
dimasukkan ke komputer lewat serial misalnya (sudah pernah liat serial
komunikasi antara komputer dengan UPS?. Semacam itulah)

-sas-


2009/12/4 satria wirang <satriawirang@...>
>
> Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu printer
> di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx
> sebelumnya
>

#64077 From: aries setiyawan <aries.setiyawan@...>
Date: Fri Dec 4, 2009 2:52 am
Subject: delphi+wdsl+php+mysql
gigok2001
Offline Offline
Send Email Send Email
 
saya coba buat soap with delphi... ketemu error RECEIVED CONTENT OF
INVALID CONTENT-Type SETTING:TEXT/HTML - SOAP EXPECT "TEXT/XML", kira2
kurang apa nya yach..saya buka2 arsip ada info dari mas hans gula

>Ini memang known bug buat WS client menggunakan Delphi 7.

>Workaround-nya, buka file project (DPR) lalu swap urutan unit di uses
>clause dari:

    >ISAPIThreadPool,
    >ISAPIApp

>menjadi:

    >ISAPIApp,
    >ISAPIThreadPool

saya masih belum mengerti yg harus di ganti di bagian mana yach...

thx
aries

#64076 From: satria wirang <satriawirang@...>
Date: Fri Dec 4, 2009 2:11 am
Subject: Cek Printer on / off
satriawirang@...
Send Email Send Email
 
Mau tanya rekan-rekan gimana untuk mengetahui apakah kondisi suatu  printer
di comp kita sedang on atau off. Adakah yang punya contoh fungsinya. Thx
sebelumnya


[Non-text portions of this message have been removed]

#64075 From: farhan386@...
Date: Thu Dec 3, 2009 1:38 am
Subject: Re: Tanya koneksi ke MySql yg ada di web
farhan386dx
Online Now Online Now
Send Email Send Email
 
Bila remote mysql tidak diijinkan, cara yang pernah saya pakai yaitu menggunakan
PHP untuk membaca data lalu meng-generate data tersebut menjadi XML, baru diolah
oleh Delphi.
Sent from my AXIS Worry Free BlackBerry® smartphone

Messages 64075 - 64104 of 64104   Newest  |  < Newer  |  Older >  |  Oldest
Advanced
Add to My Yahoo!      XML What's This?

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help