home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / controlusu / cliente1.~pa < prev    next >
Encoding:
Text File  |  1999-05-06  |  1.0 KB  |  57 lines
  1. unit cliente1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables,comobj;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DataSource1: TDataSource;
  12.     Table1: TTable;
  13.     DBGrid1: TDBGrid;
  14.     DBNavigator1: TDBNavigator;
  15.     Edit1: TEdit;
  16.     Label1: TLabel;
  17.     Button1: TButton;
  18.     procedure FormCreate(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.     controlusu:Variant;
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. uses client2;
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.FormCreate(Sender: TObject);
  37. begin
  38.   controlusu:=CreateOleObject('pserver1.controlusu');
  39. end;
  40.  
  41. procedure TForm1.Button1Click(Sender: TObject);
  42. begin
  43.  if controlusu.busqueda(edit1.text) = 0 then
  44.  begin
  45.    Application.CreateForm(TForm2, Form2);
  46.    form2.show;
  47.  end
  48.  else
  49.    dbgrid1.columns.items[2].visible:=false;
  50.  table1.active:=true;
  51.  
  52. end;
  53.  
  54. end.
  55.  
  56.  
  57.