ДИПЛОМНАЯ РАБОТА БАЗА ДАННЫХ КНИЖНЫЙ МАГАЗИН DELPHI
В современном мире создание программного обеспечения — это один из наиболее востребованных видов деятельности в ИТ-отрасли. Одним из ключевых элементов при написании ПО является работа с базами данных. В рамках дипломной работы по Delphi предлагается создать базу данных для книжного магазина.
Целью создания базы данных является обеспечение эффективной работы книжного магазина. Созданная база данных должна включать в себя информацию об имеющихся книгах, авторах, издательствах, заказах и клиентах.
Пример кода на Delphi для создания базы данных:
unit BookShop; interfaceuses SysUtils, Classes, DB;type TDataModule1 = class(TDataModule) Database: TDatabase; Books: TTable; Authors: TTable; Publishers: TTable; Orders: TTable; Customers: TTable; procedure DataModuleCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var DataModule1: TDataModule1;implementation{$R *.dfm}procedure TDataModule1.DataModuleCreate(Sender: TObject);begin Database.Directory := 'C:\BookShop'; Database.Params.Add('USER NAME=Delphi'); Database.Params.Add('PASSWORD=12345'); with Books do begin DatabaseName := 'Database'; TableName := 'Books'; TableType := ttDBase; ObjectFieldCount := 3; ObjectNameField := 'Title'; IndexDefs.Update; CreateTable; Close; end; with Authors do begin DatabaseName := 'Database'; TableName := 'Authors'; TableType := ttDBase; ObjectFieldCount := 2; ObjectNameField := 'FullName'; IndexDefs.Update; CreateTable; Close; end; with Publishers do begin DatabaseName := 'Database'; TableName := 'Publishers'; TableType := ttDBase; ObjectFieldCount := 2; ObjectNameField := 'CompanyName'; IndexDefs.Update; CreateTable; Close; end; with Orders do begin DatabaseName := 'Database'; TableName := 'Orders'; TableType := ttDBase; ObjectFieldCount := 5; ObjectNameField := 'OrderNumber'; IndexDefs.Update; CreateTable; Close; end; with Customers do begin DatabaseName := 'Database'; TableName := 'Customers'; TableType := ttDBase; ObjectFieldCount := 3; ObjectNameField := 'CompanyName'; IndexDefs.Update; CreateTable; Close; end; end;end.
Разработанная база данных поможет автоматизировать ведение бизнеса книжного магазина, повысить эффективность работы и обеспечить точность и стремительность обработки информации.
DELPHI Урок 3 Создание БД, добавление, удаление, изменение записей
Подключение базы данных Access в Delphi
Готовая база данных Microsoft Access Книжный Магазин - Часть 2
Готовая база данных Microsoft Access Книжный Магазин - Часть 1
Создание базы данных сотрудники в Delphi - Урок 1 (Подключение базы данных)
DEV1-12. 07. Схема данных приложения «Книжный магазин»