zeos 7 ane lancar2 aja, cari yg udah stable donk..7.01 ane coba install yang versi 6.6.6 stable tapi ada error kaya gini: ZQuerySQLEditor.pas(67): File not found: 'Graphtype.dcu' pas ane coba install yang versi 7.0.0-alpha malah tambah banyak errornya. . . btw, kalo supaya ada username...
gak ada masalah tuh, ane tambahin dikit coba, ane coba pake D7, lom pernah coba pake diatas delphi 7, ada XE tapi lom ane coba. ente pake delphi berapa? procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if...
coba semua event dbgridnya ditampilkan dimari... termasuk event yg ini.. procedure TForm1DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TbsColumn; State: TGridDrawState); begin end; procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShif...
hati2, dbgrid.refresh, klo datanya yg ditampilkan segudang, bisa2 heng ing eng.. jadi bisa bikin heng ya. . . udah ente coba pakai coding ane lom? udah gan, tp hasilnya sama aja. . . jadi ane coba2 ubah kaya yang di atas.
hadeh, udah dikasih contohnya komplit koq, masih diubah...:capedes ane kira seperti itu gan. . . :D pas di tambahi dbgrid.refresh maka sesuai harapan, tapi bila pas tombol atas ditekan maka cell yang focusnya ketinggalan. . . procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift:...
hehehe..ternyata lom bisa2 yah...:D dah, tak kasih contoh jadinya aja deh.. //dsdata = datasource1 procedure TFMain.DBGRIDKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_DELETE) and (Shift = ) then Key := 0; if Key = VK_UP then if dsdata.DataSet.RecNo > 1 then ...
wrnya sudah dikasih di bawah implementation belum?? implementation var wr : integer; sebelumnya ane kasih di atas implementation gan . . . var Form1: TForm1; wr: integer; implementation implementation uses Unit2; var wr: integer; tetap aja gan hasilnya kaya sebelumnya. . . :bingungs btw, ngas...
wr itu variable yg dihasilkan ketika ada event dari DBGridnya.. misal..ketika ada mousedown, upkey, downkey dst...maka wr itu adalah variable nomor record dari datasetnya DBGrid.. paham?? :) masih bingung gan cara menentukan "wr" sebagai pembanding. apakah seperti ini: procedure TForm1...
itu pake Timage gan.. trus yang dibagian ini: DBGRID.DataSource.DataSet.RecNo = wr "wr" nya itu apa gan? looping kah. . .?
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(R...
yup bener..begitu.. maksud ente kek gini yah..:D http://img406.imageshack.us/img406/976/contoh.png procedure TFMain.DBGRIDDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TbsColumn; State: TGridDrawState); var begin if (gdFocused in state) then begin //warnanya tingg...
dbedit datasourcenya diisi sesuai datasetnya dbgrid.. pilihan fieldnya diisi sesuai data yg mau ditampilkan seperti ini ya gan. . . procedure TForm2.FormShow(Sender: TObject); begin DBEdit1.DataSource:= Form1.DBGrid2.DataSource; DBEdit2.DataSource:= Form1.DBGrid2.DataSource; DBEdit3.DataSource:=...
gan, bila d double klik di cell dbgrid yang di form1 maka akan keluar form detail, nah gimana caranya agar dbeditbox yang ada di form detail textnya sama dengan nilai yang ada di dbgrid yang sedang aktif / yang di double klik tadi?
mantap gan thread ente, ane juga beberapa hari ini melakukan jogging habis subuh, :D baru seminggu tapi perut ane udah berbentuk, :D trus ane juga pernah baca di thread kaskus juga, kalo lari itu bisa bikin orang pinter, mengeluarkan zat apa gitu ane lupa, pokoknya zat yang sama ketika kita sedan...
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 YYYYMMD...
Query.DataSource itu gak perlu di-assign gan, kecuali kalo mau setting Master-Detail. Coba kosongin aja, terus cek apa yg terjadi.... thanks gan, thanks all udah mau,:D btw, kalo param itu buat apaan ya ?
cobain aja ada yg ketinggalan si ZQuery1.datasource:=datasource1; Kalau ZQuery1.datasourcenya diisi, maka prosesnya gak kelar-kelar, lampu proses harddisk nyala terus. . . kenapa ya ?
si datasource dbgridnya jangan di aktipin langsung di object inspector mening lewat koding aja coba pas abis execSQL DBGrid.datasource:=datasource1; emangnya kenapa gan. . . mjd gini ya. . . Try with ZQuery1 do begin Close; SQL.Clear; SQL.Text := Memo1.Text; if Checkbox1.Checked then Open else E...
ya pasti error lah, karena: 1. di grid ente mau tampilin tanggal, tapi yg di select cuman nama doang 2. di query.Fields, pasti ada Field Tanggal kan. Kosongin aja itu, nanti dbgridnya bakalan nampilin semua Field yg ada di query ybs.... kalo mau pasti kejawab kenapanya, kasih link buat donlot sou...
Kan itu field Bayar yg gak ada di tabel gan. Coba liat perintah SQLnya yg lengkap field bayar ada gan di tabelnya, kalau select semua baru gak error, tapi kalau select field tertentu maka akan error, :bingungs http://img600.imageshack.us/img600/6550/errorzquery.jpg gak ada error kalau akses lan...