3. Программный код

unit Unit1;

interface

uses

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

Dialogs,Unit3, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, DB,

ADODB;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

DBGrid1: TDBGrid;

DBGrid3: TDBGrid;

TabSheet4: TTabSheet;

DBGrid4: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

DataSource3: TDataSource;

ADODataSet3: TADODataSet;

DataSource4: TDataSource;

Button1: TButton;

ADOTable1: TADOTable;

Button2: TButton;

ADODataSet1: TADODataSet;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADODataSet2: TADODataSet;

procedure PageControl1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure TForm1.Button1 Click (Sender: TObject); // объявление процедуры;

begin // начало процедуры;

Form3:=form3.create (application); // создание формы (функция Create);

Form3.Caption:='Добавить запись'; // заголовок формы;

Form3.Show; // вывод новой формы;

end; // конец процедуры;

Процедура TForm1.Button1Clickявляется обработчиком событияButton1Clickрезультатом ее выполнения является открытие формы для ввода новой записи (Form3).

procedure TForm1.Button2Click(Sender: TObject); // объявление процедуры;

begin// начало процедуры;

form1.ADOTable1.Delete; // функция удаления записи из БД;

end; // конец процедуры;

Процедура TForm1.Button2Clickявляется обработчиком событияButton2Click, результатом ее выполнения является удаление записи из БД.

procedure TForm1.Page Control1 Change (Sender: TObject); // объявление процедуры;

begin// начало процедуры;

Form1.ADO Table1.Requery(); // обновление данных в ADO Table1;

Form1.ADO Data Set1.Requery();// обновление данных в Data Set1;

Form1.ADO Data Set2.Requery();// обновление данных в Data Set2;

Form1.ADO Data Set3.Requery();// обновление данных в Data Set3;

end; конец процедуры;

unit Unit3;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB;

type

TForm3 = class(TForm)

procedure FormShow(Sender: TObject);

procedure Button2click(Sender: TObject);

private

button2:Tbutton;

lb1:TLabel;

lb2:TLabel;

lb3:TLabel;

lb4:TLabel;

lb5:TLabel;

lb6:TLabel;

lb7:TLabel;

lb8:TLabel;

lb9:TLabel;

lb10:TLabel;

lb11:TLabel;

lb12:TLabel;

ed1:Tedit;

ed2:Tedit;

ed3:Tedit;

ed4:Tedit;

ed5:Tedit;

ed6:Tedit;

ed7:Tedit;

ed8:Tedit;

ed9:Tedit;

ed10:Tedit;

ed11:Tedit;

ed12:Tedit;

Процедура TForm1.PageControl1Changeявляется обработчиком событияPageControl1Change, результатом ее выполнения является обновление донных в формах при переходе с одной формы на другую. Это необходимо для того, чтобы при изменении данных на одной вкладке эти изменения происходили и на других вкладках несущих в себе изменённые данные.

procedure TForm3.FormShow(Sender: TObject); // объявление процедуры;

begin // начало процедуры;

button2:=Tbutton.Create(form3);// создание кнопки button2;

button2.Parent := Form3; // место создания кнопки button2 (form3);

button2.Caption:='Добавить'; // добавление надписи на кнопке;

button2.OnClick:=button2click; // добавление событияbutton2clickнажатие на кнопку;

lb1:=Tlabel.create(form3); // создание элемента надпись (label);

lb1.parent:=form3; // место создания надписи (form3);

lb1.caption:='Фамилия'; // Текст надписи;

lb1.top:=50; // смещение относительно вертикальной оси;

lb1.Left:=10; // смещение относительно горизонтальной оси;

lb2:=Tlabel.create(form3); // создание элемента надпись (label);

lb2.parent:=form3; // место создания надписи (form3);

lb2.caption:='Имя'; // Текст надписи;

lb2.top:=80; // смещение относительно вертикальной оси;

lb2.Left:=10; // смещение относительно горизонтальной оси;

lb3:=Tlabel.create(form3); // создание элемента надпись (label);

lb3.parent:=form3; // место создания надписи (form3);

lb3.caption:='Отчество'; // Текст надписи;

lb3.top:=110; // смещение относительно вертикальной оси;

lb3.Left:=10; // смещение относительно горизонтальной оси;

lb4:=Tlabel.create(form3); // создание элемента надпись (label);

lb4.parent:=form3; // место создания надписи (form3);

lb4.caption:='Алгебра'; // Текст надписи;

lb4.top:=140; // смещение относительно вертикальной оси;

lb4.Left:=10; // смещение относительно горизонтальной оси;

lb5:=Tlabel.create(form3); // создание элемента надпись (label);

lb5.parent:=form3; // место создания надписи (form3);

lb5.caption:='Геометрия'; // Текст надписи;

lb5.top:=170; // смещение относительно вертикальной оси;

lb5.Left:=10; // смещение относительно горизонтальной оси;

lb6:=Tlabel.create(form3); // создание элемента надпись (label);

lb6.parent:=form3; // место создания надписи (form3);

lb6.caption:='Физика'; // Текст надписи;

lb6.top:=200; // смещение относительно вертикальной оси;

lb6.Left:=10; // смещение относительно горизонтальной оси;

lb7:=Tlabel.create(form3); // создание элемента надпись (label);

lb7.parent:=form3; // место создания надписи (form3);

lb7.caption:='Русский язык'; // Текст надписи;

lb7.top:=140; // смещение относительно вертикальной оси;

lb7.Left:=160; // смещение относительно горизонтальной оси;

lb8:=Tlabel.create(form3); // создание элемента надпись (label);

lb8.parent:=form3; // место создания надписи (form3);

lb8.caption:='Литература'; // Текст надписи;

lb8.top:=170; // смещение относительно вертикальной оси;

