uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADODB;

type

TForm3 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit6: TEdit;

Label6: TLabel;

Button1: TButton;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction) ;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3; x,id:integer;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm3.FormActivate(Sender: TObject);

var x,i:integer;

begin

x:=Form1.ADOQuery1.FieldCount;

For i:=0 to x-1 do

begin

TLabel(Components[i]).Caption:=Form1.ADOQuery1.Fields[i].FieldName;

TLabel(Components[i]).Visible:=true;

TEdit(Components[i+6]).Visible:=true;

end;

end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

var x,i:integer;

begin

x:=Form1.ADOQuery1.FieldCount;

For i:=0 to x-1 do

begin

TLabel(Components[i]).Visible:=false;

TEdit(Components[i+6]).Visible:=false;

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

var i:integer;

begin

form1.ADOQuery1.insert;

Case ed of

0:

begin

form1.ADOQuery1.FieldByName('Код заказчика').AsString:=Edit1.Text;

form1.ADOQuery1.FieldByName('Вид поломки').AsString:=Edit2.Text;

form1.ADOQuery1.FieldByName('Заказчик').AsString:=Edit3.Text;

form1.ADOQuery1.FieldByName('Стоимость').AsString:=Edit4.Text;

form1.ADOQuery1.FieldByName('Предприятие').AsString:=Edit5.Text;

end;

1:

begin

form1.ADOQuery1.FieldByName('Код заказчика').AsString:=Edit1.Text;

form1.ADOQuery1.FieldByName('Имя заказчика').AsString:=Edit2.Text;

form1.ADOQuery1.FieldByName('Фамилия заказчика').AsString:=Edit3.Text;

form1.ADOQuery1.FieldByName('Должность').AsString:=Edit4.Text;

form1.ADOQuery1.FieldByName('Отдел').AsString:=Edit5.Text;

form1.ADOQuery1.FieldByName('Номер телефона').AsString:=Edit5.Text;

end;

2:

begin

Form1.ADOQuery1.FieldByName('Код специалиста').AsString:=Edit1.Text;

Form1.ADOQuery1.FieldByName('Имя специалиста').AsString:=Edit2.Text;

Form1.ADOQuery1.FieldByName('Наименование заявки').AsString:=Edit3.Text;

Form1.ADOQuery1.FieldByName('Стоимость').AsString:=Edit4.Text;

end;

3:

begin

Form1.ADOQuery1.FieldByName('Код специалиста').AsString:=Edit1.Text;

Form1.ADOQuery1.FieldByName('Имя специалиста').AsString:=Edit2.Text;

Form1.ADOQuery1.FieldByName('Фамилия специалиста').AsString:=Edit3.Text;

---

Form1.ADOQuery1.FieldByName('Номер телефона').AsString:=Edit4.Text;

end;

4:

begin

Form1.ADOQuery1.FieldByName('Наименование предприятия').AsString:=Edit1.Text;

Form1.ADOQuery1.FieldByName('Адрес').AsString:=Edit2.Text;;

end;

end;

Form3.Close;

edit1.Clear; edit2.Clear; edit3.Clear;

edit4.Clear; edit5.Clear; edit6.Clear;

end;

end.

Размещено на Аllbеst.ru

---

Смотрите также файлы

• Заместитель начальника 11псч 1 псо фпс гпс гу мчс россии по Республике Коми.doc

• Администрация города нижнего новгорода.docx

• Расчет длинной линии с распределенными параметрами.docx

• Мектеп 2 жом.docx

• Симметричные криптографические системы.docx