ini gan versi ane : unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2; type { TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { private declarations } public { public...
kok ada error ya pas di klik button utk memanggil form2 bila pake form2.showmodal, errornya kaya gini tapi bila form2.show maka akan berjalan normal. ada error kaya diatas gan bila pake showmodal. Hmm, ntu mah ane kasi potongan duank gan..lengkap nye gini 1. Tambahkan nama unit dr form2 ke bagia...
Form2.showModal; Di form 2 ga usah kasi tombol jg gpp..klo di close pke tombol X (close bawaan) form2 bakal ngilang nd form1 mncul lg http://img.kaskus.co.id/images/kaskusmobile_hp.gif
buat kimpoi-in pacar ya gan :D btw, kasih saran donk para mastah :o kl misalnya gini: kelas privat 1 murid 75 ribu /2 jam 2 murid 45 ribu /2 jam 3 murid 30 ribu /2 jam 4 murid 27,5 ribu /2 jam menurut bro gimana? kelas programming visual basic, C#, alpro etc... boleh nyoba 2 sesi dulu buat perco...
kl cuma untuk sis.kom akademik sih, ane males pakai model bit2an.... pakai string aja... Tempo hari 1 tahun lalu, ada anak privat Skripsi ama ane, ane bimbing codingnya step by step, ane suruh pakai string aja. eh biar anaknya pemula, ternyata donk juga... lha iya lah wong codingnya cuma: if hak...
mysql gan? struktur ane gini: admin id : char 50 pass: char 100 hak : int (bisa juga big int) krn kita pake integer, maka akan ada 32 bit hak. khusus tempat ane dulu, ane pakai big int (64 bit). so bisa dimainkan 64 bit, bit 1 hak add barang, bit 2 hak edit barang, bit 3 hak add pelanggan, etc. j...
fungsi kayak gini klo di delphi gimana ya gan implementasi ny ,,, ini dari vb : For Each ob As Object In Me.Controls If TypeOf ob Is TextBox Then ob.Text = "" End If Next pegen di taro di form activate ,, untuk membersihkan text yang ada di seluruh obyek Edit.text ini dari delphi :D pr...
sebener nye ini lebih ke nanya bkn sharing :D date_default_timezone_set('UTC'); // apa harus make ini ga ?? $tgl = date('d-m-Y'); // format : 23-05-2001 list($h,$b,$t) = explode("-", $tgl); ane pernah nyoba2 bikin report ke pdf pake PHP, trs pas ane mw maenin forma...
menurut para mastah di sini gmn ya ttg oknum kaskuser (biasa nye yg ane temuin ntu MHS) yg minta di bikinin program dg iming2 imbalan (cendol ato bahkan rupiah) ?? apa mereka selamanya mw jdi konsumen trs ya ?? padahal kebanyakan dari mereka bayar nye pke duid dari org tua ?? yg secara moral ane ...
@speedtrap : ywd, dari pd takut2 mending kita ganti aje skalian pke Zeos...gretong tanpa dosa :D #tp ttp aje pke Delphi nye yg bajakan :D
Nope....everything is in perfect shape, gan. Gak ada setting UniDAC yang kelupaan di-setting. Karena begitu gw ganti komponen koneksinya jadi MicroOLAP DAC for MySQL, semuanya berjalan mulussss.... Untung aja masih belum banyak form yang gw buat. Kalo gak, bisa puyeng pretelin satu-per-satu kontr...
TMS + DevExpress.... :p Coding tanpa component bagaikan makan nasi setengah matang tanpa lauk apapun :hammer: BTW, MyDAC yang merupakan subset dari UniDAC rasa2nya koq ada trouble ya? Gw pake UniDAC 3.5, trus buat table master-detail dgn MySQL (dan menggunakan trigger2 untuk perhitungan n syarat ...
MyDAC support freepascal tuh di web nya.. emg susah gan lazarus nyampe versi 1 aja belon msh 0.9.31 ,nah delphi udah versi XE(ke-14)..agan mau nunggu delphi support cross platform?ampe kan?hehe apapun toolnya bahasanya tetep object pascal gan :iloveindonesia :kiss hehehehehe, betul jg kata mastah...
komponen bejibun gan,banyak yg udah di port ke lazarus terutama komponen yg open source termasuk indy,sebagian JCL/JVCL, dll kalo devexpress kan commercial jd harus developer nya yg porting.. salah satu alasan ane migrasi jga biar gak ngerasa berdosa pake software/component bajakan terus hehe hmm...
klo dgn cara itu khn exe di server bs trkena virus oleh client ya gan... nah klo dah gtu client yg lain malah bs bermsalah jg.. gmn tuh pnyelesainnya ya.... tks bikin folder aje di server yg cuman bisa execute ato read...g bisa edit/write utk user2 lain di folder tsb... klo server nye pke ubuntu ...
wah.. makasih banyak gan skr udah bisa ane.. jadi gini sintaksnya skr: ShortDateFormat:='dd/mm/yyyy'; temp:=DateToStr(Now); awalBulan:='01/'+copy(temp,4,length(temp)-3); DateTimePicker1.Date:=StrToDate(awalBulan); makasih banyak ya gan :beer: cendol dunk gan :D Salam Delphi....
coba tambahin ini gan sblm ente tangkep date nye ShortDateFormat:='dd-mm-yy'; //ato format yg agan mw
hmmm, ane nambahin 1 lgi yee :D hasil running dari program nye sbb : input angka : 1342 output : seributigaratusempatpuluhdua pertanyaan : 1. Tolong bwt algoritma dari ilustrasi program di atas (dg ketentuan inputan nya angka bebas 1 s/d 10000000000) 2. Tolong hitung jumlah karakter yg muncul s...
klo nambahin soal boleh om :D bwt olgo utk nampilin angka 1 - 100 dg ketentuan : - kelipatan 3 diganti fizz - kelipatan 5 diganti buzz - kelipatan 3 & 5 diganti fizzbuzz 1 2 fizz 4 buzz fizz 7 8 fizz buzz 11 fizz 13 14 fizzbuzz 16 17 fizz 19 buzz s/d 100 sory g ikutan jawab..coz udeh di jawab a...