begin
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;
end;
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);
Marka.FieldByName('id_marka').asinteger:=id;
unit edit;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
LMDCustomSpeedButton, LMDSpeedButton, StdCtrls, RxGIF, glLabel, Mask,
ToolEdit, DBCtrls,IDGlobal, ExtDlgs, Grids, DBGrids;
TFedit = class(TForm)
Panel3: TPanel;
glLabel2: TglLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Image1: TImage;
ComboBox1: TComboBox;
Panel4: TPanel;
glLabel3: TglLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Panel1: TPanel;
glLabel4: TglLabel;
LMDSpeedButton8: TLMDSpeedButton;
LMDSpeedButton9: TLMDSpeedButton;
Image4: TImage;
Image5: TImage;
Panel5: TPanel;
LMDSpeedButton10: TLMDSpeedButton;
LMDSpeedButton12: TLMDSpeedButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
DBCheckBox4: TDBCheckBox;
DBCheckBox5: TDBCheckBox;
DBCheckBox6: TDBCheckBox;
DBCheckBox7: TDBCheckBox;
DBCheckBox8: TDBCheckBox;
OpenPictureDialog1: TOpenPictureDialog;
OpenPictureDialog2: TOpenPictureDialog;
Image3: TImage;
DBLookupComboBox1: TDBLookupComboBox;
procedure LMDSpeedButton12Click(Sender: TObject);
procedure LMDSpeedButton10Click(Sender: TObject);
procedure LMDSpeedButton8Click(Sender: TObject);
procedure LMDSpeedButton9Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
Fedit: TFedit;
pic1,pic2:string;
pole1,pole2,pole1_1,pole2_2:string;
y,t:integer;
uses dm, DB;
procedure TFedit.LMDSpeedButton12Click(Sender: TObject);
close;
procedure TFedit.LMDSpeedButton10Click(Sender: TObject);
var st1,q1,st2,q2:string;
i,u,k2:integer;
dm1.avto.Edit;
dm1.komplect.Edit;
dm1.avto.FieldByName('TIP_KUZ').Value:=ComboBox1.text;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18