This is example fill next grid with data using addoquery and microsoft Access database.

The first time you must add columns to  nextgrid by double click the component, and then choose type column of  next grid wicth do you want :

  • Tnxtextcolunn
  • Tnxnumbercolumn
  • TnxImagecolumn
  • ect

 

procedure TFrmMain.btntrxRefreshClick(Sender: TObject);
var y:integer;
s:string;
begin
    application.ProcessMessages;
    s:='SELECT A.*,B.NAMA FROM TPULSA A,TAGEN B WHERE A.IDYM=B.IDYM';
  Qtrx.Close;
  Qtrx.Connection:=dm.Data;
  Qtrx.SQL.Text:=s+' ORDER BY A.TANGGAL DESC';
  Qtrx.Open;
  Qtrx.First;
  GridTrx.ClearRows;
  GridTrx.AddRow(Qtrx.RecordCount);
  y:=0;
while not Qtrx.Eof do
begin
    application.ProcessMessages;
    GridTrx.Cell[0,y].AsInteger:=y+1;
    GridTrx.Cell[1,y].AsString:=Qtrx.fieldbyname('status').AsString;
    GridTrx.Cell[2,y].AsString:=formatdatetime('dd/mm/yyyy hh:nn:ss',
                                Qtrx.fieldbyname('tanggal').AsDateTime);
    GridTrx.Cell[3,y].AsString:=Qtrx.fieldbyname('IDYM').AsString;
    GridTrx.Cell[4,y].AsString:=Qtrx.fieldbyname('NAMA').AsString;
    GridTrx.Cell[5,y].AsString:=Qtrx.fieldbyname('KODE').AsString;
    GridTrx.Cell[6,y].AsString:=Qtrx.fieldbyname('TUJUAN').AsString;
    GridTrx.Cell[7,y].AsInteger:=Qtrx.fieldbyname('hrgbeli').AsInteger;
    GridTrx.Cell[8,y].AsInteger:=Qtrx.fieldbyname('hrgjual').AsInteger;
    GridTrx.Cell[9,y].AsInteger:=Qtrx.fieldbyname('saldoawal').AsInteger;
    GridTrx.Cell[10,y].AsInteger:=Qtrx.fieldbyname('saldoakhir').AsInteger;
    GridTrx.Cell[11,y].AsInteger:=Qtrx.fieldbyname('laba').AsInteger;
    GridTrx.Cell[12,y].AsString:=Qtrx.fieldbyname('pesan').AsString;
    //gridproduk.Cell[7,y].AsString:=Qtrx.fieldbyname('PIN').AsString;
    Qtrx.Next;
    y:=y+1;
end;

 

Note :

  • GridTrx = Tnextgrid
  • Qtrx = AdoQuery
  • dm.Data = datamodul.adoConnection;

 

Print Friendly