72
var
BLOB:TBlobStream;
Code:word;
begin
// pre.Recordset:= CopyRecordSet(ADOTable1.Recordset) ;
if ( ADOTable1DSDesigner.AsString<>'') then begin pre.Open;
pre.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
pre.MoveBy(1);
post.Open;
post.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
post.MoveBy(-1);
end;
BitBtn3.Enabled:=true;
BitBtn2.Enabled:=true;
if (post.Bof) then BitBtn3.Enabled:=false;
if (pre.Eof) then BitBtn2.Enabled:=false;
{ BLOB:=TBlobStream.Create(( pre.FieldByName('Фото')) as
TBlobField,bmRead );
try
BLOB.Read(Code,SizeOf(Code)); BLOB.Seek(0,0);
case Code of
$4D42: begin
DBImage2.Picture.Graphic:=TBitmap.Create;
DBImage2.Picture.Graphic.LoadFromStream(BLOB);
end;
$D8FF: begin
DBImage2.Picture.Graphic:=TJPEGImage.Create;
73
DBImage2.Picture.Graphic.LoadFromStream(BLOB);
end;
end;
finally BLOB.Free; end; }
end;
procedure TForm9.ADOTable1MoveComplete(DataSet: TCustomADODataSet;
const Reason: TEventReason; const Error: Error;
var EventStatus: TEventStatus);
var pre, post :TADOTable;
pred,postd: TDataSource;
begin
// if not ADOTable1.Eof then
end;
procedure TForm9.BitBtn4Click(Sender: TObject); // загрузка картинки в
базу
begin
if OpenPictureDialog1.Execute then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Edit;
TBLOBField(ADOtable1.FieldByName('Фото')).LoadFromFile(OpenPict
ureDialog1.FileName);
ADOtable1.Post;
pre.Close;
post.Close;
pre.Open;
74
pre.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
pre.MoveBy(1);
post.Open;
post.Locate('Код',ADOTable1DSDesigner.AsString,[]) ;
post.MoveBy(-1);
end;
end;
procedure TForm9.BitBtn5Click(Sender: TObject); // загрузка картинки в базу
begin
if OpenPictureDialog1.Execute then
begin
DBImage4.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Edit;
TBLOBField(ADOtable1.FieldByName('Штрих
код')).LoadFromFile(OpenPictureDialog1.FileName);
ADOtable1.Post;
end;
procedure TForm9.ADOTable1BeforePost(DataSet: TDataSet);
begin
if (Length(dbedit3.Text)=0) then
// dbedit3.Text:='18';
ADOTable1DSDesigner10.Value:=18 ; // ндс по умолчанию
end;
end.
procedure TForm1.Button3Click(Sender: TObject);
begin
75
form4.show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
// вопрос о закрытии программы
begin
if MessageDlg(mtConfirmation, [mbOk, mbCancel], 0) = mrCancel then
CanClose := False else
end;
procedure TForm1.N7Click(Sender: TObject);// формирование книги продаж
var
Excel: Variant;
WorkbookName, WorkbookToSave: string;
i :integer;
sum,sum_nds: double;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Шаблоны\' + 'Книга продаж.xls';
Excel := CreateOleObject('Excel.Application');
WorkbookToSave := GetCurrentDir + '\Документы\Книга продаж.xls';
try
Excel.Workbooks.Open(WorkbookName);
//Экспорт данных из таблиц БД:
76
// выполнение запроса к базе
Excel.ActiveWorkBook.SaveAs(WorkbookToSave);
with ADOQuery1 do
begin
Close;
Parameters.ParamByName('nd').Value :=datetostr(form8.nd.DateTime);//
ADOTableRespDSDesigner3.KeyValue;
Parameters.ParamByName('kd').Value :=datetostr(form8.kd.DateTime);//
ADOTableRespDSDesigner3.KeyValue;
Open;
end;
Excel.Cells[7,4] := datetostr(form8.nd.DateTime);
Excel.Cells[7,6] := datetostr(form8.kd.DateTime);
for i:=14 to ADoquery1.Recordset.RecordCount+14-2 do
begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;
Excel.Rows.Item[i].Select;
Excel.Selection.Copy;
Excel.Rows.Item[i+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
ADoquery1.First;
//////
i:=1;
sum:=0;
sum_nds:=0;
while not ADoquery1.EOF do
begin
77
Excel.Cells[13+i,2]:='1000'+ADoquery1.Fields[0].AsString;
// if (ADoquery1.Fields[2].AsString='Частное лицо') then
Excel.Cells[13+i,3]:=ADoquery1.Fields[2].AsString+' '
+ADoquery1.Fields[1].AsString ;
// else Excel.Cells[13+i,3]:=ADoquery1.Fields[1].AsString;
Excel.Cells[13+i,4]:=ADoquery1.Fields[3].AsString;
Excel.Cells[13+i,5]:=ADoquery1.Fields[4].AsString;
Excel.Cells[13+i,6]:=ADoquery1.Fields[5].AsString;
Excel.Cells[13+i,7]:=ADoquery1.Fields[6].AsString;
sum:=sum+ADoquery1.Fields[6].AsInteger;
Inc(i);
ADoquery1.Next;
end;
Excel.Cells[13+i,7]:= (sum);
Excel.Visible := True;
except
Excel.Quit;
end;
end;
end.
