public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses avtoazs;

{$R *. dfm}

procedure TForm2. Image5Click (Sender: TObject);

begin

form2. close

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

DBGrid1. DataSource. DataSet. edit;

DBGrid1. DataSource. DataSet. FieldByName ('Data'). Asstring: =dbedit1. text;

DBGrid1. DataSource. DataSet. post;

end;

procedure TForm2. N2Click (Sender: TObject);

begin

label6. visible: =True;

dbedit3. visible: =True;

label5. visible: =True;

dbedit2. visible: =True;

label4. visible: =True;

dbedit1. visible: =True;

button2. visible: =True;

Form2. width: =860;

end;

procedure TForm2. Button4Click (Sender: TObject);

begin

Table1. Insert;

TAble1. FieldByName ('Benzin'). AsString: = Edit3. Text;

TAble1. FieldByName ('Data'). Asstring: = Edit4. Text;

TAble1. FieldByName ('Cena'). Asstring: = Edit5. Text;

TAble1. FieldByName ('Opisanie'). Asstring: = Edit6. Text;

Table1. Post;

Table1. Refresh;

Edit3. Text: =TAble1. FieldByName ('Benzin'). AsString;

Edit4. Text: =TAble1. FieldByName ('Data'). AsString;

Edit5. Text: =TAble1. FieldByName ('Cena'). AsString;

Edit5. Text: =TAble1. FieldByName ('Opisanie'). AsString;

end;

procedure TForm2. N3Click (Sender: TObject);

begin

label7. visible: =True;

edit3. visible: =True;

label8. visible: =True;

edit4. visible: =True;

label9. visible: =True;

edit5. visible: =True;

label10. visible: =True;

edit6. visible: =True;

button4. visible: =True;

Form2. width: =860;

end;

end.

unit avtoazs2;

interface

uses

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

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

TeEngine, Series, TeeProcs, Chart, DbChart, Menus, Mask;

type

