home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / fldinfo.exe / TESTFORM.PAS < prev    next >
Pascal/Delphi Source File  |  1995-10-09  |  2KB  |  77 lines
  1. unit Testform;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables, FldInfo;
  8.  
  9. {  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  10.   Forms, Dialogs;}
  11.  
  12.  
  13. type
  14.   TForm1 = class(TForm)
  15.     TestTable: TTable;
  16.     DBGrid1: TDBGrid;
  17.     Panel1: TPanel;
  18.     SaveBtn: TButton;
  19.     LoadBtn: TButton;
  20.     OrigBtn: TButton;
  21.     DataSource1: TDataSource;
  22.     QuitBtn: TButton;
  23.     procedure FormActivate(Sender: TObject);
  24.     procedure OrigBtnClick(Sender: TObject);
  25.     procedure SaveBtnClick(Sender: TObject);
  26.     procedure LoadBtnClick(Sender: TObject);
  27.     procedure QuitBtnClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   Form1: TForm1;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.FormActivate(Sender: TObject);
  42. begin
  43.     {point the database to local dir!}
  44.     TestTable.DataBaseName := ExtractFilePath(Application.ExeName);
  45.     TestTable.TableName := 'TestDB';
  46.     TestTable.Active := True;
  47. end;
  48.  
  49. procedure TForm1.OrigBtnClick(Sender: TObject);
  50. begin
  51.     TestTable.Active := False;
  52.     TestTable.Active := True;
  53. end;
  54.  
  55. procedure TForm1.SaveBtnClick(Sender: TObject);
  56. var
  57.     FileName: string;
  58. begin
  59.     FileName := ExtractFilePath(Application.ExeName) + 'TestForm.Ini';
  60.     PutFieldInfo(FileName, TestTable);
  61. end;
  62.  
  63. procedure TForm1.LoadBtnClick(Sender: TObject);
  64. var
  65.     FileName: string;
  66. begin
  67.     FileName := ExtractFilePath(Application.ExeName) + 'TestForm.Ini';
  68.     GetFieldInfo(FileName, TestTable);
  69. end;
  70.  
  71. procedure TForm1.QuitBtnClick(Sender: TObject);
  72. begin
  73.     Close;
  74. end;
  75.  
  76. end.
  77.