Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Вятский государственный университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

!Отчёт ЯВУ 2 семестр. Не скатывать, Шина может...docx

Скачиваний:

Добавлен:

07.05.2019

Размер:

2.39 Mб

Скачать

☆

<<< < Предыдущая 1 23 / 33

Фоновая задача

«Автоматизация учёта дошкольников, поступающих в первый класс».

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

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

Программный продукт должен обеспечивать:

Возможность ввода информации в БД и просмотр данных
Редактирование записей
Удаление записей
Сортировку таблиц по полям:

ФИО
Дата рождения
Адрес
№ детского сада
Подготовка к школе

Поиск записей по полям:

ФИО
Дата рождения
Адрес
Телефон
№ детского сада
Пол

Фильтрацию записей по полям дополнительной таблицы:

Физический уровень
Социальный уровень
Психологический уровень
Логопедический уровень
Общий уровень

Структура программного продукта:

Головной модуль Project2.pas. В нём формируется главная форма с таблицами БД, главное меню. Посредством данного модуля происходит обращение ко всем остальным модулям для последующих действий над БД.
School.pas – модуль, в котором формируется основное окно программы
Unit3.pas – модуль, в котором реализуется поиск по значению.
Unit4.pas- модуль, в котором реализуется сортировка записей.
Unit5.pas - модуль, в котором реализуется фильтрация записей по диапазону значений.
Unit6.pas, Unit7.pas, Unit8.pas - модули данных, в которых формируются окна для добавления записей.
Unit2.pas, Unit9.pas, Unit10.pas - модули, в которых реализуется удаление записей
Unit11.pas, Unit12.pas, Unit13.pas - модули, в которых формируются окна редактирования записей.
Unit14.pas – модуль содержащий окно справки.
Unit15.pas, Unit16.pas, Unit17.pas - модули содержащие окна таблиц данных.

Первая БД- родительская (включает сведения о дошкольнике):

Вторая БД – дочерняя (включает дополнительные сведения о родителях):

Третья БД – дочерняя (включает дополнительные сведение об уровне готовности дошкольника):

Связь осуществляется по полю ID_Base

Структура исходных баз данных:

FSved.db

SBase.db

TBase.db

Текст основного модуля Project2.pas;

program Project2;

uses

Forms,

School in 'School.pas' {Form1},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7},

Unit8 in 'Unit8.pas' {Form8},

Unit2 in 'Unit2.pas' {Form2},

Unit9 in 'Unit9.pas' {Form9},

Unit10 in 'Unit10.pas' {Form10},

Unit11 in 'Unit11.pas' {Form11},

Unit12 in 'Unit12.pas' {Form12},

Unit13 in 'Unit13.pas' {Form13},

Unit14 in 'Unit14.pas' {Form14};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm7, Form7);

Application.CreateForm(TForm8, Form8);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm9, Form9);

Application.CreateForm(TForm10, Form10);

Application.CreateForm(TForm11, Form11);

Application.CreateForm(TForm12, Form12);

Application.CreateForm(TForm13, Form13);

Application.CreateForm(TForm14, Form14);

Application.Run;

end.

Текст модуля School.pas:

unit School;

interface

uses

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

Dialogs, Grids, DBGrids, DB, DBTables, Menus, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Database1: TDatabase;

Table1: TTable;

Table2: TTable;

Table3: TTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

Table4: TTable;

Table5: TTable;

DataSource4: TDataSource;

DataSource5: TDataSource;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

procedure N13Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit6, Unit3, Unit8, Unit4, Unit5, Unit2, Unit7, Unit11, Unit12,

Unit13, Unit14, Unit15, Unit16, Unit9, Unit10;

{$R *.dfm}

procedure TForm1.N13Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form4.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form5.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form8.Show;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form11.Edit1.Text:=Form1.Table1.FieldByName('FName').AsString;

Form11.Edit2.Text:=Form1.Table1.FieldByName('FSex').AsString;

Form11.Edit3.Text:=Form1.Table1.FieldByName('FDate').AsString;

Form11.Edit4.Text:=Form1.Table1.FieldByName('FAdress').AsString;

Form11.Edit5.Text:=Form1.Table1.FieldByName('FPhone').AsString;

Form11.Edit6.Text:=Form1.Table1.FieldByName('FIndex').AsString;

form11.Show;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

Form12.Edit1.Text:=Form1.Table2.FieldByName('SMother').AsString;

Form12.Edit2.Text:=Form1.Table2.FieldByName('SMotherWork').AsString;

Form12.Edit3.Text:=Form1.Table2.FieldByName('SFather').AsString;

Form12.Edit4.Text:=Form1.Table2.FieldByName('SFatherWork').AsString;

Form12.Show;

end;

