Главная Коллекция "Otherreferats" Программирование, компьютеры и кибернетика Автоматизированная система по учету заселения и выселения студентов в общежитии №1 Барнаульского Государственного Педагогического колледжа

Автоматизированная система по учету заселения и выселения студентов в общежитии №1 Барнаульского Государственного Педагогического колледжа

Исследование предметной области. Разработка проектных решений. Концепция информационной базы и её структура. Функции подсистем (модулей). Алгоритм работы программы. Требования к контролю, обновлению и восстановлению данных, защите данных от разрушений.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 16.02.2016
Размер файла 139,5 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

Edit3.Clear;

Form10.Close;

Form4.Show;

Form4.Edit1.SetFocus;

Form4.Enabled:=True;

DataModule2.ADOTable4.IndexFieldNames:='Kurator';

end;

procedure TForm10.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','-','+',',','(',')',#8]) then key:=#0;

end;

procedure TForm10.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','.',' ',#8]) then key:=#0;

end;

procedure TForm10.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я','А'..'Я','0'..'9','.',' ',',','-',#8]) then key:=#0;

end;

end.

unit Unit11;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg;

type

TForm11 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label4: TLabel;

Label3: TLabel;

Label2: TLabel;

Label5: TLabel;

BitBtn1: TBitBtn;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

Close;

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

end.

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, Menus;

type

TForm12 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

BitBtn2: TBitBtn;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit2, Unit7, Unit1;

{$R *.dfm}

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

form7.Visible:=true;

Form7.BitBtn1.Visible:=True;

form1.Enabled:=False;

end;

procedure TForm12.BitBtn2Click(Sender: TObject);

var

f:string;

begin

F:=DataModule2.ADOTable2.FieldValues['Komnata'];

if MessageDlg

('Вы действительно хотите удалить '+f+'',mtConfirmation,[mbYes,mbNo],0)= idYes

then

DataModule2.ADOTable2.Delete;

end;

procedure TForm12.BitBtn3Click(Sender: TObject);

begin

Close;

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

end.

unit Unit13;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, Menus, Buttons, ExtCtrls,

DBCtrls, Mask, sSkinManager, sSpeedButton, ToolWin, sToolBar, sMaskEdit,

sCustomComboEdit,XPMan,OleServer,WordXP,jpeg,DB, ADODB, Registry, ComObj, sTooledit;

type

TForm13 = class(TForm)

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit2, Unit9, Unit1;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

Form13.Enabled:=False;

Form9.Visible:=True;

Form9.BitBtn1.Visible:=True;

Form9.BitBtn3.Visible:=False;

end;

procedure TForm13.BitBtn2Click(Sender: TObject);

begin

with form9 do

begin

Edit1.Text:=DataModule2.ADOTable3.FieldValues['Gruppa']; sDBLookupComboBox1.KeyValue:=DataModule2.ADOTable3.FieldValues['kurator'];

Form9.Show;

Form13.Enabled:=False;

Form9.Visible:=True;

Form9.BitBtn1.Visible:=False;

Form9.BitBtn3.Visible:=True;

end;

end;

procedure TForm13.BitBtn3Click(Sender: TObject);

var

f:string;

begin

F:=DataModule2.ADOTable3.FieldValues['Gruppa'];

if MessageDlg

('Вы действительно хотите удалить '+f+'',mtConfirmation,[mbYes,mbNo],0)= idYes

then

DataModule2.ADOTable3.Delete;

end;

procedure TForm13.BitBtn4Click(Sender: TObject);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

Close;

end;

procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.Show;

Form1.Edit1.SetFocus;

Form1.Enabled:=True;

end;

end.

unit Unit14;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, Menus, Buttons, ExtCtrls,

DBCtrls, Mask, sSkinManager, sSpeedButton, ToolWin, sToolBar, sMaskEdit,

sCustomComboEdit,OleServer,WordXP,jpeg,DB, ADODB, Registry, ComObj, sTooledit,

ExcelXP;

type