TForm3 = class (TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Image5: TImage;

Label2: TLabel;

DBNavigator1: TDBNavigator;

DBMemo1: TDBMemo;

DBChart1: TDBChart;

Table1Benzin: TStringField;

Table1Data: TDateField;

Table1Cena: TCurrencyField;

Table1Opisanie: TStringField;

Series1: TPieSeries;

Series2: TAreaSeries;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button2: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button4: TButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

N3: TMenuItem;

DBText1: TDBText;

Label1: TLabel;

procedure Image5Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses avtoazs1;

{$R *. dfm}

procedure TForm3. Image5Click (Sender: TObject);

begin

Form3. close

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

DBGrid1. DataSource. DataSet. edit;

DBGrid1. DataSource. DataSet. FieldByName ('Data'). Asstring: =dbedit1. text;

DBGrid1. DataSource. DataSet. post;

end;

procedure TForm3. N2Click (Sender: TObject);

begin

label6. visible: =True;

dbedit3. visible: =True;

label5. visible: =True;

dbedit2. visible: =True;

label4. visible: =True;

dbedit1. visible: =True;

button2. visible: =True;

Form3. width: =860;

end;

procedure TForm3. N3Click (Sender: TObject);

begin

label7. visible: =True;

edit3. visible: =True;

label8. visible: =True;

edit4. visible: =True;

label9. visible: =True;

edit5. visible: =True;

label10. visible: =True;

edit6. visible: =True;

button4. visible: =True;

Form3. width: =860;

end;

procedure TForm3. Button4Click (Sender: TObject);

begin

Table1. Insert;

TAble1. FieldByName ('Benzin'). AsString: = Edit3. Text;

TAble1. FieldByName ('Data'). Asstring: = Edit4. Text;

TAble1. FieldByName ('Cena'). Asstring: = Edit5. Text;

TAble1. FieldByName ('Opisanie'). Asstring: = Edit6. Text;

Table1. Post;

Table1. Refresh;

Edit3. Text: =TAble1. FieldByName ('Benzin'). AsString;

Edit4. Text: =TAble1. FieldByName ('Data'). AsString;

Edit5. Text: =TAble1. FieldByName ('Cena'). AsString;

Edit5. Text: =TAble1. FieldByName ('Opisanie'). AsString;

end;

end.

unit avtoazs3;

interface

uses

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

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

TeEngine, Series, TeeProcs, Chart, DbChart, Menus, Mask;

type

TForm4 = class (TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Image5: TImage;

Label2: TLabel;

DBNavigator1: TDBNavigator;

DBMemo1: TDBMemo;

DBChart1: TDBChart;

Series1: TPieSeries;

Table1Benzin: TStringField;

Table1Data: TDateField;

Table1Cena: TCurrencyField;

Table1Opisanie: TStringField;

Series2: TAreaSeries;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button2: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button4: TButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

N3: TMenuItem;

DBText1: TDBText;

Label1: TLabel;

procedure Image5Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *. dfm}

procedure TForm4. Image5Click (Sender: TObject);

begin

Form4. close

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

DBGrid1. DataSource. DataSet. edit;

DBGrid1. DataSource. DataSet. FieldByName ('Data'). Asstring: =dbedit1. text;

DBGrid1. DataSource. DataSet. post;

end;

procedure TForm4. N2Click (Sender: TObject);

begin

label6. visible: =True;

dbedit3. visible: =True;

label5. visible: =True;

dbedit2. visible: =True;

label4. visible: =True;

dbedit1. visible: =True;

button2. visible: =True;

Form4. width: =860;

end;

procedure TForm4. Button4Click (Sender: TObject);

begin

Table1. Insert;

TAble1. FieldByName ('Benzin'). AsString: = Edit3. Text;

TAble1. FieldByName ('Data'). Asstring: = Edit4. Text;

TAble1. FieldByName ('Cena'). Asstring: = Edit5. Text;

TAble1. FieldByName ('Opisanie'). Asstring: = Edit6. Text;

Table1. Post;

Table1. Refresh;

Edit3. Text: =TAble1. FieldByName ('Benzin'). AsString;

Edit4. Text: =TAble1. FieldByName ('Data'). AsString;

Edit5. Text: =TAble1. FieldByName ('Cena'). AsString;

Edit5. Text: =TAble1. FieldByName ('Opisanie'). AsString;

end;

procedure TForm4. N3Click (Sender: TObject);

begin

label7. visible: =True;

edit3. visible: =True;

label8. visible: =True;

edit4. visible: =True;

label9. visible: =True;

edit5. visible: =True;

label10. visible: =True;

edit6. visible: =True;

button4. visible: =True;

Form4. width: =860;

end;

end.

unit avtoazs4;

interface

uses

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

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

TeEngine, Series, TeeProcs, Chart, DbChart, Menus, Mask;

type

TForm5 = class (TForm)

Table1: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Image5: TImage;

Label2: TLabel;

DBNavigator1: TDBNavigator;

DBMemo1: TDBMemo;

DBChart1: TDBChart;

Series1: TPieSeries;

Table1Benzin: TStringField;

Table1Data: TDateField;

Table1Cena: TCurrencyField;

Table1Opisanie: TStringField;

Series2: TAreaSeries;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button2: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button4: TButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

N3: TMenuItem;

DBText1: TDBText;

Label11: TLabel;

procedure Image5Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *. dfm}

procedure TForm5. Image5Click (Sender: TObject);

begin

Form5. close

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

DBGrid1. DataSource. DataSet. edit;

DBGrid1. DataSource. DataSet. FieldByName ('Data'). Asstring: =dbedit1. text;

DBGrid1. DataSource. DataSet. post;

end;

procedure TForm5. N2Click (Sender: TObject);

begin

label6. visible: =True;

dbedit3. visible: =True;

label5. visible: =True;

dbedit2. visible: =True;

label4. visible: =True;

dbedit1. visible: =True;

button2. visible: =True;

Form5. width: =860;

end;

procedure TForm5. Button4Click (Sender: TObject);

begin

Table1. Insert;

TAble1. FieldByName ('Benzin'). AsString: = Edit3. Text;

TAble1. FieldByName ('Data'). Asstring: = Edit4. Text;

TAble1. FieldByName ('Cena'). Asstring: = Edit5. Text;

TAble1. FieldByName ('Opisanie'). Asstring: = Edit6. Text;

Table1. Post;

Table1. Refresh;

Edit3. Text: =TAble1. FieldByName ('Benzin'). AsString;

Edit4. Text: =TAble1. FieldByName ('Data'). AsString;

Edit5. Text: =TAble1. FieldByName ('Cena'). AsString;

Edit5. Text: =TAble1. FieldByName ('Opisanie'). AsString;

end;

procedure TForm5. N3Click (Sender: TObject);

begin

label7. visible: =True;

edit3. visible: =True;

label8. visible: =True;

edit4. visible: =True;

label9. visible: =True;

edit5. visible: =True;

label10. visible: =True;

edit6. visible: =True;

button4. visible: =True;

Form5. width: =860;

end;

end.

unit actoazs5;

