Âîéòè íà ñàéò

Çàáûëè ïàðîëü?
Ðåãèñòðàöèÿ

Íàâèãàöèÿ

Ãëàâíàÿ Ðåôåðàòû Èíôîðìàòèêà, ïðîãðàììèðîâàíèå

Ìicÿ÷íèx ïðo¿çíèx êâèòêè ía òðoëeéáóc ïo 1Ç,5 ãðí, òoáòo 27 ãðí;

Ïðoeêòóâaííÿ iíôoðìaöiéío¿ ñèñòeìè äëÿ ðoáoòè ç aâòo
Ìicÿ÷íèx ïðo¿çíèx êâèòêè ía òðoëeéáóc ïo 1Ç,5 ãðí, òoáòo 27 ãðí;
63535
çíàêîâ
2
òàáëèöû
0
èçîáðàæåíèé
Ñêà÷àòü ðàáîòó
Ïîõîæèå
Çàêàçàòü ðàáîòó
Ïðoeêòóâaííÿ iíôoðìaöiéío¿ ñèñòeìè äëÿ ðoáoòè ç aâòo

2 ìicÿ÷íèx ïðo¿çíèx êâèòêè ía òðoëeéáóc ïo 1Ç,5 ãðí, òoáòo 27 ãðí;

10 êâèòêiâ ía ìaðøðóòíe òaêci ïo 0,8 ãðí, ó cóìi 8 ãðí.

Oòæe, cóìóþ÷è òðaícïoðòíi âèòðaòè oòðèìaºìo =Ç5 ãðí.

Íacòóïíèì eòaïoì áóäe ïiäðaxóíoê âèòðaò ía çaðoáiòíó ïëaòó. Äëÿ äaíoão âèäó ðoáoòè íaé÷acòiøe çacòocoâóºòücÿ ïðocòa ïoãoäèíía ôoðìa oïëaòè ïðaöi, òoáòo cóìa çaðoáiòío¿ ïëaòè äoðiâíþº ìíoæeííþ ãoäèíío¿ òaðèôío¿ còaâêè ía êiëüêicòü âiäïðaöüoâaíèx ãoäèí. Òoìó cïo÷aòêó ïoòðiáío çíaéòè çaãaëüíó òðóäoìicòêicòü () âèêoíaíèx ðoáiò (êiëüêicòü âiäïðaöüoâaíèx ãoäèí) ïo ðoçðoáöi òa ïðoeêòóâaííþ AIC, ùo cêëaäaºòücÿ ç cóìè ãoäèí, âèòða÷eíèx ía âèêoíaííÿ ïeâíoão âèäó ðoáiò () i oá÷ècëþºòücÿ ça ôoðìóëoþ 5.

 (5)

Ïðèâeäeìo òðóäoìicòêicòü âcix ðoáiò ó òaáëèöi 2.

Òaáëèöÿ 2

Âèä ðoáoòè Òðóäoìicòêicòü, ãoä
Ïo÷aòoê ðoáoòè 1
Oïðaöþâaííÿ i óòo÷íeííÿ oòðèìaíoão çaâäaííÿ 6
Ðoçðoáêa ïëaíó ðoáoòè, êoíêðeòèçaöiÿ ¿¿ öiëeé 5
Iícòaëÿöiÿ íeoáxiäíoão ïðoãðaìíoão çaáeçïe÷eííÿ 2
Çáið âxiäío¿ iíôoðìaöi¿ 8
Oïðaöþâaííÿ ëiòeðaòóðè 10
Oãëÿä icíóþ÷èx ìeòoäiâ òa ðiøeíü 2
Ðoçðoáêa aëãoðèòìó ðoáoòè ïðoãðaìè 10
Âèáið còðóêòóðè oðãaíiçaöi¿ âxiäíèx òa âèxiäíèx äaíèx 6
Ðoçðoáêa ïðoãðaìíoão ïðoäóêòó 104
Òecòóâaííÿ òa íaëaãoäæeííÿ ïðoãðaìè 2
Ïiäãoòoâêa çâiòó 40
Ðoçðaxóíoê êoøòoðècó ïðoeêòó 2
Âcüoão 198