procedure TForm1.N19Click(Sender: TObject);

begin

Form13.Edit1.Text:=Form1.Table3.FieldByName('TFiz').AsString;

Form13.Edit2.Text:=Form1.Table3.FieldByName('TSoc').AsString;

Form13.Edit3.Text:=Form1.Table3.FieldByName('TPsih').AsString;

Form13.Edit4.Text:=Form1.Table3.FieldByName('TLog').AsString;

Form13.Edit5.Text:=Form1.Table3.FieldByName('TLevel').AsString;

Form13.Show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

form15.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form16.show;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

form10.show;

end;

end.

Текст модуля Unit2.pas:

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm2 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses School;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.Table1.Delete;

Form2.Close;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form2.Close;

end;

end.

Текст модуля Unit3.pas:

unit Unit3;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, DBTables;

type

TForm3 = class(TForm)

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

CheckBox1: TCheckBox;

GroupBox1: TGroupBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

DBGrid4: TDBGrid;

DBGrid5: TDBGrid;

DBGrid6: TDBGrid;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

Table4: TTable;

Table5: TTable;

Table6: TTable;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

Edit5: TEdit;

Edit6: TEdit;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses School;

{$R *.dfm}

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

form3.close;

end;

Procedure TForm3.BitBtn1Click(Sender: TObject);

var str: string;

begin

if ((Edit1.Text='')and(Edit2.Text='')and(Edit3.Text='')and(Edit4.Text='')and(Edit5.Text='')and(Edit6.Text=''))

then Table4.Filter:=''

else begin

str:='';

if CheckBox1.Checked then str:='FName='+''''+Edit1.Text+'''';

if CheckBox2.Checked then if str='' then str:='FDate='+''''+Edit2.Text+''''else str:=str+' and FDate='+''''+Edit2.Text+'''';

if CheckBox3.Checked then if str='' then str:='FAdress='+''''+Edit3.Text+'''' else str:=str+' and FAdress='+''''+Edit3.Text+'''';

if CheckBox4.Checked then if str='' then str:='FPhone='+''''+Edit4.Text+'''' else str:=str+' and FPhone='+''''+Edit4.Text+'''';

if CheckBox5.Checked then if str='' then str:='FDetSad='+''''+Edit5.Text+'''' else str:=str+' and FDetSad='+''''+Edit5.Text+'''';

if CheckBox6.Checked then if str='' then str:='FSex='+''''+Edit6.Text+'''' else str:=str+' and FSex='+''''+Edit6.Text+'''';

end;

Table4.Filter:=str;

Table4.Filtered:=true;

end;

end.

Текст модуля Unit4.pas:

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type

TForm4 = class(TForm)

GroupBox1: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

RadioGroup2: TRadioGroup;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses School;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if (RadioGroup2.ItemIndex=0) then begin

if (radiobutton1.Checked=true) then Form1.Table1.IndexName:='FN';

if (radiobutton2.Checked=true) then Form1.Table1.IndexName:='FD';

if (radiobutton3.Checked=true) then Form1.Table1.IndexName:='FI';

if (radiobutton4.Checked=true) then Form1.Table1.IndexName:='FDs';

if (radiobutton5.Checked=true) then Form1.Table1.IndexName:='FP';

end;

if (RadioGroup2.ItemIndex=1) then begin

if (radiobutton1.Checked=true) then Form1.Table1.IndexName:='FN-';

if (radiobutton2.Checked=true) then Form1.Table1.IndexName:='FD-';

if (radiobutton3.Checked=true) then Form1.Table1.IndexName:='FI-';

if (radiobutton4.Checked=true) then Form1.Table1.IndexName:='FDs-';

if (radiobutton5.Checked=true) then Form1.Table1.IndexName:='FP-';

end;

Form4.Close;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

form4.close

end;

end.

Текст модуля Unit5.pas:

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables;

type

TForm5 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Label5: TLabel;

Label6: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Label7: TLabel;

Label8: TLabel;

Edit7: TEdit;

Edit8: TEdit;

Label9: TLabel;

Label10: TLabel;

Edit9: TEdit;

Edit10: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DataSource1: TDataSource;

Table1: TTable;

DBGrid3: TDBGrid;

Table2: TTable;

DBGrid1: TDBGrid;

DataSource2: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

var str: string;

begin

if ((Edit1.Text='')and(Edit3.Text='')and(Edit5.Text='')and(Edit7.Text='')and(Edit9.Text='')) then Table1.Filter:=''

else begin

str:='';

if RadioButton1.Checked then str:='(TFiz>='+Edit1.Text+' and TFiz<='+Edit2.Text+')';

if RadioButton2.Checked then if str='' then str:='(TSoc>='+Edit3.Text+' and TSoc<='+Edit4.Text+')'

