Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Казахский университет технологии и бизнеса

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Diplomdyk_zhumys_IE.docx

Скачиваний:

Добавлен:

01.07.2025

Размер:

482.77 Кб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 1415 / 1515

5.4 Еңбекті қорғау және техника қауіпсіздігі бойынша қорытынды

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

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

Қорыта келгенде, бұл заңнамалардың толық сақталуы заңға сәйкес жүргізілуі тиіс. Әрбір мекеме, әрбір өндіріс орнының қауіпсіздік кепілі - қауіпсіздік техникасының қатаң сақталуы. Ұсынып отырған жұмыста санитарлық ережелерінің қатаң түрде реттелуі адам денсаулығы мен қауіпсіздігінің сақталуына кепіл болады

ҚОРЫТЫНДЫ

Дипломдық жұмысты есептеу техникасын жөндеу және сату бизнесі автоматтандырылды. Бұл жұмыста келген тауарларды сату, қабылдау, клиенттерге қызмет көрсету жұмыстары және сатылған тауар мен жөндеу жұмыстары бойынша есептер жасалынған. Нақтырақ айтатын болсақ, Delphi ортасының кіші кәсіпорындар жұмысын автоматтандырудағы мүмкіндіктері, мәліметтер қорын құру туралы қарастырылды. Мәліметтер қорына рұқсат алу механизмдері және олардың ерекшеліктері жайлы айтылды. Сонымен қатар жобаның структурасы, жобаға қатысты мәліметтер қорын құрастыру жолдары және жобаның техникалық мінездемелері, жөндеу жұмыстарынан түсетін табыс пен оларға кеткен шығын бойынша, сатылған тауар бойынша есеп құрастырылды.

Ақпараттық коммуникациялық технологиялардың қарқынмен дамып, күнделікті тұрмысқа енуіне байланысты соңғы кездері программалауға деген қызығушылықтың арта түскені белгілі. Қазіргі уақытта компьютерсіз қандай да бір жұмыс орындауды көз алдымызға елестету қиын. Бұл компьютермен жұмыс істейтін адамға қандай да бір ұмтылысты тудыруы мүмкін. Есептеуіш техниканың қарқынмен дамуы тиімді программалық құралдарды жасау – объектілі бағдарланған программалау жүйелерінің жасалуына әкелді.

Қазіргі кезде кейбір компьютерлер дүкендеріне баратын болсақ, онда әркім өзінің прайс-беттерін ұсынып, алған заттарыңды соған белгілеп отырады. Тағы бір кемшілігін айтсақ, Word мәтіндік редакторында кесте құрып жұмыс істеп отырғанын көреміз. Сол себепті бұл жоба осындай қазіргі кездегі кемшіліктерді жоюға бағыттап құрастырылды. Дипломдық жұмыста тауарларды сату кезінде кепілдік беру, үйге жеткізіп салу және жеңілдіктер беру автоматтандырылды.

Delphi ортасы әртүрлі программалар құруға мүмкіндік береді: қарапайым бір терезелік қосымшалардан бастап, үлестірілген мәліметтер қорын басқару программаларына дейін. Зерттелген бұл жұмыста компьютерлер құрылғыларын сату және оларды жөндеу шеберханасының мәселелерін Delphi программалау тілінің көмегімен шешуге келетініне көз жеткізілді.

ПAЙДAЛAНЫЛҒAН ӘДEБИEТТEP ТIЗIМI