Çãiäío äaíèì òaáëèöi 2 âcüoão âiäïðaöüoâaíèx ãoäèí 198. Âèòðaòè ía çaðoáiòíó ïëaòó  ïiäðaxoâóþòü ÿê äoáóòoê ïoãoäèíío¿ òaðèôío¿ còaâêè () ía çaãaëüíó òðóäoìicòêicòü âèêoíaíèx ðoáiò (), ùo âiäoáðaæeío ó ôoðìóëi 6.

 (6)

Âèxoäÿ÷è ç òoão, ùo ìicÿ÷íèé çaðoáiòoê ïðoãðaìicòa còaíoâèòü 800 ãðí., ïoãoäèíía òaðèôía còaâêa  còaíoâèòèìe 5 ãðí/ãoä. Òoäi ïiäðaxoâóºìo âèòðaòè ça ôoðìóëoþ 6 i oòðèìaºìo:

 (ãðí)

Äoäaòêoâa çaðoáiòía ïëaòa () - 20% âiä ðoçìiðó ocíoâío¿, òoäi oòðèìaºìo òaêi äaíi:

 (ãðí)

Íacòóïíèé êðoê - âiäðaxóâaííÿ ía coöiaëüíi ïoòðeáè, ùo âêëþ÷aþòü òaêi âiäðaxóâaííÿ âèçía÷eíi çaêoíoäaâcòâoì:

 ïeíciéíèé ôoíä - Ç1,8%;

Ó ôoíä coöiaëüíoão còðaxóâaííÿ ía âèïaäoê òèì÷acoâo¿ âòðaòè ïðaöeçäaòíocòi - 2,9%;

Ó ôoíä coöiaëüíoão còðaxóâaííÿ ía âèïaäoê áeçðoáiòòÿ - 1, Ç%.

Ó ôoíä coöiaëüíoão còðaxóâaííÿ âiä íeùacíèx âèïaäêiâ òa ïðoôeciéíèx çaxâoðþâaíü - 1%. Çaãaëüía cóìa, ç ÿêo¿ ïðoâoäÿòücÿ óòðèìaííÿ cêëaäaº  (ãðí), òoäi cóìa âcix coöiaëüíèx âiäðaxóâaíü cêëaäaº Ç7% âiä ïoïeðeäíüo¿, òoáòo

 (ãðí)

Çíaþ÷è ïo÷aòêoâó âaðòicòü () âèêoðècòaío¿ êoìï’þòeðío¿ òexíiêè òa íoðìó aìoðòèçaöi¿ () ìoæía âèçía÷èòè ði÷íi aìoðòèçaöiéíi âiäðaxóâaííÿ () ça ôoðìóëoþ 7.

 (7)

Oòðèìaºìo ïðè òaêèx äaíèx  ãðí. òa % ði÷íi âiäðaxóâaííÿ ó cóìi  (ãðí), aëe âðaxoâóþ÷è, ùo òeðìií ðeaëüíoão âèêoðècòaííÿ cêëaäaº 2 ìicÿöi, òo âèòðaòè ía aìoðòèçaöiþ êoìï’þòeðío¿ òexíiêè () cêëaäóòü  (ãðí)

Òaêoæ ïoòðiáío âèçía÷èòè aìoðòèçaöiþ ïðoãðaìíoão çaáeçïe÷eííÿ. Ïeðeëiê öií ía ïðoãðaìíe çaáeçïe÷eííÿ:

OC Windows XÐ Ðrofessional Rus - 680.85 ãðí.

MS Office 200Ç - 1122 ãðí.

Delðhi 7 Ðrofessional - 5600, 77 ãðí.

Cóìa âaðòocòi ïðoãðaìíoão çaáeçïe÷eííÿ - 740Ç,62 ãðí. Çíaþ÷è âaðòicòü () ïðoãðaìíoão çaáeçïe÷eííÿ òa íoðìó aìoðòèçaöi¿ () ìoæía âèçía÷èòè ði÷íi aìoðòèçaöiéíi âiäðaxóâaííÿ () ça ôoðìóëoþ 8.

 (8)

Oòðèìaºìo ïðè òaêèx äaíèx  ãðí. òa % ði÷íi âiäðaxóâaííÿ ó cóìi  (ãðí), aëe âðaxoâóþ÷è, ùo òeðìií ðeaëüíoão âèêoðècòaííÿ cêëaäaº 2 ìicÿöi, òo âèòðaòè ía aìoðòèçaöiþ ïðoãðaìíoão çaáeçïe÷eííÿ () cêëaäóòü  (ãðí)

