Диплом жобасының өзектілігі



бет11/11
Дата31.07.2020
өлшемі0,96 Mb.
#75849
түріДиплом
1   2   3   4   5   6   7   8   9   10   11
Байланысты:
теория

МЕНЕДЖЕРЛЕР




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 типті дербес компьютер қажет деп айтқанбыз.

Компьютерде жұмыс жасау кезінде адамға келетін қауіп факторларын берейік:


  • шудың жоғары деңгейінің болуы;

  • сыртқы ортаның температурасының жоғары деңгейі;

  • электр тоғы;

  • қажетті жарықтанбау;

Көптеген адамдар компьютермен жұмыс жасау барысында келесідей салмақтарды қабылдайды:

  • ойлау салмағы;

  • көру салмағы;

  • дыбыстық анализаторлар салмағы;

  • жұмыстың бірқалыптылығы;

  • эмоциялық салмақ;

Үстіде айтылған қауіпті факторлар әсерінен жұмыс қарқындылығы төмендейді. Мысалы, қатты дыбыс – түстік сигналдарды айыруды төмендетеді, түсті тез қабылдауды төмендетеді, визуальды ақпаратты қабылдауды төмендетеді, координированды қозғалыстың тез және дәлдігін төмендетеді.

Қайсібір есептеу орталықтарында медициналық зерттеулер жүргізу барысында шу, сонымен қатар есту қабілетін төмендететінін анықтады.

Компьютерлерді қолданатын орталықтардың жұмысшылары арасындағы травматизге талдау жасайтын болсақ, көп қолайсыз жағдайлар техникалық ережелерді қадағаламаудан туындайды. Сонымен қатар, электр тоғының адамға әсері көп кездеседі.

Қажетсіз жылу бөлу көздері:



  • Адамдардың жылу бөлу көздері;

  • Күннің радиациясынан бөлінген жылу;

  • Қолдан жарықтандыру жүйесі бөлетін жылу;

  • ЭЕМ жылуы;

Қыздырылған беттер жылуы.

Температураның көтерілуі адам жұмысының қарқындылығын төмендетеді.

Метеорологиялық шарттар түсінігі – температураның ылғалдылығымен, қозғалыс жылдамдығымен және ауа шаңдығы қосылысымен сипатталады.

Үстідегі параметрлер адамның функционалдық қызметіне кері әсерін тигізеді, сонымен қатар есептеуіш техниканың жұмыс жасауына кері әсер етеді. Әсіресе, микроклиматқа есептеуіш машиналар тұрған бөлмедегі жылу бөліну үлкен әсер береді, яғни ДЭЕМ, қосымша құрылғылар, жарықтандыру құралдары.

Осы айтылған кері әсерлердің алдын алу үшін есептеуіш орталықтарын желдету қажет. Есептеуіш орталықтарын желдету жүйесін жасау кезінде ауаны үлестіру үшін кеңістіктің еден астын және жоғарғы қабырғаларын пайдаланамыз. Есептеуіш орталықтарында қазіргі кезде екі түрлі желдеткіш жүйесін кездестіруге болады. Салқындату және кондиционированды жүйелер – олар сәйкесінше автономды және автономды емес желдеткіштерді қолданады. Ауаны желдету жүйелерін қондырудың негізгі мақсаты: машиналық залда ауа параметрлерін қажетті деңгейде ұстап тұру.

Өндірістік жарықтандыру жүйесіне келесідей талаптар қойылады:



  • Көріністік жұмыстың орындалу характеріне сәйкес жұмыс үстелінің қажетті жарықтануы;

  • Қоршаған орта мен жұмыс бетінде жарықтың тең үлестірімі;

  • Тездік көлеңкелер, тіке және шағылысу сәулелерінің болмауы;

  • Жарықтандыру қралдарынан шығатын сәулелер ағынының тиімді бағытталуы;

  • Барлық уақыт бойы жарықтану;

  • Ұзақтылық, электр және өрт қауіпсіздігі, қарапайымдылық.

  • Сонымен қатар, электр қауіпсіздігін сақтау үшін қорғаныс жерлендіруі жүргізілуі керек.

Қорытынды

