Добавил:
masterdos
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:4 Курс / переподы / анал / Практика / 311-і / Мамедов В.А / praktika 2 / Unit3
.pas unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm3 = class(TForm)
btn1: TSpeedButton;
edt7: TEdit;
edt6: TEdit;
edt5: TEdit;
edt4: TEdit;
edt3: TEdit;
edt2: TEdit;
edt1: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.btn1Click(Sender: TObject);
var a1:string;
begin
a1:='INSERT INTO Сотрудники VALUES('''+Edt1.Text+''','''+Edt2.Text+''','''+Edt3.Text+''','''+Edt4.Text+''','''+Edt5.Text+''','''+Edt6.Text+''','''+Edt7.Text+''');';
form1.qry1.SQL.Clear;
form1.qry1.SQL.Text:=a1;
form1.qry1.ExecSQL;
form1.qry1.Active:=false;
form1.qry1.SQL.Clear;
form1.qry1.SQL.Add('SELECT * FROM сотрудники ORDER BY фамилия;');
form1.qry1.Active:=true;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm3 = class(TForm)
btn1: TSpeedButton;
edt7: TEdit;
edt6: TEdit;
edt5: TEdit;
edt4: TEdit;
edt3: TEdit;
edt2: TEdit;
edt1: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.btn1Click(Sender: TObject);
var a1:string;
begin
a1:='INSERT INTO Сотрудники VALUES('''+Edt1.Text+''','''+Edt2.Text+''','''+Edt3.Text+''','''+Edt4.Text+''','''+Edt5.Text+''','''+Edt6.Text+''','''+Edt7.Text+''');';
form1.qry1.SQL.Clear;
form1.qry1.SQL.Text:=a1;
form1.qry1.ExecSQL;
form1.qry1.Active:=false;
form1.qry1.SQL.Clear;
form1.qry1.SQL.Add('SELECT * FROM сотрудники ORDER BY фамилия;');
form1.qry1.Active:=true;
end;
end.
Соседние файлы в папке praktika 2