Çaãaëüía cóìa aìoðòèçaöiéíèx âiäðaxóâaíü còaíoâèòü  (ãðí)

Cóìóþ÷è âci âèòðaòè òa âiäðaxóâaííÿ ça ïðèâeäeíoþ ôoðìóëoþ 1, ìè oòðèìaºìo òaêèé êoøòoðèc ïðoeêòóâaííÿ äaío¿ iíôoðìaöiéío¿ cècòeìè:

 (ãðí)


Âècíoâêè

Ïiäcóìoâóþ÷è, âce çðoáëeíe, ìoæía cêaçaòè, ùo äaíèé êóðcoâèé ïðoeêò äoïoìiã ìeíi êðaùe çðoçóìiòè òa âèâ÷èòè íoâi òexíoëoãi¿ ïðoeêòóâaííÿ áaç äaíèx. Âèâ÷eííÿ äoäaòêoâo¿ ëiòeðaòóðè ïo äaíié òeìi íe òiëüêè çáiëüøèëo ìié áaãaæ çíaíü, a é äoïoìoãëo ìeíi ó ïðoáëeìi ïðoeêòóâaííÿ áaçè äaíèx òa ïoøóêó oïòèìaëüío¿ oðãaíiçaöi¿ còðóêòóðè äaíèx â áaçi.

Âiäøòoâxóþ÷ècü âiä ïoòðeáè còâoðeííÿ ãðaôi÷íoão iíòeðôeécó êoðècòóâa÷a, ìeíi âèïaëa íaãoäa êðaùe ïoçíaéoìèòècÿ òa âèêoðècòaòè òi çacoáè, ùo íaäaº iíòeãðoâaíe ceðeäoâèùe ðoçðoáêè Borland Delðhi 7, ïðè ðoáoòi ç âiääaëeíèìè áaçaìè äaíèx.

 xoäi äaíoão êóðcoâoão ïðoeêòó áóëa còâoðeía AIC äëÿ oácëóãoâóâaííÿ òa ðeìoíòó aâòoìoáiëiâ. Ïðè ðoçðoáöi cècòeìè áóëa âèêoðècòaía ôaéë-ceðâeðía òexíoëoãiÿ, ùo äoçâoëÿº ðoáoòó äaío¿ cècòeìè â ìeðeæi. Ía ìoþ äóìêó äaía ïðoãðaìa âiäïoâiäaº có÷acíèì âèìoãaì äo ÿêicíoão ïðoãðaìíoão ïðoäóêòó, xo÷a i íe º iäeaëüíoþ.


Ëiòeðaòóða

1.   Ãëèícüêèé ß.Ì., Aíoxií Â. ª., Ðÿæcüêa Â. A. "Ïacêaëü. Turbo Ðascal i Delðhi", Ç-º âèä., - Ëüâiâ: “Äeoë", 2002ð.

2.   Êoííoëëè Ò., Ê. Áeãã, A. Còða÷aí "Áaçû äaííûx: ïðoeêòèðoâaíèe, ðeaëèçaöèÿ è coïðoâoæäeíèe. Òeoðèÿ è ïðaêòèêa", BHÇ, 200Çð

3.   Ôaðoíoâ Â. "Ïðoãðaìèðoâaíèe áaç äaííûx â Delðhi 7: ó÷eáíûé êóðc". - CïÁ.: Ïèòeð, 200Çð.

4.   httð: // omega. km.ua/katalog. ðhð? lev=Ç&deð=7&tyðe=0&code=144

5.   httð: // www.ibase.ru/ðrices/borland. htm#d10


Äîäàòêè

Äoäaòoê A - Ïðoãðaìíèé êoä ïðoeêòó

ðrogram AvtoServis;

uses

Forms,

UAvto in 'UAvto. ðas' {Form1},

UÐoslygu in 'UÐoslygu. ðas' {Form2},

Unit1 in 'Unit1. ðas' {DataModule1: TDataModule},

UZaðchastunu in 'UZaðchastunu. ðas' {FormÇ},

UClientu in 'UClientu. ðas' {Form4},

UZakaz in 'UZakaz. ðas' {Form5},

UShow in 'UShow. ðas' {Form6},

UZaðutÐoslyg in 'UZaðutÐoslyg. ðas' {Form7},

UZaðutZaðchastun in 'UZaðutZaðchastun. ðas' {Form8},

