Здравствуйте! Вот фрагмент: | Код |
procedure TForm1.Button4Click(Sender: TObject);
begin
if FileExists(PChar(GetCurrentDir + '\Report1.xls'))=true then DeleteFile(PChar(GetCurrentDir + '\Report1.xls'));
if CopyFile(PChar(GetCurrentDir + '\reports\Report1.xls'),PChar(GetCurrentDir + '\Report1.xls'),true)=true then
Begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open(GetCurrentDir + '\Report1.xls');
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from T3 where (TEKDATA like '+ Char(39) + '01.12.2009' + Char(39)+')');
ADOQuery1.Open;
ADOQuery1.First;
if (ADOQuery1.RecordCount > 0) then
begin
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A11'] := '1';
Ap.Range['M4'] := DBEdit1.Text;
Ap.Range['C8'] := DBEdit14.Text;
Ap.Range['D8'] := DBEdit3.Text;
Ap.Range['E8'] := DBEdit4.Text;
Ap.Range['F8'] := DBEdit5.Text;
Ap.Range['G8'] := DBEdit6.Text;
Ap.Range['H8'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I8'] := DBEdit9.Text;
Ap.Range['J8'] := DBEdit10.Text;
Ap.Range['K8'] := DBEdit11.Text;
Ap.Range['B8'] := DBEdit12.Text;
Ap.Range['M8'] := DBEdit13.Text;
Ap.Range['B8'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A11'] := '2';
Ap.Range['C9'] := DBEdit14.Text;
Ap.Range['D9'] := DBEdit3.Text;
Ap.Range['E9'] := DBEdit4.Text;
Ap.Range['F9'] := DBEdit5.Text;
Ap.Range['G9'] := DBEdit6.Text;
Ap.Range['H9'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I9'] := DBEdit9.Text;
Ap.Range['J9'] := DBEdit10.Text;
Ap.Range['K9'] := DBEdit11.Text;
Ap.Range['B9'] := DBEdit12.Text;
Ap.Range['M9'] := DBEdit13.Text;
Ap.Range['B9'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A11'] := '3';
Ap.Range['C10'] := DBEdit14.Text;
Ap.Range['D10'] := DBEdit3.Text;
Ap.Range['E10'] := DBEdit4.Text;
Ap.Range['F10'] := DBEdit5.Text;
Ap.Range['G10'] := DBEdit6.Text;
Ap.Range['H10'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I10'] := DBEdit9.Text;
Ap.Range['J10'] := DBEdit10.Text;
Ap.Range['K10'] := DBEdit11.Text;
Ap.Range['B10'] := DBEdit12.Text;
Ap.Range['M10'] := DBEdit13.Text;
Ap.Range['B10'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A11'] := '4';
Ap.Range['C11'] := DBEdit14.Text;
Ap.Range['D11'] := DBEdit3.Text;
Ap.Range['E11'] := DBEdit4.Text;
Ap.Range['F11'] := DBEdit5.Text;
Ap.Range['G11'] := DBEdit6.Text;
Ap.Range['H11'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I11'] := DBEdit9.Text;
Ap.Range['J11'] := DBEdit10.Text;
Ap.Range['K11'] := DBEdit11.Text;
Ap.Range['B11'] := DBEdit12.Text;
Ap.Range['M11'] := DBEdit13.Text;
Ap.Range['B11'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A12'] := '5';
Ap.Range['C12'] := DBEdit14.Text;
Ap.Range['D12'] := DBEdit3.Text;
Ap.Range['E12'] := DBEdit4.Text;
Ap.Range['F12'] := DBEdit5.Text;
Ap.Range['G12'] := DBEdit6.Text;
Ap.Range['H12'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I12'] := DBEdit9.Text;
Ap.Range['J12'] := DBEdit10.Text;
Ap.Range['K12'] := DBEdit11.Text;
Ap.Range['B12'] := DBEdit12.Text;
Ap.Range['M12'] := DBEdit13.Text;
Ap.Range['B12'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A13'] := '6';
Ap.Range['C13'] := DBEdit14.Text;
Ap.Range['D13'] := DBEdit3.Text;
Ap.Range['E13'] := DBEdit4.Text;
Ap.Range['F13'] := DBEdit5.Text;
Ap.Range['G13'] := DBEdit6.Text;
Ap.Range['H13'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I13'] := DBEdit9.Text;
Ap.Range['J13'] := DBEdit10.Text;
Ap.Range['K13'] := DBEdit11.Text;
Ap.Range['B13'] := DBEdit12.Text;
Ap.Range['M13'] := DBEdit13.Text;
Ap.Range['B13'] := DBEdit2.Text;
if ADOQuery1.RecNo < ADOQuery1.RecordCount-1 then ADOQuery1.Next;
Ap.Range['A14'] := '7';
Ap.Range['C14'] := DBEdit14.Text;
Ap.Range['D14'] := DBEdit3.Text;
Ap.Range['E14'] := DBEdit4.Text;
Ap.Range['F14'] := DBEdit5.Text;
Ap.Range['G14'] := DBEdit6.Text;
Ap.Range['H14'] := DBEdit7.Text + '; ' + DBEdit8.Text;
Ap.Range['I14'] := DBEdit9.Text;
Ap.Range['J14'] := DBEdit10.Text;
Ap.Range['K14'] := DBEdit11.Text;
Ap.Range['B14'] := DBEdit12.Text;
Ap.Range['M14'] := DBEdit13.Text;
Ap.Range['B14'] := DBEdit2.Text;
Ap.Visible := True;
end;
end;
end;
|
Можно как нибудь эту построчку определить в цикл? Чтобы автоматом менять номера строк в Екселе?, а не писать каждый раз одно и тоже? И тогда еще вопрос как можно считать данные из поля БД в текущей записи без использования DBEdit'ов, что то наподобие DataFields, как точно к ним обращаться? --------------------
Вас разыскивают бойцы 139-го порта... |
Построчный вывод в ексель 
Загрузка ...