else str:=str+' and (TSoc>='+Edit3.Text+' and TSoc<='+Edit4.Text+')';

if RadioButton3.Checked then if str='' then str:='(TPsih>='+Edit5.Text+' and TPsih<='+Edit6.Text+')'

else str:=str+' and (TPsih>='+Edit5.Text+' and TPsih<='+Edit6.Text+')';

if RadioButton4.Checked then if str='' then str:='(Tlog>='+Edit7.Text+' and Tlog<='+Edit8.Text+')'

else str:=str+' and (TLog>='+Edit7.Text+' and TLog<='+Edit8.Text+')';

if RadioButton5.Checked then if str='' then str:='(Tlevel>='+Edit9.Text+' and Tlevel<='+Edit10.Text+')'

else str:=str+' and (TLevel>='+Edit9.Text+' and TLevel<='+Edit10.Text+')';

end;

Table1.Filter:=str;

Table1.Filtered:=true;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form5.Close;

end;

end.

Текст модуля Unit6.pas:

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm6 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

Edit6: TEdit;

Label6: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses School, Unit3;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Form1.Table1.insert;

Form1.Table1.FieldByName('FName').AsString:=Edit1.Text;

Form1.Table1.FieldByName('FSex').AsString:=Edit2.Text;

Form1.Table1.FieldByName('FDate').AsString:=Edit3.Text;

Form1.Table1.FieldByName('FAdress').AsString:=Edit4.Text;

Form1.Table1.FieldByName('FPhone').AsString:=Edit5.Text;

Form1.Table1.FieldByName('FIndex').AsString:=Edit6.Text;

Form1.Table1.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

form3.Close;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

Form3.close;

end;

end.

Текст модуля Unit7.pas:

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm7 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses School;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Form1.Table2.insert;

Form1.Table2.FieldByName('SMother').AsString:=Edit1.Text;

Form1.Table2.FieldByName('SMotherWork').AsString:=Edit2.Text;

Form1.Table2.FieldByName('SFather').AsString:=Edit3.Text;

Form1.Table2.FieldByName('SFatherWork').AsString:=Edit4.Text;

Form1.Table2.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

form7.Close;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

form7.Close;

end;

end.

Текст модуля Unit8.pas:

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm8 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses School;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form1.Table3.insert;

Form1.Table3.FieldByName('TFiz').AsString:=Edit1.Text;

Form1.Table3.FieldByName('TSoc').AsString:=Edit2.Text;

Form1.Table3.FieldByName('TPsih').AsString:=Edit3.Text;

Form1.Table3.FieldByName('TLog').AsString:=Edit4.Text;

Form1.Table3.FieldByName('TLevel').AsString:=Edit5.Text;

Form1.Table3.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

form8.Close;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

form8.Close;

end;

end.

Текст модуля Unit9.pas:

unit Unit9;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm9 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses School;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Form1.Table2.Delete;

Form9.Close;

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

Form9.Close;

end;

end.

Текст модуля Unit10.pas:

unit Unit10;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm10 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses School;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

Form1.Table3.Delete;

Form10.Close;

end;

procedure TForm10.BitBtn2Click(Sender: TObject);

begin

Form10.Close;

end;

end.

Текст модуля Unit11.pas:

unit Unit11;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;

type

TForm11 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

Edit6: TEdit;

Label6: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses School;

{$R *.dfm}

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

Form1.Table1.insert;

Form1.Table1.FieldByName('FName').AsString:=Edit1.Text;

Form1.Table1.FieldByName('FSex').AsString:=Edit2.Text;

Form1.Table1.FieldByName('FDate').AsString:=Edit3.Text;

Form1.Table1.FieldByName('FAdress').AsString:=Edit4.Text;

Form1.Table1.FieldByName('FPhone').AsString:=Edit5.Text;

Form1.Table1.FieldByName('FIndex').AsString:=Edit6.Text;

Form1.Table1.Post;

form11.Close;

end;

procedure TForm11.BitBtn2Click(Sender: TObject);

begin

form11.close;

end;

end.

Текст модуля Unit12.pas:

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm12 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses School, Unit7;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

Form1.Table2.insert;

Form1.Table2.FieldByName('SMother').AsString:=Edit1.Text;

Form1.Table2.FieldByName('SMotherWork').AsString:=Edit2.Text;

Form1.Table2.FieldByName('SFather').AsString:=Edit3.Text;

Form1.Table2.FieldByName('SFatherWork').AsString:=Edit4.Text;

Form1.Table2.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

form7.Close;

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

begin

Form12.close;

end;

end.

Текст модуля Unit13.pas:

unit Unit13;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm13 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses School;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