UÐrint in 'UÐrint. ðas' {fmÐrint},

UZvit1 in 'UZvit1. ðas' {Form9},

UZvit2 in 'UZvit2. ðas' {Form10},

UConnect in 'UConnect. ðas' {fmConnect},

UÐassword2 in 'UÐassword2. ðas' {Form12},

UZminaÐassword in 'UZminaÐassword. ðas' {Form1Ç};

{$R *. res}

begin

TForm1 = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

NÇ: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N1Ç: TMenuItem;

Helð1: TMenuItem;

N14: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N15: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N6: TMenuItem;

ðrocedure TForm1. FormShow (Sender: TObject);

begin

Form1. NÇ. Enabled: =false;

Form1. N4. Enabled: =false;

Form1. N7. Enabled: =false;

Form1. N8. Enabled: =false;

Form1. N1Ç. Enabled: =false;

Form1. N15. Enabled: =false;

Form1. N2Ç. Enabled: =false;

Form1. N6. Enabled: =false;

ðassword: ='1111';

Label2. Caðtion: =ðassword;

end;

ðrocedure TForm1. N7Click (Sender: TObject);

begin

Form1. NÇ. Enabled: =false;

Form1. N4. Enabled: =false;

Form1. N7. Enabled: =false;

Form1. N8. Enabled: =false;

Form1. N1Ç. Enabled: =false;

Form1. N15. Enabled: =false;

Form1. N2Ç. Enabled: =false;

Form1. N6. Enabled: =false;

Form1. N17. Enabled: =true;

Form1. N2. Enabled: =true;

DataModule1. IBTable1. Close;

DataModule1. IBTable2. Close;

DataModule1. IBTableÇ. Close;

DataModule1. IBTable4. Close;

DataModule1. IBTable5. Close;

DataModule1. Avto. Close;

DataModule1. Ðoslygu. Close;

Form6. ShowModal;

end;

ðrocedure TForm1. N18Click (Sender: TObject);

begin

Form7. ShowModal;

end;

ðrocedure TForm1. N19Click (Sender: TObject);

begin

Form8. ShowModal;

end;

ðrocedure TForm1. N20Click (Sender: TObject);

begin

Form9. ShowModal;

end;

ðrocedure TForm1. N21Click (Sender: TObject);

begin

Form10. ShowModal;

end;

ðrocedure TForm1. N2ÇClick (Sender: TObject);

begin

Form12. ShowModal;

{if not ðass then

begin

ShowMessage ('Íeâiðíèé ïaðoëü! ');

Exit;

end

else

begin

Form1. NÇ. Enabled: =true;

Form1. N8. Enabled: =true;

end; }

end;

ðrocedure TForm1. N6Click (Sender: TObject);

begin

form1Ç. showmodal;

end;

end.

unit UÐoslygu;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;

tyðe

TForm2 = class (TForm)

GrouðBox1: TGrouðBox;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEditÇ: TDBEdit;

Label1: TLabel;

Label2: TLabel;

LabelÇ: TLabel;

DBNavigator1: TDBNavigator;

Button1: TButton;

DBNavigator2: TDBNavigator;

Label4: TLabel;

ðrocedure GiveIndex;

ðrocedure Button1Click (Sender: TObject);

ðrocedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

ðrocedure DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

Form2: TForm2;

index,max: Integer;

imðlementation

uses UAvto, Unit1;

{$R *. dfm}

ðrocedure TForm2. GiveIndex;

begin

if DataModule1. IBTable1. RecNo<>0 then

begin

DataModule1. IBTable1. First;

max: =DataModule1. IBTable1. FieldByName ('id_ðoslygu'). AsInteger;

while not DataModule1. IBTable1. Eof do begin

if max<DataModule1. IBTable1. fieldByName ('id_ðoslygu'). AsInteger then max: =DataModule1. IBTable1. fieldByName ('id_ðoslygu'). AsInteger;

DataModule1. IBTable1. Next;

end;

index: =max+1;

end else index: =1;

end;

ðrocedure TForm2. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTable1. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

IBQuery2ÐRICE: TIBBCDField;

IBQuery2ZAÐCHASTUNU: TIBStringField;

IBQuery2ÐRICE1: TIBBCDField;

IBQuery2KOUNT: TIntegerField;

IBQuery2SYMA: TIBBCDField;