interface

uses

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

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

ExtDlgs, Buttons, QRCtrls, QuickRpt, Menus;

type

TForm6 = class (TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

DBMemo1: TDBMemo;

Image1: TImage;

Label1: TLabel;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

OpenPictureDialog1: TOpenPictureDialog;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit7: TDBEdit;

Label9: TLabel;

DBEdit8: TDBEdit;

Edit1: TEdit;

Label10: TLabel;

Button3: TButton;

QuickRep1: TQuickRep;

QRBand2: TQRBand;

QRLabel1: TQRLabel;

QRBand3: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRDBText4: TQRDBText;

QRLabel4: TQRLabel;

QRDBText5: TQRDBText;

QRLabel5: TQRLabel;

QRDBText6: TQRDBText;

QRLabel6: TQRLabel;

QRDBText7: TQRDBText;

QRLabel7: TQRLabel;

QRDBText8: TQRDBText;

QRLabel8: TQRLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Button2: TButton;

Label11: TLabel;

DBEdit9: TDBEdit;

Label12: TLabel;

DBEdit10: TDBEdit;

Label13: TLabel;

DBEdit11: TDBEdit;

Label14: TLabel;

DBEdit12: TDBEdit;

Label15: TLabel;

DBEdit13: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Label17: TLabel;

DBEdit15: TDBEdit;

Label18: TLabel;

DBEdit16: TDBEdit;

Label19: TLabel;

DBEdit17: TDBEdit;

Button4: TButton;

N6: TMenuItem;

Label20: TLabel;

procedure Image1Click (Sender: TObject);

procedure PictureToGraphicField (D: TDataSet; F: TField);

procedure Button1Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure Label1Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure N6Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *. dfm}

uses jpeg, actoazs8;

procedure TForm6. Image1Click (Sender: TObject);

begin

form6. close

end;

procedure TForm6. PictureToGraphicField (D: TDataSet; F: TField);

var

FileName: TFileName;

Bmp: TBitmap;

jpg: TJPEGImage;

begin

D: = F. DataSet; // множество данных, которое содержит поле F

if D. Active then // если таблица открыта, то

if D. RecordCount > 0 then // если в таблице есть записи, то

if OpenPictureDialog1. Execute then // если файл картинки выбран, то

begin

if not (D. State in [dsEdit]) then D. Edit; // перевод таблицы в режим редактирования

FileName: = OpenPictureDialog1. FileName; // имя файла с картинкой

try

Bmp: = TBitmap. Create; // создаем Bitmap в памяти

jpg: = TJPEGImage. Create; // создаем JPEG

jpg.compressionQuality: = 100; // качество сжатия изображения

jpg.compress; // сжатие

jpg. LoadFromFile (FileName); // загрузка

bmp. Assign (jpg); // передача из JPEG в BMP

F. Assign (bmp); // передача картинки из Bitmap в поле "Каринка"

D. Post; // сохранение записи

except // в случае исключительной ситуции делать:

ShowMessage ('Не удалось загрузить картинку. '); // сообщение об ошибке

FreeAndNil (jpg); // освобождение памяти, занятой JPEG

FreeAndNil (bmp); // освобождение памяти, занятой Bitmap

end;

end;

end;

procedure TForm6. Button1Click (Sender: TObject);

begin

PictureToGraphicField (DBImage1. DataSource. DataSet,DBImage1. DataSource. DataSet. FieldByName ('Картинка'));

showmessage (DBImage1. DataSource. DataSet. Name);

end;

procedure TForm6. Button3Click (Sender: TObject);

begin

quickrep1. Preview;

end;

procedure TForm6. DBGrid1CellClick (Column: TColumn);

var

a,b: integer;

begin

a: =StrToint (dbEdit6. Text);

b: =StrToint (dbEdit8. Text);

Edit1. Text: =inttostr (a*b);

end;

procedure TForm6. DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);

var

a,b: integer;

begin

a: =StrToint (dbEdit6. Text);

b: =StrToint (dbEdit8. Text);

Edit1. Text: =inttostr (a*b);

end;

procedure TForm6. N2Click (Sender: TObject);

begin

close;

end;

procedure TForm6. N3Click (Sender: TObject);

begin

PictureToGraphicField (DBImage1. DataSource. DataSet,DBImage1. DataSource. DataSet. FieldByName ('Картинка'));

showmessage (DBImage1. DataSource. DataSet. Name);

end;

procedure TForm6. N4Click (Sender: TObject);

begin

quickrep1. Preview;

end;