Конопка Р. «Создание оригинальных компонентов в среде Delphi». Пер.с англ Рей. К.: НИПФ «Диа Софт ЛТД», 1996.-152 с.
Архангельский А.Я. Delphi 6. Справочное пособие. – М.,ЗАО «Издательство Бином», 2001
сайт: www.PowerBuilder.sbn... «Учебник по Delphi 7 для начинающих»
Бобровский С. Delphi и Kylix: библиотека программиста. – юб Питер, 2002
Вирт Н. Алгоритмы и структуры данных / Пер. с англ. — М.: Мир, 1989. - 360 с., ил.
Гринзоу Лу. Философия программирования для Windows 95/NT / Пер. с англ. — СПб.: Символ-Плюс, 1997. — 640 с., ил.
Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения / Пер. с англ. — М.: Мир, 1982. — 386 с., ил.
Практическое руководство по программированию / Пер. с англ. Б. Мик, П. Хит, Н. Рашби и др.; под ред. Б. Мика, П. Хит, Н. Рашби. — М.: Радио и связь, 1986. — 168 с., ил.
Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. — М.: Мир, 1985. - 368 с., ил.
Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочки-на. — М.: Мир, 1989. ~ 240 с., ил.
Бородаев В.А., Кустов В.Н. «Банки и азы данных»
В. Фаронов. Объектно –ориентированная среда Delphi. Версия 6. Учебное пособие. 2002
Велихов А.В. «Основы информатики и компьютерной техники»
Глушаков «Программирование в среде Delphi»
Давыдова Е. И., Балаханов В. А. «Создание базовых элементов интерфейса Windows программы в среде Delphi». Информатика и образование №4,5,6. 2002.
Хомоненко А.Д. Базы данных: Учебник для высших учебных заведений / А.Д. Хомоненко. – СПб.: КОРОНА принт,2004.-736 с.
Малыхина М.П. Базы данных: основы, проектирование, использование 2- е издание,учебное пособие Санкт – Петербург, «БХВ –Петербург», 2006, - 528с.
Информатика: Учебник /Под редакцией профессора Н.В.Макаровой. – М.: Москва, Финансы и статистика, 1997. – 768 с.
Жантасова Ж.З. Системы управления базами данных. Методические указания / Издательство ВКГУ. – Усть-Каменогорск, 2003. – 78 с.
Фридланд А.Я. Информатика: процессы, системы, ресурсы / А.Я. Фридланд. – М.:БИНОМ. Лаборатория знаний, 2003. -232 с.
Могилев А.В. Информатика / А.В. Могилев, Н.И. Пак, Е.К. Хеннер, - М.: изд. Академия, 2001.
Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7. – СПб., БХВ-Петербург, 2003
К.З. Халыкова, А.Р. Тұрғанбаева, Б.Ғ. Бостанов « Программалау тілдерін оқыту». Алматы 2005
Культин Н.Б. Основы прораммирования в Delphi 7. - СПб., БХВ- Петербург, 2003
Под редакция Хомоненко А.Д. « В Базе данных»
Под редакция Хомоненко А.Д. « Основы современной компьютерной технологии»
Фаронов «Программирование баз данных DELPHI»
Иллюстрированный самоучитель по Delphi для профессионалов

ҚОСЫМША

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button2: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: 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;

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure summa2Click(Sender:TObject);

procedure N12Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

summ2:integer;

implementation

uses Unit2, Unit37, Unit36, Unit34, Unit4, Unit3, Unit35, Unit20, Unit38,

Unit8, Unit9;

{$R *.dfm}

procedure TForm1.summa2Click(Sender:TObject);

begin

summ2:=0;

with form3.Table2 do

begin

First;

repeat

summ2:=summ2+strtoint(form3.Table2['Kuni']);

until not FindNext;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form34.show

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form36.Show

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form2.Show

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form3.show

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form37.Show

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form20.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form1.summa2Click(Form3.Table2);

form35.QRLabel1.Caption:=inttostr(summ2);

form35.QuickRep1.Preview;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form9.show

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,

ComCtrls, Buttons;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

Label1: TLabel;

Label4: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBEdit1: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

Button1: TButton;

BitBtn1: TBitBtn;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label2: TLabel;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

GroupBox1: TGroupBox;

Label6: TLabel;

Label7: TLabel;

Edit3: TEdit;

Edit4: TEdit;

BitBtn2: TBitBtn;

Label5: TLabel;

Label8: TLabel;

Edit1: TEdit;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

summ,summ1,summ2,data:integer;

implementation

uses Unit3, Unit4, Unit5, Unit20, Unit34, Unit35, Unit36, Unit1, Unit6,

Unit7, Unit8, Unit19, Unit18, Unit17, Unit16, Unit15, Unit14, Unit13,

Unit12, Unit11, Unit10, Unit9, Unit38, Unit37;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

if (DBLookupComboBox1.ListFieldIndex<>-1)then

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+DBLookupComboBox1.Text+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

end;

procedure TForm2.Button2Click(Sender: TObject);

var a:real; s:real;

begin

if (DBLookupComboBox1.ListFieldIndex<>-1)

then

begin

s:=strtofloat(DBEdit1.Text)*(strtofloat(edit1.Text));

a:=(s/strtofloat(edit2.Text));

edit4.Text:=floattostr(s);

edit3.Text:=floattostr(a);

if checkbox1.Checked=true then

begin

s:=s-(s*5/100);

a:=a-(a*5/100);