Form1.Table3.insert;

Form1.Table3.FieldByName('TFiz').AsString:=Edit1.Text;

Form1.Table3.FieldByName('TSoc').AsString:=Edit2.Text;

Form1.Table3.FieldByName('TPsih').AsString:=Edit3.Text;

Form1.Table3.FieldByName('TLog').AsString:=Edit4.Text;

Form1.Table3.FieldByName('TLevel').AsString:=Edit5.Text;

Form1.Table3.Post;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

end;

procedure TForm13.BitBtn2Click(Sender: TObject);

begin

Form13.Close;

end;

end.

Текст модуля Unit14.pas:

unit Unit14;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm14 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

Form14.close;

end;

end.

Текст модуля Unit15.pas:

unit Unit15;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables;

type

TForm15 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit8, Unit12, Unit2;

{$R *.dfm}

procedure TForm15.BitBtn1Click(Sender: TObject);

begin

Form15.close;

end;

procedure TForm15.Button1Click(Sender: TObject);

begin

Form2.show;

end;

procedure TForm15.Button2Click(Sender: TObject);

begin

Form12.Edit1.Text:=Form15.Table1.FieldByName('SMother').AsString;

Form12.Edit2.Text:=Form15.Table1.FieldByName('SMotherWork').AsString;

Form12.Edit3.Text:=Form15.Table1.FieldByName('SFather').AsString;

Form12.Edit4.Text:=Form15.Table1.FieldByName('SFatherWork').AsString;

form12.show;

end;

end.

Текст модуля Unit16.pas:

unit Unit16;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;

type

TForm16 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

uses Unit10, Unit13;

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);

begin

Form16.close;

end;

procedure TForm16.Button1Click(Sender: TObject);

begin

Form10.show;

end;

procedure TForm16.Button2Click(Sender: TObject);

begin

Form13.Edit1.Text:=Form16.Table1.FieldByName('TFiz').AsString;

Form13.Edit2.Text:=Form16.Table1.FieldByName('TSoc').AsString;

Form13.Edit3.Text:=Form16.Table1.FieldByName('TPsih').AsString;

Form13.Edit4.Text:=Form16.Table1.FieldByName('TLog').AsString;

Form13.Edit5.Text:=Form16.Table1.FieldByName('TLevel').AsString;

Form13.Show;

end;

end.

Текст модуля Unit17.pas:

unit Unit17;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;

type

TForm17 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

BitBtn1: TBitBtn;

Button1: TButton;

Button2: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

uses Unit10, Unit13;

{$R *.dfm}

procedure TForm17.BitBtn1Click(Sender: TObject);

begin

Form17.close;

end;

procedure TForm17.Button1Click(Sender: TObject);

begin

Form10.show;

end;

procedure TForm17.Button2Click(Sender: TObject);

begin

Form13.Edit1.Text:=Form17.Table1.FieldByName('TFiz').AsString;

Form13.Edit2.Text:=Form17.Table1.FieldByName('TSoc').AsString;

Form13.Edit3.Text:=Form17.Table1.FieldByName('TPsih').AsString;

Form13.Edit4.Text:=Form17.Table1.FieldByName('TLog').AsString;

Form13.Edit5.Text:=Form17.Table1.FieldByName('TLevel').AsString;

Form13.Show;

end;

end.

Экранные формы:

Основное окно:

М еню:

Окна добавления записи:

Результат добавления записи:

О кна редактирования записей:

Р езультат редактирования:

У даление записи:

Результат удаления:

Окно сортировки:

Запрос на сортировку: Отсортировать по адресу (специальному индексу) в порядке возрастания.

Результат сортировки:

Окно фильтрации:

Запрос на фильтрацию: отфильтровать по полю «социальный уровень» по значениям от 4 до 5

Результат фильтрации:

Окно поиска:

Запрос на поиск: найти всех мальчиков, кто поступает в школу, из детского сада №163

Результат поиска:

Таблица дошкольников

Таблица родителей:

Таблица показателей:

<<< < Предыдущая 1 23 / 33

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
24.11.20183.63 Mб102!!! Обзор1.docx
#
07.05.20192.39 Mб9!Отчёт ЯВУ 2 семестр. Не скатывать, Шина может...docx
#
16.04.201918.64 Mб30!Шпоролекции по ЭМС от ЗС-52.docx
#
03.11.2018178.18 Кб20%C7%E0%E4%E0%ED%E8%E5%20%E4%EB%DF%20%F1%E0%EC%E....doc
#
07.08.2019919.15 Кб18+ГЭК Частиков лекции.docx
#
28.04.201915.78 Mб32+ГЭК Шпоры УПИОС 2010.docx
#
08.11.2019664.06 Кб12+Нулевой цикл.doc