procedure TForm6. Label1Click (Sender: TObject);

begin

close;

end;

procedure TForm6. N5Click (Sender: TObject);

begin

form8. show

end;

procedure TForm6. Button2Click (Sender: TObject);

begin

form6. Table1. Insert;

form6. TAble1. FieldByName ('Фамилия'). AsString: = Edit1. Text;

form6. TAble1. FieldByName ('Имя'). Asstring: = Edit2. Text;

form6. TAble1. FieldByName ('Номер автомобиля'). Asstring: = Edit3. Text;

form6. TAble1. FieldByName ('Марка автомобиля'). Asstring: = Edit4. Text;

form6. TAble1. FieldByName ('Описание'). Asstring: = Edit5. Text;

form6. TAble1. FieldByName ('Картинка'). Asstring: = Edit6. Text;

form6. TAble1. FieldByName ('Каким"АЗС"заправляется'). Asstring: = Edit7. Text;

form6. TAble1. FieldByName ('Сколько литров'). Asstring: = Edit8. Text;

form6. TAble1. FieldByName ('Какое топливо'). Asstring: = Edit9. Text;

form6. TAble1. FieldByName ('Сколько за литр'). Asstring: = Edit10. Text;

form6. TAble1. FieldByName ('Сколько всего за неделю'). Asstring: = Edit11. Text;

form6. Table1. Post;

form6. Table1. Refresh;

form6. Edit1. Text: =form6. TAble1. FieldByName ('Фамилия'). AsString;

form6. Edit2. Text: =form6. TAble1. FieldByName ('Имя'). AsString;

form6. Edit3. Text: =form6. TAble1. FieldByName ('Номер автомобиля'). AsString;

form6. Edit4. Text: =form6. TAble1. FieldByName ('Марка автомобиля'). AsString;

form6. Edit5. Text: =form6. TAble1. FieldByName ('Описание'). AsString;

form6. Edit6. Text: =form6. TAble1. FieldByName ('Картинка'). AsString;

form6. Edit7. Text: =form6. TAble1. FieldByName ('Каким"АЗС"заправляется'). AsString;

form6. Edit8. Text: =form6. TAble1. FieldByName ('Сколько литров'). AsString;

form6. Edit9. Text: =form6. TAble1. FieldByName ('Какое топливо'). AsString;

form6. Edit10. Text: =form6. TAble1. FieldByName ('Сколько за литр'). AsString;

form6. Edit11. Text: =form6. TAble1. FieldByName ('Сколько всего за неделю'). AsString;

end;

procedure TForm6. Button4Click (Sender: TObject);

begin

DBGrid1. DataSource. DataSet. edit;

DBGrid1. DataSource. DataSet. FieldByName ('фамилия'). Asstring: =dbedit9. text;

DBGrid1. DataSource. DataSet. post;

end;

procedure TForm6. N6Click (Sender: TObject);

begin

label11. visible: =True;

dbedit9. visible: =True;

label12. visible: =True;

dbedit10. visible: =True;

label13. visible: =True;

dbedit11. visible: =True;

label14. visible: =True;

dbedit12. visible: =True;

label15. visible: =True;

dbedit13. visible: =True;

label16. visible: =True;

dbedit14. visible: =True;

label17. visible: =True;

dbedit15. visible: =True;

label18. visible: =True;

dbedit16. visible: =True;

label19. visible: =True;

dbedit17. visible: =True;

button4. visible: =True;

Form6. width: =1075;

end;

end.

unit actoazs7;

interface

uses

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

Dialogs, StdCtrls, ShellAPI;

type

TForm7 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

procedure Label3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *. dfm}

procedure TForm7. Label3Click (Sender: TObject);

begin

ShellExecute (handle, 'open', 'http://vk.com/noneone69', nil, nil, SW_SHOW);

end;

procedure TForm7. Button1Click (Sender: TObject);

begin

Form7. close;

end;

end.

unit actoazs8;

interface

uses

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

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

type

TForm8 = class (TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

Label6: TLabel;

Edit6: TEdit;

Edit7: TEdit;

Label7: TLabel;

Edit8: TEdit;

Label8: TLabel;

Edit9: TEdit;

Label9: TLabel;

Edit10: TEdit;

Button1: TButton;

Button2: TButton;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Label11: TLabel;

Table2: TTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

Label12: TLabel;

Table3: TTable;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

Label13: TLabel;

Table4: TTable;

DataSource4: TDataSource;

DBGrid4: TDBGrid;

Label14: TLabel;

procedure Button1Click (Sender: TObject);