edit4.Text:=floattostr(s);

edit3.Text:=floattostr(a);

end;

form2.Table1.Edit;

form2.Table1['Sani']:=inttostr(strtoint(form2.Table1['Sani'])-strtoint(edit1.Text));

if form2.Table1['Sani']=0 then showmessage ('Бұл тауар қоймада таусылды!');

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

form37.Table1.Insert;

form37.Table1['Data']:=form2.DateTimePicker1.Date;

form37.Table1['Markalari']:=form2.DBLookupComboBox2.Text;

form37.Table1['Vidtovara']:=form2.DBLookupComboBox1.Text;

form37.Table1['Sani']:=form2.Edit1.Text;

form37.Table1['Kuni']:=form2.DBEdit1.Text;

form37.Table1['Summa']:=form2.Edit4.Text;

form37.Table1.Post;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

form4.Show

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

form2.Hide;

form1.Show;

end;

procedure TForm2.CheckBox2Click(Sender: TObject);

begin

form5.Show;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Mask, StdCtrls,

ComCtrls, Buttons;

type

TForm3 = class(TForm)

Label9: TLabel;

Label10: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

DataSource2: TDataSource;

Table2: TTable;

MonthCalendar1: TMonthCalendar;

Label1: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit5: TEdit;

Edit4: TEdit;

Edit1: TEdit;

Button1: TButton;

