else MessageBox(Handle,'Нет автомобиля такой марки...','',MB_OK);
if RadioGroup1.ItemIndex=1 then
if dm1.avto_out.Locate('model_out',edit1.Text,[loCaseInsensitive]) then
else MessageBox(Handle,'Нет автомобиля такой модели...','',MB_OK);
end
else MessageBox(Handle,'Введите значение для поиска!','',MB_OK);
end;
procedure TFdel.LMDSpeedButton2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex=0 then
dm1.avto_out.IndexName:='marka_out';
if RadioGroup2.ItemIndex=1 then
dm1.avto_out.IndexName:='V_out';
if RadioGroup2.ItemIndex=2 then
dm1.avto_out.IndexName:='tipkuz_out';
procedure TFdel.LMDSpeedButton4Click(Sender: TObject);
close;
procedure TFdel.LMDSpeedButton3Click(Sender: TObject);
AppProgID := 'Excel.Application';
ServerIsRunning := False;
Result:=GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
try
if (Result = MK_E_UNAVAILABLE) then
App := CreateOleObject(AppProgID)
else
App := GetActiveOleObject(AppProgID);
ServerIsRunning := True;
ExelOtch:=ExtractFilePath(Application.EXEName)+'Проданные автомобили на '+DateToStr(Date)+'.xls';
App.WorkBooks.Add;
Ke:=App.WorkBooks[1];
Abc:=Ke.WorkSheets[1];
Abc.Name:='Проданные авто('+DateToStr(Date)+').xls';
except on EinOutError do begin
messageBox(handle,'Не удаётся создать файл!','Ошибка',MB_ICONERROR);
exit;
App.DisplayAlerts:=False;
Abc.Cells[1,3]:='Проданные авто('+DateToStr(Date)+').xls';
Abc.Cells[1,3].Font.Bold:=True;
Abc.Cells[1,3].Font.Size:=11;
dm1.avto_out.first;
i:=3;
while not dm1.avto_out.eof do begin
i:=i+1;
app.cells[i,1]:=vartostr(dm1.avto_out['Marka_out']);
Abc.Cells[i,1].ColumnWidth:=15;
app.cells[i,2]:=vartostr(dm1.avto_out['Model_out']);
Abc.Cells[i,2].ColumnWidth:=15;
app.cells[i,3]:=vartostr(dm1.avto_out['v_out']);
Abc.Cells[i,3].ColumnWidth:=5;
app.cells[i,4]:=vartostr(dm1.avto_out['cvet_out']);
Abc.Cells[i,4].ColumnWidth:=15;
app.cells[i,5]:=vartostr(dm1.avto_out['tipkuz_out']);
Abc.Cells[i,5].ColumnWidth:=15;
app.cells[i,6]:=vartostr(dm1.avto_out['cena_out']);
Abc.Cells[i,6].ColumnWidth:=10;
app.cells[i,7]:=vartostr(dm1.avto_out['date']);
Abc.Cells[i,7].ColumnWidth:=8;
dm1.avto_out.next;
App.ActiveWorkBook.SaveAs(ExelOtch);
App.Quit;
App:=Unassigned;
App := CreateOleObject(AppProgID);
App.Visible := True;
App.WorkBooks.Open(ExelOtch);
end.
unit dm;
interface
uses
SysUtils, Classes, DB, DBTables;
type
Tdm1 = class(TDataModule)
dsvlad: TDataSource;
dsavto: TDataSource;
dssot: TDataSource;
dskomplect: TDataSource;
dsavto_in: TDataSource;
dsavto_out: TDataSource;
sot: TTable;
komplect: TTable;
avto_in: TTable;
avto_out: TTable;
sotKOD_SOT: TSmallintField;
sotFAM: TStringField;
sotNAME: TStringField;
sotOTH: TStringField;
avto_inKOD_IN: TFloatField;
avto_inAKT_NOM: TFloatField;
avto_inKOD_AVTO: TFloatField;
avto_inKOD_VLAD: TFloatField;
avto_inKOD_SOT: TFloatField;
avto_inDATA: TDateField;
komplectKOD_AVTO: TFloatField;
komplectKOLESO: TStringField;
komplectZAPASKA: TBooleanField;
komplectINSTRUMENT: TBooleanField;
komplectMUSIC: TBooleanField;
komplectMEDIC: TBooleanField;
komplectELECT_PAK: TBooleanField;
komplectABS: TBooleanField;
komplectGUR: TBooleanField;
komplectKONDIC: TBooleanField;
komplectINFO: TMemoField;
komplectDEFEKT: TMemoField;
komplectKOROBKA: TStringField;
komplectPRIVOD: TStringField;
avto_outKOD_OUT: TFloatField;
avto_outDATE: TDateField;
avto_outMARKA_OUT: TStringField;
avto_outMODEL_OUT: TStringField;
avto_outV_OUT: TStringField;
avto_outCVET_OUT: TStringField;
avto_outTIPKUZ_OUT: TStringField;
avto_outCENA_OUT: TFloatField;
dsmarka: TDataSource;
marka: TTable;
markaID_MARKA: TSmallintField;
markaMARKA: TStringField;
vlad: TTable;
vladKOD_VLAD: TFloatField;
vladFAM: TStringField;
vladNAME: TStringField;
vladOTH: TStringField;
vladADRES: TStringField;
vladMAIL: TStringField;
vladTEL: TFloatField;
vladSOT: TFloatField;
t1: TTable;
t1KOD_AVTO: TFloatField;
t1KOD_VLAD: TFloatField;
t1MARKA: TSmallintField;
t1MODEL: TStringField;
t1GOS_NOM: TStringField;
t1CVET: TStringField;
t1TIP_KUZ: TStringField;
t1FOTO_1: TStringField;
t1FOTO_2: TStringField;
t1CENA: TFloatField;
t1hoz: TStringField;
t1V: TStringField;
t1MMarka: TStringField;
avto: TTable;
avtoKOD_AVTO: TFloatField;
avtoKOD_VLAD: TFloatField;
avtoMARKA: TSmallintField;
avtoMODEL: TStringField;
avtoGOS_NOM: TStringField;
avtoCVET: TStringField;
avtoTIP_KUZ: TStringField;
avtoFOTO_1: TStringField;
avtoFOTO_2: TStringField;
avtoCENA: TFloatField;
avtoV: TFloatField;
avtohoz: TStringField;
avtoMMarka: TStringField;
procedure DataModuleCreate(Sender: TObject);
procedure avtoAfterScroll(DataSet: TDataSet);
procedure markaBeforeInsert(DataSet: TDataSet);
procedure markaAfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
var
dm1: Tdm1;
id : integer;
implementation
uses main;
{$R *.dfm}
procedure Tdm1.DataModuleCreate(Sender: TObject);
avto.Close;
avto.Open;
komplect.Close;
komplect.Open;
avto_in.Close;
avto_in.Open;
avto_out.Close;
avto_out.Open;
vlad.Close;
vlad.Open;
sot.Close;
sot.Open;
procedure Tdm1.avtoAfterScroll(DataSet: TDataSet);
Fmain.Image3.Picture.LoadFromFile(ExtractFilePath(path)+'FOTO\'+dm1.avto.fieldbyname('FOTO_1').AsString);
except
Fmain.Image3.picture:=nil;
Fmain.Image4.Picture.LoadFromFile(ExtractFilePath(path)+'FOTO\'+dm1.avto.fieldbyname('FOTO_2').AsString);
Fmain.Image4.picture:=nil;
procedure Tdm1.markaBeforeInsert(DataSet: TDataSet);
id:=0;
Marka.First;
while not Marka.Eof do begin
if Marka.FieldByName('Id_marka').asinteger > id
then id := Marka.FieldByName('Id_marka').asinteger;
Marka.Next;
id:=id+1;
procedure Tdm1.markaAfterInsert(DataSet: TDataSet);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18