Создание баз хозяйственных договоров, банков и членов временных трудовых коллективов в среде разработки Delphi. Логическая структура линейного двусвязного списка. Способ упорядочения и алгоритм сортировки списка. Руководство пользования программой.
Аннотация к работе
В работе предусмотрены следующие моменты: - открытие существующих и создание новых баз (хозяйственных договоров, банков и членов ВТК); - возможно работа с каждой базой в отдельности (просмотр содержимого баз, добавление новой записи, изменение существующих данных и удаление записи из базы); - осуществлен вывод на экран данных о членах ВТК всех незавершенных хозяйственных договоров; - предусмотрена сортировка данных по различным аспектам; - присутствует поиск записей по различным атрибутам, а именно: по имени члена ВТК, по фамилии, отчеству, году рождения, городу, где находится банк и по суме вознаграждения; - сохранение всех измененных данных. Работа выполнена на языке Object Pascal в среде разработки Delphi 2005. Object Pascal - результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Рисунок 1.4 - Форма выбора записи из списка ХД Форма FormCreatFile (модуль UnitCreatFile) предназначена создания файлов, которые и будут содержать в себе базы. Type TBank=record Number:1..9999;//номер отделения банка City:string[50];//город. Где находится отделение Addres:string[50];//адрес отделения NameFront:string[50];//название отделения Cod:1..999;//код отделения (3-хзначное число) end; TWTK=record FamilyName:string[50];//фамилия члена ВТК Name:string[50];//имя члена ВТК Patronymic:string[50];//отчество члена ВТК Year:integer;//год рождения Kod:string[10];//код хозяйственного договора Sign:(Head,Radovo);//должность SummMany:extended;//вознагрождение за работу Addres:string[50];//адрес проживания NumberBank:1..9999;//номер отделения сбербанка Account:1..9999999;расчетный счет исполнителя end; TXD=record Number:integer;//номер хозяйственного договора DateCreat:TDateTime;//дата подписания договора DataFree:TDateTime;//дата завершения договора Tema:string[50];//тема договора Customer:string[50];//заказчик работ PriznakFree:Boolean;//признак готовности Price:extended;//вознаграждение на каждого члеан ВТК выполнявшие работу end; var Fbank: file of TBank; Fwtk: file of TWTK; Fxd: file of TXD; XD:array of TXD;//массив записей BTK:array of TWTK;//массив записей BANK:array of TBank;//массив записей NameFbank:string;//имя файла базы банков NameFwtk:string; //имя файла базы ВТК NameFxd:string; //имя файла базы ХД Анализ размещения глобальных и локальных данных в памяти (объем занимаемой памяти и указания адресов) Таблица 1 Тип Имя переменной Размер памяти в байтах Начальный адрес Глобальные переменные TB Fbank 332 $49ABA8 TW Fwtk 332 $49ACF4 TX FXD 332 $49AE40 Array of TXD XD 4 $49AF8C Array of TWTk BTK 4 $49AF90 Array of TBank BANK 4 $49AF94 integer XD[0].Number 4 $9D6A24 TDateTime XD[0]. DateCreat 8 $9D6A2C TDateTime XD[0]. DataFree 8 $9D6A34 string[50] XD[0]. Tema 51 $9D6A3C string[50] XD[0]. Customer 51 $9D6A6F Boolean XD[0]. PriznakFree 1 $9D6AA2 extended XD[0]. Price 10 $9D6AA4 1..9999 BANK[0]. Number 2 $9D3FDC string[50] BANK[0]. City 51 $9D3FDE string[50] BANK[0]. Addres 51 $9D4011 string[50] BANK[0]. NameFront 51 $9D4044 1..999 BANK[0]. Cod 2 $9D4078 string[50] BTK[0]. FamilyName 51 $9D737C string[50] BTK[0]. Name 51 $9D73AF string[50] BTK[0]. Patronymic 51 $9D73E2 Integer BTK[0]. Year 4 $9D7418 string[10] BTK[0]. Kod 11 $9D741C (Head,Radovo) BTK[0]. Sign 1 $9D7427 Extended BTK[0]. SummMany 10 $9D742C string[50] BTK[0]. Addres 51 $9D7436 1..9999 BTK[0]. NumberBank 2 $9D746A 1..9999999 BTK[0]. Account 4 $9D746C string NameFbank 4 $49AF98 string NameFwtk 4 $49AF9C string NameFxd 4 $49AFA0 Некоторые локальные переменные Cardinal i (procedure TFormBank.ButtonCutBankClick) 4 $12EC94 Cardinal N (procedure TFormBank.ButtonDelBankClick) 4 $12EC98 Word Year (procedure TNoFreeXD.FormingList) 2 $12F606 3. Procedure TNoFreeXD.Search(Index:Integer;Text:String;StringGrid :TStringGrid); var i, j:integer; begin for i:=1 to 250 do for j:=0 to 5 do StringGrid.Cells[j,i]:=; Current:=Left;//получаем указатель на начало i:=1; while Current