Автоматтандырылған жұмыс орнын құру экономикалық объекттің өндірісінің тиімділігін және басқарудың сапасын қамтамасыз етеді. Автоматтандырылған жұмыс орны жоғары тиімділігіне кәсіпорындар, фирмалар және ұйымдар жұмысының жоспарын оптимизациялау, шұғыл шешімдерді тез қабылдау, материалдық және қаржылық ресурстарды нақты қалыптастыру кезінде жетеді. Сондықтан орны функционалдау жағдайында басқару процесі экономикалы - ұйымдастырушылық модельдерге негізделген.

Автоматтандырылған жұмыс орнын құру тәжірибесі, өндірістік-шаруашылық процестердің жағдайларын формализациялау, мемлекеттік және коммерциялық құрылымдардың есептеуіш құралдармен жабдықтау басқарудағы ақпараттық процестердің технологиясының түпкілікті түрде өзгерткен.

Диплом жобасын орындау барысында нәтижесінде Автоматтандырылған жұмыс орны, автоматтандырылған ақпараттық технология, экономикалық ақпараттық жүйе, оның құрылымы, сипаты ашылып, анықтамасы берілді.

Диплом жобасының нәтижесінде ағаш-ұста шеберханасының материалдары анықтамаларын жүргізу, қызметтері прейскурантын ұсыну, қоймадағы материалдардың барлығын есепке алу, жұмыс атқаруға тапсырыс қабылдау, клиент тапсырыстар журналын жүргізу, диаграммалар сияқты функцияларды атқарылды. Ол өзіне енгізілген функцияларды орындауға және әрбір қолданушыға қолайлы. Ойластырғандай-ақ, ол менеджерлердің еңбегін жеңілдетеді және де өңдеушілердің икемді өзіндік басшылығы бола алады.

Берілген жүйеде, кез келген өнімдегідей даму жолдары қарастырылған. Осындай жолмен жүйенің қорытындыларына қарамай оны жаңалауға болады. Қосымша материал қосу арқылы және қолданбалы интерфейсті өзгерту арқылы жаңарту жолдары да бар.

Жұмыстың негізгі нәтижесі болып табылатын функционалдық ДҚБЖ, ол қажетті тапсырмаларды орындайды. Көзделген жобаның іске асырылуы мықты құралдардың көмегінсіз-ақ мәліметтер қорымен жүзеге асады.

Деректер қорында сақталған ақпараттарға қол жеткізу әдістерінің жүзеге асырылуына қажетті жұмыс мөлшері, оның жетілдірілуі, мәліметтер қорында сақталуы қолданушыларға оны білу міндетті емес, оның себебі пайда болған тапсырмаларды шешу үшін және оларды мәліметтер қорында сақталған ақпараттарды қолданумен байланысында. Программалық интерфейс жұмысты максимальды түрде жеңілдетеді. ДҚБЖ орындайтын барлық функциялар ұқыпты түрде сарапталған және тексерілген, өңдеу процесінде олардың жұмыстары кепілдендірілген болып табылады.

Дипплом нәтижесінде құрылған автоматтандырылған жұмыс орнын ешқандай өзгертусіз ағаш-ұста шеберханасында қолдануға болады.



