2. Фаронов В. "Программирование баз данных в Delphi 7", Издательский дом "Питер", СПб:. 2006 г., 459с.
3. Михеева В., Харитонова И. Microsoft Access 2003. - СПб.: БХВ - Санкт-Петербург, 2004, 1072с.
4. Архангельский А.Я. Работа с локальными базами данных в Delphi 5. - М.: ЗАО "Издательство БИНОМ", 2000, 192с.
5. Сайт условно-бесплатного ПО www.freesoft.ru/index.html
6. Сайт автора программного комплекса "Багетная мастерская" www.ldm2. narod.ru/idex.html
7. Сайт тестирования и разгона аппаратного обеспечения ПК www.overclockers.ru
8. Фаронов В. Delphi 6. - М.: Издательский дом "Питер", 2002 г., 512с.
9. Глушаков С. Программирование в среде Deiphi 7. - Харьков: Фолио, 2003, 528с.
10. Культин Н. Deiphi в задачах и примерах. - СПб.: БХВ - Санкт-Петербург, 2003, 288с.
11. Сайт АРТ-предприятия "АНТУРАЖ" www.anturaj.74.ru/index1. php
12. Веб-сервис багетных мастеров www.bagetchik.ru/autobaget/faq. htm
13. Интернет-магазин www.artrex.ru/myframedart/photomodelg. php
14. Сайт сети салонов багетных мастерских в Москве http://www.art-master.ru/baget. php
15. Фурсов В.И. Экологические проблемы окружающей среды. Учебное пособие для вузов. Алма-Ата, Ана тiлi, 1991 г., 253с.
16. Санитарные правила и нормы №1 01.004.01. Гигиенические требования к организации и условиям работы с видеодисплейными терминалами и персональными электронно-вычислительными машинами. Астана. - Изд. офиц., 2001, 40 с.
17. Баклашин И.А., Марин Б.А. "Экологические исследования". Учебник для вузов.М., Недра, 1984.308с.
18. Экология и безопасность жизнедеятельности: учеб, пособие для вузов. Под ред. Л.А. Муравья. - М.: ЮНИТИ-ДАНА, 2002. - 447с.
19. Т.А. Хван, П.А. Хван. Основы экологии. Серия "Учебники и учебные пособия". Ростов н/Д: "Феникс", 2003. - 256с.
20. Закон Республики Казахстан "О безопасности и охране труда" от 28 февраля 2004 года №528-II. Издательский дом "Бико" Алматы 2004.
21. Охрана труда на предприятиях автомобильного транспорта (практические расчёты). Под ред. И.А. Салова М., "Транспорт", 1997.184с.
22. Правила пожарной безопасности в Республике Казахстан. Основные требования. ППБ РК 08-97, Алматы, 1999г.
23. Шумилин В.К. Краткий курс безопасности. Памятка для работников, занятых эксплуатацией ПЭВМ и видеодисплейных терминалов. Издательство "Соуэль" Москва: 32с.
24. Закон Республики Казахстан "О труде в Республике Казахстан" от 10 декабря 1999 года N 493. Ведомости Парламента Республики Казахстан, 1999 г., N 24, ст.1068; "Казахстанская правда" от 24 декабря 1999 г. N 294
25. Охрана труда в вычислительных центрах. - М.: Машиностроение, 1985. - 176с.
Программный код главного модуля системы "Багетная мастерская"
unit MainUnit; // Главный модуль
var
MainForm: TMainForm;
implementation
{$R *. dfm}
// процедура динамически создаёт форму "Единицы измерения"
procedure TMainForm. CreateALLEdIzmForm;
Var
MyEdIzmForm: TEdIzmForm; // переменная типа формы "Единицы измерения"
begin
MyEdIzmForm: =TEdIzmForm. Create (Owner); // создаём
MyEdIzmForm. ShowModal; // показываем пользователю
MyEdIzmForm. Free // уничтожаем переменную
end;
// Показать форму "Ед. изм."
procedure TMainForm. EdIzmActExecute (Sender: TObject);
begin
CreateALLEdIzmForm;
end;
// процедура динамически создаёт форму "Клиенты"
procedure TMainForm. CreateALLKlientsForm;
Var
MyKlientsForm: TKlientsForm;
begin
MyKlientsForm: =TKlientsForm. Create (Owner);
MyKlientsForm. ShowModal;
MyKlientsForm. Free;
end;
procedure TMainForm. KlientsActExecute (Sender: TObject);
begin
CreateALLKlientsForm;
end;
// процедура динамически создаёт форму "Материалы - багеты"
// sCaption - заголовок окна, dsMain - главный набор данных, dsSlave - подчинённый набор днных
procedure TMainForm. CreateBagetKomplektForm (sCaption: String; dsMain,
dsSlave: TDataSource);
Var
MyBagetKomplektForm: TBagetKomplektForm;
begin
MyBagetKomplektForm: =TBagetKomplektForm. Create (Owner);
// Устанавливаем свойства элементов формы
MyBagetKomplektForm. DBGridSlave. DataSource: =dsSlave;
MyBagetKomplektForm. DBNavigatorSlave. DataSource: =dsSlave;
MyBagetKomplektForm. DBEditName. DataSource: =dsSlave;
MyBagetKomplektForm. DBEditName. DataField: ='Komplekt_Name';
MyBagetKomplektForm. DBLComboBoxEdIzm. DataSource: =dsSlave;
MyBagetKomplektForm. DBLComboBoxEdIzm. DataField: ='LEdIzm';
MyBagetKomplektForm. DBEditShirina. DataSource: =dsSlave;
MyBagetKomplektForm. DBEditShirina. DataField: ='Komplekt_shirina';
MyBagetKomplektForm. DBEditVisota. DataSource: =dsSlave;
MyBagetKomplektForm. DBEditVisota. DataField: ='Komplekt_visota';
MyBagetKomplektForm. DBListBoxMater. DataSource: =dsMain;
MyBagetKomplektForm. DBListBoxMater. DataField: ='MaterKomlekt_Name';
MyBagetKomplektForm. DBNavigatorMain. DataSource: =dsMain;
MyBagetKomplektForm. DBEditMaterName. DataSource: =dsMain;
MyBagetKomplektForm. DBEditMaterName. DataField: ='MaterKomlekt_Name';
MyBagetKomplektForm. DBEditMaterKoef. DataSource: =dsMain;
MyBagetKomplektForm. DBEditMaterKoef. DataField: ='MaterKomlekt_Koef';
MyBagetKomplektForm. Caption: =sCaption;
MyBagetKomplektForm. ShowModal;
MyBagetKomplektForm. Free;
end;
// процедура динамически создаёт форму "Материалы - Комплектующие" и "Материалы - Разное"
// sCaption - заголовок окна, dsMain - главный набор данных, dsSlave - подчинённый набор днных
procedure TMainForm. CreateAllKomplektForm (sCaption: String; dsMain,
dsSlave: TDataSource);
Var
MyALLKomplektForm: TALLKomplektForm;
begin
MyALLKomplektForm: =TALLKomplektForm. Create (Owner);
// Устанавливаем свойства элементов формы
MyALLKomplektForm. DBGridSlave. DataSource: =dsSlave;
MyALLKomplektForm. DBNavigatorSlave. DataSource: =dsSlave;
MyALLKomplektForm. DBEditName. DataSource: =dsSlave;
MyALLKomplektForm. DBEditName. DataField: ='Komplekt_Name';
MyALLKomplektForm. DBLComboBoxEdIzm. DataSource: =dsSlave;
MyALLKomplektForm. DBLComboBoxEdIzm. DataField: ='LEdIzm';
MyALLKomplektForm. DBListBoxMater. DataSource: =dsMain;
MyALLKomplektForm. DBListBoxMater. DataField: ='MaterKomlekt_Name';
MyALLKomplektForm. DBNavigatorMain. DataSource: =dsMain;
MyALLKomplektForm. DBEditMaterName. DataSource: =dsMain;
MyALLKomplektForm. DBEditMaterName. DataField: ='MaterKomlekt_Name';
MyALLKomplektForm. DBEditMaterKoef. DataSource: =dsMain;
MyALLKomplektForm. DBEditMaterKoef. DataField: ='MaterKomlekt_Koef';
MyALLKomplektForm. Caption: =sCaption;
MyALLKomplektForm. ShowModal;
MyALLKomplektForm. Free;
end;
procedure TMainForm. ActMaterBagetExecute (Sender: TObject);
begin
CreateBagetKomplektForm ('Багеты', DM1. DSMaterBagets, DM1. DSBagets);
end;
procedure TMainForm. ActMaterKomplektExecute (Sender: TObject);
begin
CreateAllKomplektForm ('Комплектующие', DM1. DSMaterKomlekt, DM1. DSKomplekt);
end;
procedure TMainForm. ActMaterRaznoeExecute (Sender: TObject);
begin
CreateAllKomplektForm ('Разное', DM1. DSMaterRaznoe, DM1. DSRaznoe);
end;
// процедура динамически создаёт форму для мастерской
// sCaption - заголовок окна, dsSlave - главный набор данных, Material - набор данных со всеми деталями
// Например, со всеми багетами или со всеми комплектующими
procedure TMainForm. CreateAllMasterskayaKomplektForm (sCaption: String; dsSlave, Material: TDataSource);
Var
MyMasterskaya_KomplektForm: TMasterskaya_KomplektForm;
begin
MyMasterskaya_KomplektForm: =TMasterskaya_KomplektForm. Create (Owner);
// Устанавливаем свойства элементов формы
MyMasterskaya_KomplektForm. DBGridSlave. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBNavigatorSlave. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBLComboBoxMaterKomplekt. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBLComboBoxMaterKomplekt. DataField: ='LMaterKomplekt';
MyMasterskaya_KomplektForm. DBLComboBoxKomplekt. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBLComboBoxKomplekt. DataField: ='LKomplekt';
MyMasterskaya_KomplektForm. DBEditRoznCena. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBEditRoznCena. DataField: ='Masterskaya_RoznCena';
MyMasterskaya_KomplektForm. DBEditKolVo. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBEditKolVo. DataField: ='Masterskaya_Kol-vo';
MyMasterskaya_KomplektForm. DBEditRashod. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBEditRashod. DataField: ='Masterskaya_Rashod';
MyMasterskaya_KomplektForm. DBEditOstatok. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBEditOstatok. DataField: ='CMasterskaya_Ostatok';
MyMasterskaya_KomplektForm. DBEditPrim. DataSource: =dsSlave;
MyMasterskaya_KomplektForm. DBEditPrim. DataField: ='Masterskaya_Prim';
dsSlave. DataSet. Close;
dsSlave. DataSet. Open;
MyMasterskaya_KomplektForm. myMaterial: =Material;
MyMasterskaya_KomplektForm. Caption: =sCaption;
MyMasterskaya_KomplektForm. ShowModal;
MyMasterskaya_KomplektForm. Free;
end;
procedure TMainForm. Act_Master_KomplektExecute (Sender: TObject);
begin
CreateAllMasterskayaKomplektForm ('Мастерская - Комплектующие', DM1. DSMasterskaya_Kompl, DM1. DSMaterKomlekt);
end;
procedure TMainForm. Act_Master_RaznoeExecute (Sender: TObject);
begin
CreateAllMasterskayaKomplektForm ('Мастерская - Разное', DM1. DSMasterskaya_Raznoe, DM1. DSMaterRaznoe);
end;
procedure TMainForm. Act_Master_BagetsExecute (Sender: TObject);
begin
CreateAllMasterskayaKomplektForm ('Мастерская - Багеты', DM1. DSMasterskaya_Bagets, DM1. DSMaterBagets);
end;
// процедура динамически создаёт форму для склада
// sCaption - заголовок окна, dsSlave - главный набор данных, Material - набор данных со всеми деталями
// Например, со всеми багетами или со всеми комплектующими
// dsVspomog - набор данных для раскрыв. списка наимен. комплект.
// MySqlZapros - SQL-запрос для dsVspomog
procedure TMainForm. CreateAllSkladKomplektForm (sCaption: String;
dsSlave, dsVspomog, Material: TDataSource; MySqlZapros: string);
Var
MySklad_KomplektForm: TSklad_KomplektForm;
begin
MySklad_KomplektForm: =TSklad_KomplektForm. Create (Owner);
MySklad_KomplektForm. DBGridSlave. DataSource: =dsSlave;
MySklad_KomplektForm. DBNavigatorSlave. DataSource: =dsSlave;
MySklad_KomplektForm. DBLComboBoxMaterKomplekt. DataSource: =dsSlave;
MySklad_KomplektForm. DBLComboBoxMaterKomplekt. DataField: ='LMaterKomplekt';
MySklad_KomplektForm. DBLComboBoxKomplekt. DataSource: =dsSlave;
MySklad_KomplektForm. DBLComboBoxKomplekt. DataField: ='LKomplekt';
MySklad_KomplektForm. DBEditNumberNakl. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditNumberNakl. DataField: ='Sklad_NumberNakl';
MySklad_KomplektForm. DBEditData. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditData. DataField: ='Sklad_Data';
MySklad_KomplektForm. DBEditZakupCena. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditZakupCena. DataField: ='Sklad_ZakupCena';
MySklad_KomplektForm. DBEditKolVo. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditKolVo. DataField: ='Sklad_Kol-vo';
MySklad_KomplektForm. DBEditRashod. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditRashod. DataField: ='Sklad_Rashod';
MySklad_KomplektForm. DBEditOstatok. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditOstatok. DataField: ='CMasterskaya_Ostatok';
MySklad_KomplektForm. DBEditPrim. DataSource: =dsSlave;
MySklad_KomplektForm. DBEditPrim. DataField: ='Sklad_Prim';
// обновим
dsSlave. DataSet. Close;
dsSlave. DataSet. Open;
MySklad_KomplektForm. myMaterial: =Material;
dsVspomog. DataSet. Close;
TADOQuery (dsVspomog. DataSet). SQL. Clear; // очищаем
TADOQuery (dsVspomog. DataSet). SQL. Add (MySqlZapros); // Добавляем текст запроса
TADOQuery (dsVspomog. DataSet). FieldByName ('LKomplekt'). LookupDataSet: =TADOQuery (dsSlave. DataSet). FieldByName ('LKomplekt'). LookupDataSet;
// устанавливаем параметры
TADOQuery (dsVspomog. DataSet). Parameters. ParamByName ('Id_Komplekt_slave'). DataType: =ftInteger;
TADOQuery (dsVspomog. DataSet). Parameters. ParamByName ('Id_Komplekt_slave'). Direction: =pdInput;
TADOQuery (dsVspomog. DataSet). Parameters. ParamByName ('Id_Komplekt_slave'). Value: =0;
dsVspomog. DataSet. Open;
MySklad_KomplektForm. DBEditKomplekt. DataSource: =dsVspomog;
MySklad_KomplektForm. DBEditKomplekt. DataField: ='LKomplekt';
MySklad_KomplektForm. DBEditVspomCena. DataSource: =dsVspomog;
MySklad_KomplektForm. DBEditVspomCena. DataField: ='Masterskaya_RoznCena';
MySklad_KomplektForm. DBEditVspomKolVo. DataSource: =dsVspomog;
MySklad_KomplektForm. DBEditVspomKolVo. DataField: ='Masterskaya_Kol-vo';
MySklad_KomplektForm. DBEditVspomRashod. DataSource: =dsVspomog;
MySklad_KomplektForm. DBEditVspomRashod. DataField: ='Masterskaya_Rashod';
MySklad_KomplektForm. DBEditVspomOstatok. DataSource: =dsVspomog;
MySklad_KomplektForm. DBEditVspomOstatok. DataField: ='CMasterskaya_Ostatok';
MySklad_KomplektForm. Caption: =sCaption;
MySklad_KomplektForm. ShowModal;
MySklad_KomplektForm. Free;
end;
procedure TMainForm. ActSkladKomplektExecute (Sender: TObject);
begin
CreateAllSkladKomplektForm ('Склад - Комплектующие', DM1. DSSklad_Kompl, Dm1. DSVspomog, DM1. DSMaterKomlekt, 'Select * From Masterskaya_Kompl_Table ' +