Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
0
Добавлен:
30.05.2020
Размер:
1.17 Кб
Скачать
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.
Соседние файлы в папке praktika 2
  • #
    30.05.202017.88 Кб0Unit2.~dfm
  • #
    30.05.2020520 б0Unit2.~pas
  • #
    30.05.20204.91 Кб0Unit3.dcu
  • #
    30.05.202051 б0Unit3.ddp
  • #
    30.05.20203.63 Кб0Unit3.dfm
  • #
    30.05.20201.17 Кб0Unit3.pas
  • #
    30.05.202051 б0Unit3.~ddp
  • #
    30.05.20203.63 Кб0Unit3.~dfm
  • #
    30.05.20201.17 Кб0Unit3.~pas
  • #
    30.05.20207.41 Кб0Безымянный.jpg