Индивидуального задания

жүктеу/скачать 238,5 Kb.

бет	13/13
Дата	06.02.2022
өлшемі	238,5 Kb.
	#79169
түрі	Протокол

1 ... 5 6 7 8 9 10 11 12 13

Байланысты:
Сулимин

Листинг файл Unit3
Форма Form1 Форма Form2 Форма Form3

Листинг файл Unit2
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons, DBCtrls, Mask;

type
TForm2 = class(TForm)

Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBComboBox5: TDBComboBox;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin
form1.Adotable1.post;
close;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin
close;
end;

end.

Листинг файл Unit3
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm3 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
close;
end;

end.

Форма Form1

Форма Form2

Форма Form3

жүктеу/скачать 238,5 Kb.

Достарыңызбен бөлісу:

1 ... 5 6 7 8 9 10 11 12 13