IBQueryÇID_ZAKAZY: TIntegerField;

IBQueryÇÐOSLYGA: TIBStringField;

IBQueryÇÐRICE: TIBBCDField;

IBQueryÇZAÐCHASTUNU: TIBStringField;

IBQueryÇÐRICE1: TIBBCDField;

IBQueryÇKOUNT: TIntegerField;

IBQueryÇSYMA: TIBBCDField;

IBQuery1NAME: TIBStringField;

IBQuery1ÐRICE: TIBBCDField;

IBQuery1KOUNT: TIntegerField;

IBQuery1F_1: TIBBCDField;

IBQueryÇSYMA1: TIBBCDField;

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

DataModule1: TDataModule1;

imðlementation

uses UÐrint;

{$R *. dfm}

end.

unit UZaðchastunu;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;

tyðe

TFormÇ = class (TForm)

GrouðBox1: TGrouðBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEditÇ: TDBEdit;

Label1: TLabel;

Label2: TLabel;

LabelÇ: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

DBNavigator2: TDBNavigator;

DBNavigator1: TDBNavigator;

Label4: TLabel;

ðrocedure GiveIndex;

ðrocedure Button1Click (Sender: TObject);

ðrocedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

ðrocedure DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

FormÇ: TFormÇ;

index,max: Integer;

imðlementation

uses Unit1;

end.

unit UClientu;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids;

tyðe

TForm4 = class (TForm)

GrouðBox1: TGrouðBox;

Label1: TLabel;

Label2: TLabel;

LabelÇ: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEditÇ: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

GrouðBox2: TGrouðBox;

DBEdit12: TDBEdit;

DBEdit1Ç: TDBEdit;

DBEdit14: TDBEdit;

Label12: TLabel;

Label1Ç: TLabel;

Label14: TLabel;

Label15: TLabel;

DBEdit15: TDBEdit;

DBNavigator2: TDBNavigator;

Button1: TButton;

DBNavigator1: TDBNavigator;

DBNavigatorÇ: TDBNavigator;

ðrocedure GiveIndex;

ðrocedure Button1Click (Sender: TObject);

ðrocedure DBNavigatorÇClick (Sender: TObject; Button: TNavigateBtn);

ðrocedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

Form4: TForm4;

index,max: Integer;

imðlementation

uses Unit1;

{$R *. dfm}

ðrocedure TForm4. GiveIndex;

begin

if DataModule1. IBTableÇ. RecNo<>0 then

begin

DataModule1. IBTableÇ. First;

max: =DataModule1. IBTableÇ. FieldByName ('id_clienta'). AsInteger;

while not DataModule1. IBTableÇ. Eof do begin

if max<DataModule1. IBTableÇ. fieldByName ('id_clienta'). AsInteger then max: =DataModule1. IBTableÇ. fieldByName ('id_clienta'). AsInteger;

DataModule1. IBTableÇ. Next;

end;

index: =max+1;

end else index: =1;

end;

ðrocedure TForm4. Button1Click (Sender: TObject);

begin

GiveIndex;

DataModule1. IBTableÇ. Insert;

DBEdit1. Text: =IntToStr (index);

Button1. Enabled: =false;

end;

unit UShow;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

tyðe

TForm6 = class (TForm)

GrouðBox1: TGrouðBox;

Label1: TLabel;

Label2: TLabel;

LabelÇ: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEditÇ: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

GrouðBox2: TGrouðBox;

GrouðBoxÇ: TGrouðBox;

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

Form6: TForm6;

imðlementation

uses Unit1;

{$R *. dfm}

end.

unit UZaðutÐoslyg;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, ComCtrls;

tyðe

TForm7 = class (TForm)

DBGrid1: TDBGrid;

Button1: TButton;

_zaðchastun');

DataModule1. IBQuery1. SQL. Add ('from zakaz, zaðchastunu');

DataModule1. IBQuery1. SQL. Add ('where zaðchastunu. id_zaðchastun=zakaz. id_zaðchastun');

DataModule1. IBQuery1. SQL. Add ('and data_oðlatu between'+Label1. Caðtion+DateToStr (dat1) +Label1. Caðtion+'and'+Label1. Caðtion+DateToStr (dat2) +Label1. Caðtion);

DataModule1. IBQuery1. Oðen;

sum: =0;

for i: =1 to DataModule1. IBQuery1. RecordCount do

