ocedure TForm6.btn3Click (Sender: TObject); begin qry1.Close; qry1.SQL.Clear; qry1.SQL.Add ('select * from Service1'); qry1.Open; end; end. unit Unit7; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls; type TForm7 = 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 Form7: TForm7; implementation uses Unit8; {$ R *. dfm} procedure TForm7.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 TForm7.Button1Click (Sender: TObject); begin form7.Visible: = false; form8.Visible: = true; end; procedure TForm7.btn3Click (Sender: TObject); begin qry1.Close; qry1. SQL.Clear; qry1.SQL.Add ('select * from Buy'); qry1.Open; end; end. unit Unit8; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, DBTables, DB, StdCtrls, ExtCtrls, DBCtrls, Mask; type TForm8 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; DBEdit1: TDBEdit; DBNavigator1: TDBNavigator; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Button2: TButton; Button3: TButton; Table2: TTable; DataSource2: TDataSource; procedure Button2Click (Sender: TObject); procedure Button3Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form8: TForm8; implementation uses Unit1; {$ R *. dfm} procedure TForm8.Button2Click (Sender: TObject); begin form8.Visible : = false; form1.Visible: = true; end; procedure TForm8.Button3Click (Sender: TObject); begin Form8.close; end; end. unit Unit9; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XPMan, DBTables, DB, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls, Mask, RpBase, RpSystem, RpRave, RpDefine, RpCon , RpConDS; type TForm9 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; DBEdit1: TDBEdit; DBNavigator1: TDBNavigator; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Button2: TButton; Button3: TButton; DBEdit4: TDBEdit; Panel1: TPanel; DBGrid1: TDBGrid; Button1: TButton; Butto...
