142
jmlpenumpang DESC.
StringGrid.ColCount = DbGrid.Columns.Count
StringGrid.RowCount = DbGrid.DataSource.DataSet.RecordCount + 1
StringGrid.FixedCols = 0
FOR y = 0 TO DbGrid.Columns.Count - 1 DO
StringGrid.Cells[y,0] := DbGrid.columns[y].Title.Caption
x = 1
DbGrid.DataSource.DataSet.First
WHILE NOT DbGrid.DataSource.DataSet.EOF DO
FOR y = 0 TO DbGrid.Columns.Count - 1 DO
StringGrid.Cells[y,x] = DbGrid.DataSource.DataSet(Columns[y].FieldName);
x = x + 1
DbGrid.DataSource.DataSet.Next
IF Rute Pesawat xxx CLICK THEN
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = now AND namapesawat =
namapesawat AND wktberangkat > berangkat
IF Rute Semua Pesawat CLICK THEN
OPEN file Jadwal Terbang
READ Jadwal Terbang WHERE tanggal = now ORDER BY namapesawat,
wktberangkat
IF Ubah CLICK THEN
 |