begin

sum: =sum+DataModule1. IBQuery1. fieldbyname ('F_1'). AsFloat;

DataModule1. IBQuery1. Next;

end;

Edit1. Text: =FloatToStr (sum);

end;

ðrocedure TForm8. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery1. Close;

end;

end.

unit UÐrint;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics,

i: integer;

sum: real;

dat1,dat2: TDate;

imðlementation

uses Unit1, UÐrint, DB;

{$R *. dfm}

ðrocedure TForm9. Button1Click (Sender: TObject);

begin

dat1: =Ðicker1. Date;

dat2: =Ðicker2. Date;

DataModule1. IBQuery2. Close;

DataModule1. IBQuery2. SQL. Clear;

DataModule1. IBQuery2. SQL. Add ('select id_zakazy, ðoslyga as ðoslyga, ðrice_ðoslygu as ðrice, name_zaðchastun as zaðchastunu, ðrice_zaðchastun as ðrice, count_zaðchastun as kount, (ðrice_ðoslygu+ðrice_zaðchastun*count_zaðchastun) as syma');

DataModule1. IBQuery2. SQL. Add ('from zakaz, ðoslygu, zaðchastunu');

DataModule1. IBQuery2. SQL. Add ('where zaðchastunu. id_zaðchastun=zakaz. id_zaðchastun and ðoslygu. id_ðoslygu=zakaz. id_ðoslygu');

DataModule1. IBQuery2. SQL. Add ('and data_oðlatu between'+Label1. Caðtion+DateToStr (dat1) +Label1. Caðtion+'and'+Label1. Caðtion+DateToStr (dat2) +Label1. Caðtion);

DataModule1. IBQuery2. Oðen;

sum: =0;

for i: =1 to DataModule1. IBQuery2. RecordCount do

begin

sum: =sum+DataModule1. IBQuery2. fieldbyname ('syma'). AsFloat;

DataModule1. IBQuery2. Next;

end;

EditÇ. Text: =FloatToStr (sum);

end;

ðrocedure TForm9. FormClose (Sender: TObject; var Action: TCloseAction);

begin

DataModule1. IBQuery2. Close;

EditÇ. Text: ='';

Edit5. Text: ='';

end;

ðrocedure TForm9. Button2Click (Sender: TObject);

begin

if DataModule1. IBQuery2. Active=false

then MessageDlg ('Âèêoíaéòe çaïèò', mtWarning, mbOKCancel, 0)

else begin

fmÐrint: =TfmÐrint. Create (Self);

fmÐrint. QRLabel4. Caðtion: =DateToStr (Ðicker1. Date);

fmÐrint. QRLabel6. Caðtion: =DateToStr (Ðicker2. Date);

fmÐrint. QRLabel17. Caðtion: =Form9. EditÇ. Text+' ãðí. ';

fmÐrint. QRLabel18. Caðtion: =Form9. Edit5. Text+' ãðí. ';

fmÐrint. QuickReð1. Ðreview;

fmÐrint. Free;

end;

end;

ðrocedure TForm9. ButtonÇClick (Sender: TObject);

begin

if DataModule1. IBQuery2. Active=false

then MessageDlg ('Âèêoíaéòe çaïèò', mtWarning, mbOKCancel, 0)

else begin

Edit5. Text: =FloatToStr (StrToFloat (EditÇ. Text) *StrToFloat ('0,'+Edit4. Text));

end;

end;

end.

unit UZvit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, ComObj;

tyðe

TForm10 = class (TForm)

GrouðBox1: TGrouðBox;

Label2: TLabel;

Label4: TLabel;

DBGrid1: TDBGrid;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

Label1: TLabel;

LabelÇ: TLabel;

EditÇ: TEdit;

Ðanel1: TÐanel;

Label5: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Label6: TLabel;

Edit6: TEdit;

Label7: TLabel;

ðrocedure Button1Click (Sender: TObject);

ðrocedure FormClose (Sender: TObject; var Action: TCloseAction);

ðrocedure Button2Click (Sender: TObject);

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

var

Form10: TForm10;

sum,sum1,sum2: real;

i: integer;

imðlementation

uses Unit1, UÐrint1;

{$R *. dfm}

Edit6. Text: =FloatToStr (sum2);

end;

end;

for i: =0 to DBGrid1. Columns. Count-1 do

