/components/paradox/demo/frmmain.pp

http://github.com/graemeg/lazarus · Puppet · 47 lines · 34 code · 13 blank · 0 comment · 0 complexity · 985240a6056b3541bd8fffb0a227421f MD5 · raw file 

    

  1. unit frmmain;
    2. 

  2. 

  3. {$mode objfpc}{$H+}
    4. 

  4. 

  5. interface
    6. 

  6. 

  7. uses
    8. 

  8.   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, EditBtn,
    9. 

  9.   StdCtrls, DbCtrls, DBGrids, db, paradox, ExtCtrls;
    10. 

  10. 

  11. type
    12. 

  12. 

  13.   { TMainForm }
    14. 

  14. 

  15.   TMainForm = class(TForm)
    16. 

  16.     Button1: TButton;
    17. 

  17.     DSPDX: TDatasource;
    18. 

  18.     DBGrid1: TDBGrid;
    19. 

  19.     DBNavigator1: TDBNavigator;
    20. 

  20.     FEPX: TFileNameEdit;
    21. 

  21.     Label1: TLabel;
    22. 

  22.     PDX: TParadox;
    23. 

  23.     procedure Button1Click(Sender: TObject);
    24. 

  24.   private
    25. 

  25.     { private declarations }
    26. 

  26.   public
    27. 

  27.     { public declarations }
    28. 

  28.   end;
    29. 

  29. 

  30. var
    31. 

  31.   MainForm: TMainForm;
    32. 

  32. 

  33. implementation
    34. 

  34. 

  35. {$R frmmain.lfm}
    36. 

  36. 

  37. { TMainForm }
    38. 

  38. 

  39. procedure TMainForm.Button1Click(Sender: TObject);
    40. 

  40. begin
    41. 

  41.   PDX.Close;
    42. 

  42.   PDX.FileName:=FEPX.FileName;
    43. 

  43.   PDX.Open;
    44. 

  44. end;
    45. 

  45. 

  46. end.
    47.