78
15. Советов Б.Я. Цехановский В.В., Чертовской В.Д. Базы данных: теория
и практика: Учебник для бакалавров. – М.: Юрайт, 2013. – 463 c.
16. Ярочкин В. Безопасность информационных систем: моногр. – М.: Ось-
89, 2015. – 320 c.
17. Database в Delphi [Электронный ресурс] // URL: http://delphi-
box.ru/database-%D0%B2-delphi.html (дата обращения: 28.03.2017).
79
Приложение 1
Общий вид справки-счета
Распечатывается на бланках установленного образца.
80
Приложение 2
Формы журналов поступлений и продаж автомобилей, используемых в автосалоне «Алекс»
Журнал поступлений автомобилей в автосалон «Алекс»
№
п/п
Номер кузова
Поставщик
Марка
Год вы-
пуска
Цвет
Масса,
кг
Объем
двигателя,
л
Мощность,
л.с.
Цена по-
купки,
тыс. руб.
Цена
продажи,
тыс. руб.
1
2
...
Журнал продаж автомобилей в автосалоне «Алекс»
№
п/п
Данные о покупателе
Данные об автомобиле
Цена
продажи,
тыс. руб.
Дата
продажи
ФИО покупа-
теля
Паспортные
данные
Год рожде-
ния
Адрес
ИНН
Номер
кузова
Поставщик
1
...
81
Приложение 3
Листинг программы
main.pas
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, Menus;
type
Tmainform = class(TForm)
MainMenu1: TMainMenu;
N8: TMenuItem;
N11: TMenuItem;
StatusBar1: TStatusBar;
Panel1: TPanel;
N12: TMenuItem;
N13: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N9: TMenuItem;
procedure N7Click(Sender: TObject);
procedure N11Click(Sender: TObject);
82
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mainform: Tmainform;
implementation
uses mabout, mbuyer, msupplier, mcar, mbuying, mhelp;
{$R *.DFM}
procedure Tmainform.N7Click(Sender: TObject);
begin
Close;
end;
procedure Tmainform.N11Click(Sender: TObject);
begin
About.ShowModal;
end;
procedure Tmainform.N2Click(Sender: TObject);
begin
buyer.showmodal;
end;
83
procedure Tmainform.N3Click(Sender: TObject);
begin
supplier.showmodal;
end;
procedure Tmainform.N4Click(Sender: TObject);
begin
car.showmodal;
end;
procedure Tmainform.N5Click(Sender: TObject);
begin
buying.showmodal;
end;
procedure Tmainform.N9Click(Sender: TObject);
begin
help.showmodal;
end;
end.
buyer.pas
unit mbuyer;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls;
84
type
Tbuyer = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Button5: TButton;
Label1: TLabel;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
buyer: Tbuyer;
implementation
uses medit_br, dmodule1;
{$R *.DFM}
procedure Tbuyer.Button4Click(Sender: TObject);
begin
85
close;
end;
procedure Tbuyer.Button1Click(Sender: TObject);
begin
DataModule1.Table1.Edit;
edit_br.Caption:='Изменить';
edit_br.showmodal;
end;
procedure Tbuyer.Button2Click(Sender: TObject);
begin
DataModule1.Table1.Append;
edit_br.Caption:='Добавить';
edit_br.showmodal;
end;
procedure Tbuyer.Button3Click(Sender: TObject);
begin
if DataModule1.Table1.RecordCount=0 then exit;
if MessageDlg('Удалить запись?',mtConfirmation,[mbOk,mbNo],0)=mrOk
then begin
DataModule1.Table1.Delete;
end;
end;
procedure Tbuyer.Button5Click(Sender: TObject);
var
KeyFields : string;
KeyValues : Variant;
Options : TLocateOptions;
begin
86
KeyFields:='surname';
KeyValues:=buyer.edit1.text;
Options:=[loCaseInsensitive, loPartialKey];
if not DataModule1.Table1.Locate(KeyFields,KeyValues,Options) then
messagedlg('Запись не найдена!',mtInformation,[mbOk],0);
end;
end.
buying.pas
unit mbuying;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls, Variants, SumToWord;
type
Tbuying = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
87
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
buying: Tbuying;
implementation
uses dmodule1, medit_bg, Ureport;
{$R *.DFM}
procedure Tbuying.Button4Click(Sender: TObject);
begin
close;
end;
procedure Tbuying.Button1Click(Sender: TObject);
begin
DataModule1.Table4.Edit;
edit_bg.Caption:='Изменить';
edit_bg.showmodal;
end;
procedure Tbuying.Button2Click(Sender: TObject);
begin
DataModule1.Table4.Append;
edit_bg.Caption:='Добавить';