Пайдаланылған әдебиеттер тізімі



  1. К.Кажымұрат, С. Донцов. Совершенствование системы ценообразования в современном строительстве/ Евразийское сообщество 2005, № 1

  2. Информационные системы и технологии в экономике и управлении: уч.пособие/ Под ред. В.В. Трофимова. - М.: Высшее образование, 2007.

  3. Бочаров Е.П., Колдина А.И. Интегрированные корпоративные информационные системы. - М.: Финансы и статистика, 2005.

  4. Информационные системы в экономике.  Под ред. Титоренко Г.А. 2-е изд., перераб. и доп. - М.: Юнити-Дана, 2008. - 463 с.

  5. Автоматизированные информационные технологии в экономике: Учебник /Под ред. проф. Г.А. Титоренко.-М.: Компьютер, ЮНИТП, 2007 – 400 с.

  6. Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. М: Гелиос АРВ, 2009-592 с

  7. Мишенин, А.И. Теория экономических информационных систем: Учеб. для вузов / А.И. Мишенин.- 4-е изд., доп. и перераб. -М. : Финансы и статистика, 2001. - 240 с. : ил. 

  8. Вендров А.М. CASEтехнологии. Современные методы и средства проектирования информационных систем.  М.: Финансы и статистика, 2000

  9. Липаев В.В Управление разработкой программных средств. Методы, стандарты, технология. – М.: Финансы и статистика, 1993.

  10. Оскерко В.С., Пунчик З.В. Практикум по технологиям баз данных. – Мн.: “БГЭУ”, 2004. – 170 с.

  11. Паронжанов С. Объектно-ориентированные средства анализа, проектирования и реинжениринга информационных систем. – М.: Учебные материалы конференции «Индустрия программирования 96». 1996 г. с.117-123.

  12. Никитин А.В., Рачковская И.А., Савченко И.В. Управление предприятием (фирмой) с использованием информационных систем: Уч. пособие. - М.: Инфра-М, 2007.

  13. Липунцов Ю.П. Управление процессами Методы управления предприятием с использованием информационных технологий. М.: ДМК-Пресс: Компания АйТи, 2003.

  14. Информационные технологии управления: Уч. пособие для вузов/ Под ред. проф. Г.А. Титоренко. -2-е изд., М.: ЮНИТИ, 2003.

  15. Коротков А.В. Интегрированные информационные системы в бизнесе. - М.: 2006.

  16. Фаронов В.В. Delphi5. Учебный курс.– М.: «Нолидж»,2001г.

  17. Архангельский А.Я. Язык SQL в Delphi5– М.: ЗАО «издательство Бином», 2000г.

  18. Архангельский А.Я. Язык SQL в Delphi7– М.: ЗАО «издательство Бином», 2004г.

  19. Баженова И.Ю. Delphi5. Самаучитель программиста– М.: КУДИЦ– ОБРАЗ,2000г.

  20. Гофман И. Э., Хомоненко А. Д. Delphi5.– СПб.: БХВ-Санкт-Петербург. 2000г.

  21. Кенту М. Delphi5 для профессионалов.-СПб.: Питер, 2001г.-944с.:ил.

  22. Кандзюба С.П., Громов В.Н. Delphi 6.Базы данных и приложения. Лекция и упражнения.-К.: издательство «ДиаСофт» 2001г.

  23. Томас Коннолли, Каролин Бегг, Анна Страган. Базы данных: проектирование, реализация и сопровождение. Теория и практика, 2-е изд.: Пер. с англ.: Уч. пос: - М.: издательский дом «Вильямс», 2000г.

  24. Бобровский С. В. Delphi7. Учебный курс– СПб: Питер, 2008г.

  25. Михаил Фленов “Библия DELPHI” -. Санкт-Петербург , 2004г.

  26. Фаронов В.В., Шумаков П.В. Delpi7. Руководство разработчика базы данных– М.: «Нолидж», 2007г.

  27. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель: Л. М. Климова — Москва, КУДИЦ-Образ, 2006 г.- 480 с.

  28. Delphi в задачах и примерах (+ CD-ROM): Никита Культин — Санкт-Петербург, БХВ-Петербург, 2008 г.- 288 с.

  29. Delphi. Профессиональное программирование: Дмитрий Осипов — Санкт-Петербург, Символ-Плюс, 2006 г.- 1056 с.

  30. Turbo Delphi для новичков и не только: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.

  31. Основы программирования в интегрированной среде DELPHI: А. Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.- 240 с.

  32. Основы программирования в интегрированной среде Delphi. Практикум: А. Желонкин — Санкт-Петербург, Бином. Лаборатория знаний, 2006 г.- 240 с.

  33. Приемы программирования в Delphi на основе VCL (+ CD-ROM): А. Я. Архангельский — Санкт-Петербург, Бином-Пресс, 2009 г.- 944 с.

  34. Программируем в Turbo Delphi: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.

  35. Разработка приложений Microsoft Office 2007 в Delphi: Юрий Магда — Санкт-Петербург, БХВ-Петербург, 2009 г.- 160 с.

  36. И. Ю. Баженова Delphi 7. Самоучитель программиста, Издательство: КУДИЦ-Образ, 2003г., с 448

  37. Попов В.В. Программирование в 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

// Загружаем 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)+'\Шаблоны\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.



Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10   11




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет