Разработка программы на языке программирования Dephi

AsString+') and ([Диаметр]='+intToStr (Form1.SpinEdit1.Value)+')';

end;

//Изменяется содержимое таблицы дисков при закрытии списка выбора производителя дисков.

procedure TForm1. DBLookupComboBox3CloseUp (Sender: TObject);

begin

Panel2.Visible:=True;

Dm.TDisks.Filter:='([Производитель]='+Dm.TManuf.FieldByName ('Код производителя').AsString+') and ([Диаметр]='+intToStr (Form1.SpinEdit1.Value)+')';

end;

//Отображение отчета при нажатии кнопки «Заказать»

procedure TForm1. Button1Click (Sender: TObject);

begin

Form5.QuickRep1.Preview;

end;

//Закрытие панели поиска при нажатии на кнопку «Закрыть панель поиска»

procedure TForm1. Button4Click (Sender: TObject);

begin

Panel3.Visible:=false;

Form1.Height:=373;

Form1.SpinEdit1Change (Self);

end;

//Отображение панели поиска при нажатии на кнопку «Поиск дисков»

procedure TForm1. Button2Click (Sender: TObject);

begin

Form1.Height:=427;

Panel2.Visible:=true;

Panel3.Visible:=True;

end;

//Задание высоты формы при ее создании

procedure TForm1. FormCreate (Sender: TObject);

begin

Form1.Height:=373;

end;

//Процедура настройки отображаемых дисков в таблице дисков. Процедура поиска дисков в таблицах.

procedure TForm1. Button3Click (Sender: TObject);

Var Filter: AnsiString;

begin

Filter:='';

if DBLookUpComboBox4. Text<>'' then Filter:=Filter+'([Производитель]='+Dm.TManuf.FieldByName ('Код производителя').AsString+') and ';

if Edit1. Text<>'' then Filter:=Filter+'([Название]='+#39+Edit1.Text+#39+') and '; // #39 и '''' дает знак ' в фильтр (таблица ASCII)

if Edit2. Text<>'' then Filter:=Filter+'([Цена]='+Edit2.Text+') and ';

Filter:=Filter+'([Диаметр]='+IntTostr (SpinEdit2.Value)+')';

Dm.TDisks.Filter:=Filter;

end;

end.

Ниже представлен листинг формы редактирования данных о автомобилях.

unit CarUnit;

interface

uses

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

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

type

TForm2 = class (TForm)

Panel1: TPanel;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

Panel2: TPanel;

DBEdit1: TDBEdit;

Label1: TLabel;

Panel3: TPanel;

DBGrid1: TDBGrid;

Panel4: TPanel;

DBNavigator2: TDBNavigator;

DBImage1: TDBImage;

DBEdit2: TDBEdit;

Label2: TLabel;

Button1: TButton;

OpenDialog1: TOpenDialog;

DBEdit3: TDBEdit;

Label3: TLabel;

Label4: TLabel;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

Label5: TLabel;

SpeedButton1: TSpeedButton;

procedure Button1Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses DMUnit, MainUnit, SettingsUnit;

{$R *.dfm}

//Добавление нового изображения машины в базу данных.

procedure TForm2. Button1Click (Sender: TObject);

var

jpeg: TJPEGImage;

bmp: TBitmap;

begin

//Запуск диалога для поиска изображения на локальном диске

if OpenDialog1. Execute then

begin

jpeg := TJPEGImage. Create;

bmp := TBitmap. Create;

try

try

//Непосредственная запись в базу данных

jpeg.LoadFromFile (OpenDialog1.FileName);

bmp.Assign (jpeg);

Dm.TCar.Edit;

Dm.TCar.FieldByName ('Изображение').Assign (bmp);

Dm.TCar.Post;

finally

jpeg.Free;

bmp.Free;

end;

except

ShowMessage ('Неверный формат файла!');

end;

end;

end;

//Обновление координат при отображении дисков на машине. Срабатывает при нажатии на кнопку.

procedure TForm2. SpeedButton1Click (Sender: TObject);

begin

try

Form4.Shape1.Top:=StrtoInt (DBEdit3.Text)-57;

Form4.Shape2.Top:=StrtoInt (DBEdit3.Text)-57;

Form4.Shape1.Left:=StrtoInt (DBEdit4.Text);

Form4.Shape2.Left:=StrtoInt (DBEdit5.Text);

Except

End;

Form4.Show;

end;

end.

Ниже представлен листинг формы редактирования данных о дисках.

unit DiskUnit;

interface

uses

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

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

type

TForm3 = class (TForm)

Panel3: TPanel;

DBGrid1: TDBGrid;

Panel4: TPanel;

Label2: TLabel;

DBEdit2: TDBEdit;

Button1: TButton;

DBNavigator2: TDBNavigator;

Panel1: TPanel;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

Panel2: TPanel;

Label1: TLabel;

DBEdit1: TDBEdit;

OpenDialog1: TOpenDialog;

DBImage1: TDBImage;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses DMUnit;

{$R *.dfm}

//Добавления нового изображения дисков в базу данных

procedure TForm3. Button1Click (Sender: TObject);

var

jpeg: TJPEGImage;

bmp: TBitmap;

begin

// Открытие проводника для поиска изображения

if OpenDialog1. Execute then

begin

jpeg := TJPEGImage. Create;

bmp := TBitmap. Create;

try

try

//Непосредственная запись значений в таблицу

jpeg.LoadFromFile (OpenDialog1.FileName);

bmp.Assign (jpeg);

Dm.TDisks.Edit;

Dm.TDisks.FieldByName ('Изображение').Assign (bmp);

Dm.TDisks.Post;

finally

jpeg.Free;

bmp.Free;

end;

except

ShowMessage ('Неверный формат файла!');

end;

end;

end;

end.

Ниже представлен листинг модуля содержащего таблицы и строку подключения к базе данных.

unit DMUnit;

interface

uses

SysUtils, Classes, DB, ADODB, XPMan;

type

TDM = class (TDataModule)

ADOConnection1: TADOConnection;

TDisks: TADOTable;

TMark: TADOTable;

TCar: TADOTable;

TManuf: TADOTable;

DSDisks: TDataSource;

DSMark: TDataSource;

DSCar: TDataSource;

DSManuf: TDataSource;

TDisksDSDesigner: TAutoIncField;

TDisksDSDesigner2: TIntegerField;

TDisksDSDesigner3: TWideStringField;

TDisksDSDesigner5: TBlobField;

TMarkDSDesigner: TAutoIncField;

TCarDSDesigner: TAutoIncField;

TCarDSDesigner2: TIntegerField;

TCarDSDesigner3: TWideStringField;

TCarDSDesigner6: TBlobField;

TManufDSDesigner: TAutoIncField;

TManufDSDesigner2: TWideStringField;

TCarField: TStringField;

TMarkDSDesigner2: TWideStringField;

XPManifest1: TXPManifest;

TCarTop: TIntegerField;

TCarDSDesigner4: TIntegerField;

TCarDSDesigner5: TIntegerField;

TDisksDSDesigner4: TIntegerField;

TDisksDSDesigner6: TIntegerField;

procedure TCarAfterInsert (DataSet: TDataSet);

procedure TCarAfterOpen (DataSet: TDataSet);

procedure TMarkAfterScroll (DataSet: TDataSet);

procedure TDisksAfterInsert (DataSet: TDataSet);

procedure TDisksAfterOpen (DataSet: TDataSet);

procedure TManufAfterScroll (DataSet: TDataSet);

procedure TDisksAfterScroll (DataSet: TDataSet);

procedure TCarAfterScroll (DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses MainUnit, SettingsUnit;

{$R *.dfm}

//При добавлении новой машины, код ее марки добавляется автоматически из таблицы «Марки»

procedure TDM. TCarAfterInsert (DataSet: TDataSet);

begin

TCar.FieldByName ('Код марки').Value:=TMark.FieldByName ('Код марки').Value;

end;

//Настройка отображаемых полей в таблице машины. Запускается после открытия таблицы

procedure TDM. TCarAfterOpen (DataSet: TDataSet);

begin

TCar.Filter:='([Код марки]='+TMark.FieldByName ('Код марки').AsString+')';

end;

//Настройка отображаемых полей в таблице машины. Запускается после прокрутки

procedure TDM. TMarkAfterScroll (DataSet: TDataSet);

begin

TCar.Filter:='([Код марки]='+TMark.FieldByName ('Код марки').AsString+')';

end;

//При добавлении новых дисков, код производителя добавляется автоматически из таблицы «Производитель»

procedure TDM. TDisksAfterInsert (DataSet: TDataSet);

begin

TDisks.FieldByName ('Производитель').Value:=TManuf.FieldByName ('Код производителя').Value;

end;

//Настройка отображаемых полей в таблице диски. Запускается после открытия таблицы

procedure TDM. TDisksAfterOpen (DataSet: TDataSet);

begin

TManuf.Open;

TDisks.Filter:='([Производитель]='+TManuf.FieldByName ('Код производителя').AsString+')';

end;

//Настройка отображаемых полей в таблице диски. Запускается после открытия таблицы

procedure TDM. TManufAfterScroll (DataSet: TDataSet);

begin

TDisks.Filter:='([Производитель]='+TManuf.FieldByName ('Код производителя').AsString+')';;

end;

//Обновление отображаемых изображений дисков после прокрутки таблицы дисков

procedure TDM. TDisksAfterScroll (DataSet: TDataSet);

begin

Form1.Image2.Picture.Bitmap.Assign (Dm.TDisks.Fields.FieldByName ('Изображение'));

Form1.Image3.Picture.Bitmap.Assign (Dm.TDisks.Fields.FieldByName ('Изображение'));

end;

//Обновление отображаемого изображения машины после прокрутки таблицы машины

procedure TDM. TCarAfterScroll (DataSet: TDataSet);

begin

Form1.Image1.Picture.Bitmap.Assign (Dm.TCar.Fields.FieldByName ('Изображение'));

Form4.Image1.Picture.Bitmap.Assign (Dm.TCar.Fields.FieldByName ('Изображение'));

end;

end.

Ниже представлен листинг юнита с отчетом.

unit OrderUnit;

interface

uses

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

Dialogs, QRCtrls, QuickRpt, ExtCtrls;

type

TForm5 = class (TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

QRLabel1: TQRLabel;

QRShape1: TQRShape;

QRShape2: TQRShape;

QRShape3: TQRShape;

QRShape4: TQRShape;

QRShape5: TQRShape;

QRShape6: TQRShape;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses DMUnit;

{$R *.dfm}

end.