95
14. Илюшечкин В. Основы использования и проектирования баз данных.
Учебник. - М.:Юрайт, 2014. - 214с.
15. Исаев Г. Проектирование информационных систем. Учебное пособие. -
М.: Омега-Л, 2015. - 432с.
16. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.:
Питер, 2013. - 240 c.
17. Кириллов, В.В. Введение в реляционные базы данных.Введение в
реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-
Петербург, 2012. - 464 c.
18. Кит Т. Томпсон Автоматизация продаж. Умный подход. - М.: Вершина,
2016 - 272 с.
19. Коваленко В. Проектирование информационных систем. - М.: Форум,
2012. - 320с.
20. Кузин, А.В. Базы данных: Учебное пособие для студ. высш. учеб.
заведений / А.В. Кузин, С.В. Левонисова. - М.: ИЦ Академия, 2012. - 320
c.
21. Кузнецов С. Базы данных. - М.: Academia, 2012. - 496с.
22. Малыхина М. Базы данных. Основы, проектирование, использование. -
СПб.: БХВ-Петербург, 2012. - 528с.
23. Марков А.С., Лисовский К.Ю. Базы данных. Введение в теорию и
методологию: Учебник. – М.: Финансы и статистика, 2015. – 512 с.
24. Миков А. Информационные процессы и нормативные системы в IT.
Математические модели. Проблемы проектирования. Новые подходы. -
М.: Либроком, 2013. - 256с.
25. Наумов А.Н., Вендров А.М., Иванов В.К. и др. Системы управления
базами данных и знаний - М.: Финансы и статистика, 2014. - 352 c.
26. Озкарахан Э. Машины баз данных и управление базами данных. - М.:
Мир, 2013. - 551 c.
27. Пирогов, В.Ю. Информационные системы и базы данных: организация и
проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-
Петербург, 2014. - 528 c.
96
28. Редько В.Н., Бассараб И.А. Базы данных и информационные системы. -
М.: Знание, 2015. - 602 c.
29. Степанов В. Информационные технологии управления продажами и
маркетингом. - М.: LAPLambertAcademicPublishing, 2013. - 284 с.
30. Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров /
Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463
c.
31. Тоу Дэн Настройка SQL - СПб: Питер, 2013. - 539 c.
32. Туманов В.Е. Основы проектирования реляционных баз данных - М.:
Бином, 2012. 5- 420 c.
33. Уткин В., Балдин К. Информационные системы в экономике. - М.:
Academia, 2012. - 288с.
34. Фейерштейн С., Прибыл Б. OraclePL/SQL для профессионалов - СПб:
Питер, 2012. - 540 c.
35. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений
среднего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. -
М.: ИЦ Академия, 2012. - 320 c.
36. Хаббард Дж. Автоматизированное проектирование баз данных - М.: Мир,
2014. - 453 c.
37. Шаймарданов Р.Б. Моделирование и автоматизация проектирования
структур баз данных - М.: Юнити, 2016. - 469 c.
97
Приложение
unitmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, SUIButton, StdCtrls, SUIEdit, SUIImagePanel,
Grids, DBGrids, SUIDBCtrls, SUIPageControl, SUITabControl, SUIComboBox,
DB, ADODB, SUIMemo, math, SUIForm;
type
TForm1 = class(TForm)
suiForm1: TsuiForm;
suiPageControl1: TsuiPageControl;
suiTabSheet1: TsuiTabSheet;
suiTabSheet2: TsuiTabSheet;
suiTabSheet3: TsuiTabSheet;
suiDBGrid1: TsuiDBGrid;
suiPanel1: TsuiPanel;
Label1: TLabel;
suiButton1: TsuiButton;
suiButton3: TsuiButton;
suiPanel2: TsuiPanel;
suiPanel4: TsuiPanel;
suiDBGrid3: TsuiDBGrid;
suiDBGrid4: TsuiDBGrid;
suiPanel5: TsuiPanel;
suiTabSheet4: TsuiTabSheet;
suiDBGrid5: TsuiDBGrid;
ADOConnection1: TADOConnection;
98
tr_st: TADOTable;
r_st: TDataSource;
tuz: TADOTable;
uz: TDataSource;
tsob: TADOTable;
sob: TDataSource;
suiPanel3: TsuiPanel;
Label14: TLabel;
suiEdit23: TsuiEdit;
suiEdit16: TsuiEdit;
Label20: TLabel;
suiEdit20: TsuiEdit;
Label21: TLabel;
suiButton12: TsuiButton;
suiEdit1: TsuiEdit;
Label7: TLabel;
Label8: TLabel;
suiEdit3: TsuiEdit;
Label9: TLabel;
suiEdit6: TsuiEdit;
tmer: TADOTable;
mer: TDataSource;
suiMemo1: TsuiMemo;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
suiButton2: TsuiButton;
suiButton4: TsuiButton;
suiButton5: TsuiButton;
suiEdit2: TsuiEdit;
suiEdit5: TsuiEdit;
99
suiEdit7: TsuiEdit;
suiEdit8: TsuiEdit;
Label10: TLabel;
suiEdit9: TsuiEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label15: TLabel;
suiButton6: TsuiButton;
suiButton7: TsuiButton;
suiButton9: TsuiButton;
suiEdit10: TsuiEdit;
suiEdit11: TsuiEdit;
suiEdit12: TsuiEdit;
suiEdit13: TsuiEdit;
Label25: TLabel;
suiMemo2: TsuiMemo;
Label26: TLabel;
suiMemo3: TsuiMemo;
suiEdit14: TsuiEdit;
Label4: TLabel;
suiEdit15: TsuiEdit;
Label18: TLabel;
suiButton8: TsuiButton;
suiButton10: TsuiButton;
suiButton11: TsuiButton;
Label16: TLabel;
suiEdit4: TsuiEdit;
Label23: TLabel;
suiEdit21: TsuiEdit;
procedure suiButton12Click(Sender: TObject);
procedure suiButton15Click(Sender: TObject);
100
procedure suiButton8Click(Sender: TObject);
procedure suiButton7Click(Sender: TObject);
procedure suiButton6Click(Sender: TObject);
procedure suiButton19Click(Sender: TObject);
procedure suiCheckBox4Click(Sender: TObject);
procedure suiButton1Click(Sender: TObject);
procedure suiButton10Click(Sender: TObject);
procedure suiButton11Click(Sender: TObject);
procedure suiButton2Click(Sender: TObject);
procedure suiButton5Click(Sender: TObject);
procedure suiButton4Click(Sender: TObject);
procedure suiButton9Click(Sender: TObject);
procedure suiButton3Click(Sender: TObject);
procedure suiDBGrid1CellClick(Column: TColumn);
procedure suiDBGrid3CellClick(Column: TColumn);
procedure suiDBGrid4CellClick(Column: TColumn);
procedure suiDBGrid5CellClick(Column: TColumn);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.suiButton12Click(Sender: TObject);
begin
101
try
tr_st.Append;
tr_st.FieldByName('nomer_rs').AsInteger:=strtoint(suiEdit3.text);
tr_st.FieldByName('ip_adr').AsString:=suiEdit1.text;
tr_st.FieldByName('ident').AsString:=suiEdit6.text;
tr_st.FieldByName('spec').AsString:=suiMemo1.text;
tr_st.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
procedure TForm1.suiButton15Click(Sender: TObject);
begin
tsob.Filtered:=false;
end;
procedure TForm1.suiButton8Click(Sender: TObject);
begin
try
tmer.Append;
tmer.FieldByName('kod_mer').AsInteger:=strtoint(suiEdit23.text);
tmer.FieldByName('data').AsString:=suiEdit14.text;
tmer.FieldByName('vrem').AsString:=suiEdit15.text;
tmer.FieldByName('mer').AsString:=suiEdit16.text;
tmer.FieldByName('isp').AsString:=suiEdit20.text;
tmer.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
102
procedure TForm1.suiButton7Click(Sender: TObject);
begin
tsob.delete;
end;
procedure TForm1.suiButton6Click(Sender: TObject);
varfirst:boolean;
zap:string;
begin
try
tsob.edit;
tsob.FieldByName('kod_sob').AsInteger:=strtoint(suiEdit10.text);
tsob.FieldByName('data').AsString:=suiEdit12.text;
tsob.FieldByName('vrem').AsString:=suiEdit11.text;
tsob.FieldByName('sob').AsString:=suiEdit13.text;
tsob.FieldByName('opis').AsString:=suiMemo2.text;
tsob.FieldByName('mery').AsString:=suiMemo3.text;
tsob.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
{first:=false;
if suiCheckBox4.Checked then
begin
first:=true;
zap:='data_izm='''+suiEdit2.Text+'''';
end;
if suiCheckBox6.Checked then
begin
if first=false then
zap:='datchik='''+copy(suiComboBox6.text,3,length(suiComboBox6.text)-2)+'''' else
103
zap:=zap+' and datchik='''+copy(suiComboBox6.text,3,length(suiComboBox6.text)-
2)+'''';
end;
tpok.Filtered:=false;
tpok.Filter:=zap;
tpok.Filtered:=true;}
end;
procedure TForm1.suiButton19Click(Sender: TObject);
begin
tsob.Delete;
end;
procedure TForm1.suiCheckBox4Click(Sender: TObject);
begin
if suiEdit2.Enabled=false then suiEdit2.Enabled:=true else suiEdit2.Enabled:=false;
end;
procedure TForm1.suiButton1Click(Sender: TObject);
begin
try
tr_st.edit;
tr_st.FieldByName('nomer_rs').AsInteger:=strtoint(suiEdit3.text);
tr_st.FieldByName('ip_adr').AsString:=suiEdit1.text;
tr_st.FieldByName('ident').AsString:=suiEdit6.text;
tr_st.FieldByName('spec').AsString:=suiMemo1.text;
tr_st.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
104
procedure TForm1.suiButton10Click(Sender: TObject);
begin
try
tmer.edit;
tmer.FieldByName('kod_mer').AsInteger:=strtoint(suiEdit23.text);
tmer.FieldByName('data').AsString:=suiEdit14.text;
tmer.FieldByName('vrem').AsString:=suiEdit15.text;
tmer.FieldByName('mer').AsString:=suiEdit16.text;
tmer.FieldByName('isp').AsString:=suiEdit20.text;
tmer.Post;
Except
MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);
end;
end;
procedure TForm1.suiButton11Click(Sender: TObject);
begin
tmer.Delete;
end;
procedure TForm1.suiButton2Click(Sender: TObject);
vardata_sm:extended;
begin
try
tuz.Edit;
tuz.FieldByName('nomer_uz').AsInteger:=strtoint(suiEdit2.text);
tuz.FieldByName('domen').AsString:=suiEdit5.text;
tuz.FieldByName('log').AsString:=suiEdit8.text;
tuz.FieldByName('parol').AsString:=suiEdit9.text;
tuz.FieldByName('polzovatel').AsString:=suiEdit7.text;
tuz.FieldByName('srok_deist').AsInteger:=strtoint(suiEdit4.text);
tuz.FieldByName('data_ust').AsString:=suiEdit21.text;