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 dan password itu ngasihnya di ZConnection seperti ini...
procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_DELETE) and (Shift = ) then Key := 0; if Key = VK_UP then if DataSource1.DataSet.RecNo > 1 then wr := DataSource1.DataSet.RecNo-1; if Key = VK_DOWN then if DataSource1.DataSet.RecNo < ...
jadi bisa bikin heng ya. . . udah gan, tp hasilnya sama aja. . . jadi ane coba2 ubah kaya yang di atas.
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: TShiftState); begin if Key = VK_DOWN then if DataSource1.DataSet....
oh iya ya. . . baru nyadar caranya seperti itu. . . pada intinya cuma ini kan gan. . . procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_DOWN then if DataSource1.DataSet.RecNo < DataSource1.DataSet.RecordCount then wr := DataSource1.DataSe...
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, ngasih variable di atas dan di bawah implementation itu sama aja kan atau beda ?
masih bingung gan cara menentukan "wr" sebagai pembanding. apakah seperti ini: procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 40 then wr:= DBGrid2.DataSource.DataSet.RecNo; end; procedure TForm1.DBGrid2KeyUp(Sender: TObject; var Key...
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,20,90); DBGRID.DefaultDrawColumnCell(rect,datacol,Co...
seperti ini ya gan. . . procedure TForm2.FormShow(Sender: TObject); begin DBEdit1.DataSource:= Form1.DBGrid2.DataSource; DBEdit2.DataSource:= Form1.DBGrid2.DataSource; DBEdit3.DataSource:= Form1.DBGrid2.DataSource; DBEdit4.DataSource:= Form1.DBGrid2.DataSource; DBEdit1.DataField:= 'nama...
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...
Kalau ZQuery1.datasourcenya diisi, maka prosesnya gak kelar-kelar, lampu proses harddisk nyala terus. . . kenapa ya ?
emangnya kenapa gan. . . mjd gini ya. . . Try with ZQuery1 do begin Close; SQL.Clear; SQL.Text := Memo1.Text; if Checkbox1.Checked then Open else ExecSQL; DBGrid1.DataSource:= DataSource1; end; Except On E: Exception do ShowMessage(E.Message); end;
oh. . . jd karena fieldname yang ada di DBGrid yang sudah di isi dari awal yang membuat seperti itu ya . . . sourcenya cuma gini doang gan. . . unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, StdCtrls, DbCtrls, Buttons...
field bayar ada gan di tabelnya, kalau select semua baru gak error, tapi kalau select field tertentu maka akan error, :bingungs gak ada error kalau akses langsung lewat command prompt kenapa ya . . . ?:bingungs