TForm14 = class(TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

Word1: TMenuItem;

Excel1: 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;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

Label1: TLabel;

Edit1: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ExcelApplication1: TExcelApplication;

procedure N4Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure Edit1DblClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Word1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Excel1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit1, Unit2, Math;

{$R *.dfm}

function IsWordInstalled: Boolean;

var

Reg: TRegistry;

begin

Reg := TRegistry.Create;

try

Reg.RootKey := HKEY_CLASSES_ROOT;

Result := Reg.KeyExists('Word.Application');

finally

reg.Free;

end;

end;

procedure TForm14.N4Click(Sender: TObject);

begin

winhelp(Form1.Handle,'Readme\help.hlp',HELP_CONTEXT,1);

end;

procedure TForm14.N8Click(Sender: TObject);

begin

Label1.Caption:='Введите номер комнаты';

Edit1.SetFocus;

end;

procedure TForm14.N9Click(Sender: TObject);

begin

Label1.Caption:='Введите ФИО студента';

Edit1.SetFocus;

end;

procedure TForm14.N10Click(Sender: TObject);

begin

Label1.Caption:='Введите дату рождения';

Edit1.SetFocus;

end;

procedure TForm14.N11Click(Sender: TObject);

begin

Label1.Caption:='Введите район';

Edit1.SetFocus;

end;

procedure TForm14.N12Click(Sender: TObject);

begin

Label1.Caption:='Введите город (село)';

Edit1.SetFocus;

end;

procedure TForm14.N13Click(Sender: TObject);

begin

Label1.Caption:='Введите адрес';

Edit1.SetFocus;

end;

procedure TForm14.N14Click(Sender: TObject);

begin

Label1.Caption:='Введите телефон';

Edit1.SetFocus;

end;

procedure TForm14.N15Click(Sender: TObject);

begin

Label1.Caption:='Введите сотовый телефон';

Edit1.SetFocus;

end;

procedure TForm14.N16Click(Sender: TObject);

begin

Label1.Caption:='Введите группу';

Edit1.SetFocus;

end;

procedure TForm14.N17Click(Sender: TObject);

begin

Label1.Caption:='Введите куратора';

Edit1.SetFocus;

end;

procedure TForm14.N18Click(Sender: TObject);

begin

Label1.Caption:='Введите дату заселения';

Edit1.SetFocus;

end;

procedure TForm14.N19Click(Sender: TObject);

begin

Label1.Caption:='Введите примечание';

Edit1.SetFocus;

end;

procedure TForm14.N20Click(Sender: TObject);

begin

Label1.Caption:='Введите ФИО родителей';

Edit1.SetFocus;

end;

procedure TForm14.N21Click(Sender: TObject);

begin

Label1.Caption:='Введите телефон родителей';

Edit1.SetFocus;

end;

procedure TForm14.N22Click(Sender: TObject);

begin

Label1.Caption:='Введите телефон сотовый';

Edit1.SetFocus;

end;

procedure TForm14.Edit1DblClick(Sender: TObject);

begin

Edit1.Clear;

end;

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

if Label1.Caption='' then begin

ShowMessage('Выберете поиск');

Edit1.Clear;

end

else

begin

if Label1.Caption='Введите номер комнаты' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Komnata like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите ФИО студента' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where FIO_Stud like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите дату рождения' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Data_roj like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите район' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Raion like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите город (село)' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Gorod like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите адрес' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Adres like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите телефон' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Telefon like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите сотовый телефон' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Telefon_sot like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите группу' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Gruppa like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите куратора' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Kurator like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите дату заселения' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Data_Zaselenia like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите примечание' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select Komnata, FIO_Stud, Data_roj, Raion, Gorod, Adres, Telefon, Telefon_sot, Gruppa, Kurator, Data_Zaselenia, Primechanie, FIO_Rod from student where Primechanie like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'Komnata';

DBGrid1.Columns.Items[0].Title.Caption:='Комната';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[1].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[1].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[2].FieldName := 'Data_roj';

DBGrid1.Columns.Items[2].Title.Caption:='Дата рождения';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[3].Width;

DBGrid1.Columns.Items[3].FieldName := 'Raion';

DBGrid1.Columns.Items[3].Title.Caption:='Район';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[4].Width;

DBGrid1.Columns.Items[4].FieldName := 'Gorod';

DBGrid1.Columns.Items[4].Title.Caption:='Город (село)';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[5].Width;

DBGrid1.Columns.Items[5].FieldName := 'Adres';

DBGrid1.Columns.Items[5].Title.Caption:='Адрес';

DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[5].Width:=Form1.DBGrid1.Columns.Items[6].Width;

DBGrid1.Columns.Items[6].FieldName := 'Telefon';

DBGrid1.Columns.Items[6].Title.Caption:='Телефон';

DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[6].Width:=Form1.DBGrid1.Columns.Items[7].Width;

DBGrid1.Columns.Items[7].FieldName := 'Telefon_sot';

DBGrid1.Columns.Items[7].Title.Caption:='Сотовый';

DBGrid1.Columns.Items[7].Visible:=True;

DBGrid1.Columns.Items[7].Width:=Form1.DBGrid1.Columns.Items[8].Width;

DBGrid1.Columns.Items[8].FieldName := 'Gruppa';

DBGrid1.Columns.Items[8].Title.Caption:='Группа';

DBGrid1.Columns.Items[8].Visible:=True;

DBGrid1.Columns.Items[8].Width:=Form1.DBGrid1.Columns.Items[9].Width;

DBGrid1.Columns.Items[9].FieldName := 'Kurator';

DBGrid1.Columns.Items[9].Title.Caption:='Куратор';

DBGrid1.Columns.Items[9].Visible:=True;

DBGrid1.Columns.Items[9].Width:=Form1.DBGrid1.Columns.Items[10].Width;

DBGrid1.Columns.Items[10].FieldName := 'Data_Zaselenia';

DBGrid1.Columns.Items[10].Title.Caption:='Дата заселения';

DBGrid1.Columns.Items[10].Visible:=True;

DBGrid1.Columns.Items[10].Width:=Form1.DBGrid1.Columns.Items[11].Width;

DBGrid1.Columns.Items[11].FieldName := 'Primechanie';

DBGrid1.Columns.Items[11].Title.Caption:='Примечание';

DBGrid1.Columns.Items[11].Visible:=True;

DBGrid1.Columns.Items[11].Width:=Form1.DBGrid1.Columns.Items[12].Width;

DBGrid1.Columns.Items[12].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[12].Title.Caption:='ФИО родителя';

DBGrid1.Columns.Items[12].Visible:=True;

DBGrid1.Columns.Items[12].Width:=Form1.DBGrid1.Columns.Items[2].Width;

end;

if Label1.Caption='Введите ФИО родителей' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select FIO_Rod, Telefon_Rod, Telefon_sotov, FIO_Stud, Komnata from student where FIO_Rod like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[0].Title.Caption:='ФИО родителей';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[1].FieldName := 'Telefon_Rod';

DBGrid1.Columns.Items[1].Title.Caption:='Телефон родителей';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[7].Width*2;

DBGrid1.Columns.Items[2].FieldName := 'Telefon_sotov';

DBGrid1.Columns.Items[2].Title.Caption:='Сотовый родителей';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[8].Width*2;

DBGrid1.Columns.Items[3].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[3].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[4].FieldName := 'Komnata';

DBGrid1.Columns.Items[4].Title.Caption:='Комната';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[5].Visible:=False;

DBGrid1.Columns.Items[6].Visible:=False;

DBGrid1.Columns.Items[7].Visible:=False;

DBGrid1.Columns.Items[8].Visible:=False;

DBGrid1.Columns.Items[9].Visible:=False;

DBGrid1.Columns.Items[10].Visible:=False;

DBGrid1.Columns.Items[11].Visible:=False;

DBGrid1.Columns.Items[12].Visible:=False;

end;

if Label1.Caption='Введите телефон родителей' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select FIO_Rod, Telefon_Rod, Telefon_sotov, FIO_Stud, Komnata from student where Telefon_Rod like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[0].Title.Caption:='ФИО родителей';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[1].FieldName := 'Telefon_Rod';

DBGrid1.Columns.Items[1].Title.Caption:='Телефон родителей';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[7].Width*2;

DBGrid1.Columns.Items[2].FieldName := 'Telefon_sotov';

DBGrid1.Columns.Items[2].Title.Caption:='Сотовый родителей';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[8].Width*2;

DBGrid1.Columns.Items[3].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[3].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[3].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[4].FieldName := 'Komnata';

DBGrid1.Columns.Items[4].Title.Caption:='Комната';

DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[4].Width:=Form1.DBGrid1.Columns.Items[1].Width;

DBGrid1.Columns.Items[5].Visible:=False;

DBGrid1.Columns.Items[6].Visible:=False;

DBGrid1.Columns.Items[7].Visible:=False;

DBGrid1.Columns.Items[8].Visible:=False;

DBGrid1.Columns.Items[9].Visible:=False;

DBGrid1.Columns.Items[10].Visible:=False;

DBGrid1.Columns.Items[11].Visible:=False;

DBGrid1.Columns.Items[12].Visible:=False;

end;

if Label1.Caption='Введите телефон сотовый' then begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.text:='select FIO_Rod, Telefon_Rod, Telefon_sotov, FIO_Stud, Komnata from student where Telefon_sotov like'+'"'+Edit1.Text+'%"';

DataModule2.ADOQuery3.Active:=true;

DataModule2.ADOQuery3.Open;

DBGrid1.Columns.Items[0].FieldName := 'FIO_Rod';

DBGrid1.Columns.Items[0].Title.Caption:='ФИО родителей';

DBGrid1.Columns.Items[0].Visible:=True;

DBGrid1.Columns.Items[0].Width:=Form1.DBGrid1.Columns.Items[2].Width;

DBGrid1.Columns.Items[1].FieldName := 'Telefon_Rod';

DBGrid1.Columns.Items[1].Title.Caption:='Телефон родителей';

DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[1].Width:=Form1.DBGrid1.Columns.Items[7].Width*2;

DBGrid1.Columns.Items[2].FieldName := 'Telefon_sotov';

DBGrid1.Columns.Items[2].Title.Caption:='Сотовый родителей';

DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[2].Width:=Form1.DBGrid1.Columns.Items[8].Width*2;

DBGrid1.Columns.Items[3].FieldName := 'FIO_Stud';

DBGrid1.Columns.Items[3].Title.Caption:='ФИО студента';

DBGrid1.Columns.Items[3].Visible:=True;

Страница:


Подобные документы

  • Моделирование предметной области базы данных АИС деканата "Учет студентов"

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

    дипломная работа [1,1 M], добавлен 24.06.2011

  • Разработка АРМ специалиста по учёту и контролю за эксплуатацией средств связи

    Технико-экономическая характеристика предметной области. Необходимость и цели использования вычислительной техники. Определение требований к информационной системе. Характеристика базы данных. Сквозная проверка функций. Алгоритм работы основных модулей.

    дипломная работа [3,5 M], добавлен 19.01.2017

  • Создание базы данных образовательного учреждения в СУБД Access

    Описание предметной области и структуры базы данных. Экономическая сущность информационных задач, построение диаграмм проекта и обособление проектных решений. Технологическое обеспечение и внешний вид программы, описание её работы и программный код.

    курсовая работа [910,1 K], добавлен 03.04.2015

  • Разработка базы данных библиотеки

    Алгоритм работы программы. Анализ предметной области. Структура таблиц БД "Библиотека". Инфологическое и даталогическое проектирование. Запросы для поиска и извлечения только требуемых данных. Формы для просмотра, добавления, изменения данных в таблицах.

    курсовая работа [5,1 M], добавлен 14.06.2014

  • Автоматизированная информационная система "Учет животных, птиц, рептилий в зоопарке"

    Анализ данных предметной области. Информационно-логическая модель базы данных. Физическое проектирование и мероприятия по защите и обеспечению целостности базы данных. Приложение интерфейса для SQL-сервера базы данных на языке программирования Delphi.

    курсовая работа [2,2 M], добавлен 30.05.2013

  • Разработка программы "Расписание учебных занятий"

    Назначение программного модуля (базы данных). Разработка информационной базы данных для колледжа. Поиск пользователями информации о преподавателях и дисциплинах. Анализ входной и выходной информации. Разработка алгоритма работы программы-приложения.

    реферат [513,1 K], добавлен 22.10.2012

  • Создание базы данных "Журнал классного руководителя"

    Возможности создания баз данных средствами программного продукта SQL. Изучение предметной области и разработка проекта базы данных по учету студентов "Журнал классного руководителя". Задачи реализации программного средства, его тестирование и отладка.

    курсовая работа [3,7 M], добавлен 07.12.2012

  • Автоматизированная информационная система "Библиотека колледжа"

    Общие сведения об автоматизированных информационных системах библиотек. Разработка графического макета, интерфейса и дизайна информационной системы. Требования к функциональной части системы. Создание программных модулей. Алгоритмы обработки данных.

    дипломная работа [1,7 M], добавлен 04.11.2016

  • Информационная система для обслуживания пассажиров в кассах вокзалов

    Анализ предметной области, определение сущностей и связей. Разработка базы данных, создание таблиц и запросов. Исходные тексты процедур модулей. Тестирование информационной системы на корректность работы. Схема инфологической модели предметной области.

    курсовая работа [4,3 M], добавлен 19.12.2011

  • Разработка системы электронного документооборота банка "ВТБ 24"

    Анализ предметной области. Обоснование проектных решений по разработке автоматизированного рабочего места сотрудника канцелярии банка. Проектирование структуры базы данных и интерфейса системы. Разработка программных модулей и алгоритмов их работы.

    дипломная работа [2,1 M], добавлен 18.10.2015

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены