home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / QDB / QDBG.ZIP / gd_main.pas < prev    next >
Pascal/Delphi Source File  |  1998-07-29  |  708b  |  39 lines
  1. unit gd_main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   QDB, QDBView, StdCtrls, QDBGrids;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     QDBGrid: TQDBGrid;
  12.     QDBItem: TQDBItem;
  13.     procedure QDBItemWarnNoData(Sender: TObject);
  14.     procedure QDBItemKey(Sender: TObject; var Key: TKey);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.QDBItemWarnNoData(Sender: TObject);
  29. begin
  30.   //dummy
  31. end;
  32.  
  33. procedure TForm1.QDBItemKey(Sender: TObject; var Key: TKey);
  34. begin
  35.   Key:=QDBItem.AsString[QDBItem.FieldIndex('a string')]
  36. end;
  37.  
  38. end.
  39.