t=
then := raquo ;;
end;
procedure TForm1.BitBtn3Click (S end er: TObject);
begin .Close;
end;
procedure TForm1.ComboBox11Change (S end er: TObject);
begin := Ціна= + QuotedStr (combobox11.Text);
if combobox11.Text= then := raquo ;;
end;
procedure TForm1.ComboBox12Change (S end er: TObject);
begin := [Дозвіл екрану]= + QuotedStr (combobox12.Text);
if combobox12.Text= then := raquo ;;
end;
procedure TForm1.ComboBox13Change (S end er: TObject);
begin := [ємність акумулятора]= + QuotedStr (combobox13.Text);
if combobox13.Text= then := raquo ;;
end;
procedure TForm1.Edit2Change (S end er: TObject);
begin :=form1.Edit2.text;// Записуємо в змінну А71, то що ввели в
поле edit2
end;
procedure TForm1.Edit3Change (S end er: TObject);
begin :=form1.Edit3.text;// Записуємо в змінну А72, то що ввели в
поле edit3
end;
procedure TForm1.FormActivate (S end er: TObject);
begin .Visible:=false;// Спочатку робимо невидимим edit1
end;
end .
unit Unit2;
interface
uses , Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, ExtCtrls, DBCtrls, DB, ADODB, Grids,
DBGrids;
type =class (TForm): TBitBtn ;: TBitBtn ;: TADOConnection ;: TADOTable ;: TDataSource ;: TDBGrid ;: TLabel ;: TLabel ;: TEdit ;: TLabel ;: TLabel ;: TLabel;
procedure BitBtn1Click (S end er: TObject);
procedure BitBtn2Click (S end er: TObject);
procedure DBGrid1CellClick (Column: TColumn);
private
{Private declarations}
public
{Public declarations}
end;
var : TForm2;
uses Unit1, Unit3;
{$ R * .dfm}
procedure TForm2.BitBtn1Click (S end er: TObject);
begin .Close; .show;
end;
procedure TForm2.BitBtn2Click (S end er: TObject);
begin .Close; .Close;
end;
procedure TForm2.DBGrid1CellClick (Column: TColumn);
begin
//Form3.ShowModal;.Image1.Picture.LoadFromFile(Form1.adoTable1.FieldByname(laquo;Фотоraquo;
). AsString) ;. ShowModal;
end;
end .
unit Unit3;
interface
uses , Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls;
type =class (TForm): TImage;
private
{Private declarations}
public
{Public declarations}
end;
var : TForm3;
{$ R * .dfm}
end .
