1: TButton; DBNavigator: TDBNavigator; Table1: TTable; DataSource1: TDataSource; Label7: TLabel; DBEdit1: TDBEdit; procedure Button1Click (Sender: TObject); private {Private declarations} public {Public declarations } end; var Form2: TForm2; implementation uses Unit1, Unit3; {$ R *. dfm} procedure TForm2.Button1Click (Sender: TObject); begin form2.Visible: = false; form3.Visible: = true; end; end. -------------------------------------------------- ------------------- unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, DBTables, DB, StdCtrls, Grids, DBGrids, DBCtrls, ExtCtrls, RpBase, RpSystem, RpRave, RpDefine, RpCon, RpConDS; type TForm3 = class (TForm) Label1: TLabel; Label3: TLabel; Panel1: TPanel; DBNavigator: TDBNavigator; DBGrid1: TDBGrid; Button1: TButton ; Button2: TButton; btn1: TButton; Edit1: TEdit; Table1: TTable; DataSource1: TDataSource; qry2: TQuery; qry1: TQuery; RvDataSetConnection1: TRvDataSetConnection; RvProject1: TRvProject; RvSystem1: TRvSystem; btn3: TButton; procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Edit1Change (Sender: TObject); procedure btn1Click (Sender: TObject); procedure btn3Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form3: TForm3; implementation uses Unit1; {$ R *. dfm} procedure TForm3.Button1Click (Sender: TObject); begin Form3.close; end; procedure TForm3.Button2Click (Sender: TObject); begin form3.Visible: = false; form1. Visible: = true; end; procedure TForm3.Edit1Change (Sender: TObject); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add ('select * from Klients where SNP like "' + Edit1.Text + ' % "'); qry1.Open; end; procedure TForm3.btn1Click (Sender: TObject); begin Form3.RvProject1.Execute; end; procedure TForm3.btn3Click (Sender: TObject); begin qry1.Close; qry1.SQL. Clear; qry1.SQL.Add ('select * from Klients'); qry1.Open; end; end. -------------------------------------------------- ------------------- unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, DBTables; type TForm4 = class (TForm) Table1: TTable; DataSource1: TDataSource; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel ; Label9: TLabel; dbedtSNP: TDBEdit; dbedt: TDBEdit; dbedtStreet: TDBEdit; dbedtHouse: TDBEdit; dbedtApartment: TDBEdit; Button1: TButton; DBNavigator: TDBNavigator; dbedtLogin: TDBEdit; pas: TDBEdit; DBEdit1: TDBEdit; Table2: TTable; DataSource2 : TDataSource; procedure Button1Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form4: TForm4; implementation uses Unit5; {$ R *. dfm} procedure TForm4.Button1Click (Sender: TObject); begin form4.Visible: = false; form5.Visible: = true; end; end. ------------------...
