Диплом жобасының өзектілігі
теория
теория
- Бұл бет үшін навигация:
- Табельдік № Аты-жөні
- 04.05.2012 Табельдік №
- Тапсырыс № Қабылдау күні Тапсыру күні
- Қабылдаған менеджер Жауапты жұмысшы
|
|
04.05.2012 |
|
Табельдік № |
Аты-жөні |
|
0001 |
Ержанов М. О. |
|
0002 |
Оразова Ж. К. |
|
0003 |
Жакиев М. Е. |
|
|
|
Сурет 3.5 Менеджерлер тізімін баспаға беру
Анықтамалар мәзірінің келесі «Мамандықтар» пункті мекемеде жұмыс істейтін жұмысшылар мамандығын сақтайды (сурет 3.6) .
Сурет 3.6 Мамандықтар терезесі
Жұмысшылар пункті «Жұмысшылар» терезесін шақырады (сурет 3.7). Бұл терезеде жұмысшылар туралы мәліметтер өңделеді және «Баспа» батырмасы көмегімен MS Excel ортасы көмегімен баспаға шығарылады (сурет 3.8).
Сурет 3.7 Жұмысшылар терезесі
|
|
|
|
|
ЖҰМЫСШЫЛАР | ||
|
|
|
04.05.2012 |
|
Табельдік № |
Аты-жөні |
Мамандығы |
|
1 |
Күзембаев Д. Р. |
Ішкі қабырға сылағы |
|
2 |
Сарыбасов К. П. |
Еден кафелін төсеу |
|
3 |
Байболв С. М. |
Құйылмалы жылы еден төсеу |
|
4 |
Медетов Р. Б |
Сатехникалық жұмыстар |
|
5 |
Байсалбаев Т. Н. |
Ас үй жихазы №1 |
|
6 |
Есенов А. Р. |
Құйылмалы еден төсеу |
|
7 |
Бисенов Р. К. |
Сылақ жұмыстары |
|
10 |
Асанов Г. Р |
Сыртқы есікті орнату |
|
12 |
Ганиев Р. Д. |
Сыртқы есікті орнату |
|
|
|
|
|
|
Менеджер________ |
___________________ |
|
|
қолы |
аты жөні |
|
|
|
|
Сурет 3.8 Жұмысшылар туралы мәліметтерді баспаға шығару
«Қоймадағы материалдар» пункті сәйкес атаулы терезені ашады (сурет 3.9). Бұл терезеде қоймадағы материалдардың шифры, атауы, өлшем бірлігі, бағасы, жалпы құны, қосымша туралы мәліметтері өңделеді. Материалдардың жалпы құны есептелу өрісі болып табылады және келесі формуаламен есептеледі:
Құны = Саны*Бағасы
Есептелу жазбаны өңдеу кезінде автоматты түрде жүргізіледі:
tbstorecena.Value:=dm.tbStoreDSDesigner5.Value*dm.tbStoreDSDesigner6.Value
Сурет 3.9 Қоймадағы материалдар терезесі
Қоймадағы материалдар тізімі «Баспа» батырмасы көмегімен MS Excel ортасына келесі жолдар арқылы баспаға шығарылады (сурет 3.10).
procedure TfmStore.BitBtn1Click(Sender: TObject);
var
i: integer;
Excel,WorkBook,Sheet: Variant;
{iIndex: OleVariant;}
begin
// Excel жүктеу
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add(extractfiledir(application.ExeName)+'\Шаблоны\otchet2.xlt');
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:='Қоймадағы материалдар';
dm.tbStore.First;
i:=4;
while not dm.tbStore.Eof do
begin
i:=i+1;
excel.run('add1');
Sheet.Cells[i,1].value:=dm.tbStoreDSDesigner.Value;
Sheet.Cells[i,2].value:=dm.tbStoreDSDesigner2.Value;
Sheet.Cells[i,3].value:=dm.tbStoreDSDesigner3.Value;
Sheet.Cells[i,6].value:=dm.tbStoreCena.Value;
Sheet.Cells[i,4].value:=dm.tbStoreDSDesigner5.Value;
Sheet.Cells[i,5].value:=dm.tbStoreDSDesigner6.Value;
Excel.Range[Excel.Cells[i+1,3],Excel.Cells[i+1,3]].Select;
dm.tbStore.Next;
end;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[i, 5]].Select;
Excel.Selection.Font.Bold:=false;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[4, 6]].Select;
Excel.Selection.Font.Bold:= true;
Excel.Selection.HorizontalAlignment:=2;
Sheet.Cells[3,5].value:=date;
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
Excel:=Unassigned;
WorkBook:=Unassigned;
Sheet:=Unassigned;
end;
|
ҚОЙМАДАҒЫ МАТЕРИАЛДАР |
| |||||||||||
|
|
|
|
|
04.05.2012 |
| |||||||
|
Шифр |
Жұмыс |
Бірлік |
Саны |
Бағасы, теңге |
Құны | |||||||
|
1 |
Грунт ГФ-021 сұры 22кг |
дана |
5656 |
Т1 145,00 |
6476120 | |||||||
|
3 |
Грунт ГФ-021 қара10кг. |
дана |
22 |
Т590,00 |
12980 | |||||||
|
4 |
Грунт терең сіңетін Р-51 (10л.) |
дана |
39 |
Т297,50 |
11602,5 | |||||||
|
6 |
Сұйық шеге трубкасыз 0,311 (зелён. этик.) Frankin 7471 |
дана |
36 |
Т80,00 |
2880 | |||||||
|
7 |
Сұйық шеге трубкамен 0,311 (красная этик.) Frankin 3451 |
дана |
674 |
Т75,00 |
50550 | |||||||
|
8 |
Сұйық әйнек (7кг.) |
дана |
98 |
Т118,25 |
11588,5 | |||||||
|
9 |
"Бустилат" әмбебап желім (2,5кг.) |
дана |
2134 |
Т75,00 |
160050 | |||||||
|
10 |
ПВА әмбебап желім.( 10кг.) |
дана |
239 |
Т378,75 |
90521,25 | |||||||
|
12 |
Бояу"Финиш-Фасад" ақ, 1/14 |
дана |
4994 |
Т793,00 |
3960242 | |||||||
|
13 |
Бояу ВД-АК-1180 фасадтық акрилді (15кг.) |
дана |
1234 |
Т561,25 |
692582,5 | |||||||
|
14 |
Олифа "Оксоль" 1л. |
дана |
2387 |
Т50,00 |
119350 | |||||||
|
15 |
Еріткіш 646 1/10 |
дана |
678 |
Т372,50 |
252555 | |||||||
|
30 |
Уайт-спирит 5л |
дана |
4567 |
Т219,00 |
1000173 | |||||||
|
31 |
Эмаль НЦ-132 ақ,ЛИТЭКС, 20кг. |
дана |
45 |
Т1 620,00 |
72900 | |||||||
|
32 |
Эмаль НЦ-132 сары,ЛИТЭКС, 1/50 |
дана |
40 |
Т3 666,00 |
146640 | |||||||
|
33 |
Эмаль НЦ-132 сары,ЛИТЭКС, 20кг. |
дана |
800 |
Т1 676,00 |
1340800 | |||||||
|
34 |
Эмаль НЦ-132 қорғаныстық ,ЛИТЭКС, 1/51 |
дана |
230 |
Т3 739,00 |
859970 | |||||||
|
|
|
|
|
|
| |||||||
|
|
Менеджер |
________ |
___________________ |
| ||||||||
|
|
|
қолы |
аты жөні |
|
| |||||||
Сурет 3.10 Қоймадағы материалдарды баспаға шығару
Сурет 3.11 Жұмыстар прейскуранты терезесі
Жұмыстар прейскуранты пункті мекеме ұсынатын қызметтер тізімін өңдеуге арналған терезені шақырады (сурет 3.11). Жұмыстар прейскуранты тізімі «Баспа» батырмасы көмегімен MS Excel ортасына баспаға шығарылады (сурет 3.10).
|
ЖҰМЫСТАР ПРЕЙСКУРАНТЫ | ||||
|
|
|
|
|
04.05.2012 |
|
Шифр |
Жұмыс |
Бірлік |
Нормасы |
Норма құны, теңге |
|
1 |
Ас үй жихазы №1 |
м^2 |
1 |
Т130,00 |
|
2 |
Сылақ жұмыстары |
м^2 |
1 |
Т340,00 |
|
3 |
Декоративті кафель төсеу |
м^2 |
1 |
Т250,00 |
|
4 |
Еден кафелін төсеу |
м^2 |
1 |
Т220,00 |
|
5 |
Ішкі қабырға сылағы |
м^2 |
1 |
Т210,00 |
|
6 |
Сатехникалық жұмыстар |
сағ |
1 |
Т450,00 |
|
7 |
Бөлмеаралық есіктерді орнату |
сағ |
3,5 |
Т1 300,00 |
|
8 |
Сыртқы есікті орнату |
сағ |
2 |
Т1 700,00 |
|
9 |
Пластик терезені орнату |
м^2 / сағ |
1,6 |
Т970,00 |
|
10 |
Қонақ бөлме жихазы №1 |
сағ |
1,5 |
Т540,00 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Директор |
________ |
___________________ | |
|
|
|
қолы |
аты жөні |
|
Сурет 3.12 Жұмыстар прейскурантын баспаға шығару
Клиенттер терезесі клиенттер туралы мәліметтер өңдеуге арналған (сурет 3.13). Онда клиенттің аты жөні немесе атауы оаған берілетін жеңілдіктер, мекен жайы, қосымша ақпарат (тұрақты, сенімсіз және т.с.с), құжаты банктік реквизиттері, ИНН, СТН туралы мәліметтер сақталып, өңделеді.
Сурет 3.13 Клиенттер терезесі
«Клиент тапсырыстары» батырмасы клиенттер тапсырыстары терезесін ашады (сурет 3.14). Мұнда тапсырыс нөмірі, тапсырыс қабылдау күні, тапсыру күні, сомасы, клиент, тапсырысты қабылдаған менеджер, тапсырыстың орындалуына жауапты жұмысшы туралы ақпарат өңделеді.
Соынмен қатар, көрсетілген күндлер аралығымен, тапсырыс берген клиент, тапсырыс қабылдаған менеджер бойынша фильтрация қарастырылған. Фильтрация айтылған опциялардың бірнешеуін немесе барлыңын таңдау арқылы да жүргізе алады.
Фильтрация нәтижесі «Баспа» батырмасы көмегімен MS Excel ортасына баспаға шығарылады (сурет 3.15).
«Клиенттер» батырмасы клиенттер терезесін, «Менеджерлер» батырмасы, «Жұмысшылар» батырмасы сәйкес терезелерді шақырады. Бұл қолайлылық үшін арналған.
Сурет 3.14 Клиент тапсырыстары терезесі
|
ТАПСЫРЫСТАР ЖУРНАЛЫ |
|
| ||||||
|
|
|
|
|
05.05.2012 |
|
| ||
|
Тапсырыс № |
Қабылдау күні |
Тапсыру күні |
Сомасы (теңге) |
Клиент |
Қабылдаған менеджер |
Жауапты жұмысшы | ||
|
2 |
25.10.2009 |
28.11.2009 |
Т125 542,50 |
АҚ "Автопарк" |
Ержанов М. О. |
Сарыбасов К. П. | ||
|
3 |
26.10.2009 |
10.11.2009 |
Т10 386,00 |
ИП Марат М.М. |
Оразова Ж. К. |
Есенов А. Р. | ||
|
4 |
26.10.2009 |
27.11.2009 |
Т43 920,00 |
Досанов А. А. |
Жакиев М. Е. |
Күзембаев Д. Р. | ||
|
16 |
01.11.2009 |
01.12.2009 |
Т88 495,83 |
АҚ "Автопарк" |
Оразова Ж. К. |
Бисенов Р. К. | ||
|
28 |
04.11.2009 |
08.11.2009 |
Т8 175,16 |
ИП Марат М.М. |
Оразова Ж. К. |
Байболв С. М. | ||
|
34 |
15.11.2009 |
25.11.2009 |
Т24 486,16 |
ТОО "Асан" |
Ержанов М. О. |
Саматов М. А. | ||
|
35 |
20.11.2009 |
22.11.2009 |
Т2 600,00 |
Досанов А. А. |
Ержанов М. О. |
Есенов А. Р. | ||
|
36 |
13.11.2009 |
23.11.2009 |
Т8 987,00 |
АҚ "Автопарк" |
Ержанов М. О. |
Байсалбаев Т. Н. | ||
|
37 |
16.11.2009 |
16.12.2009 |
Т56 235,00 |
Максатов Р. Д. |
Оразова Ж. К. |
Күзембаев Д. Р. | ||
|
38 |
20.11.2009 |
21.11.2009 |
Т4 851,00 |
АҚ "Автопарк" |
Ержанов М. О. |
Асанов Г. Р | ||
|
39 |
14.12.2009 |
15.01.2010 |
Т31 057,00 |
Досанов А. А. |
Оразова Ж. К. |
Байсалбаев Т. Н. | ||
|
40 |
22.01.2010 |
23.01.2010 |
Т6 790,00 |
Максатов Р. Д. |
Жакиев М. Е. |
Байболв С. М. | ||
|
42 |
12.12.2009 |
12.02.2010 |
Т13 328,00 |
ЖК "Айнур" |
Ержанов М. О. |
Байболв С. М. | ||
|
43 |
20.11.2009 |
20.11.2009 |
Т10 386,00 |
ЖК "Маке Саке" |
Оразова Ж. К. |
Байболв С. М. | ||
|
44 |
13.11.2009 |
13.11.2009 |
Т43 920,00 |
АҚ "Автопарк" |
Оразова Ж. К. |
Байболв С. М. | ||
|
45 |
26.10.2009 |
26.10.2009 |
Т1 292,00 |
ИП Марат М.М. |
Ержанов М. О. |
Сарыбасов К. П. | ||
|
|
|
|
|
|
|
| ||
|
|
|
|
|
|
|
| ||
|
|
|
|
|
|
|
| ||
|
|
|
|
|
|
Менеджер ________ |
___________________ | ||
|
|
|
|
|
|
қолы |
аты жөні | ||
|
|
|
|
|
|
|
| ||
Сурет 3.15 Клиент тапсырыстарын баспаға шығару
«Тапсырыс беру» батырмасы клиент тапсырыстарын қабылдау терезесін ашады (сурет 3.16). Терезенің сол жағындағы панелдегі навигатор арқылы жаңа тапсырыс қосылады: тапсырыс нөмірі, қабылдау күні, тапсырысты орындап клиентке тапсыру күні беріледі. Клиент атауы клиент кестесімен байланстырылған тізімнен таңдалып қойылады. Менеджер атауы менеджер кестесімен байланстырылған тізімнен таңдалып қойылады. Жұмысшы атауы жұмысшы кестесімен байланстырылған тізімнен таңдалып қойылады.
Сурет 3.16 Тапсырыс қабылдау терезесі
Терезенің оң жоғарғы жағындағы кестеде клиент тапсырыс берген жұмыстар тізімі енгізіледі. Жұмыс атауы жұмысшы кестесімен байланыстырылған тізімнен қойылады. Күні қолдан енгізіліп, жұмысшы аты жөні тізімнен таңдап қойылады. Норма саны енгізілген кезде Норма төлемі жұмыстар прейскурантынан автоматты түрде қойылып, сомасы есептеледі.
Төменгі кестеде клиент тапсырысы бойынша мекеме қоймасынан қажетті материалдар енгізіледі. Материал тізімі қоймадағы материалдардан алынып, саны енгізілген кейін бағасы мен сомасы автоматты түрде есептеледі. Егер материал саны қоймадағыдан артық болса, ол туралы хабарлама шығады және қабылданбайды (сурет 3.17).
Сурет 3.17 Ескерту терезесі
Қажетті жұмыстар мен материалдар есептелген соң, беріліетін жеңілдік пайызын енгізіп есептеу батырмасы басылады. Сол кезде атқарылатын жұмыстар мен материалдар сомасы берілген жеңілдікті есепке ала отырып, автоматты түрде есептеледі.
Клиенттен тапсырыс қабылданғаннан кейін «Келісім шартты баспаға» атты батырма арқылы программа орналасқан буманың ішкі «Шаблоны» бумасында орналастырылған «Договор.dot» файлында сақталған келісім шарт құжатын баспаға шығарылады.
«Тапсырысты баспаға» батырмасы клиент тапсырысын баспаға шығарады. Баспаға шығарылғаннан кейін құжатқа тапсырыс қабылдаған менеджер, жұмысқа жауапты жұмысшы және тапсырыс беруші қол қояды (сурет 3.18).
Сурет 3.18 Тапсырысты баспаға щығару
Тапсырыс толығымен орындалған соң, «Қабылдау актысы» батырмасы көмегімен қабылдау құжаты баспаға шығарылады. Баспа шығару MS Excel ортасына көмегімен орындалады. (сурет 3.19).
Құжатқа тапсырыс беруші, төлеуші яғни тапсырыс беруші немесе тапысырыс беру мекеменің жауапты адамы және тапсырысты орындаған жұмысшы немесе менеджер қол қояды.
Сурет 3.19 Қабылдау актысын баспаға шығару
«Есеп шот» батырмасы берілген жеңілдікті ескере отырып есеп шотты баспаға береді (сурет 3.20).
Сурет 3.20 Есеп шотты баспаға шығару
Статистика батырмасы көрсетілген күндер аралығында келесі диаграммаларды көрсетеді (3.21):
Жұмысшылар бойынша;
Жұмыс түрлері бойынша;
Айлар бойынша;
Клиенттер тапсырыстары бойынша;
Сурет 3.21 Статистика терезесі
Программа туралы мәзірі 3.22 суреттегідей терезені шақырады.
Сурет 3.22 Программа туралы
3.4 Жобаның экономикалық тиімділігі
Бұл бөлімде жоба программасының экономикалық тиімділігін есептеу қарастырылады. Ол үшін келесідей алғашқы мәліметтер кесте 4.1. көрсетілген.
Кесте 4.1
Алғашқы мәліметтер.
|
№ |
Көрсеткіштер |
Өлшем бірлік |
Шамасы |
|
1 |
Программаға кеткен уақыт |
Ай |
0,5 |
|
2 |
Программа отладкасына кеткен уақыт |
Ай |
0,25 |
|
3 |
Машинаның сағаттық құны |
Тенге |
100 |
|
4 |
Өндірушінің айлық ақшасы |
Тг./ай |
25000 |
|
5 |
Бір күндегі ЭЕМ – дегі жұмыс уақыты |
Сағат |
3 |
|
6 |
ДЭЕМ – ң жұмыс жасаған күндері саны |
Күн |
15 |
|
7 |
Айдағы жұмыс күндер саны |
Күн |
22 |
|
8 |
Компьютер құны |
Тенге |
85000 |
|
9 |
Жетекшінің айлық жалақысы |
Тенге |
30000 |
|
10 |
Жетекшілер саны |
Адам |
1 |
|
11 |
ДЭЕМ – ң ай ішіндегі жұмысы |
Сағат |
110 |
Жобалау шығынын есептеу
Жобалау шығыны:
(1)
мұнда: - алгоритмді жобалауға кеткен шығын;
- сипаттау және отладка шығыны;
- техникалық құралдар жиынтығын алуға кеткен шығын;
Алгоритмді жобалау шығыны:
(2)
мұнда: - өндірушінің жалақысы;
У - өндіруге кеткен уақыт;
От - әлеуметтік қажеттілікке аударым;
Алгоритмге 0,5 ай уақыт жұмсалынды, өндіруші жалақысы 25000 тг. Әлеуметтік қажеттілікке аударым 1312,5 тг. құрайды. Сонда:
(тенге).
Шығын келесідей есептелінеді:
(3)
мұнда: - машина уақытының бағасы;
- программаны жасау және отладка жасаудағы программистің жалақы фонды;
(4)
мұнда: N – отладкаға кеткен уақыт;
- бір айдағы программист жалақысы;
Программаны құруға 0,25 ай уақыт жұмсалынды. Әлеуметтік қажеттілікке аударымды қоса есептегенде
(тенге).
ЭЕМ – ді күніне 3 сағаттан, 15 күн уақыт жұмыс жасалынды. Машина уақытының бағасы 100 тг.
Машина уақыты:
(5)
мұнда: t – ЭЕМ – де бір күндік уақыт;
d – ЭЕМ – нің қолданылған күндері саны;
g – машинаның уақыт құны;
(тенге).
Ары қарай, (3) – ші формула арқылы есептейміз.
(тенге).
Біздің жобамызға жалғыз компьютер жеткілікті. Дербес компьютер- 85 000 тенге құрайды.
(тенге).
Сондықтан, өнімді алуға кеткен шығынды (1) – ші формула арқылы есептесек:
(тенге)
құрайды.
3.5 Еңбекті қорғау
Берілген өнімді жасау және қолдану үшін Pentium типті дербес компьютер қажет деп айтқанбыз.
Компьютерде жұмыс жасау кезінде адамға келетін қауіп факторларын берейік:
шудың жоғары деңгейінің болуы;
сыртқы ортаның температурасының жоғары деңгейі;
электр тоғы;
қажетті жарықтанбау;
Көптеген адамдар компьютермен жұмыс жасау барысында келесідей салмақтарды қабылдайды:
ойлау салмағы;
көру салмағы;
дыбыстық анализаторлар салмағы;
жұмыстың бірқалыптылығы;
эмоциялық салмақ;
Үстіде айтылған қауіпті факторлар әсерінен жұмыс қарқындылығы төмендейді. Мысалы, қатты дыбыс – түстік сигналдарды айыруды төмендетеді, түсті тез қабылдауды төмендетеді, визуальды ақпаратты қабылдауды төмендетеді, координированды қозғалыстың тез және дәлдігін төмендетеді.
Қайсібір есептеу орталықтарында медициналық зерттеулер жүргізу барысында шу, сонымен қатар есту қабілетін төмендететінін анықтады.
Компьютерлерді қолданатын орталықтардың жұмысшылары арасындағы травматизге талдау жасайтын болсақ, көп қолайсыз жағдайлар техникалық ережелерді қадағаламаудан туындайды. Сонымен қатар, электр тоғының адамға әсері көп кездеседі.
Қажетсіз жылу бөлу көздері:
Адамдардың жылу бөлу көздері;
Күннің радиациясынан бөлінген жылу;
Қолдан жарықтандыру жүйесі бөлетін жылу;
ЭЕМ жылуы;
Қыздырылған беттер жылуы.
Температураның көтерілуі адам жұмысының қарқындылығын төмендетеді.
Метеорологиялық шарттар түсінігі – температураның ылғалдылығымен, қозғалыс жылдамдығымен және ауа шаңдығы қосылысымен сипатталады.
Үстідегі параметрлер адамның функционалдық қызметіне кері әсерін тигізеді, сонымен қатар есептеуіш техниканың жұмыс жасауына кері әсер етеді. Әсіресе, микроклиматқа есептеуіш машиналар тұрған бөлмедегі жылу бөліну үлкен әсер береді, яғни ДЭЕМ, қосымша құрылғылар, жарықтандыру құралдары.
Осы айтылған кері әсерлердің алдын алу үшін есептеуіш орталықтарын желдету қажет. Есептеуіш орталықтарын желдету жүйесін жасау кезінде ауаны үлестіру үшін кеңістіктің еден астын және жоғарғы қабырғаларын пайдаланамыз. Есептеуіш орталықтарында қазіргі кезде екі түрлі желдеткіш жүйесін кездестіруге болады. Салқындату және кондиционированды жүйелер – олар сәйкесінше автономды және автономды емес желдеткіштерді қолданады. Ауаны желдету жүйелерін қондырудың негізгі мақсаты: машиналық залда ауа параметрлерін қажетті деңгейде ұстап тұру.
Өндірістік жарықтандыру жүйесіне келесідей талаптар қойылады:
Көріністік жұмыстың орындалу характеріне сәйкес жұмыс үстелінің қажетті жарықтануы;
Қоршаған орта мен жұмыс бетінде жарықтың тең үлестірімі;
Тездік көлеңкелер, тіке және шағылысу сәулелерінің болмауы;
Жарықтандыру қралдарынан шығатын сәулелер ағынының тиімді бағытталуы;
Барлық уақыт бойы жарықтану;
Ұзақтылық, электр және өрт қауіпсіздігі, қарапайымдылық.
Сонымен қатар, электр қауіпсіздігін сақтау үшін қорғаныс жерлендіруі жүргізілуі керек.
Қорытынды
Автоматтандырылған жұмыс орнын құру экономикалық объекттің өндірісінің тиімділігін және басқарудың сапасын қамтамасыз етеді. Автоматтандырылған жұмыс орны жоғары тиімділігіне кәсіпорындар, фирмалар және ұйымдар жұмысының жоспарын оптимизациялау, шұғыл шешімдерді тез қабылдау, материалдық және қаржылық ресурстарды нақты қалыптастыру кезінде жетеді. Сондықтан орны функционалдау жағдайында басқару процесі экономикалы - ұйымдастырушылық модельдерге негізделген.
Автоматтандырылған жұмыс орнын құру тәжірибесі, өндірістік-шаруашылық процестердің жағдайларын формализациялау, мемлекеттік және коммерциялық құрылымдардың есептеуіш құралдармен жабдықтау басқарудағы ақпараттық процестердің технологиясының түпкілікті түрде өзгерткен.
Диплом жобасын орындау барысында нәтижесінде Автоматтандырылған жұмыс орны, автоматтандырылған ақпараттық технология, экономикалық ақпараттық жүйе, оның құрылымы, сипаты ашылып, анықтамасы берілді.
Диплом жобасының нәтижесінде ағаш-ұста шеберханасының материалдары анықтамаларын жүргізу, қызметтері прейскурантын ұсыну, қоймадағы материалдардың барлығын есепке алу, жұмыс атқаруға тапсырыс қабылдау, клиент тапсырыстар журналын жүргізу, диаграммалар сияқты функцияларды атқарылды. Ол өзіне енгізілген функцияларды орындауға және әрбір қолданушыға қолайлы. Ойластырғандай-ақ, ол менеджерлердің еңбегін жеңілдетеді және де өңдеушілердің икемді өзіндік басшылығы бола алады.
Берілген жүйеде, кез келген өнімдегідей даму жолдары қарастырылған. Осындай жолмен жүйенің қорытындыларына қарамай оны жаңалауға болады. Қосымша материал қосу арқылы және қолданбалы интерфейсті өзгерту арқылы жаңарту жолдары да бар.
Жұмыстың негізгі нәтижесі болып табылатын функционалдық ДҚБЖ, ол қажетті тапсырмаларды орындайды. Көзделген жобаның іске асырылуы мықты құралдардың көмегінсіз-ақ мәліметтер қорымен жүзеге асады.
Деректер қорында сақталған ақпараттарға қол жеткізу әдістерінің жүзеге асырылуына қажетті жұмыс мөлшері, оның жетілдірілуі, мәліметтер қорында сақталуы қолданушыларға оны білу міндетті емес, оның себебі пайда болған тапсырмаларды шешу үшін және оларды мәліметтер қорында сақталған ақпараттарды қолданумен байланысында. Программалық интерфейс жұмысты максимальды түрде жеңілдетеді. ДҚБЖ орындайтын барлық функциялар ұқыпты түрде сарапталған және тексерілген, өңдеу процесінде олардың жұмыстары кепілдендірілген болып табылады.
Дипплом нәтижесінде құрылған автоматтандырылған жұмыс орнын ешқандай өзгертусіз ағаш-ұста шеберханасында қолдануға болады.
Пайдаланылған әдебиеттер тізімі
К.Кажымұрат, С. Донцов. Совершенствование системы ценообразования в современном строительстве/ Евразийское сообщество 2005, № 1
Информационные системы и технологии в экономике и управлении: уч.пособие/ Под ред. В.В. Трофимова. - М.: Высшее образование, 2007.
Бочаров Е.П., Колдина А.И. Интегрированные корпоративные информационные системы. - М.: Финансы и статистика, 2005.
Информационные системы в экономике. Под ред. Титоренко Г.А. 2-е изд., перераб. и доп. - М.: Юнити-Дана, 2008. - 463 с.
Автоматизированные информационные технологии в экономике: Учебник /Под ред. проф. Г.А. Титоренко.-М.: Компьютер, ЮНИТП, 2007 – 400 с.
Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. М: Гелиос АРВ, 2009-592 с
Мишенин, А.И. Теория экономических информационных систем: Учеб. для вузов / А.И. Мишенин.- 4-е изд., доп. и перераб. -М. : Финансы и статистика, 2001. - 240 с. : ил.
Вендров А.М. CASEтехнологии. Современные методы и средства проектирования информационных систем. М.: Финансы и статистика, 2000
Липаев В.В Управление разработкой программных средств. Методы, стандарты, технология. – М.: Финансы и статистика, 1993.
Оскерко В.С., Пунчик З.В. Практикум по технологиям баз данных. – Мн.: “БГЭУ”, 2004. – 170 с.
Паронжанов С. Объектно-ориентированные средства анализа, проектирования и реинжениринга информационных систем. – М.: Учебные материалы конференции «Индустрия программирования 96». 1996 г. с.117-123.
Никитин А.В., Рачковская И.А., Савченко И.В. Управление предприятием (фирмой) с использованием информационных систем: Уч. пособие. - М.: Инфра-М, 2007.
Липунцов Ю.П. Управление процессами Методы управления предприятием с использованием информационных технологий. М.: ДМК-Пресс: Компания АйТи, 2003.
Информационные технологии управления: Уч. пособие для вузов/ Под ред. проф. Г.А. Титоренко. -2-е изд., М.: ЮНИТИ, 2003.
Коротков А.В. Интегрированные информационные системы в бизнесе. - М.: 2006.
Фаронов В.В. Delphi5. Учебный курс.– М.: «Нолидж»,2001г.
Архангельский А.Я. Язык SQL в Delphi5– М.: ЗАО «издательство Бином», 2000г.
Архангельский А.Я. Язык SQL в Delphi7– М.: ЗАО «издательство Бином», 2004г.
Баженова И.Ю. Delphi5. Самаучитель программиста– М.: КУДИЦ– ОБРАЗ,2000г.
Гофман И. Э., Хомоненко А. Д. Delphi5.– СПб.: БХВ-Санкт-Петербург. 2000г.
Кенту М. Delphi5 для профессионалов.-СПб.: Питер, 2001г.-944с.:ил.
Кандзюба С.П., Громов В.Н. Delphi 6.Базы данных и приложения. Лекция и упражнения.-К.: издательство «ДиаСофт» 2001г.
Томас Коннолли, Каролин Бегг, Анна Страган. Базы данных: проектирование, реализация и сопровождение. Теория и практика, 2-е изд.: Пер. с англ.: Уч. пос: - М.: издательский дом «Вильямс», 2000г.
Бобровский С. В. Delphi7. Учебный курс– СПб: Питер, 2008г.
Михаил Фленов “Библия DELPHI” -. Санкт-Петербург , 2004г.
Фаронов В.В., Шумаков П.В. Delpi7. Руководство разработчика базы данных– М.: «Нолидж», 2007г.
Delphi 7. Основы программирования. Решение типовых задач. Самоучитель: Л. М. Климова — Москва, КУДИЦ-Образ, 2006 г.- 480 с.
Delphi в задачах и примерах (+ CD-ROM): Никита Культин — Санкт-Петербург, БХВ-Петербург, 2008 г.- 288 с.
Delphi. Профессиональное программирование: Дмитрий Осипов — Санкт-Петербург, Символ-Плюс, 2006 г.- 1056 с.
Turbo Delphi для новичков и не только: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.
Основы программирования в интегрированной среде DELPHI: А. Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.
Основы программирования в интегрированной среде Delphi. Практикум: А. Желонкин — Санкт-Петербург, Бином. Лаборатория знаний, 2006 г.- 240 с.
Приемы программирования в Delphi на основе VCL (+ CD-ROM): А. Я. Архангельский — Санкт-Петербург, Бином-Пресс, 2009 г.- 944 с.
Программируем в Turbo Delphi: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.
Разработка приложений Microsoft Office 2007 в Delphi: Юрий Магда — Санкт-Петербург, БХВ-Петербург, 2009 г.- 160 с.
И. Ю. Баженова Delphi 7. Самоучитель программиста, Издательство: КУДИЦ-Образ, 2003г., с 448
Попов В.В. Программирование в Delphi. Оптимальный подход, Век, 2005.-150 с.
Қосымша
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, excelxp,comobj,jpeg, ExtCtrls, Menus,
sSkinManager;
type
TfmMain = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N18: TMenuItem;
Image1: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
k:integer;
implementation
uses uPrice, uDM, uStore, uOrderList, UOrder, uClients, uMenegers, uStaff,
uStat, uAbout, uRequizit, uSpec;
{$R *.dfm}
procedure TfmMain.BitBtn1Click(Sender: TObject);
begin
fmPrice.ShowModal;
end;
procedure TfmMain.FormCreate(Sender: TObject);
begin
k:=4;
end;
procedure TfmMain.BitBtn2Click(Sender: TObject);
begin
fmstore.ShowModal;
end;
procedure TfmMain.BitBtn4Click(Sender: TObject);
begin
fmOrderList.ShowModal;
end;
procedure TfmMain.BitBtn3Click(Sender: TObject);
begin
fmOrder.ShowModal;
end;
procedure TfmMain.N5Click(Sender: TObject);
begin
fmClients.ShowModal;
end;
procedure TfmMain.N6Click(Sender: TObject);
begin
fmMenegers.ShowModal;
end;
procedure TfmMain.N7Click(Sender: TObject);
begin
fmStaff.ShowModal;
end;
procedure TfmMain.N14Click(Sender: TObject);
begin
fmOrder.ShowModal;
end;
procedure TfmMain.N10Click(Sender: TObject);
begin
fmstore.ShowModal;
end;
procedure TfmMain.N11Click(Sender: TObject);
begin
fmPrice.ShowModal;
end;
procedure TfmMain.N13Click(Sender: TObject);
begin
fmOrderList.ShowModal;
end;
procedure TfmMain.N3Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TfmMain.BitBtn5Click(Sender: TObject);
begin
fmstat.ShowModal;
end;
procedure TfmMain.N18Click(Sender: TObject);
begin
fmabout.ShowModal
end;
procedure TfmMain.N9Click(Sender: TObject);
begin
fmrequizit.ShowModal
end;
procedure TfmMain.N8Click(Sender: TObject);
begin
fmspec.ShowModal;
end;
end.
unit uMenegers;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, excelxp,comobj,DBCtrls, Grids, DBGrids, ExtCtrls;
type
TfmMenegers = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMenegers: TfmMenegers;
implementation
uses uDM;
{$R *.dfm}
procedure TfmMenegers.BitBtn2Click(Sender: TObject);
var
i: integer;
Excel,WorkBook,Sheet: Variant;
{iIndex: OleVariant;}
begin
// Загружаем Excel
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add(extractfiledir(application.ExeName)+'\Шаблоны\otchet6.xlt');
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:='Менеджерлер';
dm.tbMahagers.First;
i:=4;
while not dm.tbMahagers.Eof do
begin
i:=i+1;
excel.run('add1');
Sheet.Cells[i,1].value:= dm.tbMahagersN.Value;
Sheet.Cells[i,2].value:=dm.tbMahagersDSDesigner.Value;
Excel.Range[Excel.Cells[i+1,3],Excel.Cells[i+1,3]].Select;
dm.tbMahagers.Next;
end;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[i, 2]].Select;
Excel.Selection.Font.Bold:=false;
Excel.Selection.HorizontalAlignment:=2;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[4, 2]].Select;
Excel.Selection.Font.Bold:= true;
Sheet.Cells[3,2].value:=date;
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
Excel:=Unassigned;
WorkBook:=Unassigned;
Sheet:=Unassigned;
end;
end.
unit uStat;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, TeeProcs, Chart, DbChart, ComCtrls, ExtCtrls,
DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;
type
TfmStat = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DTP1: TDateTimePicker;
Panel3: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
dstStatEmp: TADODataSet;
dstStatEmpDSDesigner: TWideStringField;
dstStatEmpDSDesigner2: TFloatField;
DBChart1: TDBChart;
Series1: TPieSeries;
DBChart2: TDBChart;
Series2: THorizBarSeries;
DBChart3: TDBChart;
Series3: TBarSeries;
DBChart4: TDBChart;
Series4: TPieSeries;
BitBtn1: TBitBtn;
DTP2: TDateTimePicker;
procedure FormShow(Sender: TObject);
procedure DTP1Change(Sender: TObject);
procedure DTP2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStat: TfmStat;
implementation
uses uDM;
{$R *.dfm}
procedure TfmStat.FormShow(Sender: TObject);
begin
dbchart1.Series[0].XLabelsSource:='ФИО';
end;
procedure TfmStat.DTP1Change(Sender: TObject);
var s:string;
begin
dm.dstStatEmp.Active:=false;
dm.dstStatClientSum.Active:=false;
dm.dstStatOrderSum.Active:=false;
dm.dstStatEmp.Parameters.ParamByName('pDate1').Value := dtp1.date;
dm.dstStatClientSum.Parameters.ParamByName('pDate1').Value := dtp1.date;
s:=datetostr(dtp1.Date);
s:=copy(s,4,7);
dm.dstStatOrderSum.Parameters.ParamByName('pDate1').Value := s;
dm.dstStatEmp.Active:=true;
dm.dstStatClientSum.Active:=true;
dm.dstStatOrderSum.Active:=true;
dm.dstStatJobs.Active:=false;
dm.dstStatJobs.Parameters.ParamByName('pDate1').Value := s;
dm.dstStatJobs.Active:=true;
end;
procedure TfmStat.DTP2Change(Sender: TObject);
var s:string;
begin
dm.dstStatEmp.Active:=false;
dm.dstStatClientSum.Active:=false;
dm.dstStatOrderSum.Active:=false;
dm.dstStatEmp.Parameters.ParamByName('pDate2').Value := datetostr(dtp2.date);
dm.dstStatClientSum.Parameters.ParamByName('pDate2').Value := datetostr(dtp2.date);
s:=datetostr(dtp2.Date);
s:=copy(s,4,7);
dm.dstStatOrderSum.Parameters.ParamByName('pDate2').Value := s;
dm.dstStatEmp.Active:=true;
dm.dstStatClientSum.Active:=true;
dm.dstStatOrderSum.Active:=true;
dm.dstStatJobs.Active:=false;
dm.dstStatJobs.Parameters.ParamByName('pDate2').Value := s;
dm.dstStatJobs.Active:=true;
end;
end.
unit uStaff;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, excelxp,comobj,Buttons, DBCtrls, Grids, DBGrids, ExtCtrls;
type
TfmStaff = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStaff: TfmStaff;
implementation
uses uDM;
{$R *.dfm}
procedure TfmStaff.BitBtn2Click(Sender: TObject);
var
i: integer;
Excel,WorkBook,Sheet: Variant;
{iIndex: OleVariant;}
begin
// Загружаем Excel
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add(extractfiledir(application.ExeName)+'\Шаблоны\otchet5.xlt');
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:='Жұмысшылар';
dm.tbStaff.First;
i:=4;
while not dm.tbStaff.Eof do
begin
i:=i+1;
excel.run('add1');
Sheet.Cells[i,1].value:= dm.tbStaffN.Value;
Sheet.Cells[i,2].value:=dm.tbStaffDSDesigner.Value;
Sheet.Cells[i,3].value:=dm.tbStaffsSpec.Value;
Excel.Range[Excel.Cells[i+1,3],Excel.Cells[i+1,3]].Select;
dm.tbStaff.Next;
end;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[i, 3]].Select;
Excel.Selection.Font.Bold:=false;
Excel.Selection.HorizontalAlignment:=2;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[4, 3]].Select;
Excel.Selection.Font.Bold:= true;
Sheet.Cells[3,3].value:=date;
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
Excel:=Unassigned;
WorkBook:=Unassigned;
Sheet:=Unassigned;
end;
end.
unit uOrderList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, excelxp,comobj,ExtCtrls, StdCtrls, Buttons, DBCtrls, ComCtrls;
type
TfmOrderList = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
DTP1: TDateTimePicker;
DTP2: TDateTimePicker;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
Label1: TLabel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
DBNavigator1: TDBNavigator;
procedure CheckBox4Click(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBLookupComboBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure DTP1Click(Sender: TObject);
procedure DTP2Click(Sender: TObject);
procedure DTP2Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmOrderList: TfmOrderList;
s1,s2,s3,s4:string;
implementation
uses uDM, DB, uClients, uStaff, uMenegers, UOrder;
{$R *.dfm}
procedure TfmOrderList.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then s3:='КлиентID='+''''+dm.tbClientsID.AsString+''''
else s3:='';
label1click(Sender);
end;
procedure TfmOrderList.DBLookupComboBox1Click(Sender: TObject);
begin
dm.tbClients.Locate('ФИО_Наименование',dblookupcombobox1.Text,[]);
checkbox4Click(sender);
end;
procedure TfmOrderList.FormCreate(Sender: TObject);
begin
s1:='';
s2:='';
s3:='';
s4:='';
end;
procedure TfmOrderList.DBLookupComboBox2Click(Sender: TObject);
begin
dm.tbMahagers.Locate('ФИО',dblookupcombobox2.Text,[]);
checkbox3Click(sender);
end;
procedure TfmOrderList.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then s4:='МенеджерID='+''''+dm.tbMahagersN.AsString+''''
else s4:='';
label1click(Sender);
end;
procedure TfmOrderList.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then s1:='ДатаПриема>='+''''+datetostr(dtp1.dATE)+''''
else s1:='';
label1click(Sender);
end;
procedure TfmOrderList.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then s2:='ДатаПриема<='+''''+datetostr(dtp2.dATE)+''''
else s2:='';
label1click(Sender);
end;
procedure TfmOrderList.DTP1Click(Sender: TObject);
begin
checkbox1Click(sender);
end;
procedure TfmOrderList.DTP2Click(Sender: TObject);
begin
checkbox2Click(sender);
end;
procedure TfmOrderList.DTP2Change(Sender: TObject);
begin
checkbox2Click(sender);
end;
procedure TfmOrderList.Label1Click(Sender: TObject);
var
a1,a2,a3,s:string;
begin
a1:='';a2:='';a3:='';
if s1<>'' then
begin
s:=s+s1;
end;
if s2<>'' then
begin
if s<>'' then s:=s+' and '+s2 else s:=s+s2;
end;
if s3<>'' then
begin
if s<>'' then s:=s+' and '+s3 else s:=s+s3;
end;
if s4<>'' then
begin
if s<>'' then s:=s+' and '+s4 else s:=s+s4;
end;
label1.Caption:=s;
dm.dstOrders.Filter:=s;
dm.dstOrders.Filtered:=true;
end;
procedure TfmOrderList.BitBtn2Click(Sender: TObject);
var
i: integer;
Excel,WorkBook,Sheet: Variant;
s:string;
{iIndex: OleVariant;}
begin
try
Excel:=CreateOleObject('Excel.Application'); // для остальных
except
Excel:=CreateOleObject('Excel.Application.10'); // для Office XP
end;
Excel.SheetsInNewWorkbook:=1;
WorkBook:=Excel.WorkBooks.Add(extractfiledir(application.ExeName)+'\Шаблоны\otchet3.xlt');
Sheet:=WorkBook.WorkSheets[1];
Sheet.Name:='Тапсырыстар';
dm.dstOrders.First;
i:=4;
while not dm.dstOrders.Eof do
begin
i:=i+1;
excel.run('add1');
Sheet.Cells[i,1].value:= dm.dstOrders.FieldByName('NЗаказа').Value;
s:=dm.dstOrdersDSDesigner.AsString;
Sheet.Cells[i,2].value:= s;
s:=dm.dstOrdersDSDesigner2.AsString;
Sheet.Cells[i,3].value:=s;
Sheet.Cells[i,4].value:= dm.dstOrders.FieldByName('Сумма').Value;
Sheet.Cells[i,5].value:=dm.dstOrdersKlient.Value;
Sheet.Cells[i,6].value:=dm.dstOrdersmeneger.Value;
Sheet.Cells[i,7].value:=dm.dstOrdersRabotnik.Value;
Excel.Range[Excel.Cells[i+1,3],Excel.Cells[i+1,3]].Select;
dm.dstOrders.Next;
end;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[i, 7]].Select;
Excel.Selection.Font.Bold:=false;
Excel.Range[Excel.Cells[4, 1], Excel.Cells[4, 7]].Select;
Excel.Selection.Font.Bold:= true;
Excel.Selection.HorizontalAlignment:=2;
Sheet.Cells[3,5].value:=date;
Excel.Visible:=True;
Excel.ScreenUpdating:=true;
Excel:=Unassigned;
WorkBook:=Unassigned;
Sheet:=Unassigned;
end;
procedure TfmOrderList.BitBtn4Click(Sender: TObject);
begin
fmClients.ShowModal;
end;
procedure TfmOrderList.BitBtn6Click(Sender: TObject);
begin
fmStaff.ShowModal;
end;
procedure TfmOrderList.BitBtn5Click(Sender: TObject);
begin
fmMenegers.ShowModal;
end;
procedure TfmOrderList.BitBtn1Click(Sender: TObject);
begin
fmOrder.ShowModal;
end;
end.
Достарыңызбен бөлісу:
