Реферат Розробка програмного забезпечення &Автоматизація обліку комп'ютерної техніки&

:integer;:string;:=CreateOleObject(laquo;Excel.Applicationraquo;);:=app.WorkBooks.Add;.Visible:= True;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Комплектующиеraquo;;:=book.Worksheets[1];.tbl1.First;.Range[laquo;B1raquo;]:=laquo;Отчёт по объектамraquo;;.Range[laquo;B2raquo;]:=laquo;Комплектующиеraquo;;.Range[laquo;C2raquo;]:=laquo;Тип Комплектующегоraquo;;.Range[laquo;D2raquo;]:=laquo;Колличествоraquo;;

//sheet.Range[laquo;e2raquo;]:=laquo;Перезаключениеraquo;;.Range[laquo;A1:D1raquo;].Select;.Range[laquo;b2:D2raquo;].Borders[7].LineStyle:=1;.Range[laquo;B2:D2raquo;].Borders[7].Weight:=- 4 138; .Range [ B2: D2 ]. Borders [7] .ColorIndex:=- 4105;.Range[laquo;B2:D2raquo;].Borders[8].LineStyle:=1;.Range[laquo;B2:D2raquo;].Borders[8].Weight:=- 4 138; .Range [ B2: D2 ]. Borders [8] .ColorIndex:=- 4105;.Range[laquo;B2:d2raquo;].Borders[9].LineStyle:=1;.Range[laquo;B2:d2raquo;].Borders[9].Weight:=- 4 138; .Range [ B2: d2 ]. Borders [9] .ColorIndex:=- 4105;.Range[laquo;B2:d2raquo;].Borders[10].LineStyle:=1;.Range[laquo;B2:d2raquo;].Borders[10].Weight:=- 4 138; .Range [ B2: d2 ]. Borders [10] .ColorIndex:=- 4105;.Columns[laquo;B:Braquo;].columnWidth:=20;.Columns[laquo;C:Craquo;].columnWidth:=20;.Columns[laquo;D:Draquo;].columnWidth:=20;

//Sheet.Columns [ E: E ]. columnWidth:=40;

//Sheet.Columns [ F: F ]. columnWidth:=15; i:=1 to Main.tbl1.RecordCount do.Cells [i + 2,2] .Borders [ 7] .LineStyle:=1; .Cells [i + 2,2] .Borders [7] .Weight:=- 4138; .Cells [i + 2,2] .Borders [7] .ColorIndex:=- 4 105;.Cells [i + 2,4] .Borders [10] .LineStyle:=1; .Cells [i + 2,4] .Borders [10] .Weight:=- 4 138; .Cells [i + 2,4].Borders [10] .ColorIndex:=- 4105; .Cells [i + 2,2]:=Main.tbl1.FieldByName ( Комплектуючі ). AsString; .Cells [i + 2,3]:=Main. tbl1.FieldByName ( Тіп_Комплектующего ). AsString; .Cells [i + 2,4]:=Main.tbl1.FieldByName ( Колличество ). AsString;

//sheet.Cells [i + 1,5]:=Obect.ADOTable1.FieldByName ( Переукладання ). AsString;

//sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName(laquo;Ценаraquo;).AsCurrency;.tbl1.Next;;i:=2 to 6 do

//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .LineStyle:=1;

//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .Weight:=- 4138;

//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .ColorIndex:=- 4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+laquo;Комплектующие.xlsraquo;);.Visible:=true;;TMain.Button2Click(Sender: TObject);app,book,sheet:Variant;:integer;:string;:=CreateOleObject(laquo;Excel.Applicationraquo;);:=app.WorkBooks.Add;.Visible:= True;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Поставкаraquo;;:=book.Worksheets[1];.tbl1.First;.Range[laquo;B1raquo;]:=laquo;Отчёт по объектамraquo;;.Range[laquo;B2raquo;]:=laquo;Комплектующиеraquo;;.Range[laquo;C2raquo;]:=laquo;Тип Комплектующегоraquo;;.Range[laquo;D2raquo;]:=laquo;Колличествоraquo;;

//sheet.Range[laquo;e2raquo;]:=laquo;Перезаключениеraquo;;.Range[laquo;A1:D1raquo;].Select;.Range[laquo;b2:D2raquo;].Borders[7].LineStyle:=1;.Range[laquo;B2:D2raquo;].Borders[7].Weight:=- 4 138; .Range [ B2: D2 ]. Borders [7] .ColorIndex:=- 4105;.Range[laquo;B2:D2raquo;].Borders[8].LineStyle:=1;.Range[laquo;B2:D2raquo;].Borders[8].Weight:=- 4 138; .Range [ B2: D2 ]. Borders [8] .ColorIndex:=- 4105;.Range[laquo;B2:d2raquo;].Borders[9].LineStyle:=1;.Range[laquo;B2:d2raquo;].Borders[9].Weight:=- 4 138; .Range [ B2: d2 ]. Borders [9] .ColorIndex:=- 4105;.Range[laquo;B2:d2raquo;].Borders[10].LineStyle:=1;.Range[laquo;B2:d2raquo;].Borders[10].Weight:=- 4 138; .Range [ B2: d2 ]. Borders [10] .ColorIndex:=- 4105;.Columns[laquo;B:Braquo;].columnWidth:=20;.Columns[laquo;C:Craquo;].columnWidth:=20;.Columns[laquo;D:Draquo;].columnWidth:=20;

//Sheet.Columns [ E: E ]. columnWidth:=40;

//Sheet.Columns [ F: F ]. columnWidth:= 15; i:=1 to Main.tbl1.RecordCount do.Cells [i + 2,2] .Borders [7] .LineStyle:=1; .Cells [i + 2,2] .Borders [7] .Weight :=- 4 138; .Cells [i + 2,2] .Borders [7] .ColorIndex:=- 4 105; .Cells [i + 2,4] .Borders [10] .LineStyle:=1; .Cells [i +2,4] .Borders [10] .Weight:=- 4 138; .Cells [i + 2,4] .Borders [10] .ColorIndex:=- 4 105; .Cells [i + 2,2]:=Main.tbl1.FieldByName ( Комплектуючі ). AsString; .Cells [i + 2,3]:=Main.tbl1.FieldByName ( Тіп_Комплектующего ). AsString; .Cells [i + 2,4]:=Main.tbl1.FieldByName ( Колличество ). AsString;

//sheet.Cells [i + 1,5]:=Obect.ADOTable1.FieldByName ( Переукладання ). AsString;

//sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName(laquo;Ценаraquo;).AsCurrency;.tbl1.Next;;i:=2 to 6 do

//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .LineStyle:=1;

Назад | сторінка 8 з 10 | Наступна сторінка