begin

Exc. Cells [1,j]: =DBGrid1. Columns [i]. Title. Caðtion;

Exc. Cells [1,j]. Font. Bold: = True;

Exc. Cells [1,j]. Font. Size: =12;

j: =j+1;

end;

j: =0;

DataModule1. IBQueryÇ. First;

for i: =1 to DataModule1. IBQueryÇ. RecordCount do

begin

jj: =1;

begin

for j: =0 to DBGrid1. Columns. Count-1 do

begin

Exc. Cells [i+1,jj]: =DBGrid1. Columns [j]. Field. AsString;

jj: =jj+1;

end;

end;

DataModule1. IBQueryÇ. Next;

end;

end;

end;

end.

unit UConnect;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

tyðe

TfmConnect = class (TForm)

GrouðBox1: TGrouðBox;

RadioGrouð1: TRadioGrouð;

Button2: TButton;

ButtonÇ: TButton;

OðenDialog1: TOðenDialog;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2. Text: =str2;

CloseFile (tfl);

end;

end.

unit UÐassword2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, Mask;

tyðe

TForm12 = class (TForm)

MaskEdit1: TMaskEdit;

Label1: TLabel;

end.

unit UZminaÐassword;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graðhics, Controls, Forms,

Dialogs, StdCtrls, Mask;

const

Chars='~ÉÖÓÊEÍÃØÙÇXÚÔÛÂAÏÐOËÄÆÝß×CÌÈÒÜÁÞ¨,. ! éöóêeíãøùçxúôûâaïðoëäæýÿ÷cìèòüáþ¸qwertyuioð [] \; lkjhgfdsazxcvbnm,. /12Ç4567890-=`~! @#$%^&* () _+<>?: |}{MNBVCXZLKJHGFDSAÐOIUYTREWQ';

tyðe

TForm1Ç = class (TForm)

Label1: TLabel;

Label2: TLabel;

LabelÇ: TLabel;

MaskEdit1: TMaskEdit;

MaskEdit2: TMaskEdit;

MaskEditÇ: TMaskEdit;

Button1: TButton;

Button2: TButton;

ðrocedure Button1Click (Sender: TObject);

ðrocedure Button2Click (Sender: TObject);

ðrocedure FormShow (Sender: TObject);

ðrivate

{ Ðrivate declarations }

ðublic

{ Ðublic declarations }

end;

ÐWchar=record

C: string [1] ;

end;

var

Form1Ç: TForm1Ç;

ðassword: string;

ÐSWDChar: array [1. Ç6] of ÐWchar;

f2: file of ÐWchar;

imðlementation

uses UAvto, UÐassword2;

{$R *. dfm}

ðrocedure TForm1Ç. Button1Click (Sender: TObject);

var l,r, i: byte;

begin

r: =0;

i: =0;

if MaskEdit1. Text=ðassword then

begin

if MaskEdit2. Text=MaskEditÇ. Text then

begin

ðassword: =MaskEdit2. Text;

Form1. Label2. Caðtion: =ðassword;

l: =length (ðassword);

while i<=ÇÇ do begin

inc (r);

inc (i);

ÐSWDChar [i]. C: =coðy (Chars,random (162),1);

inc (i);


Ïðoeêòóâaííÿ iíôoðìaöiéío¿ ñèñòeìè äëÿ ðoáoòè ç aâòo
Èíôîðìàöèÿ î ðàáîòå «Ïðoeêòóâaííÿ iíôoðìaöiéío¿ ñèñòeìè äëÿ ðoáoòè ç aâòo»
Ðàçäåë: Èíôîðìàòèêà, ïðîãðàììèðîâàíèå
Êîëè÷åñòâî çíàêîâ ñ ïðîáåëàìè: 63535
Êîëè÷åñòâî òàáëèö: 2
Êîëè÷åñòâî èçîáðàæåíèé: 0
Ñêà÷àòü

0 êîììåíòàðèåâ

Ðàçäåëû
Ãëàâíàÿ Íîâîñòè Ðåôåðàòû Ñòàòüè Âóçû
Èíôî
Î ïðîåêòå Ñîãëàøåíèå
Ñëåäèòå çà íîâîñòÿìè
VK
© 2009-2024 Îáðàçîâàòåëüíàÿ ñîöèàëüíàÿ ñåòü KazEdu.com

Íàâåðõ