íà òåìó ðåôåðàòû Èíôîðìàöèîííî-îáðàçîàòåëüíûé ïîðòàë
Ðåôåðàòû, êóðñîâûå, äèïëîìû, íàó÷íûå ðàáîòû,
íà òåìó ðåôåðàòû
íà òåìó ðåôåðàòû
ÌÅÍÞ|
íà òåìó ðåôåðàòû
ïîèñê
Ïðoeêòóâaííÿ iíôoðìaöiéío¿ ñèñòeìè äëÿ ðoáoòè ç aâòo
p align="left">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);

Ñòðàíèöû: 1, 2, 3, 4, 5


© 2003-2013
Ðåôåðàòû áåñïëàòíî, êóðñîâûå, ðåôåðàòû áèîëîãèÿ, áîëüøàÿ áèáèëèîòåêà ðåôåðàòîâ, äèïëîìû, íàó÷íûå ðàáîòû, ðåôåðàòû ïðàâî, ðåôåðàòû, ðåôåðàòû ñêà÷àòü, ðåôåðàòû ëèòåðàòóðà, êóðñîâûå ðàáîòû, ðåôåðàò, äîêëàäû, ðåôåðàòû ìåäèöèíà, ðåôåðàòû íà òåìó, ñî÷èíåíèÿ, ðåôåðàò áåñïëàòíî, ðåôåðàòû àâèàöèÿ, ðåôåðàòû ïñèõîëîãèÿ, ðåôåðàòû ìàòåìàòèêà, ðåôåðàòû êóëèíàðèÿ, ðåôåðàòû ëîãèñòèêà, ðåôåðàòû àíàòîìèÿ, ðåôåðàòû ìàðêåòèíã, ðåôåðàòû ðåëèíèÿ, ðåôåðàòû ñîöèîëîãèÿ, ðåôåðàòû ìåíåäæåìåíò.