Проектирование главной формы и свойства используемых компонентов

Button1 — запуск программы на заполнение массива Memo1: TMemo;

Radiogroup1 — компонент, с помощью которого производится выборка для определенного поля.

Button2 — запуск программы на выборку какого-либо из полей записей.

Label1: Заголовок;

Edit1: Поле, в которое вводится организация-заказчик.

Label2: Заголовок;

Edit2: ФИО представителя ;

Edit3: его должность;

Edit4: почтовый адрес;

Edit5: телефон;

Edit6: e-mail;

Edit7: код товара;

Label3: Заголовок ;

Label4: Заголовок.

Label5: Заголовок;

Label6: Заголовок;

Label7: Заголовок;

Label9: Заголовок.

Label10 Заголовок.

Label11: Заголовок.

Label12: Заголовок.

Edit8: номер заказа;

Edit9: количество;

Edit10: дата заказа;

Edit11: скидка;

Memo1.Lines — отображение записей поля, по которому происходит выборка.

Экранная форма программы

Текст программы

const.

NMax = 12;

type.

Tamb_karta = record.

organizachiya_zakazchika:string;

FIO_predstavitelya :string;

dolgnost :string;

pochtovi_adres: string;

Telephone: string;

e_mail: string;

kod_tovara:string;

nomer_zakaza :string;

kolichestvo:string;

data_zakaza:string;

skidka:string;

end;

TSpicok = array [1.NMax] of Tamb_karta;

var.

Form1: TForm1;

Spicok: TSpicok;

i: integer;

implementation.

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

If i=13.

then.

begin.

Application.MessageBox ('Массив полностью заполнен!','Сообщение!', MB_OK+MB_ICONINFORMATION,);

end.

else.

begin.

{Проверим все ли поля заполнены. Если да то данные можно внести в массив}.

if (Edit1.Text'') and (Edit2.Text'') and.

(Edit3.Text'') and (Edit4.Text'') and (Edit5.Text'').

and (Edit6.Text'') and (Edit7.Text'')and (Edit8.Text'').

and (Edit9.Text'') and (Edit10.Text'')and (Edit11.Text'').

then.

begin.

with Spicok[i] do.

begin.

organizachiya_zakazchika:= Edit1. Text;

FIO_predstavitelya := Edit2. Text;

dolgnost := Edit3. Text;

pochtovi_adres := Edit4. Text;

Telephone := Edit5. Text;

e_mail := Edit6. Text;

kod_tovara := Edit7. Text;

nomer_zakaza := Edit8. Text;

kolichestvo := Edit9. Text;

data_zakaza := Edit10. Text;

skidka := Edit11. Text;

Inc (i);

Application.MessageBox ('Данные успешно внесены !','Информация', MB_OK+MB_ICONINFORMATION,);

end;

end.

else.

begin.

Application.MessageBox ('Введите все данные!','Информация', MB_OK+MB_ICONERROR,);

end;

end;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin.

i:=1.

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

for i:=1 to 12 do.

begin.

if radiogroup1. itemindex=0 then Memo1.lines.add (Spicok[i]. organizachiya_zakazchika);

if radiogroup1. itemindex=1 then Memo1.lines.add (Spicok[i]. FIO_predstavitelya);

if radiogroup1. itemindex=2 then Memo1.lines.add (Spicok[i]. dolgnost);

if radiogroup1. itemindex=3 then Memo1.lines.add (Spicok[i]. pochtovi_adres);

if radiogroup1. itemindex=4 then Memo1.lines.add (Spicok[i]. e_mail);

if radiogroup1. itemindex=5 then Memo1.lines.add (Spicok[i]. Telephone);

if radiogroup1. itemindex=6 then Memo1.lines.add (Spicok[i]. kod_tovara);

if radiogroup1. itemindex=7 then Memo1.lines.add (Spicok[i]. nomer_zakaza);

if radiogroup1. itemindex=8 then Memo1.lines.add (Spicok[i]. kolichestvo);

if radiogroup1. itemindex=9 then Memo1.lines.add (Spicok[i]. data_zakaza);

if radiogroup1. itemindex=10 then Memo1.lines.add (Spicok[i]. skidka);

end.

end;

Результаты работы программы

При запуске программы данные вводятся в массив, если заполнены все поля, иначе появляется сообщение о необходимости введении недостающих сведений. Процесс заполнения массива продолжается до тех пор, пока количество записей не будет больше, чем 12.

Выборка поля, записи которого отображаются в Мемо.