Button5: TButton;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure summa9Click(Sender:TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

summ9:integer;

implementation

uses Unit2, Unit34, Unit35, Unit20, Unit1, Unit38, Unit22, Unit39;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

form3.Table2.Insert;

form3.Table2['Fio']:=edit1.Text;

form3.Table2['Adres']:=edit4.Text;

form3.Table2['Tel']:=edit5.Text;

form3.Table2['Data']:=MonthCalendar1.Date;

form3.Table2['Kuni']:=DBEdit1.Text;

form3.Table2['Remont turi']:=form3.DBLookupComboBox1.Text;

form3.Table2.Post;

end;

procedure TForm3.Button5Click(Sender: TObject);

begin

form39.QuickRep1.Preview;

end;

procedure TForm3.summa9Click(Sender:TObject);

begin

summ9:=0;

with form3.Table2 do

begin

First;

repeat

summ9:=summ9+strtoint(form3.Table2['Kuni']);

until not FindNext;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Table2.Filter:='data='+''''+DateToStr(form3.MonthCalendar1.Date)+'''';

Form3.Table2.Filtered:=true;

form3.Table2.Active:=true;

form3.summa9Click(Table2);

form38.QRLabel1.Caption:=inttostr(summ9);

form38.QuickRep1.Preview;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

form3.Hide;

form1.Show;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form3.Table2.Filtered:=false;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

ComCtrls, Mask, Buttons;

type

TForm4 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

MonthCalendar1: TMonthCalendar;

BitBtn2: TBitBtn;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

Label2: TLabel;

Label3: TLabel;

Label8: TLabel;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

Button3: TButton;

Button1: TButton;

procedure BitBtn2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2, Unit1, Unit6;

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

form4.Hide;

form2.Show;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

form4.Table1.Edit;

form4.Table1['Fio']:=form4.Edit3.Text;

form4.Table1['Marka']:=form4.DBLookupComboBox2.Text;

form4.Table1['Vidtovara']:=form4.DBLookupComboBox1.Text;

form4.Table1['Srokgar']:=form4.Edit2.Text;

form4.Table1['Data']:=form4.MonthCalendar1.Date;

form4.Table1['Sani']:=form4.Edit1.Text;

form4.Table1.Post;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

form6.QuickRep1.Preview;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

Buttons;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Table1: TTable;

Edit1: TEdit;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

form5.Table1.Insert;

form5.Table1['Fio']:=edit1.Text;

form5.Table1['Adres']:=edit2.Text;

form5.Table1['Tel']:=edit3.Text;

form5.Table1.Post;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

form2.Show

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

form2.Show;

end;

end.

unit Unit20;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, Buttons;

type

TForm20 = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

RB1: TRadioButton;

RB2: TRadioButton;

RB3: TRadioButton;

RB4: TRadioButton;

RB5: TRadioButton;

RB6: TRadioButton;

RB7: TRadioButton;

RB8: TRadioButton;

RB9: TRadioButton;

RB10: TRadioButton;

RB11: TRadioButton;

RB12: TRadioButton;

DataSource1: TDataSource;

Query1: TQuery;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure summa1Click(Sender:TObject);

procedure summa2Click(Sender:TObject);

procedure summa3Click(Sender:TObject);

procedure summa4Click(Sender:TObject);

procedure summa5Click(Sender:TObject);

procedure summa6Click(Sender:TObject);

procedure summa7Click(Sender:TObject);

procedure summa8Click(Sender:TObject);

procedure summa9Click(Sender:TObject);

procedure summa10Click(Sender:TObject);

procedure summa11Click(Sender:TObject);

procedure summa12Click(Sender:TObject);

procedure RB2Click(Sender: TObject);

procedure RB3Click(Sender: TObject);

procedure RB4Click(Sender: TObject);

procedure RB5Click(Sender: TObject);

procedure RB6Click(Sender: TObject);

procedure RB7Click(Sender: TObject);

procedure RB8Click(Sender: TObject);

procedure RB9Click(Sender: TObject);

procedure RB10Click(Sender: TObject);

procedure RB11Click(Sender: TObject);

procedure RB12Click(Sender: TObject);

procedure summaClick(Sender:TObject);

procedure RB1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

summ,summ1,summ2,summ3,summ4,summ5:integer;

summ6,summ7,summ8,summ9,summ10,summ11,summ12:integer;

implementation

uses Unit21, Unit22, Unit23, Unit24, Unit25, Unit26, Unit27, Unit28,

Unit29, Unit30, Unit31, Unit32, Unit33, Unit2, Unit36, Unit1;

{$R *.dfm}

procedure TForm20.summaClick(Sender:TObject);

begin

summ:=0;

with Query1 do

begin

First;

repeat

summ:=summ+strtoint(Query1['Январь'])+strtoint(Query1['Февраль'])

+strtoint(Query1['Март'])+strtoint(Query1['Апрель'])+strtoint(Query1['Май'])

+strtoint(Query1['Июнь'])+strtoint(Query1['Июль'])+strtoint(Query1['Август'])

+strtoint(Query1['Сентябрь'])+strtoint(Query1['Октябрь'])

+strtoint(Query1['Ноябрь'])+strtoint(Query1['Декабрь']);

until not FindNext;

end;

procedure TForm20.summa1Click(Sender:TObject);

begin

summ1:=0;

with form20.Query1 do

begin

First;

repeat

summ1:=summ1+strtoint(form20.Query1['Январь']);

until not FindNext;

end;

procedure TForm20.summa2Click(Sender:TObject);

begin

summ2:=0;

with form20.Query1 do

begin

First;

repeat

summ2:=summ2+strtoint(form20.Query1['Февраль']);

until not FindNext;

end;

procedure TForm20.summa3Click(Sender:TObject);

begin

summ3:=0;

with form20.Query1 do

begin

First;

repeat

summ3:=summ3+strtoint(form20.Query1['Март']);

until not FindNext;

end;

procedure TForm20.summa4Click(Sender:TObject);

begin

summ4:=0;

with form20.Query1 do

begin

First;

repeat

summ4:=summ4+strtoint(form20.Query1['Апрель']);

until not FindNext;

end;

procedure TForm20.summa5Click(Sender:TObject);

begin

summ5:=0;

with form20.Query1 do

begin

First;

repeat

summ5:=summ5+strtoint(form20.Query1['Май']);

until not FindNext;

end;

procedure TForm20.summa6Click(Sender:TObject);

begin

summ6:=0;

with form20.Query1 do

begin

First;

repeat

summ6:=summ6+strtoint(form20.Query1['Июнь']);

until not FindNext;

end;

procedure TForm20.summa7Click(Sender:TObject);

begin

summ7:=0;

with form20.Query1 do

begin

First;

repeat

summ7:=summ7+strtoint(form20.Query1['Июль']);

until not FindNext;

end;

procedure TForm20.summa8Click(Sender:TObject);

begin

summ8:=0;

with form20.Query1 do

begin

First;

repeat

summ8:=summ8+strtoint(form20.Query1['Август']);

until not FindNext;

end;

procedure TForm20.summa9Click(Sender:TObject);

begin

summ9:=0;

with form20.Query1 do

begin

First;

repeat

summ9:=summ9+strtoint(form20.Query1['Сентябрь']);

until not FindNext;

end;

procedure TForm20.summa10Click(Sender:TObject);

begin

summ10:=0;

with form20.Query1 do

begin

First;

repeat

summ10:=summ10+strtoint(form20.Query1['Октябрь']);

until not FindNext;

end;

procedure TForm20.summa11Click(Sender:TObject);

begin

summ11:=0;

with form20.Query1 do

begin

First;

repeat

summ11:=summ11+strtoint(form20.Query1['Ноябрь']);

until not FindNext;

end;

procedure TForm20.summa12Click(Sender:TObject);

begin

summ12:=0;

with form20.Query1 do

begin

First;

repeat

summ12:=summ12+strtoint(form20.Query1['Декабрь']);

until not FindNext;

end;

procedure TForm20.Button1Click(Sender: TObject);

begin

form20.summaClick(Query1);

form21.QRLabel18.Caption:=inttostr(summ);

form21.QuickRep1.Preview;

end;

procedure TForm20.RB1Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa1Click(Query1);

form22.QRLabel1.Caption:=inttostr(summ1);

form22.QuickRep1.Preview;

end;

procedure TForm20.RB2Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa2Click(Query1);

form23.QRLabel1.Caption:=inttostr(summ2);

form23.QuickRep1.Preview;

end;

procedure TForm20.RB3Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa3Click(Query1);

form24.QRLabel1.Caption:=inttostr(summ3);

form24.QuickRep1.Preview;

end;

procedure TForm20.RB4Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa4Click(Query1);

form25.QRLabel1.Caption:=inttostr(summ4);

form25.QuickRep1.Preview;

end;

procedure TForm20.RB5Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa5Click(Query1);

form26.QRLabel1.Caption:=inttostr(summ5);

form26.QuickRep1.Preview;

end;

procedure TForm20.RB6Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa6Click(Query1);

form27.QRLabel1.Caption:=inttostr(summ6);

form27.QuickRep1.Preview;

end;

procedure TForm20.RB7Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa7Click(Query1);

form28.QRLabel1.Caption:=inttostr(summ7);

form28.QuickRep1.Preview;

end;

procedure TForm20.RB8Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa8Click(Query1);

form29.QRLabel1.Caption:=inttostr(summ8);

form29.QuickRep1.Preview;

end;

procedure TForm20.RB9Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa9Click(Query1);

form30.QRLabel1.Caption:=inttostr(summ9);

form30.QuickRep1.Preview;

end;

procedure TForm20.RB10Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa10Click(Query1);

form31.QRLabel1.Caption:=inttostr(summ10);

form31.QuickRep1.Preview;

end;

procedure TForm20.RB11Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa11Click(Query1);

form32.QRLabel1.Caption:=inttostr(summ11);

form32.QuickRep1.Preview;

end;

procedure TForm20.RB12Click(Sender: TObject);

begin

form20.Query1.Active:=true;

form20.summa12Click(Query1);

form33.QRLabel1.Caption:=inttostr(summ12);

form33.QuickRep1.Preview;

end;

procedure TForm20.Button2Click(Sender: TObject);

begin

form1.show

end;

procedure TForm20.BitBtn2Click(Sender: TObject);

begin

form20.Hide;

form1.Show;

end;

end.

unit Unit34;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, QRCtrls, QuickRpt, ExtCtrls, DB, DBTables, DBCtrls, Grids,

DBGrids, StdCtrls, Buttons;

type

TForm34 = class(TForm)

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Button1: TButton;

Label1: TLabel;

Button2: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

RadioButton7: TRadioButton;

RadioButton8: TRadioButton;

RadioButton9: TRadioButton;

RadioButton10: TRadioButton;

RadioButton11: TRadioButton;

RadioButton12: TRadioButton;

RadioButton13: TRadioButton;

RadioButton14: TRadioButton;

DBGrid1: TDBGrid;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure RadioButton5Click(Sender: TObject);

procedure RadioButton6Click(Sender: TObject);

procedure RadioButton7Click(Sender: TObject);

procedure RadioButton8Click(Sender: TObject);

procedure RadioButton9Click(Sender: TObject);

procedure RadioButton10Click(Sender: TObject);

procedure RadioButton11Click(Sender: TObject);

procedure RadioButton12Click(Sender: TObject);

procedure RadioButton13Click(Sender: TObject);

procedure RadioButton14Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form34: TForm34;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm34.Button1Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Markalari='''+Edit1.Text+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.Button2Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

end;

procedure TForm34.Button3Click(Sender: TObject);

begin

form34.Hide;

form1.show;

end;

procedure TForm34.RadioButton1Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton1.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton2Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton2.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton3Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton3.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton4Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton4.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton5Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton5.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton6Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton6.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton7Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton7.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton8Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton8.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton9Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton9.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton10Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton10.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton11Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton11.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton12Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton12.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton13Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton13.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.RadioButton14Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+RadioButton14.Caption+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm34.BitBtn2Click(Sender: TObject);

begin

form34.Hide;

form1.Show;

end;

end.

unit Unit36;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, Mask,

Buttons;

type

TForm36 = class(TForm)

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

DBLookupComboBox2: TDBLookupComboBox;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

BitBtn2: TBitBtn;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form36: TForm36;

implementation

uses Unit2, Unit34, Unit3, Unit37, Unit1;

{$R *.dfm}

procedure TForm36.Button1Click(Sender: TObject);

begin

form2.Table1.Edit;

form2.Table1['Vidtovara']:=form36.DBLookupComboBox1.Text;

form2.Table1['Markalari']:=form36.DBLookupComboBox2.Text;

form2.Table1['Zavkuni']:=form36.Edit1.Text;

form2.Table1['Kuni']:=form36.Edit2.Text;

form2.Table1['Sani']:=form36.Edit3.Text;

form2.Table1.Post;

end;

procedure TForm36.BitBtn2Click(Sender: TObject);

begin

form36.Hide;

form1.Show;

end;

procedure TForm36.Button2Click(Sender: TObject);

begin

if (DBLookupComboBox1.ListFieldIndex<>-1)then

Form2.Table1.Filtered:=false;

Form2.Table1.Filter:='Vidtovara='''+DBLookupComboBox1.Text+'*'+'''';

Form2.Table1.Filtered:=true;

end;

procedure TForm36.Button3Click(Sender: TObject);

begin

Form2.Table1.Filtered:=false;

end;

end.

unit Unit37;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls,

ComCtrls, Buttons;

type

TForm37 = class(TForm)

DataSource1: TDataSource;

GroupBox1: TGroupBox;

Table1: TTable;

DBNavigator1: TDBNavigator;

Button1: TButton;

DBGrid1: TDBGrid;

Label3: TLabel;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

procedure summaClick(Sender:TObject);

procedure Button1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form37: TForm37;

summ:integer;

implementation

uses Unit36, Unit34, Unit38, Unit3, Unit35, Unit20, Unit21, Unit1, Unit7;

{$R *.dfm}

procedure TForm37.summaClick(Sender:TObject);

begin

summ:=0;

with form37.Table1 do

begin

First;

repeat

summ:=summ+strtoint(form37.Table1['Summa']);

until not FindNext;

end; end;

procedure TForm37.Button1Click(Sender: TObject);

begin

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn2Click(Sender: TObject);

begin

form37.Hide;

form1.Show;

end;

procedure TForm37.BitBtn1Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn1.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn15Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn15.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn3Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn3.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn8Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn8.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn9Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn9.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn6Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn6.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn10Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn10.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn7Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn7.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn13Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn13.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn12Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn12.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn5Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn5.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn16Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

end;

procedure TForm37.BitBtn4Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn4.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn11Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn11.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

procedure TForm37.BitBtn14Click(Sender: TObject);

begin

Form37.Table1.Filtered:=false;

Form37.Table1.Filter:='Vidtovara='''+BitBtn14.Caption+'*'+'''';

Form37.Table1.Filtered:=true;

form37.Table1.Active:=true;

form37.summaClick(form37.Table1);

form7.QRLabel1.Caption:=inttostr(summ);

form7.QuickRep1.Preview;

end;

end.

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 1415 / 1515

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
01.05.202566.62 Кб2Azamatty_1179_1179_1201_1179_y_1179_shpory.docx
#
01.07.2025149.83 Кб2A_1171_yn (1) (2).docx
#
01.07.2025800.34 Кб2bestreferat-365941.docx
#
01.07.2025375.3 Кб2BUKh_VOUD.doc
#
01.07.202574.62 Кб2BU_OGKh-32.docx
#
01.07.2025482.77 Кб2Diplomdyk_zhumys_IE.docx
#
01.07.2025212.39 Кб2Diplomnaya rabota.docx
#
01.07.2025105.8 Кб2Ekonomikaly_teoria_2204ddddddd.docx
#
01.07.202583.29 Кб2Ekonom_teoria_shpor.docx
#
01.07.2025375.3 Кб2emtikhan.doc
#
01.07.2025321.54 Кб2f736f5220d94935380adcf509319fec6.doc