-------------------------------- ------------------- unit Unit5; 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 TForm5 = class (TForm) Label1: TLabel; Label3: TLabel; Panel1: TPanel; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton ; btn1: TButton; Edit1: TEdit; qry1: TQuery; RvDataSetConnection2: TRvDataSetConnection; RvProject1: TRvProject; RvSystem1: TRvSystem; btn3: TButton; DBNavigator: TDBNavigator; Table1: TTable; DataSource1: TDataSource; procedure Edit1Change (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Button1Click (Sender: TObject); procedure btn1Click (Sender: TObject); procedure btn3Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form5: TForm5; implementation uses Unit1; {$ R *. dfm} procedure TForm5.Edit1Change (Sender: TObject); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add ('select * from bdkvartir where Metro like "' + Edit1. Text + '% "'); qry1.Open; end; procedure TForm5.Button2Click (Sender: TObject); begin form5.Visible: = false; form1.Visible: = true; end; procedure TForm5.Button1Click (Sender: TObject) ; begin Form5.close; end; procedure TForm5.btn1Click (Sender: TObject); begin Form5.RvProject1.Execute; end; procedure TForm5.btn3Click (Sender: TObject); begin qry1.Close; qry1.SQL.Clear; qry1. SQL.Add ('select * from bdkvartir'); qry1.Open; end; end. -------------------------------------------------- ------------------- unit Unit6; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls; type TForm6 = class (TForm) Label2: TLabel; Splitter1: TSplitter; Label1: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel ; Label9: TLabel; Button1: TButton; Panel1: TPanel; DBGrid1: TDBGrid; DBEdit1: TDBEdit; DBNavigator1: TDBNavigator; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; Edit1: TEdit; Edit2: TEdit; Button4: TButton; Table1 : TTable; DataSource1: TDataSource; Table2: TTable; DataSource2: TDataSource; Label10: TLabel; btn3: TButton; qry1: TQuery; procedure Button4Click (Sender: TObject); procedure Button1Click (Sender: TObject); procedure btn3Click (Sender: TObject) ; private {Private declarations} public {Public declarations} end; var Form6: TForm6; implementation uses Unit8; {$ R *. dfm} procedure TForm6.Button4Click (Sender: TObject); var a, b: real; c, d: real; begin a: = StrToFloat (Edit1.Text); b: = StrToFloat (Edit2.Text); c: = a * b; d: = (a * b) + a; Label7.Caption: = FloatToStrF (c, ffCurrency, 10,2); Label10.Caption: = FloatToStrF (d, ffCurrency, 10,2); end; procedure TForm6.Button1Click (Sender: TObject); begin form6.Visible: = false; form8.Visible: = true; end; pr...
