Разработка программы на языке программирования 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.













2