Ввод данных в таблицу запросов через форму. Связь между формами

Лабораторная работа №6: Ввод данных в таблицу запросов через форму. Связь между формами

Цель работы: Написать программу внесения изменений в запрос через форму и сохранения изменений

            1. Создайте форму, как показано на рисунке:

            2. Создайте верхнее меню ФАЙЛ(подменю: Переход на форму3, Переход на форму2).

            3. Создайте обработчик событий для создания формы:

procedure TForm1.FormCreate(Sender: TObject);

var otd:string;

begin

otd:='Все';

form1.Caption:='Данные о студентах ФФМТ - Всего '+IntToStr(Query1.RecordCount)+'-студентов'

end;

            4. Создайте обработчик событий для подменю «Переход на форму3»:

procedure TForm1.N31Click(Sender: TObject);

begin

Form3.Show;

form1.Enabled:=false;

end;

            5. Создайте обработчик событий для подменю «Переход на форму2»:

procedure TForm1.N21Click(Sender: TObject);

begin

Form2.ShowModal;

form3.Enabled:=false;

form1.Enabled:=false;

end;

6. Создайте обработчик событий для кнопки «Выход»:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Close;

end;

7. Создайте форм2:

Из вкладки Win32вставьте компонент  MonthCalendar. Создайте кнопки «Внести в базу», чтобы дата рождения студентов вводились из календаря, «Переход на форму3»

Для MonthCalendar установите свойство Date (нужно указать календарь какого года вам нужен);

            8. Создайте код для TForm2.FormCreate

procedure TForm2.FormCreate(Sender: TObject);

begin

MonthCalendar1.Date:=Date;

end;

            9. Создайте код для  TForm2.Button1Click

procedure TForm2.Button1Click(Sender: TObject);

begin

Form3.Ed_god_rozh.Text:=datetostr(form2.MonthCalendar1.Date);

form2.Hide;

Form1.Show;

form1.Enabled:=true;

end;

            10. Создайте код для TForm2.Button2Click

procedure TForm2.Button2Click(Sender: TObject);

begin

form3.Show;

form3.Enabled:=true;

end;

            11. Создайте форму3:

12. Установите 6 экземпляров DBEdit, измените свойство Name для каждого компонента соответственно:

Ed_Fio, Ed_Adres, Ed_Bilet, Ed_God_rozh,  Ed_Tel, Ed_spez

13. Поставьте SpeedButton1 и укажите Caption …

Напишите для него код:

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

Form2.Show;

end;

14. Поставьте ComboBox1 и укажите свойства:

Name - CB_Sem_pol

Text  - выбрать

Items

замужем

не замужем

женат

холост

            15. Поставьте CheckBox1 и укажите для него свойство:

Name CB_child

Caption Есть ли дети

16. Поставьте из вкладки Standart компонент  Panel и укажите свойство:

Align alCustom

            Поставьте срех панели три кнопки «ОК», «Отмена», «Договор (на печть)».

            17. Создайте код для «ОК»

procedure TForm3.Button2Click(Sender: TObject);

begin

if (CB_Sem_pol.Text<>'выбрать') then

begin

Form1.Table1.Insert;

Form1.Table1['Fio']:=Ed_fio.Text;

Form1.Table1['Adr']:=Ed_adres.Text;

Form1.Table1['Datar']:=Ed_god_rozh.Text;

Form1.Table1['SemPol']:=CB_Sem_pol.Text;

Form1.Table1['Tel']:=Ed_Tel.Text;

Form1.Table1['Spez']:=Ed_spez.Text;

Form1.Table1['Bilet']:=Ed_Bilet.Text;

if CB_child.Checked then Form1.Table1['Child']:=true

else Form1.Table1['Child']:=false;

Form1.Table1.Post;

Form3.Hide;

form1.Enabled:=true;

end else ShowMessage('!!!');

end;

18. Создайте код для «Отмена»

procedure TForm3.Button3Click(Sender: TObject);

begin

Form3.Hide;

Form1.Show;

form1.Enabled:=true;

end;

19. Создайте код для  «Договор (на печть)»

procedure TForm3.Button1Click(Sender: TObject);

begin

Form4.QRL_fio.Caption:=Ed_fio.Text;

Form4.QRMemo4.Lines.Clear;

Form4.QRMemo4.Lines.Add('1. Фирма принимает на работу вышесказанного физического лица, в должности "'+Ed_FIO.Text+'" . И объязуется предоставить рабочее место.');

Form4.QRMemo4.Lines.Add('2. Работник обязуется следовать внутренним правилам и порядкам Фирмы.');

Form4.QRM_rab.Lines.Clear;

Form4.QRM_rab.Lines.Add('"Работник"');

Form4.QRM_rab.Lines.Add(Ed_spez.Text);

Form4.QRM_rab.Lines.Add('Адрес: '+Ed_adres.Text);

Form4.QRM_rab.Lines.Add('Телефон: '+Ed_tel.Text);

Form4.QuickRep1.Preview;

end;