Добавление записей в таблицы через форму

Другой способ манипулирования данными в таблицах – добавление, удаление или корректировка записей выполняется с помощью новых форм.

Например, для добавления нового работника в таблицу создается форма со следующими полями, информация из них заносится в записи таблицы.

Свойство Value всегда соответствует типу поля, к которому оно относится. Например у TStringFields - string, TCurrencyFields - double. На самом деле это поле должно показывать нечто другое - произведение полей Qty (количество) и ListPrice (цена). Для этого для события OnCalcFields нужно следующим образом:

procedure TForm1.Table2CalcFields(DataSet: TDataset);

Begin

Table 2Total.Value:= Table 2Qty.Value* Table 2ListPrice.Value;

end;

Если теперь запустить программу, то поле Total будет содержать требуемое значение. Если нужно получить имена полей в текущем DataSet, то для этого используется свойство FieldName одним из двух способов, показанных ниже:

S := Table 1.Fields[0].FieldName;// S := Table1CustNo.FieldName;

Если вы хотите получить имя объекта, связанного с полем, то вы должны использовать свойство Name:

S := Table 1.Fields[0].Name; S := Table 1CustNo.Name;

Для занесения данных в поля на форме пишем процедуру кнопки «Добавить»

procedure TForm2.Button1Click(Sender: TObject);

begin

if ((ComboBox1.Text='')or(ComboBox2.Text='')or(ComboBox3.Text='')or(ComboBox4.Text='')or(Edit1.Text='')or(Edit2.Text='')or(Edit3.Text=''))

then begin MessageDlg('Не все поля заполнены',MtError,[mbOk],0);exit; end;

Form1.ADOTable12.Edit;

Form1.ADOTable12.Insert;

Form1.ADOTable12.FieldByName('ФИО клиента').AsString:=ComboBox1.Text;

Form1.ADOTable12.FieldByName('ФИО сотрудника').AsString:=ComboBox2.Text;

Form1.ADOTable12.FieldByName('Дата проведения').AsString:=Edit3.Text;

Form1.ADOTable12.FieldByName('Город').AsString:=ComboBox3.Text;

Form1.ADOTable12.FieldByName('Место проведения').AsString:=ComboBox4.Text;

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

Form1.ADOTable12.FieldByName('Фактическая плата').AsString:=Edit2.Text;

Form1.ADOTable12.Post;

Form1.ADOTable12.Refresh;

end;

Форма “Добавление работника”

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm12 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit; Edit7: TEdit; Edit8: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit7;

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject); // процедура добавления работника

begin

If (Edit1.Text='')or(Edit2.Text='')or(Edit3.Text='')or(Edit4.Text='')or(Edit5.Text='')or(Edit6.Text='')or(Edit7.Text='')or(Edit8.Text='')then

begin

ShowMessage('Заполнены не все поля');

exit;

end

else begin

Form7.Table1.Append;

Form7.Table1.FieldbyName('FIO').Asstring:=Edit1.Text;

Form7.Table1.FieldbyName('Adres').Asstring:=Edit2.Text;

Form7.Table1.FieldbyName('Telefon').Asstring:=Edit3.Text;

Form7.Table1.FieldbyName('Doljnost').Asstring:=Edit4.Text;

Form7.Table1.FieldbyName('Staj').Asstring:=Edit5.Text;

Form7.Table1.FieldbyName('Razrayd').Asstring:=Edit6.Text;

Form7.Table1.FieldbyName('Zarplata').Asstring:=Edit7.Text;

Form7.Table1.FieldbyName('Data_pr').Asstring:=Edit8.Text;

Form7.Table1.Post;

Form7.Table1.Close;

Form7.Table1.Open;

end;

end; end;

procedure TForm12.Button2Click(Sender: TObject); // переход на форму «Работники»

begin

Form7.Show;

Form12.Hide;

end;

end.

procedure TForm4.N3Click(Sender: TObject); // Процедура удаления договора

begin

if MessageDlg('Вы действительно хотите удалить этот

договор?',mtConfirmation,[mbYes,mbNo],0)=mrYes

then

begin

Table1.Edit;

Table1.Delete;

Table1.Refresh;

exit;

end else Exit;

end;

6 Работа со связанными таблицами

При установлении связи между таблицами в DELPHI необходимо иметь в виду следующие требования, таблицы связываются :

· только по индексированным полям

· по полям целочисленного типа (longinteger), которые должны быть проиндексированы.

Рассмотрим 2 таблицы на примере данной БД:

Klient- информация о клиенте

Zakaz - Карточки по движению заказов.

Главная таблица является таблица Klient ,а Zakaz - подчиненной