lb8.Left:=160; // смещение относительно горизонтальной оси;

lb9:=Tlabel.create(form3); // создание элемента надпись (label);

lb9.parent:=form3; // место создания надписи (form3);

lb9.caption:='История'; // Текст надписи;

lb9.top:=200; // смещение относительно вертикальной оси;

lb9.Left:=160; // смещение относительно горизонтальной оси;

lb10:=Tlabel.create(form3); // создание элемента надпись (label);

lb10.parent:=form3; // место создания надписи (form3);

lb10.caption:='Биология'; // Текст надписи;

lb10.top:=140; // смещение относительно вертикальной оси;

lb10.Left:=320; // смещение относительно горизонтальной оси;

lb11:=Tlabel.create(form3); // создание элемента надпись (label);

lb11.parent:=form3; // место создания надписи (form3);

lb11.caption:='Анатомия'; // Текст надписи;

lb11.top:=170; // смещение относительно вертикальной оси;

lb11.Left:=320; // смещение относительно горизонтальной оси;

lb12:=Tlabel.create(form3); // создание элемента надпись (label);

lb12.parent:=form3; // место создания надписи (form3);

lb12.caption:='Химия'; // Текст надписи;

lb12.top:=200; // смещение относительно вертикальной оси;

lb12.Left:=320; // смещение относительно горизонтальной оси;

ed1:=Tedit.create(form3); // создание поля ввода (Edit);

ed1.parent:=form3; // место создания поля ввода (form3);

with ed1 do

begin

top:=50; // смещение относительно вертикальной оси;

Left:=100; // смещение относительно горизонтальной оси;

end;

ed2:=Tedit.create(form3); // создание поля ввода (Edit);

ed2.parent:=form3; // место создания поля ввода (form3);

with ed1 do

begin

ed2.top:=80; // смещение относительно вертикальной оси;

ed2.Left:=100; // смещение относительно горизонтальной оси;

end;

ed3:=Tedit.create(form3); // создание поля ввода (Edit);

ed3.parent:=form3; // место создания поля ввода (form3);

with ed3 do

begin

ed3.top:=110; // смещение относительно вертикальной оси;

ed3.Left:=100; // смещение относительно горизонтальной оси;

end;

ed4:=Tedit.create(form3); // создание поля ввода (Edit);

ed4.parent:=form3; // место создания поля ввода (form3);

with ed4 do

begin

top:=140; // смещение относительно вертикальной оси;

Left:=100; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed5:=Tedit.create(form3); // создание поля ввода (Edit);

ed5.parent:=form3; // место создания поля ввода (form3);

with ed5 do

begin

top:=170; // смещение относительно вертикальной оси;

Left:=100; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed6:=Tedit.create(form3); // создание поля ввода (Edit);

ed6.parent:=form3; // место создания поля ввода (form3);

with ed6 do

begin

top:=200; // смещение относительно вертикальной оси;

Left:=100; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed7:=Tedit.create(form3); // создание поля ввода (Edit);

ed7.parent:=form3; // место создания поля ввода (form3);

with ed7 do

begin

top:=140; // смещение относительно вертикальной оси;

Left:=250; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed8:=Tedit.create(form3); // создание поля ввода (Edit);

ed8.parent:=form3; // место создания поля ввода (form3);

with ed8 do

begin

top:=170; // смещение относительно вертикальной оси;

Left:=250; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed9:=Tedit.create(form3); // создание поля ввода (Edit);

ed9.parent:=form3; // место создания поля ввода (form3);

with ed9 do

begin

top:=200; // смещение относительно вертикальной оси;

Left:=250; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed10:=Tedit.create(form3); // создание поля ввода (Edit);

ed10.parent:=form3; // место создания поля ввода (form3);

with ed10 do

begin

top:=140; // смещение относительно вертикальной оси;

Left:=400; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed11:=Tedit.create(form3); // создание поля ввода (Edit);

ed11.parent:=form3; // место создания поля ввода (form3);

with ed11 do

begin

top:=170; // смещение относительно вертикальной оси;

Left:=400; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

ed12:=Tedit.create(form3); // создание поля ввода (Edit);

ed12.parent:=form3; // место создания поля ввода (form3);

with ed12 do

begin

top:=200; // смещение относительно вертикальной оси;

Left:=400; // смещение относительно горизонтальной оси;

Width:=30; // задание ширины поля ввода;

end;

end;

Данная процедура после открытия формы (form3) создает элементы управления: кнопку 'Добавить', надписи (Label-Label12), поля ввода (edit1-edit12) и задает им необходимые свойства.

procedure TForm3.button2click(Sender: TObject); // объявление процедуры;

begin

form1.ADOTable1.insert(); // процедура вставки новой записи в БД;

form1.ADOtable1.FieldByName('Фамилия').Value:= ed1.Text;

form1.ADOtable1.FieldByName('Имя').Value:= ed2.Text;

form1.ADOtable1.FieldByName('Отчество').Value:= ed3.Text;

form1.ADOtable1.FieldByName('Алгебра').Value:= ed4.Text;

form1.ADOtable1.FieldByName('Геометрия').Value:= ed5.Text;

form1.ADOtable1.FieldByName('Физика').Value:= ed6.Text;

form1.ADOtable1.FieldByName('Русский_язык').Value:= ed7.Text;

form1.ADOtable1.FieldByName('Литература').Value:= ed8.Text;

form1.ADOtable1.FieldByName('История').Value:= ed9.Text;

form1.ADOtable1.FieldByName('Биология').Value:= ed10.Text;

form1.ADOtable1.FieldByName('Анатомия').Value:= ed11.Text;

form1.ADOtable1.FieldByName('Химия').Value:= ed12.Text;

end;