Додавання квитка за заданими критеріями

• 1) Для додавання квитка за заданими критеріями необхідно ввести відповідні атрибути квитка, за допомогою візуальних компонентів Delphi: Edit1(номер), Edit2(ряд), ComboBox2(зона), ComboBox1(клас місця).
• 2) Після цього, при натисненні на кнопку Додати (Button1), відбувається виклик процедури, яка динаически заносить дані про квиток у БД :

procedure TBilet_.Button1Click (Sender: TObject);

begin.

try.

IBTable1.Append;

IBTable1.FieldByName ('ID').AsInteger := 0 ;

IBTable1.FieldByName ('Nomer').AsInteger := strtoint (edit1.Text);

IBTable1.FieldByName ('Zona').AsString := ComboBox2. Text;

IBTable1.FieldByName ('Ryad').AsInteger := strtoint (edit2.Text);

IBTable1.FieldByName ('CENA').AsInteger := strtoint (ComboBox1.Text) ;

IBTable1.post;

except.

end;

end;

Автоматичне створення квитка/

При натисненні на кнопку АвтоДобавить (Button3), станеться виклик процедури, яка автоматично створюватиме квитки по їх номеру і ряду (за допомогою циклів з параметром) procedure TBilet_.Button3Click (Sender: TObject);

var I, T: integer;

begin.

try.

For I := 1 to 20 do.

For T := 1 to 32 do begin.

IBTable1.Append;

IBTable1.FieldByName ('ID').AsInteger := 0 ;

IBTable1.FieldByName ('Nomer').AsInteger := T;

IBTable1.FieldByName ('Zona').AsString := ComboBox2. Text;

IBTable1.FieldByName ('Ryad').AsInteger := I;

IBTable1.FieldByName ('CENA').AsInteger := strtoint (ComboBox1.Text) ;

IBTable1.post;

end; except end; end;

Алгоритм створення фільму

Алгоритм створення фільму описаний в модулі FILMS.

• 1) За допомогою візуальних компонентів Delphi, необхідно ввести соответсвующие дані про фільм: Edit1и Edit2(Назва фільму, Посилання на джерело інформації), Memo1(Короткий опис).
• 2) Для занесення введених даних, необхідно натиснути на кнопку «Додати», яка викличе процедуру обробки події натиснення на кнопку Button1 :

procedure TFILMS_.Button1Click (Sender: TObject);

begin.

try.

IBTable1.Append;

IBTable1.FieldByName ('ID').AsInteger := 0 ;

IBTable1.FieldByName ('NAME').AsString := edit1. Text;

IBTable1.FieldByName ('DATA').AsString := Memo1. Text;

IBTable1.FieldByName ('ssilka').AsString := Edit2. Text;

IBTable1.post;

except.

end;

end;