KASKUS

Membalas thread wonguedantenan • 17-01-2012 00:55

if edit1.text=''then begin showmessage('Username Harus Di isi !!!'); edit1.setfocus ; end else if edit2.text=''then begin showmessage('Pasword harus di isi'); edit2.setfocus ; end; form1.adotable1.Locate('Username',edit1.text,); if (form1.adotab...

Membalas thread wonguedantenan • 16-01-2012 21:33

{Terminal} Delphi and Pascal

ane pernah membaca dimarih gan... http://delphi-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&p=53952#53952

Membalas thread wonguedantenan • 16-01-2012 20:14

{Terminal} Delphi and Pascal

dopost

Membalas thread wonguedantenan • 16-01-2012 20:10

{Terminal} Delphi and Pascal

ya mudah aja kan gan... table1.append; table1.value := 'alamat file'; table1.post;

Membalas thread wonguedantenan • 16-01-2012 19:04

{Terminal} Delphi and Pascal

sama lah, hanya bisa gak mengimplementasikan kodenya, atau merubah sesuai keinginan..hehehe :D if (gdFocused in state = False) then begin //menggambar sesuai focused recordnya.. if (DBGRID.DataSource.DataSet.RecNo = wr) then begin DBGRID.Canvas.Brush.Style := bsClear; DBGRID.Canvas.StretchDraw(...

Membalas thread wonguedantenan • 16-01-2012 17:15

{Terminal} Delphi and Pascal

yup bener..begitu.. maksud ente kek gini yah..:D procedure TFMain.DBGRIDDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TbsColumn; State: TGridDrawState); var begin if (gdFocused in state) then begin //warnanya tinggal dipilih DBGRID.Canvas.Font.Color := RGB(100,2...

Membalas thread wonguedantenan • 16-01-2012 15:36

{Terminal} Delphi and Pascal

dbedit datasourcenya diisi sesuai datasetnya dbgrid.. pilihan fieldnya diisi sesuai data yg mau ditampilkan

Membalas thread wonguedantenan • 16-01-2012 15:34

{Terminal} Delphi and Pascal

adoquery.close; adoquery.sql.text := 'SELECT * FROM ANU WHERE TGL BETWEEN .... AND .... '; adoquery.open;

Membalas thread wonguedantenan • 13-01-2012 00:07

{Terminal} Delphi and Pascal

ane tahu gan, tadi udah coba2, f nya ane remove, ternyata emang itu

Membalas thread wonguedantenan • 12-01-2012 23:09

{Terminal} Delphi and Pascal

jelas i nya, akan lebih dari N coba ente writeln(i) diatas while i < N do

Membalas thread wonguedantenan • 12-01-2012 22:51

{Terminal} Delphi and Pascal

gunakan 2 driver, 220, dan 220D nanti diaktifkan yg 220

Membalas thread wonguedantenan • 12-01-2012 18:06

{Terminal} Delphi and Pascal

i := 1; f := 1; for i:=1 to N do begin x := random(10); end; tarok i dan f sebelum loooping

Membalas thread wonguedantenan • 12-01-2012 12:57

{Terminal} Delphi and Pascal

ada banyak cara untuk print form.. procedure TForm1.Button2Click(Sender: TObject); begin Self.Print; end; uses images; procedure ScreenShot(Bild: TBitMap); var c: TCanvas; r: TRect; begin c := TCanvas.Create; c.Handle := GetWindowDC(GetDesktopWindow); try r := Rect(0,0, Screen.Width, Screen....

Membalas thread wonguedantenan • 11-01-2012 22:46

{Terminal} Delphi and Pascal

@e1371 coba dicari bedanya dimana code anda dengan kode saya.. :) selamat mencari.. type Tlarik = array of integer; Tlarik2 = array of longint; var i, y, N, modus, f, z: LongInt; x, tampung: Tlarik; c: Tlarik2; begin readln(N); for i:=1 to N do begin x := random(10); end; while i < N do be...

Membalas thread Keda87 • 11-01-2012 21:18

[VOTE] Programmer : Algoritma penting gak sih?

For algorithmic problems, you can use C, C++, C#, Java, Python, Perl, PHP, Ruby, Haskell, Scala or Clojure to submit your solutions. Please refer to our FAQ for language version and environment. (Sorry, no NumPy for you Pythonistas) ternyata Delphi disepelekan..:mad:

Membalas thread mnemonix • 11-01-2012 18:07

Thread pelaporan #176

mod, tolong di buat sticky yah thread ane.. http://www.kaskus.co.id/showthread.php?t=12490135 :shakehand

Membalas thread wonguedantenan • 11-01-2012 14:38

{Terminal} Delphi and Pascal

ane sebenarnya gak paham kamsud dosen agan.. procedure TForm1.Button1Click(Sender: TObject); begin Printer.BeginDoc; Printer.Canvas.TextOut(10,10,'Test Ngeprint Pak Dosenn..!!!'); Printer.EndDoc; end; ini contoh print menggunakan shellappi Before you copy and paste: the Printer glob...

Membalas thread wonguedantenan • 10-01-2012 23:22

{Terminal} Delphi and Pascal

ADOQuery1.Close; ADOquery1.paramByName('D0').AsDatetime := datetimepicker1.date; ADOQuery1.Open; untuk mempermudah konversi format ke sql, yg ane tahu gan.. coba klo gak pake param, maka harus tahu format dari db yg mo di insert.. format date di mysql 'YYYY-MM-DD' or YYYYMM...

Membalas thread wonguedantenan • 10-01-2012 18:27

{Terminal} Delphi and Pascal

ane coba jalan bagus gan, cuman waktu, di cancel akan error..karena menggunakan while do... coba agan gunakan code ini dan bandingkan, mana yg bikin error :) procedure CancelDialog; begin // Display the cancel print dialog Dialogs.MessageDlg('Press cancel to abort printing',mtCustom,,...

Membalas thread wonguedantenan • 07-01-2012 20:41

{Terminal} Delphi and Pascal

yah addonya diganti zeos aja kak :) mungkin starttranscation, commit dan rollbacknya bisa dihilangkan kan, jika setting autocommit di zeosconnectionnya udah autocommit :)