Список литературы.
Разработка информационной системы для химчистки "Клинфист"
Для работы данного приложения на вашем ПК потребуется перенести Access файл в свою папку () и указать в ADOConnection путь к данной БД. Кузин А. В., Левонисова С. В. Базы данных: учебное пособие для студентов высшего учебного заведения. М.: Академия, 2012 — 320с. Избачков Ю. С., Петров В. Н., Васильев А. А., Телина И. С. Информационные системы: учебник для ВУЗов. СПб.: Питер, 2010 — 544с. Бойко… Читать ещё >
Список литературы. Разработка информационной системы для химчистки "Клинфист" (реферат, курсовая, диплом, контрольная)
- 1. В. Э Гофман. Delphi. Быстрый старт. / А. Д Хомоненко. СПб.: БХВ-Петербург., 2002 — стр 281.
- 2. С. В. Одиночкина. Разработка баз данных в Microsoft Access 2010. М.: Изд., НИУ ИТМО., 2012 — 87 стр.
- 3. Г. В Галисеев. Программирование в среде Delphi 7. Самоучитель. М.: Изд., Вильямс., 2003 — 288 стр.
- 4. А. Федоров. ADO в Delphi+CD / Елманова Н., СПб.: BHV-Санкт-Петербург., 2002 — стр 816.
- 5. Г. М. Эйдлина, Delphi: программирование в примерах и задачах. Практикум., Изд.: — РИОР, ИНФРА-М., 2012 — стр 98.
- 6. Д. Осипов. Базы данных и Delphi. Теория и практика. / К. А. Милорадов., — СПб.: БХВ-Петербург., — 2010, стр 855.
- 7. Н. Культин. Delphi в задачах и примерах. СПб.: БХВ-Петербург., 2009 — 288 стр.
- 8. М. Фленов. Библия Delphi, 3-е издание + CD. СПб.: — БХВ-Петербург., 2011. — 688 стр.
- 9. А. Чиртик. Программирование в Delphi. Трюки и эффекты. CПб.: — Питер., 2003. — 393 стр.
- 10. Атре Ш. Структурный подход к организации баз данных. — М.: Финансы и статистика, 1983. — 320 с.
- 11. Бойко В. В., Савинков В. М. Проектирование баз данных информационных систем. — М.: Финансы и статистика, 1989. — 351 с.
- 12. Голицина О. Л., Максимов Н. В., Попов И. И. Базы данных: Учебное пособие. — М.: ФОРУМ: ИНФРА-М, 2003. — 352 с.
- 13. Джексон Г. Проектирование реляционных баз данных для использования с микро ЭВМ. -М.: Мир, 1991. — 252 с.
- 14. Карпова Т. С. Базы данных: модели, разработка, реализация. — СПб.: Питер, 2002. — 304 с.
- 15. Кириллов В. В. Структуризованный язык запросов (SQL). — СПб.: ИТМО, 1994. — 80 с.
- 16. Корнеев И. К., Машурцов В. А. Информационные технологии в управлении. — М.: ИНФРА-М, 2001. — 158 с.
- 17. Мартин Дж. Планирование развития автоматизированных систем.
- 18. Буч Г., Рамбо Д., Джекобсон А. Язык UML Руководство пользователя ЧАСТЬ IVДМК, 2001—421с.
- 19. Гагарина Л. Г., Киселев Д. В., Федотова Е. Л. Разработка и эксплуатация автоматизированных информационных систем: учебное пособие. М.: ФОРУМ — ИНФРА-М, 2013 — 383с.
- 20. Гагарина Л. Г., Кокорева Е. В., Виснадул Б. Д. Технология разработки программного обеспечения: учебное пособие. М.: ФОРУМ — ИНФРА-М, 2013 399с.
- 21. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных: учебное пособие. М.: ФОРУМ — ИНФРА-М, 2012 — 400с.
- 22. Гордеев А. В. Операционные системы: учебник для ВУЗов. СПб.: Питер, 2009 — 416с.
- 23. Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт — СПб.: БХВ-Петербург, 2003. — 288с.
- 24. Дерахвелидзе П. Г., Марков Е. П. Программирование в Delphi 7. — СПб.: БХВ-Петербург, 2003. — 784с.
- 25. Избачков Ю. С., Петров В. Н., Васильев А. А., Телина И. С. Информационные системы: учебник для ВУЗов. СПб.: Питер, 2010 — 544с.
- 26. Кудрявцев К. Я. Создание баз данных: учебное пособие. М.: НИЯУ МИФИ, 2010 — 155с.
- 27. Кузин А. В., Левонисова С. В. Базы данных: учебное пособие для студентов высшего учебного заведения. М.: Академия, 2012 — 320с.
ПРИЛОЖЕНИЕ 1
Руководство для пользователя Для того чтобы запустить данное приложение, нужно запустить Project.exe.
Далее в верхнем меню находится Меню, Функции, Справка, Отчет.
.
В графе Меню находиться кнопка закрытия приложения.
В графе Функции находиться формы для редактирования Сотрудники, Заказы, Клиенты и формы для просмотра Услуги, Дполонительные услуги, Ассортимент.
В графе Отчет содержится отчет по заказам.
>
Для того чтобы попасть на форму Сотрудники, вам нужно ввести Логин и Пароль (admin, adm).
Кнопка Добавить — добавляет запись.
Кнопка Удалить — удаляет запись.
Кнопка Выход — закрывает форму.
Кнопка Поиск — ищет Сотрудника, Клиента по фамилии. Заказы, услуги, и ассортимент по наименованию.
Все файлы, необходимые для работы хранятся в папке HelpDemo.
Для работы данного приложения на вашем ПК потребуется перенести Access файл в свою папку () и указать в ADOConnection путь к данной БД.
ПРИЛОЖЕНИЕ 2
Листинг программы.
unit MainForm;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, Menus, ExtCtrls, StdCtrls, jpeg, ComCtrls, MPlayer;
type.
TForm1 = class (TForm).
mm1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
img1: TImage;
lbl1: TLabel;
MediaPlayer1: TMediaPlayer;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure N2Click (Sender: TObject);
procedure N7Click (Sender: TObject);
procedure N6Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure N9Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure N11Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form1: TForm1;
implementation.
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}.
procedure TForm1. N2Click (Sender: TObject);
begin.
Close;
end;
procedure TForm1. N7Click (Sender: TObject);
begin.
Form2.Show;
end;
procedure TForm1. N6Click (Sender: TObject);
begin.
Form3.Show;
end;
procedure TForm1. N4Click (Sender: TObject);
begin.
Form8.Show;
end;
procedure TForm1. N9Click (Sender: TObject);
begin.
Form5.Show;
end;
procedure TForm1. N10Click (Sender: TObject);
begin.
Form6.Show;
end;
procedure TForm1. N11Click (Sender: TObject);
begin.
Form7.Show;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin.
MediaPlayer1.Close;
if OpenDialog1. Execute then.
begin.
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
end.
end;
procedure TForm1. FormCreate (Sender: TObject);
begin.
end;
end.
unit Zakazi;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;
type.
TForm2 = class (TForm).
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button4: TButton;
DBEdit1: TDBEdit;
dbedt1: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit2: TDBEdit;
Edit1: TEdit;
Button3: TButton;
procedure Button4Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form2: TForm2;
implementation.
{$R *.dfm}.
procedure TForm2. Button4Click (Sender: TObject);
begin.
Form2.Close;
end;
procedure TForm2. Button1Click (Sender: TObject);
begin.
tbl1.Append.
end;
procedure TForm2. Button2Click (Sender: TObject);
begin.
tbl1.Delete;
end;
procedure TForm2. Button3Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='ФИО_клиента like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm2. FormCreate (Sender: TObject);
begin.
end;
end.
unit Klienti;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;
type.
TForm3 = class (TForm).
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
GroupBox1: TGroupBox;
Button1: TButton;
Button3: TButton;
Button4: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
DBEdit6: TDBEdit;
tbl1id_: TAutoIncField;
tbl1DSDesigner: TWideStringField;
tbl1_: TIntegerField;
tbl1DSDesigner2: TWideStringField;
tbl12: TDateTimeField;
tbl1id2: TIntegerField;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form3: TForm3;
implementation.
{$R *.dfm}.
procedure TForm3. Button1Click (Sender: TObject);
begin.
tbl1.Append.
end;
procedure TForm3. Button4Click (Sender: TObject);
begin.
Form3.Close;
end;
procedure TForm3. Button3Click (Sender: TObject);
begin.
tbl1.Delete;
end;
procedure TForm3. Button2Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='ФИО like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm3. FormCreate (Sender: TObject);
begin.
end;
end.
unit Sotrudniki;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Menus,.
ComCtrls, Mask;
type.
TForm4 = class (TForm).
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
btn1: TButton;
btn3: TButton;
btn4: TButton;
grp1: TGroupBox;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
DBEdit1: TDBEdit;
tbl1id_: TAutoIncField;
tbl1DSDesigner: TWideStringField;
tbl1DSDesigner2: TWideStringField;
tbl1DSDesigner3: TWideStringField;
tbl1DSDesigner4: TIntegerField;
tbl1DSDesigner5: TIntegerField;
tbl1DSDesigner6: TWideStringField;
tbl1DSDesigner7: TWideStringField;
tbl1_: TWideStringField;
tbl1DSDesigner8: TWideStringField;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Label1: TLabel;
DBComboBox2: TDBComboBox;
DBEdit9: TDBEdit;
Edit1: TEdit;
Button1: TButton;
procedure btn3Click (Sender: TObject);
procedure btn1Click (Sender: TObject);
procedure btn4Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form4: TForm4;
implementation.
uses Unit8;
{$R *.dfm}.
procedure TForm4. btn3Click (Sender: TObject);
begin.
Form4.Close;
end;
procedure TForm4. btn1Click (Sender: TObject);
begin.
tbl1.Append.
end;
procedure TForm4. btn4Click (Sender: TObject);
begin.
tbl1.delete;
end;
procedure TForm4. Button1Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='Фамилия like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm4. FormCreate (Sender: TObject);
begin.
end;
end.
unit ProsmUslug;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask,.
Buttons;
type.
TForm5 = class (TForm).
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
ADOQuery1: TADOQuery;
DBEdit1: TDBEdit;
Label1: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure DBEdit1Change (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form5: TForm5;
implementation.
{$R *.dfm}.
procedure TForm5. Button1Click (Sender: TObject);
begin.
Form5.Close;
end;
procedure TForm5. Button2Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='Название like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm5. DBEdit1Change (Sender: TObject);
begin.
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('select sum (Цена) from Перечень_услуг');
ADOQuery1.Open;
DBEdit1.Text:=ADOQuery1.Fields[0]. AsString;
end;
procedure TForm5. FormCreate (Sender: TObject);
begin.
end;
end.
unit ProsmDopUslug;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Mask;
type.
TForm6 = class (TForm).
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
DBEdit1: TDBEdit;
ADOQuery1: TADOQuery;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure DBEdit1Change (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form6: TForm6;
implementation.
{$R *.dfm}.
procedure TForm6. Button1Click (Sender: TObject);
begin.
Form6.Close;
end;
procedure TForm6. Button2Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='Наименование like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm6. DBEdit1Change (Sender: TObject);
begin.
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('select sum (Цена) from Дополнительные_услуги);
ADOQuery1.Open;
DBEdit1.Text:=ADOQuery1.Fields[0]. AsString;
end;
procedure TForm6. FormCreate (Sender: TObject);
begin.
end;
end.
unit ProsmAssortimenta;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;
type.
TForm7 = class (TForm).
con1: TADOConnection;
tbl1: TADOTable;
ds1: TDataSource;
dbgrd1: TDBGrid;
dbnvgr1: TDBNavigator;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form7: TForm7;
implementation.
{$R *.dfm}.
procedure TForm7. Button1Click (Sender: TObject);
begin.
Form7.Close;
end;
procedure TForm7. Button2Click (Sender: TObject);
begin.
if length (edit1.Text)>0 then.
begin.
tbl1.Filter:='Ассортимент like ' + ' ''' + edit1. Text + '%' + ''' ';
tbl1.Filtered := true;
end.
else.
tbl1.Filtered := false;
end;
procedure TForm7. FormCreate (Sender: TObject);
begin.
end;
end.
unit Logon;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, XPMan;
type.
TForm8 = class (TForm).
edt1: TEdit;
edt2: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
xpmnfst1: TXPManifest;
procedure btn1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Form8: TForm8; l, p: Integer;
implementation.
uses Unit4;
{$R *.dfm}.
procedure TForm8. btn1Click (Sender: TObject);
begin.
if edt1. text='admin' then l:=1 else l:=0;
if edt2. text='adm' then p:=1 else p:=0;
if (p+l)>1 then.
begin.
form8.Close;
Form4.Visible:=True;
end.
end;
procedure TForm8. FormCreate (Sender: TObject);
begin.
end;
end.