Список литературы
1. Архангельский А.Я. - Программирование в Delphi 7
2. Культин Н.Б. - Основы программирования в Delphi 7
3. Липков А. Всюду деньги, деньги, деньги // Липков А. Ящик Пандоры: феномен компьютерных игр в мире и в России
4. Павлов О.В. - Мои права в автосалоне и в автосервисе (2008).
5. Понамарев в. - Базы данных в Delphi 7. Самоучитель.
6. Фаронов в.В. - Программирование баз данных в Delphi 7
7. Яблоков К. М. Исторические компьютерные игры как способ моделирования исторической информации // История и математика: Анализ и моделирование социально-исторических процессов / Ред. Малков С. Ю., Гринин Л. Е., Коротаев А. В.: КомКнига/УРСС, 2007
8.http://www.world-art.ru
9. www.vinterface.ru
10. http://www.realcoding.net/teach/Delphi_7/
ПРИЛОЖЕНИЕ 1
Создание и заполнение таблиц
Создание таблицы Игра
Заполнение таблицы Игра
Создание таблицы Издатель
Заполнение таблицы Издатель
Создание таблицы Клиент
Заполнение таблицы Клиент
Создание таблицы Наличия
Заполнение таблицы Наличия
Создание таблицы Продажа
Заполнение таблицы Продажа
Создание таблицы Разработчик
Заполнение таблицы Разработчик
Создание таблицы Страна
Заполнение таблицы Страна
Создание таблицы Жанр
Заполнение таблицы Жанр
ПРИЛОЖЕНИЕ 2
Код программного средства
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Table2: TTable;
DBNavigator2: TDBNavigator;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
object Form1: TForm1
Left = 192
Top = 124
Width = 870
Height = 277
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Size = 8
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 24
Top = 28
Width = 673
Height = 129
DataSource = DataSource1
DataSet = Table 1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Size = 8
end
end
object DBGrid2: TDBGrid
Left = 48
Top = -5
Width = 657
Height = 145
DataSource = DataSource2
DataSet = Table2
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Size = 8
end
end
object DBNavigator1: TDBNavigator
Left = 192
Top = 184
Width = 240
Height = 25
DataSource = DataSource1
DataSet = Table1
TabOrder = 1
end
object DBNavigator2: TDBNavigator
Left = 168
Top = 104
Width = 290
Height = 33
DataSource = DataSource2
DataSet = Table2
TabOrder = 4
end
end
object Table1: TTable
Active = True
DatabaseName = 'STANDARD1'
TableName = 'Igry.DB'
Left = 416
Top = 88
end
object DataSource1: TDataSource
DataSet = Table1
Left = 464
Top = 88
end
object Table2: TTable
Active = True
DatabaseName = 'STANDARD1'
TableName = 'Klient.DB'
Left = 416
Top = 144
end
object DataSource2: TDataSource
DataSet = Table2
Left = 464
Top = 144
end
end
Приложение 3
Запросы SQL
Получить всю информацию о играх:
Получить всю информацию о клиентах:
Получить всю информацию о издателях:
Получить всю информацию о стране
Получить всю информацию о продаже:
Получить всю информацию о жанре:
Получить всю информацию о Наличие:
Вывести всю информацию о игре с номером 1:
Вывести всю информацию о клиенте с номером 1:
Вывести всю информацию о продаже с номером 1:
